home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / hc-gemini10xx (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.