image of READY prompt

Wang2200.org

Listing of file='PKCHAIN' on disk='vmedia/701-2720C.wvd.zip'

# Sector 64, program filename = 'PKCHAIN'
0010 REM          To-      John Cipolaro, Group members
0090 COM K9$124
0150 K9$="PHKD23"
   : STR(K9$,7,1)=BIN(9)
   : STR(K9$,8,1)=BIN(64)
0210 STR(K9$,9,64)="@MENU   @MENU   @MENU   @MENU   @MENU   @MENU   @MENU   @M
     ENU"
0270 S=VAL(STR(K9$,7,1))
   : L=VAL(STR(K9$,8,1))
0300 MAT COPY -K9$<S,L-8>TO -K9$<S+8,L-8>
   : STR(K9$,S,8)="MYNAME  "
   : LOAD T"YOURNAME"
0380 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   "
   : LOAD TG1$
9997 %   SELECT LIST 215 (128): LIST "CHAINING BETWEEN MODULES - 9/25/81"D: SE
     LECT LIST 005(80)
9999 %    SCRATCH T "PKCHAIN": SAVE T ()"PKCHAIN"