home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64 / pbasic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  31 lines
  1. 100 rem*****************************
  2. 101 rem*        p-basic-v2.        *
  3. 102 rem*                           *
  4. 103 rem*   geschrieben 1984  von   *
  5. 104 rem*                           *
  6. 105 rem*        jan kusch          *
  7. 106 rem*****************************
  8. 107 forx=0to255:reada:s=s+a
  9. 108 poke49152+x,a:next
  10. 109 ifs=26106then112
  11. 110 print"?fehler in datas :"
  12. 111 print"pruefsumme :"s"  (26106)":end
  13. 112 poke49152+x,asc ("!")
  14. 113 sys49152:new
  15. 114 data169,17,141,8,3,169,192,141,9,3,169,49,160,192,76,30,171
  16. 115 data32,115,0,205,0,193,240,3,76,231,167,32,115,0,201,147,240
  17. 116 data64,201,148,240,88,201,162,240,3,76,8,175,76,180,192,147,144
  18. 117 data18,32,208,45,194,65,83,73,67,45,214,50,46,32,32,13,195
  19. 118 data45,54,52,32,38,32,214,195,45,49,53,52,49,13,195,79,80
  20. 119 data89,82,73,71,72,84,32,40,67,41,9,14,8,0,169,0,133
  21. 120 data157,32,115,0,32,212,225,169,0,166,43,164,44,133,10,32,213
  22. 121 data255,134,45,132,46,76,180,192,169,0,133,157,32,115,0,32,212
  23. 122 data225,162,0,189,218,192,157,64,3,232,201,255,208,245,169,38,133
  24. 123 data43,169,3,133,44,169,64,141,36,3,141,38,3,169,3,141,37
  25. 124 data3,141,39,3,32,68,229,32,89,225,169,1,133,43,169,8,133
  26. 125 data44,169,87,141,36,3,169,241,141,37,3,141,39,3,169,202,141
  27. 126 data38,3,169,237,141,40,3,169,0,133,198,76,49,168,169,1,133
  28. 127 data43,169,8,133,44,169,87,141,36,3,169,241,141,37,3,141,39
  29. 128 data3,169,202,141,38,3,169,225,141,40,3,32,89,166,76,174,167
  30. 129 data255
  31.