image of READY prompt

Wang2200.org

Listing of file='PKGENSCR' on disk='vmedia/701-2720C.wvd.zip'

# Sector 208, program filename = 'PKGENSCR'
0010 REM % C O M M O N   V A R I A B L E S
0020 COM G3$(G3)G6,L3$(L3)L6,L3,L5,L6,G3,G5,G6,H7$7,G4$(G3)5,L3$(L3)L6,F7,F1$(
     F7)2
   : COM M3,F5
   : GOTO 3001
0050 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
0060 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
3000 REM % MAIN PROCEDURE
3001 DIM B0(10,4)
   : GOSUB '221(1)
   : M5,M6,M7=0
   : B0=0
   : R1=8
   : C6=1
   : O=0
   : IF G5=0THEN 5015
   : FOR I=1TO G5
   : IF VAL(STR(G3$(I),FNS(6),FNL(6)))=OTHEN 4980
   : O=VAL(STR(G3$(I),FNS(6),FNL(6)))
   : B0=B0+1
   : B0(B0,1)=R1-M3-1+O
   : B0(B0,2)=C6-1
   : B0(B0,3)=2*(M3-O)+3
4980 STR(G4$(I),FNS(15),FNL(15))=BIN(R1)
   : STR(G4$(I),FNS(16),FNL(16))=BIN(C6,2)
   : IF STR(G3$(I),FNS(13),FNL(13))="Y"THEN 5000
   : C6=C6+2
   : GOTO 5010
5000 C6$=STR(G3$(I),FNS(1),FNL(1))
   : C6=C6+LEN(C6$)+2
5010 NEXT I
5015 IF B0=0THEN 5055
   : FOR I=1TO B0
   : B0(I,4)=C6+M3-I-2-B0(I,2)
   : IF B0(I,4)<0THEN B0(I,4)=1
   : GOSUB '224(B0(I,1),B0(I,2),B0(I,3),B0(I,4))
   : NEXT I
5055 IF G5=0THEN 7000
   : FOR I=1TO G5
   : IF STR(G3$(I),FNS(13),FNL(13))<>"Y"THEN 5080
   : R2=VAL(STR(G4$(I),FNS(15),FNL(15)))
   : C7=VAL(STR(G4$(I),FNS(16),FNL(16)),2)
   : IF STR(G3$(I),FNS(8),FNL(8))="NO"AND VAL(STR(G3$(I),FNS(6),FNL(6)))<VAL(S
     TR(G3$(G5),FNS(6),FNL(6)))THEN A0=04
   : ELSE A0=0
   : GOSUB '223(R2,C7,A0,STR(G3$(I),FNS(1),FNL(1)))
5080 NEXT I
   : F5=C6-2+B0
   : IF F5<=80THEN 7000
   : ON C6/40GOSUB 6060,6050,6040,6030,6020,6010,6009,6008,6007,6006,6006,6006
     ,6006,6006,6006,6006,6006,6006,6006,6006,6006
   : GOTO 7000
6006 GOSUB 6007
   : GOSUB '223(2,400,0,"\C3\EF\EC\AE\A0\B4\B0\B0")
   : RETURN
6007 GOSUB 6008
   : GOSUB '223(2,360,0,"\C3\EF\EC\AE\A0\B3\B6\B0")
   : RETURN
6008 GOSUB 6009
   : GOSUB '223(2,320,0,"\C3\EF\EC\AE\A0\B3\B2\B0")
   : RETURN
6009 GOSUB 6010
   : GOSUB '223(2,280,0,"\C3\EF\EC\AE\A0\B2\B8\B0")
   : RETURN
6010 GOSUB 6020
   : GOSUB '223(2,240,0,"\C3\EF\EC\AE\A0\B2\B4\B0")
   : RETURN
6020 GOSUB 6030
   : GOSUB '223(2,200,0,"\C3\EF\EC\AE\A0\B2\B0\B0")
   : RETURN
6030 GOSUB 6040
   : GOSUB '223(2,160,0,"\C3\EF\EC\AE\A0\B1\B6\B0")
   : RETURN
6040 GOSUB 6050
   : GOSUB '223(2,120,0,"\C3\EF\EC\AE\A0\B1\B2\B0")
   : RETURN
6050 GOSUB 6060
   : GOSUB '223(2,80,0,"\C3\EF\EC\AE\A0\B8\B0")
   : RETURN
6060 GOSUB 6070
   : GOSUB '223(2,40,0,"\C3\EF\EC\AE\A0\B4\B0")
   : RETURN
6070 GOSUB '223(2,1,0,"\C3\EF\EC\AE\A0\B1")
   : RETURN
7000 LOAD T"PKMAIN"3000,9999
9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
9809 DEFFN'9"9808 DEFFN '9";HEX(22);"9807 DEFFN '9";HEX(22);";HEX(22);";HEX(22
     );"CLEARP 9807,9808";HEX(22);";HEX(22);";HEX(22);";HEX(0D)";HEX(22);";HEX
     (0D);";HEX(0D)
9830 DEFFN'19"),22,3)"
9900 DEFFN'0"PRINT HEX(03);:LISTSD 0000  ,9969";HEX(0D)
9999 %   SCRATCH T "PKGENSCR":SAVE T ()"PKGENSCR"