1 REM BEFEHLSKOPF
2 REM
100 DIMS(5)
110 REM *** PRUEFSUMMEN
120 S(0)=10538:S(1)=0:S(2)=10372
130 S(3)=14363:S(4)=12024:S(5)=733
140 FORY=0TO5:S=0
150 FORT=0TO103:READD:S=S+D:NEXT
160 IF S<>S(Y)THENPRINT"[147]FEHLER IN TEIL"Y+1:END
170 NEXT
180 RESTORE
190 PRINT"[147]M[146]ODULBEREICH ODER"
200 PRINT"E[146]NDE DES SPEICHERS ?"
210 GET A$:IFA$=""THEN210
220 IFA$="M"THENPRINT"M":GOTO380
230 IFA$<>"E"THEN210
240 PRINT"E"
245 REM *** PROGRAMM ANS SPEICHERENDE
250 POKE55,0:POKE56,PEEK(56)-3:CLR
260 AD=PEEK(56)
270 HD=AD*256:N=623
275 REM *** LESESCHLEIFE
280 FORT=HDTOHD+N
290 READD
300 IFD=-1THEND=AD
310 IFD=-2THEND=AD+1
320 IFD=-3THEND=AD+2
330 POKET,D:NEXT
340 PRINT"[147]START DES PROGRAMMS"
350 IFFL=0THENPRINT"MIT SYS"HD"."
360 IFFL=1THENPRINT"MIT RESET (=SYS 64802)"
370 END
375 REM *** PROGRAMM IN DEN MODULBEREICH
376 REM *** MIT IDENTIFIKATION A0CBM
380 V$="009160199254065048195194205"
390 FORE=0TO8
400 X=VAL(MID$(V$,E*3+1,3)):READD
410 POKE40960+E,X:NEXT
420 HD=40969:N=614:AD=160:FL=1:GOTO 280
430 REM TEIL 1
440 DATA120,234,234,234,234,234,234,234
450 DATA234,032,141,253,032,082,253,032
460 DATA249,253,032,024,229,162,011,189
470 DATA059,-01,157,000,003,202,016,247
480 DATA088,234,234,234,032,164,227,165
490 DATA043,164,044,032,008,196,169,071
500 DATA160,-01,032,030,203,032,018,228
510 DATA076,129,227,058,196,131,196,229
520 DATA-01,152,-02,226,-02,134,206,042
530 DATA042,042,042,032,054,052,039,069
540 DATA082,032,032,066,065,083,073,067
550 DATA032,042,042,042,042,013,000,000
560 DATA000,000,000,000,000,000,000,000
570 REM TEIL 2
580 DATA000,000,000,000,000,000,000,000
590 DATA000,000,000,000,000,000,000,000
600 DATA000,000,000,000,000,000,000,000
610 DATA000,000,000,000,000,000,000,000
620 DATA000,000,000,000,000,000,000,000
630 DATA000,000,000,000,000,000,000,000
640 DATA000,000,000,000,000,000,000,000
650 DATA000,000,000,000,000,000,000,000
660 DATA000,000,000,000,000,000,000,000
670 DATA000,000,000,000,000,000,000,000
680 DATA000,000,000,000,000,000,000,000
690 DATA000,000,000,000,000,000,000,000
700 DATA000,000,000,000,000,000,000,000
710 REM TEIL 3
720 DATA000,000,000,000,000,000,000,000
730 DATA000,000,000,000,000,000,000,000
740 DATA000,000,000,000,000,166,122,160
750 DATA004,132,015,189,000,002,016,007
760 DATA201,255,240,062,232,208,244,201
770 DATA032,240,055,133,008,201,034,240
780 DATA086,036,015,112,045,201,063,208
790 DATA004,169,153,208,037,201,048,144
800 DATA004,201,060,144,029,132,113,160
810 DATA000,132,011,136,134,122,202,200
820 DATA232,189,000,002,056,249,158,192
830 DATA240,245,201,128,208,048,005,011
840 DATA164,113,232,200,153,251,001,185
850 REM TEIL 4
860 DATA251,001,240,089,056,233,058,240
870 DATA004,201,073,208,002,133,015,056
880 DATA233,085,208,159,133,008,189,000
890 DATA002,240,223,197,008,240,219,200
900 DATA153,251,001,232,208,240,166,122
910 DATA230,011,200,185,157,192,016,250
920 DATA185,158,192,208,180,160,255,202
930 DATA200,232,189,000,002,056,249,105
940 DATA-03,240,245,201,128,208,002,240
950 DATA173,166,122,230,011,200,185,104
960 DATA-03,016,250,185,105,-03,208,226
970 DATA189,000,002,016,155,076,009,198
980 DATA016,066,201,255,240,062,036,015
990 REM TEIL 5
1000 DATA048,058,170,132,073,201,204,176
1010 DATA010,160,192,132,035,160,158,132
1020 DATA034,208,011,233,076,170,160,-03
1030 DATA132,035,160,105,132,034,160,000
1040 DATA010,240,016,202,016,012,230,034
1050 DATA208,002,230,035,177,034,016,246
1060 DATA048,241,200,177,034,048,008,032
1070 DATA071,203,208,246,076,243,198,076
1080 DATA239,198,032,115,000,201,204,144
1090 DATA025,201,252,176,021,032,243,-02
1100 DATA076,174,199,233,203,010,168,185
1110 DATA009,-03,072,185,008,-03,072,076
1120 DATA115,000,032,121,000,076,231,199
1130 REM TEIL 6
1140 DATA052,253,000,000,000,000,000,000
1150 DATA000,000,000,000,000,000,000,000
1160 DATA000,000,000,000,000,000,000,000
1170 DATA000,000,000,000,000,000,000,000
1180 DATA000,000,000,000,000,000,000,000
1190 DATA000,000,000,000,000,000,000,000
1200 DATA000,000,000,000,000,000,000,000
1210 DATA000,000,000,000,000,000,000,000
1220 DATA000,000,000,000,000,000,000,000
1230 DATA000,000,000,000,000,000,000,000
1240 DATA000,000,000,000,000,000,000,000
1250 DATA000,000,000,000,000,000,000,000
1260 DATA000,075,073,076,204,000,000,000