Listing of file='PKEX2' on disk='vmedia/701-2720C.wvd.zip'
# Sector 181, program filename = 'PKEX2' 0100 REM % P K E X 2 0103 COM L0$(7)20,K9$124 : COM L3,L5,L6,G3,G5,G6 : COM G3$(G3)G6,L3$(L3)L6,H7$7 : COM F1$(F7)2,F7 : COM B1$(1008)1 : GOTO 6600 0109 PRINT HEX(03);"Stan: this will go away too ............" : LOAD T"PKBUFMAN"2700,2999BEG 5005 5005 H1=0 : GOSUB '241(1,L0$(7),"I") 5020 GOSUB '243(1,S1) : IF S1<>0THEN 6000 : H1=H1+1 : PRINT : PRINT BOX(0,80); : PRINT "RECORD# ";H1;" ................................................... .........." : FOR I=1TO G5 : S=VAL(STR(G3$(I),FNS(3),FNL(3)),2) : L=VAL(STR(G3$(I),FNS(4),FNL(4)),2) : PRINT STR(G3$(I),FNS(1),FNL(1)),STR(B1$(),S,L) : NEXT I 5075 PRINT : PRINT "Press any SF key to continue, or press space to see more." : KEYIN A$,,6010 : GOTO 5020 5100 STOP # 6000 PRINT "ALL DONE - PRESS SOMETHING" : KEYIN A$ 6010 GOTO 6200 6025 STOP # : GOTO 5075 6200 PRINT "WOULD YOU LIKE TO SEE A GRAPH ?"; 6210 A$="Y" : LINPUT -STR(A$,1,1) : IF A$="Y"THEN LOAD T"PKGRAFST" : IF A$<>"N"THEN 6210 6600 COM CLEAR H7$ : S=VAL(STR(K9$,7,1)) : L=VAL(STR(K9$,8,1)) : G1$=STR(K9$,S,8) : MAT COPY K9$<S+8,L-8>TO K9$<S,L-8> : STR(K9$,S+L-8,8)="@MENU " : PRINT AT(23,0,20) : LOAD TG1$ 9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1)) 9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1)) 9900 DEFFN'0"PRINT HEX(0306);:LISTSD 6200, 9699";HEX(0D) 9979 DEFFN'08"CLEARP 7000,8999";HEX(0D) 9980 DEFFN'24"CLEARP 50,99" 9999 % SCRATCH T"PKEX2": SAVE T()"PKEX2"