|
<lang applescript>display dialog "Goodbye, World!" buttons {"Bye"}</lang>
=={{header|Applesoft BASIC}}==
<lang Applesoft BASIC> 101 LET T$ = "GOODBYE, WORLD!"
202 TEXTLET :R HOME= 5:GX TEXT= 3:GY HGR= 2:O HCOLOR= 73:XC HPLOT= 0,0:R CALL+ 62454GX:YC HCOLOR= 6R * 2 + GY
303 LETTEXT R: =HOME 5:GX =TEXT 3:GY =HGR 2:O HCOLOR= 37:XC =HPLOT R0,0: +CALL GX62454:YC HCOLOR= R * 2 + GY6
404 LET L = LEN (T$): FOR I = 1 TO L:K = ASC ( MID$ (T$,I,1)):XO = XC:YO = YC: GOSUB 505:XC = XO + 1:YC = YO: GOSUB 807: NEXT : END
505 IF K > 64 THEN K = K + LC: GOSUB 20020:LC = 32: RETURN
606 LET LC = 0: IFON K <> = 32 THENGOTO 20: RETURN
807 GOSUB 20020:XC = XC + R * 2 + GX: IF XC > 279 - R THEN XC = R + GX:YC = YC + GY + R * 5 ▼
70 GOTO 200
▲ 80 GOSUB 200:XC = XC + R * 2 + GX: IF XC > 279 - R THEN XC = R + GX:YC = YC + GY + R * 5
859 LET XC = XC - R * 2: RETURN
10 LET 90Y LET= XCR:D = XC1 - R * 2:X RETURN= 0
10011 LETIF D > = 0 THEN Y = RY - 1:D = 1D - R:XY =* 02
11012 IFLET D > = 0 THEN Y = Y - 1:D =+ DX -* Y2 *+ 23
12013 LETIF DO = D1 +OR XO *= 23 +THEN 3 GOSUB 17
13014 IF O = 12 OR O = 3 THEN GOSUB 17019
14015 IFLET OX = 2X OR+ O1: =IF 3X THEN< Y GOSUBTHEN 19011
15016 LET XO = X3:E += 10: IF X < Y THENRETURN 110
17017 HPLOT XC - X,YC + Y: HPLOT XC + X,YC + Y: HPLOT XC - Y,YC + X: IF NOT E THEN HPLOT XC + Y,YC + X ▼
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
19019 HPLOT XC - X,YC - Y: HPLOT XC + X,YC - Y: HPLOT XC - Y,YC - X: HPLOT XC + Y,YC - X: RETURN ▼
▲ 190 HPLOT XC - X,YC - Y: HPLOT XC + X,YC - Y: HPLOT XC - Y,YC - X: HPLOT XC + Y,YC - X: RETURN
21 ON M GOTO 32,33,34,35,36,37,38,39,40,41,42,43,44
210 ON M GOTO 320,330,340,350,360,370,380,390,400,410,420,430,440
23 ON M GOTO 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87
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
25 ON M GOTO 96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,10,112,113,114,115,116,117,118,119,120,121
32 RETURN
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
1210 33 HPLOT XC - R,YC - R * 2 TO XC ,YC +- R : HPLOT XC,YC + R ,YC - RGY: TOHPLOT XC - R,YC + R * 3: RETURNGOTO 9: REM Y!▼ 33044 HPLOT XC - R,YC -+ R * 2 TO XC - R,YC + R -/ GY:2 HPLOTTO XC - R,YC + R: GOTO 909: REM !,
44071 LET O = 2:YC = YC - R: GOSUB 10: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 9010: REM ,G
71087 LETHPLOT O = 2:YC = YCXC - R: GOSUB 100:,YC = YC +- R: HPLOT* XC - R,YC2 TO XC - R,YC -+ R: HPLOTTO XC + R / 2,YC TO XC + R,YC + R TO XC + R,YC +- R:O =* 12: GOTORETURN 100: REM GW
87098 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: TOGOTO XC,YC TO XC + R,YC + R TO XC + R,YC - R * 210: RETURN : REM WB
980100 HPLOT XC -+ R,YC - R * 2 TO XC -+ R,YC + R: GOTO 100: RETURN 10: REM BD
1000101 HPLOT XC +- R,YC - R * 2 TO XC + R,YC:E += R1: GOTO 10010: REM DE
1010108 HPLOT XC - R,YC - R * 2 TO XC +- R,YC:E =+ 1R: GOTO 1009: REM EL
1080114 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R:O = 2: GOTO 9010: REM LR
1140121 HPLOT XC - R,YC - R TO XC,YC + R: HPLOT XC + R,YC - R TO XC - R,YC + R:O =* 23: GOTORETURN 100: REM RY</lang>
▲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}}==
|
