home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / basic-switch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  42 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *  programm 1                   *
  4. 4 rem *                               *
  5. 5 rem *  c.sauers basic-switch fuer   *
  6. 6 rem *  den c-64 umgeschrieben von   *
  7. 7 rem *  h.ponnath hamburg 1985       *
  8. 8 rem *                               *
  9. 9 rem *********************************
  10. 10 rem
  11. 15 s=0:m=0:a=0:p=49152:k=0
  12. 20 reada:printchr$(147)a:ifa=-1then50
  13. 25 pokep,a
  14. 30 s=s+a:p=p+1:goto20
  15. 50 readk:m=m+1:ifs<>kthenprint"data-fehler in block "m:end
  16. 55 s=0:ifm=4thenclr:end
  17. 60 goto20
  18. 99 rem ******* data-block 1 ***********
  19. 100 data230,122,208,2,230,123,32,121,0,201,255,240,3,76,121,0,32,115,0,201
  20. 101 data69,208,3,76,168,192,201,83,240,3,76,8,175,32,155,183,165,101,240
  21. 102 data4,228,251,144,3,76,72,178,134,252,32,133,192,166,252,202,138,10,10
  22. 103 data10,168,162,0,185,23,193,149,43,200,232,224,-1,8756
  23. 109 rem ******* data-block 2 **********
  24. 110 data4,208,245,162,0,185,23
  25. 111 data193,149,55,200,232,224,2,208,245,165,252,133,250,32,96,166,32,142
  26. 112 data166,32,115,0,240,6,201,143,240,16,208,245,160,1,177,122,208,239,200
  27. 113 data192,2,208,234,76,116,164,32,215,170,165,122,164,123,32,30,171,240
  28. 114 data241,166,250,202,138,10,10,10,-1,9805
  29. 119 rem ******* data-block 3 **********
  30. 120 data168,162,0,181,43,153,23,193,200,232
  31. 121 data224,4,208,245,162,0,181,55,153,23,193,200,232,224,2,208,245,96,32
  32. 122 data133,192,32,115,0,32,138,173,32,191,177,165,253,133,43,165,254,133
  33. 123 data44,165,101,24,133,253,165,100,101,254,133,254,165,251,133,252,230
  34. 124 data251,32,22,228,165,254,-1,10113
  35. 129 rem ******* data-block 4 **********
  36. 130 data205,132,2,144,16,208,7,165,253,205,131,2,144
  37. 131 data7,169,12,160,173,76,30,171,165,253,133,55,165,254,133,56,32,68,166
  38. 132 data165,252,133,250,76,49,192,162,0,134,250,142,116,0,232,134,251,134
  39. 133 data252,165,43,133,253,165,44,133,254,169,76,133,115,169,192,133,117
  40. 134 data96,255,0,-1,9461
  41. 135 rem ******* ende der datas ********
  42.