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"