home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_A.d64 / hi-p(itoh8510).l (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  46 lines
  1. 10 rem #### programm zur erzeugung #####
  2. 20 rem ## von hi-p(itoh8510) auf disk ##
  3. 30 rem autor: f.ziesche' am: 13. 2.85 ##
  4. 40 restore:ps=0:rem data's ueberpruefen
  5. 50 print"[147] data-zeilen werden ueberpruft !"
  6. 60 read by : if by < 0 then 80
  7. 70 ps = ps + by : goto 60
  8. 80 if ps+by <> 0 then print"fehler in data-zeilen !":list160-
  9. 90 input" diskette eingelegt   ja[157][157][157][157]";in$:ifin$<>"ja"then 90
  10. 100 restore : open3,8,3,"hi-p(itoh8510),p,w"
  11. 110 print#3,chr$(0);chr$(13);:rem startadresse
  12. 120 read by : if by < 0 then 140
  13. 130 print#3,chr$(by); : goto120
  14. 140 close3 : print" programm wurde erzeugt !"
  15. 150 end
  16. 160 rem data-zeilen fuer hi-p(itoh8510)
  17. 170 data165,1,72,169,55,133,1,173,87,13,32,186,13,141,170,14,173,107,13,32
  18. 180 data186,13,141,223,14,169,0,141,164,14,141,217,14,141,174,13,32,248,13
  19. 190 data32,212,13,169,27,32,111,14,169,70,32,111,14,169,0,160,0,32,47,14
  20. 200 data169,0,141,148,14,169,0,141,201,14,169,27,32,111,14,169,83,32,111
  21. 210 data14,169,0,160,0,32,47,14,169,0,240,16,32,135,14,32,241,14,238,148
  22. 220 data14,173,148,14,201,40,144,240,169,0,240,16,32,188,14,32,241,14,238
  23. 230 data201,14,173,201,14,201,0,144,240,24,173,164,14,105,64,141,164,14,173
  24. 240 data170,14,105,1,141,170,14,24,173,217,14,105,64,141,217,14,173,223,14
  25. 250 data105,1,141,223,14,169,13,32,111,14,169,10,32,111,14,238,174,13,169
  26. 260 data0,201,25,176,3,76,42,13,104,133,1,96,162,7,221,149,31,240,4,202,208
  27. 270 data248,232,138,10,10,10,10,10,96,0,0,0,0,0,0,0,0,24,173,123,13,105,40
  28. 280 data56,237,60,13,133,251,169,0,133,252,160,3,6,251,38,252,136,208,249
  29. 290 data165,251,164,252,141,80,13,140,82,13,96,169,255,141,3,221,173,2,221
  30. 300 data9,4,141,2,221,173,0,221,9,4,141,0,221,162,0,189,27,14,32,111,14,232
  31. 310 data224,20,144,245,96,127,27,93,27,78,27,84,49,54,27,102,27,76,48,48
  32. 320 data48,27,48,27,62,133,99,132,98,56,162,144,32,73,188,32,221,189,162
  33. 330 data1,189,0,1,240,6,232,224,6,144,246,202,202,142,81,14,56,169,4,233
  34. 340 data0,240,9,168,169,48,32,111,14,136,208,248,172,81,14,240,12,162,1,189
  35. 350 data0,1,32,111,14,232,136,208,246,96,141,1,221,173,0,221,41,251,141,0
  36. 360 data221,9,4,141,0,221,173,13,221,41,16,240,249,96,120,165,1,72,41,248
  37. 370 data133,1,169,0,133,252,169,0,133,251,160,3,6,251,38,252,136,208,249
  38. 380 data24,165,251,105,0,133,251,165,252,105,0,133,252,177,251,153,204,13
  39. 390 data200,192,8,144,246,104,133,1,88,96,120,165,1,72,41,248,133,1,169,0
  40. 400 data133,252,169,0,133,251,160,3,6,251,38,252,136,208,249,24,165,251,105
  41. 410 data0,133,251,165,252,105,0,133,252,177,251,153,204,13,200,192,8,144
  42. 420 data246,104,133,1,88,96,160,128,140,4,15,169,0,141,8,15,140,10,15,162
  43. 430 data7,189,204,13,41,0,240,7,169,0,9,0,141,8,15,78,10,15,202,16,236,173
  44. 440 data8,15,32,111,14,78,4,15,144,215,96
  45. 450 data -57076 :rem  pruefsumme
  46.