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"