home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 8 / Commodore_Disc_08_19xx_-_de.d64 / intern.lader.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  113 lines
  1. 10 rem =================
  2. 20 rem =               =
  3. 30 rem =   internat    =
  4. 40 rem =               =
  5. 50 rem =  sept. 1986   =
  6. 60 rem =               =
  7. 70 rem =  stefan bels  =
  8. 80 rem =               =
  9. 90 rem =================
  10. 95 rem
  11. 100 poke53280,6:poke53281,6:print"[147]load"chr$(34)"titelbild"chr$(34)",8"
  12. 110 print"run"
  13. 120 fori=631to640:pokei,13:nexti:poke198,10
  14. 38000 printchr$(8)
  15. 38010 poke52,48:poke56,48
  16. 38020 poke56334,peek(56334)and 254
  17. 38030 poke1,peek(1)and251
  18. 38040 fori=49152to49158:read a:pokei,a:next i
  19. 38050 data 133,95,134,96,76,191,163
  20. 38060 qs=53248:qe=57344
  21. 38070 ze=16384
  22. 38080 a=int(qs/256):poke781,a:poke780,qs-256*a
  23. 38090 a=int(qe/256):poke91,a:poke90,qe-256*a
  24. 38100 a=int(ze/256):poke89,a:poke88,ze-256*a
  25. 38110 sys49152
  26. 38120 poke1,peek(1)or4
  27. 38130 poke56334,peek(56334)or 1
  28. 38140 poke53272,(peek(53272)and240)or12
  29. 38250 c=0
  30. 38260 s=12288+8*c
  31. 38270 fori=0to215:read a:pokes+i,a:next
  32. 38275 data 0,1,3,6,12,0,0,0
  33. 38280 data 0,126,102,102,126,102,102,0
  34. 38285 data 0,126,102,124,102,102,126,0
  35. 38290 data 0,126,110,96,96,110,126,0
  36. 38295 data 0,124,102,102,102,102,124,0
  37. 38300 data 0,126,96,124,96,126,126,0
  38. 38305 data 0,126,126,96,120,96,96,0
  39. 38310 data 0,126,96,110,102,102,126,0
  40. 38315 data 0,102,102,126,126,102,102,0
  41. 38320 data 0,126,24,24,24,24,126,0
  42. 38325 data 0,6,6,6,6,102,60,0
  43. 38330 data 0,102,110,120,120,110,102,0
  44. 38335 data 0,96,96,96,96,124,124,0
  45. 38340 data 0,99,119,127,107,99,99,0
  46. 38345 data 0,115,115,123,111,103,103,0
  47. 38350 data 0,126,102,102,102,126,126,0
  48. 38355 data 0,126,102,102,126,96,96,0
  49. 38360 data 0,126,102,102,102,108,118,0
  50. 38365 data 0,126,102,102,124,108,106,0
  51. 38370 data 0,126,96,126,6,6,126,0
  52. 38375 data 0,126,126,24,24,24,24,0
  53. 38380 data 0,102,102,102,102,126,126,0
  54. 38385 data 0,102,102,102,102,60,24,0
  55. 38390 data 0,99,99,107,127,127,119,0
  56. 38395 data 0,102,102,60,60,102,102,0
  57. 38400 data 0,102,102,102,60,24,24,0
  58. 38405 data 0,126,12,24,48,126,126,0
  59. 38410 c=46
  60. 38415 s=12288+8*c
  61. 38418 fori=0to95:read a:pokes+i,a:next
  62. 38420 data 0,0,0,0,28,28,28,0
  63. 38425 data 0,6,14,28,56,112,96,0
  64. 38430 data 0,126,102,102,102,102,126,0
  65. 38435 data 0,28,28,12,12,12,12,0
  66. 38440 data 0,126,6,126,96,96,126,0
  67. 38445 data 0,126,6,30,6,126,126,0
  68. 38450 data 0,96,108,108,126,126,12,0
  69. 38455 data 0,126,96,126,6,102,126,0
  70. 38460 data 0,126,96,126,102,102,126,0
  71. 38465 data 0,126,6,12,24,48,48,0
  72. 38470 data 0,126,102,126,102,102,126,0
  73. 38475 data 0,126,102,126,6,6,126,0
  74. 38485 c=63
  75. 38490 s=12288+8*c
  76. 38495 fori=0to31:read a:pokes+i,a:next
  77. 38500 data 0,126,70,30,24,0,24,0
  78. 38503 data 64,224,112,56,29,15,7,15
  79. 38506 data 24,24,24,24,24,126,60,24
  80. 38509 data 0,4,6,255,255,6,4,0
  81. 38514 c=99
  82. 38515 s=12288+8*c
  83. 38516 fori=0to231:read a:pokes+i,a:next
  84. 38517 data 102,0,24,24,129,102,60,0
  85. 38518 data 0,0,0,0,255,165,165,221
  86. 38519 data 64,64,64,124,68,124,68,68
  87. 38525 data 255,129,129,129,129,129,129,255
  88. 38530 data 0,255,0,255,0,255,0,255
  89. 38535 data 0,127,0,127,0,127,0,127
  90. 38540 data 0,0,0,0,1,6,24,32
  91. 38545 data 1,6,24,99,130,2,3,0
  92. 38550 data 128,96,24,198,65,64,192,0
  93. 38555 data 0,0,0,0,128,96,24,6
  94. 38560 data 192,64,94,82,82,94,64,64
  95. 38565 data 0,0,60,36,36,60,0,0
  96. 38570 data 3,2,122,74,74,122,2,2
  97. 38575 data 64,94,82,82,94,64,64,127
  98. 38580 data 0,15,8,8,8,8,8,255
  99. 38585 data 0,240,16,16,16,16,16,255
  100. 38590 data 2,122,74,74,122,2,2,254
  101. 38595 data 0,192,240,248,252,252,254,254
  102. 38600 data 254,254,252,252,248,240,192,0
  103. 38605 data 0,0,128,128,128,192,192,192
  104. 38610 data 192,224,96,96,96,112,48,48
  105. 38615 data 48,56,24,24,24,28,12,12
  106. 38620 data 12,14,6,6,6,7,3,3
  107. 38625 data 3,3,3,1,1,1,0,0
  108. 38630 data 0,128,128,192,192,224,224,240
  109. 38635 data 255,127,127,63,63,31,31,15
  110. 38640 data 240,248,248,252,252,254,254,255
  111. 38645 data 15,7,7,3,3,1,1,0
  112. 38650 data 0,128,192,96,48,0,0,0
  113.