home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9009a.d64 / rebuilder (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  226b  |  8 lines
  1. 63993 INPUT"FILENAME";F$:OPEN1,8,0,(F$)
  2. 63994 GET#1,A$:B$=B$+A$:IF ST=0ANDA$<>CHR$(13)THEN 63994
  3. 63995 IFB$=CHR$(13)THEN B$="":GOTO63994
  4. 63996 PRINTCHR$(147)B$:PRINT"GOTO63998"
  5. 63997 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE198,5:END
  6. 63998 B$="":IFST=0THENPOKE152,1:GOTO63994
  7. 63999 CLOSE1:END
  8.