Simulate input/Keyboard: Difference between revisions
Applesoft BASIC
m (→{{header|Phix}}: added syntax colouring, marked p2js incompatible) |
(Applesoft BASIC) |
||
Line 42:
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
<lang basic> 100 REM SIMULATE KEYBORD INPUT
110 GOSUB 170"OPEN&WRITE KB
120 PRINT "HOME:RUN140"M$"MARK
130 PRINT D$C$A$"EXEC"F$: END
140 INPUT "NAME? ";N$
150 PRINT "HELLO, "N$"!"
160 END
170 D$ = CHR$ (4):C$ = "CLOSE"
180 M$ = CHR$ (13):O$ = "OPEN"
190 F$ = "KB":A$ = F$ + M$ + D$
200 PRINT D$"MONI"M$D$O$A$C$;
210 PRINT A$"DELETE"A$O$A$;
220 PRINT "WRITE"F$: RETURN</lang>
{{Out}}
<pre>NAME? MARK
HELLO, MARK!
]</pre>
==={{header|Commodore BASIC}}===
| |||