10 POKE56,96:POKE55,0:CLR
20 PRINT"[147]MPS-802-ROM FUER VIZAWRITE-DEUTSCH":PRINT:PRINT
30 PRINT "ALTES ROM VORHER IN $6000-$7FFF ABLEGEN":PRINT:PRINT
80 PRINT"LESEN DER DATA-ZEILEN":PRINT:PRINT
100 T=0
110 T=T+1:READ A:IFA=0THEN240
120 READ B: REM ANZAHL DER BYTES
130 READ P1: REM PRUEFSUMME
140 P2=0:PRINT"BLOCK ";T;"  ";
150 FORI=ATOA-1+B
160 READD:POKEI,D:P2=P2+D
170 NEXTI
180 IFP2<>P1THEN210
190 PRINT"   OK"
200 GOTO110
210 PRINT"PRUEFSUMME FALSCH: ";P2;" STATT ";P1:PRINT
220 GETA$:IFA$=""THEN220
230 GOTO110
240 PRINT:PRINT"FERTIG!":END
1000 REM **** BLOCK 1 ****
1010 DATA25600,8,609
1011 DATA0,88,165,165,165,26,0,0
1020 REM **** BLOCK 2 ****
1021 DATA25816,24,1852
1022 DATA190,80,144,144,80,190,0,0,188,66,66,66,66,188,0,0,188,2,2,2,2,188
1023 DATA0,0
1030 REM **** BLOCK 3 ****
1040 DATA 25920,8,254
1041 DATA56,68,130,0,0,0,0,0
1050 REM **** BLOCK 4 ****
1060 DATA26840,40,1897
1061 DATA4,170,42,170,28,2,0,0,28,162,34,162,28,0,0,0,60,130,2,132,62,0,0
1062 DATA0,63,64,146,146,146,108,0,0,1,1,1,1,1,1,1,1
1070 REM **** BLOCK 5 ****
1080 DATA26936,8,1024
1081 DATA128,128,128,128,128,128,128,128
1100 REM **** BLOCK 6 ****
1110 DATA26966,151,8055
1111 DATA0,255,0,0,0,255,16,16,16,16,0,0,0,0,15,15,15,15,0,0,0,240,16,16,16
1112 DATA16,16,16,16,31,0,0,0,0,3,3,3,3,3,3,3,3,0,0,0,31,16,16,16,16,16,16
1113 DATA16,240,16,16,16,16,16,16,16,31,16,16,16,16,16,16,16,255,0,0,0,0,255
1114 DATA0,0,0,0,0,0,0,255,255,0,0,0,0,0,0,0,0,0,0,0,0,255,255,192,192,192
1115 DATA192,192,192,192,192,224,224,224,224,224,224,224,224,7,7,7,7,7,7,7
1116 DATA7,30,4,8,16,32,64,0,0,15,15,15,15,0,0,0,0,0,0,0,0,240,240,240,240
1117 DATA16,16,16,240,0
1130 REM **** BLOCK 7 **** ;CHECKSUM
1140 DATA32763,1,107
1141 DATA107
10000 DATA0