0 'ROM100.BA Bill Templeton 10/15/86 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:E$=CHR$(27):R$=E$+"p":N$=E$+"q":PRINT@55,R$" ROM100.BA "N$:MAXFILES=1:OPEN"rom100"FOROUTPUTAS1 3 READA,B:IFA=0THENBEEP:BEEP:BEEP:PRINT@255,R$" Finished..."N$:FORT=1TO500:NEXT:MENU 4 PRINT@122,"Keywords stored in M100 ROM are now being printed to a ROM100.DO file... 5 PRINT@255,R$" Working..."N$;:FORX=ATOB:PRINT#1,CHR$(PEEK(X));:NEXT:PRINT:PRINT#1,:GOTO3 6 DATA3,7,1003,1011,1014,1015,1019,1024,3189,3203,3442,3454,6520,6540,9345,9357,9685,9700,9982,9994,21060,21066 7 DATA21899,21902,21909,21912,22353,22366,22368,22383,22386,22392,22396,22402,22406,22416,23273,23308,23309,23320 8 DATA23758,23776,24085,24097,24106,24140,24376,24419,24753,24764,26062,26069,26071,26077,26380,26385,26421,26428 9 DATA26580,26590,27768,27772,32665,32675,32676,32700,32703,32722,0,0