100 REM    **********************
110 REM    *                    *
120 REM    *   BILDSPEICHER     *
130 REM    *                    *
140 REM    *   H.H.HAGEDORN     *
150 REM    *                    *
160 REM    *   RUPPRECHTSTR.30  *
170 REM    *                    *
180 REM    *   83 LANDSHUT      *
190 REM    *                    *
200 REM    *   TEL. 0871/67337  *
210 REM    *                    *
220 REM    **********************
230 :
240 PRINT"[147]":PRINT:PRINT
250 PRINT"     BILDSPEICHER-POSITION "
260 PRINT:PRINT"   NORMAL-BASIC = $9E00   (1)"
265 PRINT:PRINT"   SIMONS-BASIC = $7E00   (2)"
270 PRINT:PRINT"   GESCH.BEREICH= $C000   (3)"
275 PRINT:PRINT"   PAGE-ADRESSE EINGEBEN (>7)"
280 PRINT:PRINT TAB(25):INPUT L
290 IF L=1 THEN L=158
300 IF L=2 THEN L=126
305 IF L=3 THEN L=192
310 IF L>7 AND L<255 THEN D=158-L:GOTO 320
315 PRINT"???":GOTO 280
320 POKE2,D+100:POKE780,L:IF L<161 THEN POKE 56,L:POKE55,0
325 CLR:I=PEEK(780)*256:J=I
330 READ A:IFA>=0THEN POKE I,A:I=I+1:S=S+A:GOTO330
340 IF S<>51530 THEN PRINT"DATENFEHLER",S:END
345 PRINT"PROGRAMMDATEN OK":S=0:D=PEEK(2)-100:IF D=0 THEN 380
350 READ P:IF P>=0 THEN A=J+P:POKEA,PEEK(A)-D:S=S+P:GOTO350
360 IFS<>8737 THEN PRINT"BLOCKKORREKTURFEHLER",S:END
370 PRINT:PRINT"BLOCKKORREKTUR OK"
380 PRINT:PRINT"BASISADRESSE = ";J
385 FOR I=0 TO 3:SYS J,I,0,0,40,25:NEXT
390 DATA 076,009,158,076,087,158,076,091
400 DATA 158,032,110,158,224,004,176,066
410 DATA 142,163,159,032,110,158,224,040
420 DATA 176,056,142,159,159,032,110,158
430 DATA 224,025,176,046,142,160,159,032
440 DATA 110,158,224,000,240,036,024,138
450 DATA 109,159,159,201,041,176,027,202
460 DATA 142,161,159,032,110,158,224,000
470 DATA 240,016,024,138,109,160,159,201
480 DATA 026,176,007,142,162,159,032,116
490 DATA 158,096,162,014,076,058,164,169
500 DATA 000,240,002,169,255,141,166,159
510 DATA 032,110,158,224,004,176,235,142
520 DATA 163,159,032,197,158,096,032,253
530 DATA 174,076,158,183,032,005,159,032
540 DATA 076,159,160,003,185,159,159,145
550 DATA 091,136,016,248,024,165,091,105
560 DATA 004,133,091,174,162,159,172,161
570 DATA 159,177,087,145,091,177,089,145
580 DATA 093,136,016,245,032,112,159,202
590 DATA 208,236,096,172,161,159,177,087
600 DATA 072,177,091,145,087,104,145,091
610 DATA 177,089,072,177,093,145,089,104
620 DATA 145,093,136,016,233,032,112,159
630 DATA 202,208,224,240,059,120,165,001
640 DATA 072,169,053,133,001,032,076,159
650 DATA 160,003,177,091,153,159,159,136
660 DATA 016,248,032,005,159,024,169,004
670 DATA 101,091,133,091,174,162,159,173
680 DATA 166,159,208,183,172,161,159,177
690 DATA 091,145,087,177,093,145,089,136
700 DATA 016,245,032,112,159,202,208,236
710 DATA 104,133,001,088,096,032,067,159
720 DATA 024,172,160,159,240,016,173,164
730 DATA 159,105,040,141,164,159,144,003
740 DATA 238,165,159,136,208,240,024,173
750 DATA 164,159,109,159,159,141,164,159
760 DATA 133,087,133,089,144,003,238,165
770 DATA 159,024,173,136,002,109,165,159
780 DATA 133,088,024,169,216,109,165,159
790 DATA 133,090,096,169,000,141,164,159
800 DATA 141,165,159,096,169,000,133,091
810 DATA 133,093,169,224,133,092,169,228
820 DATA 133,094,174,163,159,240,016,024
830 DATA 160,008,152,101,092,133,092,152
840 DATA 101,094,133,094,202,208,243,096
850 DATA 024,169,040,101,087,133,087,144
860 DATA 002,230,088,024,169,040,101,089
870 DATA 133,089,144,002,230,090,056,173
880 DATA 161,159,101,091,133,091,144,002
890 DATA 230,092,056,173,161,159,101,093
900 DATA 133,093,144,002,230,094,096,000
905 DATA -1
910 REM KORREKTURTABELLE
920 :
930 DATA 002,005,008,011,018,021
940 DATA 028,031,038,041,050,058
950 DATA 061,070,077,080,095,098
960 DATA 105,108,118,121,126,141
970 DATA 144,158,165,191,207,214
980 DATA 220,230,233,238,252,263
990 DATA 267,272,277,282,289,292
1000 DATA 295,304,311,319,327,330
1010 DATA 348,393,405,-1