Hello world/Graphical: Difference between revisions
no edit summary
(Implemented CoffeeScript) |
No edit summary |
||
Line 63:
=={{header|AppleScript}}==
<lang applescript>display dialog "Goodbye, World!" buttons {"Bye"}</lang>
=={{header|Applesoft BASIC}}==
<lang Applesoft BASIC> 10 LET T$ = "GOODBYE, WORLD!"
20 TEXT : HOME : TEXT : HGR : HCOLOR= 7: HPLOT 0,0: CALL 62454: HCOLOR= 6
30 LET R = 5:GX = 3:GY = 2:O = 3:XC = R + GX:YC = R * 2 + GY
40 LET L = LEN (T$): FOR I = 1 TO L:K = ASC ( MID$ (T$,I,1)):XO = XC:YO = YC: GOSUB 50:XC = XO + 1:YC = YO: GOSUB 80: NEXT : END
50 IF K > 64 THEN K = K + LC: GOSUB 200:LC = 32: RETURN
60 LET LC = 0: IF K < 32 THEN RETURN
70 GOTO 200
80 GOSUB 200:XC = XC + R * 2 + GX: IF XC > 279 - R THEN XC = R + GX:YC = YC + GY + R * 5
85 RETURN
90 LET XC = XC - R * 2: RETURN
100 LET Y = R:D = 1 - R:X = 0
110 IF D > = 0 THEN Y = Y - 1:D = D - Y * 2
120 LET D = D + X * 2 + 3
130 IF O = 1 OR O = 3 THEN GOSUB 170
140 IF O = 2 OR O = 3 THEN GOSUB 190
150 LET X = X + 1: IF X < Y THEN 110
160 LET O = 3:E = 0: RETURN
170 HPLOT XC - X,YC + Y: HPLOT XC + X,YC + Y: HPLOT XC - Y,YC + X: IF NOT E THEN HPLOT XC + Y,YC + X
180 RETURN
190 HPLOT XC - X,YC - Y: HPLOT XC + X,YC - Y: HPLOT XC - Y,YC - X: HPLOT XC + Y,YC - X: RETURN
200 LET M = K - 31
210 ON M GOTO 320,330,340,350,360,370,380,390,400,410,420,430,440
220 LET M = M - 32
230 ON M GOTO 640,650,660,670,680,690,700,710,720,730,740,750,760,770,780,790,800,810,820,830,840,850,860,870
240 LET M = M - 32
250 ON M GOTO 960,970,980,990,1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,100,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210
320 RETURN
330 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R - GY: HPLOT XC - R,YC + R: GOTO 90: REM !
440 HPLOT XC - R,YC + R + R / 2 TO XC - R,YC + R: GOTO 90: REM ,
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 GOSUB 100: HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: RETURN : REM B
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
1080 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 90: REM L
1140 HPLOT XC - R,YC - R TO XC - R,YC + R:O = 2: GOTO 100: REM R
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}}==
| |||