10 REM PATCHPROGRAMM ZU DATAMASTER 64, SONDERHEFT 46 - REV 2
20 REM N.HEUSLER, ZWENGAUERWEG 18, 8 MUC 71, (C) NH-160590-ARR
30 IFATHEN80
40 POKE56,128:CLR:SYS58692
50 PRINT"BITTE DATAMASTER-DISK EINLEGEN!
60 [151]198,0:[146]198,1:[151]198,0
70 A[178]1:[147]"MCODE $8000",8,8
80 [153]:[153]"BITTE WARTEN!
90 FORI=32768TO37648:S=S+PEEK(I):NEXT
100 IFS<>585422THENPRINT:PRINT"BITTE ORIGINALVERSION VERWENDEN!":STOP
110 PRINT:PRINT"DATAMASTER OK. PATCH LAEUFT!
120 [151]35312,76:[151]35313,24:[151]35314,147
130 [129]I[178]37656[164]37677:[135]X:[151]I,X:H[178]H[170]X:[130]
140 [131]201,32,240,15
150 [131]201,42,240,11
160 [131]201,45,240,7
170 [131]201,47,240,3
180 [131]76,229,137,76,223,137
190 [139]H[179][177]2844[167][153]:[153]"DATA-FEHLER!":[144]
200 [153]:[153]"PATCH OK. NEUE VERSION WIRD GESPEICHERT
210 OPEN15,8,15,"S:MCODE $8000
220 [132]15,F:[139]F[179]2[167]240
230 [153]:[153]"DISKETTENFEHLER NR."F:[128]
240 [158](57812)"MCODE $8000",8
250 [151]780,2:[151]781,46:[151]782,147
260 [151]2,0:[151]3,128:[158]65496
270 [132]15,F:[139]F[178]0[167]290
280 [153]:[153]"DISKETTENFEHLER NR."F:[128]
290 [160]15:[153]:[153]"ALLES OK. NEUE VERSION AUF DISKETTE.
300 END