Hello world/Graphical: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 95: | 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 |
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 |
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 |
980 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 100: RETURN : REM B |
||
1000 HPLOT XC + R,YC - R * 2 TO XC + R,YC + R: GOTO 100: REM D |
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 |
1010 HPLOT XC - R,YC TO XC + R,YC:E = 1: GOTO 100: REM E |
||
Line 102: | 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 |
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> |
</lang> |
||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||