10 REM PATCHPROGRAMM ZUM EDI
20 REM AENDERT EDI FUER DL 900
30 REM MIT WIESEMANN-INTERFACE
40 REM NIKOLAUS HEUSLER
50 REM ZWENGAUERWEG 18
60 REM 8000 MUENCHEN 71
70 :
80 POKE56,64:CLR
90 PRINT"[147]ORIGINAL-DATEI WIRD GELADEN.
100 [158]57812"EDI 24 V1.1",8,1
110 [151]780,0:[158]65493
120 [139][194](16384)[178]234[175][194](18437)[178]208[175][194](20489)[178]32[167]150
130 [153]"BEIM LADEN IST ETWAS SCHIEFGEGANGEN!
140 PRINT"BITTE DATEI UEBERPRUEFEN.":END
150 POKE16470,205:POKE16467,205:REM CENTRONICS AUSSCHALTEN
160 POKE16864,4:REM GERAETENUMMER
170 POKE16866,1:REM SEKUNDAERADRESSE LINEARKANAL
180 PRINT"BITTE DISK ZUM SPEICHERN EINLEGEN, TASTE":POKE198,.:WAIT198,1
190 SYS57812"EDI 24 DL900",8
200 POKE172,0:POKE173,64:POKE780,172:POKE781,PEEK(174):POKE782,PEEK(175)
210 SYS65496:POKE198,.