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