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"