image of READY prompt

Wang2200.org

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"