Simulate input/Keyboard: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring, marked p2js incompatible) |
(Applesoft BASIC) |
||
| Line 42: | Line 42: | ||
=={{header|BASIC}}== |
=={{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}}=== |
==={{header|Commodore BASIC}}=== |
||