home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / hc-gemini10xx (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  591b  |  15 lines
  1. 10 REM HARDCOPY C64 UND GEMINI-10X
  2. 15 REM MIT STAR-UNIVERSAL-INTERFACE
  3. 20 FOR I=828 TO 943
  4. 30 READ X:POKEI,X:S=S+X:NEXT I
  5. 40 DATA76,63,3,32,253,174,32,158,183,32,201,255,169,0,160,32
  6. 50 DATA133,253,132,254,162,25,160,7,44,160,5,185,160,3,32
  7. 60 DATA210,255,136,16,247,169,40,133,21,169,128,133,151,169
  8. 70 DATA0,133,20,160,7,177,253,37,151,240,7,165,20,25,168,3
  9. 80 DATA133,20,136,16,240,165,20,32,210,255,70,151,144,225
  10. 90 DATA165,253,105,7,133,253,144,2,230,254,198,21,208,207
  11. 100 DATA202,208,189,169,13,32,210,255,76,204,255,1,64,75,27
  12. 110 DATA13,8,65,27,128,64,32,16,8,4,2,1
  13. 120 IF S<>13426 THEN PRINT"FEHLER":STOP
  14. 130 PRINT"OK!"
  15.