Listing of file='PKEX0 ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 143, program filename = 'PKEX0' 0100 REM % P K E X 0 0120 COM L0$(7)20 : COM L3,L5,L6,G3,G5,G6 : COM G3$(G3)G6,G4$(G3)5 : COM L3$(L3)L6,L4$(L3)1 : DIM A$3 : FOR I=1TO G5 : IF VAL(STR(G3$(I),FNS(6),FNL(6)))>1THEN 136 : A$=STR(G3$(I),FNS(8),FNL(8)) : IF A$<>"NO "AND A$<>"Ent"AND A$<>"Glo"THEN 136 : NEXT I : LOAD T"PKEX2" 0130 DIM B1$(1008)1 0136 LOAD T"PKEX1" 0138 PRINT HEX(03);"BEFORE PROCESS EXECUTION ............" : 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 : PRINT 5076 PRINT "Press an 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 LOAD T"PKEX1" 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 0000, 9699";HEX(0D) 9979 DEFFN'08"CLEARP 7000,8999";HEX(0D) 9980 DEFFN'24"CLEARP 50,99" 9989 DEFFN'11"PRINT HEX(03);:LIST SD5000 ,9699";HEX(0D) 9990 DEFFN'12"PRINT HEX(03);:LIST SD ,9699";HEX(0D) 9996 DEFFN'28"PRINT HEX(03);:LIST SD3090 ,4999";HEX(0D) 9997 % CLEARP 2700,2999 9998 % SELECT LIST 215(128):LIST"PETER KIBBLER - PKEX2"D:SELECT LIST 005(80) 9999 % SCRATCH T"PKEX0": SAVE T()"PKEX0"