100 ';FILETEST 110 ';(c)1992 Juergen Weiss 120 ';        & CPC international 130 ' 140 ';CALL &A000,àname$,àergebnis% 150 ';ergebnis%=0, alles OK. 160 ';ergebnis%=1, File nicht vorhanden 170 'org &a000  180 'ld a,&c9     ;TXTOUT 190 'ld (&bb5a),a ;ausschalten 200 'ld e,(ix)    ;Parameter 210 'ld d,(ix+1)  ;holen 220 'push de 230 'ld l,(ix+2) 240 'ld h,(ix+3) 250 'ld b,(hl) 260 'inc hl 270 'ld a,(hl) 280 'ld e,a 290 'inc hl 300 'ld a,(hl) 310 'ld d,a 320 'ex de,hl 330 'ld de,&c000 ;Puffer einrichten  340 'call &bc77  ;versuchen Datei 350 'pop de      ;zu oeffnen 360 'jr c,close  ;Datei nicht 370 'ld a,1      ;vorhanden 380 'ld (de),a   ;Variable=1 setzen 390 'close       ;Datei auf jeden 400 'call &bc7a  ;fall wieder  410 'ld a,&cf    ;schlie~en 420 'ld (&bb5a),a ;TXTOUT ein 430 'ret         ;fertig