home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / mps802_data (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  47 lines
  1. 10 reada :i=i+1:s=s+a:printi,a,s:ifa =-1 then 30
  2. 20 goto10
  3. 30 if s<>79150 then print"fehler in datas":end
  4. 40 if i<>668 then print"anzahl datas falsch":end
  5. 50 print"ok!"
  6. 60 lb=00:hb=13
  7. 70 open2,8,2,"hi-print mps 802,p,w"
  8. 80 print#2,chr$(lb);chr$(13)
  9. 90 restore
  10. 100 reada$:ifa$="-1" then print"speichern ok":goto 120
  11. 110 goto 100
  12. 120 close2:end
  13. 32000 data133,91,169,100,162,4,160,0,32,8,14,169,106,162,4,160,6,32,8,14,162
  14. 32001 data106,32,201,255,169,20,32,210,255,162,100,32,201,255,169,141,32,210
  15. 32002 data255,169,105,162,4,160,5,32,8,14,165,91,10,144,3,76,134,14,165,91,41
  16. 32003 data7,162,2,32,19,14,169,20,133,251,165,91,41,192,240,16,165,91,74,74,74
  17. 32004 data41,7,162,0,32,19,14,169,0,133,251,169,0,141,61,3,32,45,14,32,102,14
  18. 32005 data240,41,162,105,32,201,255,162,0,189,62,3,32,210,255,232,224,8,208,245
  19. 32006 data169,13,32,210,255,162,100,32,201,255,32,116,14,169,254,32,210,255,169
  20. 32007 data141,32,210,255,24,165,94,105,8,133,94,144,2,230,95,32,225,255,240,63
  21. 32008 data238,61,3,173,61,3,201,40,208,181,165,91,41,192,240,24,165,94,166,92
  22. 32009 data133,92,134,94,165,95,166,93,133,93,134,95,165,251,73,40,133,251,208
  23. 32010 data146,162,100,32,201,255,169,13,32,210,255,238,60,3,173,60,3,201,25,240
  24. 32011 data3,76,92,13,169,105,32,195,255,162,106,32,201,255,169,36,32,210,255
  25. 32012 data162,100,32,201,255,169,141,32,210,255,169,106,32,195,255,32,204,255
  26. 32013 data169,100,32,195,255,96,32,186,255,169,0,32,189,255
  27. 76,192,255,160,6
  28. 32014 data217,150,31,240,3,136,208,248,169,0,149,92,141,60,3,24,105,32,136,16
  29. 32015 data251,149,93,96,120,169,52,133,1,162,0,138,157,62,3,232,224,8,208,248
  30. 32016 data169,128,133,96,160,0,177,94,162,0,10,144,10,72,189,62,3,5,96,157,62
  31. 32017 data3,104,232,224,8,208,238,70,96,200,192,8,208,227,169,55,133,1,88,96
  32. 32018 data162,0,138,221,62,3,208,5,232,224,8,208,246,96,24,165,251,109,61,3,170
  33. 32019 data240,8,169,32,32,210,255,202,208,250,96,165,91,41,7,162,0,32,19,14,133
  34. 32020 data95,169,0,133,94,133,251,133,89,133,90,169,192,149,252,74,74,232,224
  35. 32021 data4,208,247,169,0,141,61,3,32,45,14,165,90,240,17,162,0,189,62,3,10,10
  36. 32022 data10,10,157,62,3,232,224,8,208,241,32,98,15,76,214,14,162,0,189,74,3
  37. 32023 data157,70,3,232,224,4,208,245,32,141,15,240,47,162,105,32,201,255,162
  38. 32024 data0,189,70,3,32,210,255,189,70,3,32,210,255,232,224,4,208,239,169,13
  39. 32025 data32,210,255,162,100,32,201,255,32,116,14,169,254,32,210,255,169,141
  40. 32026 data32,210,255,32,225,255,208,3,76,225,13,238,61,3,165,89,73,8,133,89,208
  41. 32027 data172,24,165,94,105,8,133,94,144,2,230,95,173,61,3,201,80,240,3,76,171
  42. 32028 data14,162,100,32,201,255,169,13,32,210,255,165,90,73,25,133,90,165,94
  43. 32029 data166,92,133,92,134,94,165,95,166,93,133,93,134,95,238,60,3,173,60,3
  44. 32030 data201,50,240,3,76,166,14,76,225,13,169,0,170,168,157,70,3,232,224,8,208
  45. 32031 data248,170,185,62,3,10,144,11,72,24,185,70,3,117,252,153,70,3,104,232
  46. 32032 data224,4,208,237,162,0,200,192,8,208,227,96,162,0,138,221,70,3,208,5,232
  47. 32033 data224,4,208,246,96,-1
  48.