home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / screensave (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  841b  |  19 lines
  1. 1 rem******      screensave      ******
  2. 2 rem
  3. 3 rem         von: hans haberl
  4. 4 rem              bahnhofstr. 3
  5. 5 rem              8018 grafing
  6. 6 rem
  7. 10 data32,3,178,166,184,32,201,255,152,32,210,255,165,252,32,210,255,169
  8. 20 data210,133,248,162,32,36,250,48,2,162,4,36,250,48,12,177,253,32,0,178
  9. 30 data145,253,177,251,56,176,14,120,169,52,133,1,177,251,72,169,54,133
  10. 40 data1,88,104,32,0,178,145,251,200,208,29,230,252,230,254,202,208,22,240
  11. 50 data26,234,32,3,178,166,184,32,198,255,32,207,255,32,207,255,169,207
  12. 60 data208,180,234,169,195,36,144,240,183,32,204,255,165,184,32,195,255
  13. 70 data76,42,130,108,248,0,32,219,131,32,35,129,160,0,132,251,132,253,165
  14. 80 data185,106,106,133,250,48,8,169,216,133,254,169,4,208,2,169,224,133
  15. 90 data252,169,255,133,249,96,234
  16. 100 s=0:fori=45455to45608:reada:s=s+a:pokei,a:nexti
  17. 110 ifs<>22096thenprint"fehler in data's":end
  18. 120 print"ok"
  19.