home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / bildspeicher (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  101 lines
  1. 100 REM    **********************
  2. 110 REM    *                    *
  3. 120 REM    *   BILDSPEICHER     *
  4. 130 REM    *                    *
  5. 140 REM    *   H.H.HAGEDORN     *
  6. 150 REM    *                    *
  7. 160 REM    *   RUPPRECHTSTR.30  *
  8. 170 REM    *                    *
  9. 180 REM    *   83 LANDSHUT      *
  10. 190 REM    *                    *
  11. 200 REM    *   TEL. 0871/67337  *
  12. 210 REM    *                    *
  13. 220 REM    **********************
  14. 230 :
  15. 240 PRINT"[147]":PRINT:PRINT
  16. 250 PRINT"     BILDSPEICHER-POSITION "
  17. 260 PRINT:PRINT"   NORMAL-BASIC = $9E00   (1)"
  18. 265 PRINT:PRINT"   SIMONS-BASIC = $7E00   (2)"
  19. 270 PRINT:PRINT"   GESCH.BEREICH= $C000   (3)"
  20. 275 PRINT:PRINT"   PAGE-ADRESSE EINGEBEN (>7)"
  21. 280 PRINT:PRINT TAB(25):INPUT L
  22. 290 IF L=1 THEN L=158
  23. 300 IF L=2 THEN L=126
  24. 305 IF L=3 THEN L=192
  25. 310 IF L>7 AND L<255 THEN D=158-L:GOTO 320
  26. 315 PRINT"???":GOTO 280
  27. 320 POKE2,D+100:POKE780,L:IF L<161 THEN POKE 56,L:POKE55,0
  28. 325 CLR:I=PEEK(780)*256:J=I
  29. 330 READ A:IFA>=0THEN POKE I,A:I=I+1:S=S+A:GOTO330
  30. 340 IF S<>51530 THEN PRINT"DATENFEHLER",S:END
  31. 345 PRINT"PROGRAMMDATEN OK":S=0:D=PEEK(2)-100:IF D=0 THEN 380
  32. 350 READ P:IF P>=0 THEN A=J+P:POKEA,PEEK(A)-D:S=S+P:GOTO350
  33. 360 IFS<>8737 THEN PRINT"BLOCKKORREKTURFEHLER",S:END
  34. 370 PRINT:PRINT"BLOCKKORREKTUR OK"
  35. 380 PRINT:PRINT"BASISADRESSE = ";J
  36. 385 FOR I=0 TO 3:SYS J,I,0,0,40,25:NEXT
  37. 390 DATA 076,009,158,076,087,158,076,091
  38. 400 DATA 158,032,110,158,224,004,176,066
  39. 410 DATA 142,163,159,032,110,158,224,040
  40. 420 DATA 176,056,142,159,159,032,110,158
  41. 430 DATA 224,025,176,046,142,160,159,032
  42. 440 DATA 110,158,224,000,240,036,024,138
  43. 450 DATA 109,159,159,201,041,176,027,202
  44. 460 DATA 142,161,159,032,110,158,224,000
  45. 470 DATA 240,016,024,138,109,160,159,201
  46. 480 DATA 026,176,007,142,162,159,032,116
  47. 490 DATA 158,096,162,014,076,058,164,169
  48. 500 DATA 000,240,002,169,255,141,166,159
  49. 510 DATA 032,110,158,224,004,176,235,142
  50. 520 DATA 163,159,032,197,158,096,032,253
  51. 530 DATA 174,076,158,183,032,005,159,032
  52. 540 DATA 076,159,160,003,185,159,159,145
  53. 550 DATA 091,136,016,248,024,165,091,105
  54. 560 DATA 004,133,091,174,162,159,172,161
  55. 570 DATA 159,177,087,145,091,177,089,145
  56. 580 DATA 093,136,016,245,032,112,159,202
  57. 590 DATA 208,236,096,172,161,159,177,087
  58. 600 DATA 072,177,091,145,087,104,145,091
  59. 610 DATA 177,089,072,177,093,145,089,104
  60. 620 DATA 145,093,136,016,233,032,112,159
  61. 630 DATA 202,208,224,240,059,120,165,001
  62. 640 DATA 072,169,053,133,001,032,076,159
  63. 650 DATA 160,003,177,091,153,159,159,136
  64. 660 DATA 016,248,032,005,159,024,169,004
  65. 670 DATA 101,091,133,091,174,162,159,173
  66. 680 DATA 166,159,208,183,172,161,159,177
  67. 690 DATA 091,145,087,177,093,145,089,136
  68. 700 DATA 016,245,032,112,159,202,208,236
  69. 710 DATA 104,133,001,088,096,032,067,159
  70. 720 DATA 024,172,160,159,240,016,173,164
  71. 730 DATA 159,105,040,141,164,159,144,003
  72. 740 DATA 238,165,159,136,208,240,024,173
  73. 750 DATA 164,159,109,159,159,141,164,159
  74. 760 DATA 133,087,133,089,144,003,238,165
  75. 770 DATA 159,024,173,136,002,109,165,159
  76. 780 DATA 133,088,024,169,216,109,165,159
  77. 790 DATA 133,090,096,169,000,141,164,159
  78. 800 DATA 141,165,159,096,169,000,133,091
  79. 810 DATA 133,093,169,224,133,092,169,228
  80. 820 DATA 133,094,174,163,159,240,016,024
  81. 830 DATA 160,008,152,101,092,133,092,152
  82. 840 DATA 101,094,133,094,202,208,243,096
  83. 850 DATA 024,169,040,101,087,133,087,144
  84. 860 DATA 002,230,088,024,169,040,101,089
  85. 870 DATA 133,089,144,002,230,090,056,173
  86. 880 DATA 161,159,101,091,133,091,144,002
  87. 890 DATA 230,092,056,173,161,159,101,093
  88. 900 DATA 133,093,144,002,230,094,096,000
  89. 905 DATA -1
  90. 910 REM KORREKTURTABELLE
  91. 920 :
  92. 930 DATA 002,005,008,011,018,021
  93. 940 DATA 028,031,038,041,050,058
  94. 950 DATA 061,070,077,080,095,098
  95. 960 DATA 105,108,118,121,126,141
  96. 970 DATA 144,158,165,191,207,214
  97. 980 DATA 220,230,233,238,252,263
  98. 990 DATA 267,272,277,282,289,292
  99. 1000 DATA 295,304,311,319,327,330
  100. 1010 DATA 348,393,405,-1
  101.