9600 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
9610 '>>>>           SIOINPUT.BAS             <<<<
9620 '>>>> Programm-Eingabe auf SIO umleiten. <<<<
9630 '>>>>   Nach dem Aufruf mit GOSUB 9770   <<<<
9640 '>>>> kann die Programm-Eingabe auf die  <<<<
9650 '>>>> SIO umgeschaltet werden. Dazu wird <<<<
9660 '>>>> das BASIC-Kommando                 <<<<
9670 '>>>>  OPTION INPUT = Adresse1,Adresse2  <<<<
9680 '>>>> benutzt. Adresse1 bezeichnet die   <<<<
9690 '>>>> Maschinen-Routine f}r die Status-  <<<<
9700 '>>>> Abfrage, Adresse2 die Routine f}r  <<<<
9710 '>>>> die Zeicheneingabe.                <<<<
9720 '>>>> Programmiersprache: Mallard-BASIC  <<<<
9730 '>>>> System: JOYCE (PCW 8256/8512)      <<<<
9740 '>>>> CP/M-Version: CP/M 3 V. 1.4        <<<<
9750 '>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<
9760 '>>>>       Programm initialisieren      <<<<
9770 RESTORE 9900:MEMORY HIMEM-12
9780 FOR i=HIMEM+1 TO HIMEM+12:READ a$
9790 POKE i,VAL("&H"+a$)
9800 NEXT
9810 sio.stat%=UNT(HIMEM+7):sio.inp%=UNT(HIMEM+1)
9820 RETURN
9830 '>>>>        Eingabe umleiten            <<<<
9840 OPTION INPUT=sio.stat%,sio.inp%
9850 RETURN
9860 '>>>>    Eingabe wieder auf Tastatur     <<<<
9870 OPTION INPUT
9880 RETURN
9890 '>>>>          SIO-Eingabe holen         <<<<
9900 DATA CD,5A,FC:'CALL   0FC5AH
9910 DATA 71,03   :'DEFW   CD_SA_INPUT_CHAR
9920 DATA C9      :'RET
9930 '>>>>     SIO-Eingabe-Status holen       <<<<
9940 DATA CD,5A,FC:'CALL   0FC5AH
9950 DATA CD,03   :'DEFW   CD_SA_INPUT_STATUS
9960 DATA C9      :'RET
9970 '>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<