home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 July / 64er_Magazin_89-07_1989_Markt__Technik_de_Side_A.d64 / nummernspeicher (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  262 b   |  19 lines
  1. 5 a=4
  2. 10 dima$(4)
  3. 15 dim b$(4)
  4. 20 fori=1to4
  5. 30 read a$(i)
  6. 35 readb$(i)
  7. 40 next
  8. 45 input "dateiname";r$
  9. 50 open1,8,2,r$+",s,w"
  10. 60 for i=1toa
  11. 70 print#1,a$(i)
  12. 75 print#1,b$(i)
  13. 80 next
  14. 90 close1
  15. 500 data peter, 0123/45678
  16. 510 data tanja, 0123/98765
  17. 520 data james, 0123/007
  18. 530 data katja, 0123/76543
  19.