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"