home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / tastaturpieps (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  686b  |  16 lines
  1. 1 DATA120,162,13,160,192,142,20,3,140,21,3,88,96,165,203,201,64,208,8,169
  2. 2 DATA203,141,0,193,76,49,234,165,203,205,0,193,208,3,76,49,234,169,15
  3. 3 DATA141,24,212,169,3,141,5,212,169,242,141,6,212,169,26,141,1,212,169
  4. 4 DATA5,141,0,212,169,33,141,4,212,160,69,162,255,202,208,253,136,208,248
  5. 5 DATA169,0,141,4,212,141,5,212,141,6,212,165,203,141,0,193,76,49,234,0
  6. 6 DATA0,0
  7. 10 FORA=1TO99
  8. 20 READ B : S=S+B :POKE 49151+A,B
  9. 30 NEXT A
  10. 40 IF S <> 12111 THEN PRINT CHR$(147) : PRINT"FEHLER IN DATAS !" : END
  11. 50 PRINT CHR$(147) : PRINT"OK !" : SYS49152
  12. 60 PRINT"DIES IST DIE VERSION,WELCHE AB $C000":PRINT"GESPEICHERT WIRD !";
  13. 70 PRINT" UNTERBROCHEN WIRD":PRINT"SIE MIT RUN/STOP & RESTORE TASTENDRUCK !"
  14. 80 PRINT"RESTART MIT SYS49152 !"
  15. 90 END
  16.