image of READY prompt

Wang2200.org

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

# Sector 28, program filename = 'PKARGEN'
0019 COM F1$(F7)2
0020 COM L3,L5,L6,G3,G5,G6
   : COM L3$(L3)L6,L4$(L3)1
   : COM G3$(G3)G6,G4$(G3)5
   : COM Z(25)
   : G7=1
   : IF G5=0THEN 1040
   : G7=VAL(STR(G3$(G5),FNS(6),FNL(6)))
1040 FOR I=1TO L5
   : IF G5=0THEN 1100
   : FOR J=1TO G5
   : IF STR(G3$(J),FNS(8),FNL(8))<>"NO "THEN 1044
   : IF STR(G3$(J),FNS(10),FNL(10))=STR(L3$(I),FNS(1),FNL(1))THEN 1230
1044 NEXT J
1100 IF STR(L4$(I),FNS(14),FNL(14))<>"Y"THEN 1420
   : G5=G5+1
   : IF G5<=G6THEN 1102
   : STR(L4$(I),FNS(14),FNL(14))="N"
   : G5=G6
   : GOTO 1420
1102 STR(G3$(G5),FNS(1),FNL(1))=STR(L3$(I),FNS(1),FNL(1))
   : STR(G3$(G5),FNS(2),FNL(2))=STR(L3$(I),FNS(2),FNL(2))
   : STR(G4$(G5),FNS(15),FNL(15))=BIN(0)
   : STR(G4$(G5),FNS(16),FNL(16))=BIN(0,2)
   : STR(G3$(G5),FNS(5),FNL(5))=HEX(0101010101FF)
   : STR(G3$(G5),FNS(6),FNL(6))=BIN(G7)
   : STR(G3$(G5),FNS(7),FNL(7))=BIN(100)
1180 STR(G3$(G5),FNS(8),FNL(8))="NO"
   : STR(G3$(G5),FNS(9),FNL(9))="F"
   : STR(G3$(G5),FNS(10),FNL(10))=STR(L3$(I),FNS(1),FNL(1))
   : STR(G3$(G5),FNS(11),FNL(11))=" "
   : STR(G3$(G5),FNS(12),FNL(12))=" "
   : STR(G3$(G5),FNS(13),FNL(13))="Y"
   : STR(G3$(G5),FNS(4),FNL(4))=STR(L3$(I),FNS(4),FNL(4))
   : GOTO 1420
1230 IF STR(L4$(I),FNS(14),FNL(14))="N"THEN 1231
   : STR(G3$(J),FNS(2),FNL(2))=STR(L3$(I),FNS(2),FNL(2))
   : GOTO 1420
1231 K=0
   : FOR J=1TO G5
   : IF STR(G3$(J),FNS(8),FNL(8))<>"NO "THEN 1234
   : IF STR(G3$(J),FNS(10),FNL(10))=STR(L3$(I),FNS(1),FNL(1))THEN 1300
1234 NEXT J
   : GOTO 1310
1300 GOSUB '99(J)
1310 FOR J=1TO G5
   : IF STR(G3$(J),FNS(1),FNL(1))=" "THEN 1350
   : G3$(J-K)=G3$(J)
   : G4$(J-K)=G4$(J)
   : GOTO 1360
1350 K=K+1
1360 NEXT J
   : IF K=0THEN 1420
   : FOR J=G5-K+1TO G5
   : G3$(J)=ALL(" ")
   : NEXT J
   : G5=G5-K
1420 NEXT I
   : LOAD T"PKVSCREN"
1760 DEFFN'99(Q)
   : IF STR(G3$(Q),FNS(1),FNL(1))="                "THEN RETURN
   : IF Z(1)=0THEN Z(1)=1
   : Z(Z(1)+1)=J
   : Z(Z(1)+2)=Z
   : Z=Q
   : Z(1)=Z(1)+2
   : J=0
1840 J=J+1
   : IF STR(G3$(J),FNS(1),FNL(1))="                "OR STR(G3$(J),FNS(8),FNL(8
     ))="NO"THEN 1900
   : IF STR(G3$(J),FNS(10),FNL(10))=STR(G3$(Z),FNS(1),FNL(1))AND STR(G3$(J),FN
     S(10),FNL(10))<>" "THEN 1890
   : IF STR(G3$(J),FNS(12),FNL(12))=STR(G3$(Z),FNS(1),FNL(1))AND STR(G3$(J),FN
     S(12),FNL(12))<>" "THEN 1890
   : GOTO 1900
1890 GOSUB '99(J)
1900 IF J<G5THEN 1840
   : STR(G3$(Z),FNS(1),FNL(1))=ALL(" ")
   : Z(1)=Z(1)-2
   : J=Z(Z(1)+1)
   : Z=Z(Z(1)+2)
   : RETURN
9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
9800 DEFFN'1
   : FOR I=0TO 10
   : FOR K=0TO 9
   : X=I*10+K+1
   : PRINT STR(L3$(X),1,9),STR(L4$(X),1,1)
   : NEXT K
   : KEYIN A$
   : NEXT I
   : STOP
   : STOP
9900 DEFFN'0"PRINT HEX(03);:LISTSD 0000  ,9699";HEX(0D)
9999 %   SCRATCH T "PKARGEN": SAVE T ()"PKARGEN"