home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8903a.d64 / landschaftskorre (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  457b  |  15 lines
  1. 10 IF A=1THEN GOTO 110
  2. 20 FOR X=8*4096 TO 8*4096+47
  3. 30 READ S:POKE X,S:NEXTX
  4. 40 PRINT"[147]":PRINT"BITTE DISKETTE MIT":PRINT"KOPIE VON (F1 C000) EINLEGEN"
  5. 45 PRINT:PRINT:PRINT:PRINT"(TASTE)"
  6. 100 PRINT"[147]":A=1:LOAD"F1 C000",8,1
  7. 110 FORY=50912 TO50912+256:POKEY,0:NEXTY
  8. 120 OPEN1,8,15,"S:F1 C000":CLOSE1
  9. 130 SYS8*4096
  10. 140 VERIFY"F1 C000",8,1
  11. 150 PRINT"DAS WAR'S"
  12. 32000 DATA162,8,160,1,32,186,255,169,7,162,35,160,128,32,189,255,162,0,160,192
  13. 32001 DATA134,251,132,252,169,251,162,223,160,199,32,216,255,96,0,70,49,32,67
  14. 32002 DATA48,48,48,0,0,0,0,0,0
  15.