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"