1000 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
1010 '>> DIREKT.BAS leitet Bildschirm-Ausgaben  <<
1020 '>> direkt, unter Umgehung des BDOS/BIOS   <<
1030 '>> an den Terminal-Emulator.              <<
1040 '>> Nach Aufruf mit GOSUB 1080     werden  <<
1050 '>> s{mtliche Ausgaben }ber eine Maschi-   <<
1060 '>> nen-Routinen umgeleitet.               <<
1070 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
1080 MEMORY HIMEM-6:RESTORE 1150
1090 direkt%=UNT(HIMEM+1)
1100 FOR i=direkt% TO direkt%+5
1110 READ a$:POKE i,VAL("&H"+a$)
1120 NEXT
1130 OPTION PRINT = direkt%
1140 RETURN
1150 DATA CD,5A,FC:'CALL FC5A
1160 DATA 48,05   :'DEFW TE_TXT_OUTPUT
1170 DATA C9      :'RET
1180 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<