Hello world/Graphical: Difference between revisions
m
→{{header|Applesoft BASIC}}
No edit summary |
|||
Line 95:
710 LET O = 2:YC = YC - R: GOSUB 100:YC = YC + R: HPLOT XC - R,YC TO XC - R,YC - R: HPLOT XC + R / 2,YC TO XC + R,YC TO XC + R,YC + R:O = 1: GOTO 100: REM G
870 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R TO XC,YC TO XC + R,YC + R TO XC + R,YC - R * 2: RETURN : REM W
980
1000 HPLOT XC + R,YC - R * 2 TO XC + R,YC + R: GOTO 100: REM D
1010 HPLOT XC - R,YC TO XC + R,YC:E = 1: GOTO 100: REM E
Line 102:
1210 HPLOT XC - R,YC - R TO XC,YC + R: HPLOT XC + R,YC - R TO XC - R,YC + R * 3: RETURN : REM Y
</lang>
=={{header|AutoHotkey}}==
| |||