home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / lauftext1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  636b  |  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.