home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / text2data (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  342 b   |  10 lines
  1. 63991 input"filename";f$:open1,8,0,(f$+",s"):input"erste data-zeile";i
  2. 63992 a=int(i/256):poke189,a:poke182,i-a*256
  3. 63993 get#1,a$:b$=b$+a$:ifst<>66anda$<>chr$(13)then63993
  4. 63994 printchr$(147)peek(182)+peek(189)*256"data"chr$(34)b$:print"goto63996"
  5. 63995 poke631,19:poke632,13:poke633,13:poke634,13:poke198,4:end
  6. 63996 ifst<>66thenb$="":poke152,1
  7. 63997 i=peek(182)+1+peek(189)*256:a=int(i/256):poke189,a:poke182,i-a*256
  8. 63998 goto 63993
  9. 63999 close1
  10.