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"