home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / lauftext1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  636 b   |  21 lines
  1. 1 poke46,128:clr
  2. 10 poke53280,0:poke53281,0:print"[147]"
  3. 20 print"lauftext - vorbereitung"
  4. 30 print"bitte legen sie eine diskette ein,"
  5. 40 print"auf der die einzelnen programme"
  6. 50 print"gespeichert werden koennen"
  7. 60 print"taste"
  8. 70 poke198,0:wait198,1:poke198,0
  9. 80 print"[147]danke"
  10. 90 print"die programme werden jetzt gespeichert"
  11. 99 print"bitte warten"
  12. 100 open2,8,2,"editor,p,w"
  13. 110 fori=2700to4697:print#2,chr$(peek(i));:next:close2
  14. 120 open2,8,2,"m^s+e3,p,w"
  15. 130 fori=4700to5754:print#2,chr$(peek(i));:next:close2
  16. 140 open2,8,2,"sa+lo(53240),p,w"
  17. 150 fori=5800to6257:print#2,chr$(peek(i));:next:close2
  18. 160 open2,8,2,"edisprite,p,w"
  19. 170 fori=6300to6813:print#2,chr$(peek(i));:next:close2
  20. 180 end:written by germano caronni
  21.