Hello world/Standard error: Difference between revisions
Content added Content deleted
(Replaced "writeln" which no longer exists with "writeLine".) |
(Applesoft BASIC) |
||
Line 179: | Line 179: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|Applesoft BASIC}}=== |
|||
<syntaxhighlight lang="basic">REM FILE-BASED OUTPUT REDIRECTION |
|||
0 D$ = CHR$ (4):F$ = "DEV/STDERR": PRINT D$"OPEN"F$: PRINT D$"CLOSE"F$: PRINT D$"APPEND"F$: PRINT D$"WRITE"F$ |
|||
1 PRINT "GOODBYE, WORLD!" |
|||
2 PRINT D$"CLOSE"F$</syntaxhighlight><syntaxhighlight lang="basic">REM OUTPUT ROUTINE REDIRECTION |
|||
3 FOR I = 768 TO 802: READ B: POKE I,B: NEXT : POKE 54,0: POKE 55,3: CALL 1002: DATA 72,173,34,3,208,8,169,191,141,34,3,32,240,253,104,201,141,208,12,169,0,141,34,3,169,135,32,240,253,169,141,76,240,253,0 |
|||
4 O$ = CHR$ (111):D$ = CHR$ (100): PRINT "G" + O$ + O$ + D$ + CHR$ (98) + CHR$ (121) + CHR$ (101) + ", W" + O$ + CHR$ (114) + CHR$ (108) + D$ + "!" |
|||
5 POKE 54,240: POKE 55,253: CALL 1002</syntaxhighlight> |
|||
==={{header|BaCon}}=== |
==={{header|BaCon}}=== |
||
<syntaxhighlight lang="freebasic">EPRINT "Goodbye, World!"</syntaxhighlight> |
<syntaxhighlight lang="freebasic">EPRINT "Goodbye, World!"</syntaxhighlight> |