home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 September / 64er_Magazin_90-09_1990_Markt__Technik_de_Side_A.d64 / rebuilder (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.