10 POKE53280,6:POKE53281,6:POKE646,3
20 PRINTCHR$(142)CHR$(147)TAB(13)"SPECIAL NOTE[159]"
30 PRINT"THIS PROGRAM WILL NOT RUN FROM THE MENU"
40 PRINT"FOR ONE OF SEVERAL REASONS: IT WRITES"
50 PRINT"TO DISK (THIS DISK IS WRITE-PROTECTED);"
60 PRINT"THERE ARE MEMORY CONFLICTS; OR THERE ARE";
70 PRINT"MULTIPLE FILES THAT MAKE UP THE PROGRAM"
80 PRINT"(REFER TO THE CORRESPONDING MAGAZINE"
90 PRINT"ARTICLE TO DETERMINE THE NUMBER OF"
100 PRINT"FILES). THESE ARE SAVED TOGETHER ON DISK";
110 PRINT"IN THE SAME ORDER AS THE MAGAZINE TABLE"
120 PRINT"OF CONTENTS."
130 PRINTSPC(17)"***[159]"
140 PRINT"TO COPY A MACHINE LANGUAGE PROGRAM TO"
150 PRINT"DISK, YOU NEED TO USE A COPYING PROGRAM"
160 PRINT"FOR MACHINE LANGUAGE FILES. THE GAZETTE"
170 PRINT"HAS PUBLISHED SEVERAL OF THESE, MOST"
180 PRINT"RECENTLY "CHR$(34)"DISK RAPID TRANSIT"CHR$(34)" IN THE"
190 PRINT"DECEMBER ISSUE. THESE ALSO ABOUND IN THE";
200 PRINT"PUBLIC DOMAIN AND USER GROUP LIBRARIES."
210 FORD=1TO40:PRINT"[164]";:NEXT
220 PRINT"    PRESS ANY KEY TO RELOAD THE MENU    [146]"
230 IFPEEK(65530)=5THEN290
240 POKE198,0:WAIT198,1:GETDH$
250 PRINT"[147][155]":S$="L[207]"+CHR$(34)+"MN"+CHR$(34)+",8:"+CHR$(131)
260 FORI=1TOLEN(S$):POKE630+I,ASC(MID$(S$,I)):NEXT:POKE198,I
270 POKE53281,15:POKE53280,15
280 PRINTCHR$(142)"[145]          RELOADING THE MENU[155]":END
290 GET DH$
300 IF DH$=""THEN290
310 SYS 65341