1000 '-------------------------------------------
1010 ' DINPUT.BAS - Direkte Tastatureingaben f}r
1020 ' BASIC-Programme.
1030 ' Rechner:      JOYCE (PCW 8256/8512)
1040 ' Prg.-Sprache: MALLARD-BASIC
1050 ' CP/M-Version: CP/M 3 (PLUS) V. 1.4
1060 ' (c) 1991 Norbert Finke & CPC Int.
1070 ' Nach dem Aufruf von DINPUT mit GOSUB 1100
1080 ' werden die Tastatur-Eingaben direkt vom
1085 ' KEYBOARD-MANAGER geholt
1090 '-------------------------------------------
1100 RESTORE 1330
1110 '
1120 'Adressen der Aufruf-Routinen festlegen:
1130 '
1140 MEMORY HIMEM-6:status=HIMEM+1
1150 MEMORY HIMEM-6:key=HIMEM+1
1160 '
1170 'Maschinenprogramm laden:
1180 '
1190 FOR i=key TO key+11 
1200 READ a$:POKE i,VAL("&H"+a$)
1210 NEXT
1220 '
1230 'Eingabe-Routine auf Maschinen-Routine
1240 'umleiten:
1250 '
1260 OPTION INPUT=UNT(status),UNT(key)
1270 '
1280 '- fertig -
1290 '
1300 RETURN
1310 '-------------------------------------------
1320 '           Maschinen-Programm
1330 DATA CD,5A,FC      'CALL FC5A
1340 DATA 42,11         'DEFW KM_WAIT_CHAR
1350 DATA C9            'RET
1360 DATA CD,5A,FC      'CALL FC5A
1370 DATA 4E,11         'DEFW KM_READ_CHAR
1380 DATA C9            'RET