Hello world/Graphical: Difference between revisions

Content added Content deleted
m (Undo revision 98525 by Mmphosis (talk))
Line 64: Line 64:
<lang applescript>display dialog "Goodbye, World!" buttons {"Bye"}</lang>
<lang applescript>display dialog "Goodbye, World!" buttons {"Bye"}</lang>
=={{header|Applesoft BASIC}}==
=={{header|Applesoft BASIC}}==
<lang Applesoft BASIC> 10 LET T$ = "GOODBYE, WORLD!"
<lang Applesoft BASIC> 1 LET T$ = "GOODBYE, WORLD!"
20 TEXT : HOME : TEXT : HGR : HCOLOR= 7: HPLOT 0,0: CALL 62454: HCOLOR= 6
2 LET R = 5:GX = 3:GY = 2:O = 3:XC = R + GX:YC = R * 2 + GY
30 LET R = 5:GX = 3:GY = 2:O = 3:XC = R + GX:YC = R * 2 + GY
3 TEXT : HOME : TEXT : HGR : HCOLOR= 7: HPLOT 0,0: CALL 62454: HCOLOR= 6
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
4 LET L = LEN (T$): FOR I = 1 TO L:K = ASC ( MID$ (T$,I,1)):XO = XC:YO = YC: GOSUB 5:XC = XO + 1:YC = YO: GOSUB 7: NEXT : END
50 IF K > 64 THEN K = K + LC: GOSUB 200:LC = 32: RETURN
5 IF K > 64 THEN K = K + LC: GOSUB 20:LC = 32: RETURN
60 LET LC = 0: IF K < 32 THEN RETURN
6 LET LC = 0: ON K > = 32 GOTO 20: RETURN
⚫
7 GOSUB 20:XC = XC + R * 2 + GX: IF XC > 279 - R THEN XC = R + GX:YC = YC + GY + R * 5
70 GOTO 200
⚫
8 RETURN
⚫
80 GOSUB 200:XC = XC + R * 2 + GX: IF XC > 279 - R THEN XC = R + GX:YC = YC + GY + R * 5
85 RETURN
9 LET XC = XC - R * 2: RETURN
90 LET XC = XC - R * 2: RETURN
10 LET Y = R:D = 1 - R:X = 0
100 LET Y = R:D = 1 - R:X = 0
11 IF D > = 0 THEN Y = Y - 1:D = D - Y * 2
110 IF D > = 0 THEN Y = Y - 1:D = D - Y * 2
12 LET D = D + X * 2 + 3
120 LET D = D + X * 2 + 3
13 IF O = 1 OR O = 3 THEN GOSUB 17
130 IF O = 1 OR O = 3 THEN GOSUB 170
14 IF O = 2 OR O = 3 THEN GOSUB 19
140 IF O = 2 OR O = 3 THEN GOSUB 190
15 LET X = X + 1: IF X < Y THEN 11
150 LET X = X + 1: IF X < Y THEN 110
16 LET O = 3:E = 0: RETURN
⚫
17 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
⚫
18 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
⚫
19 HPLOT XC - X,YC - Y: HPLOT XC + X,YC - Y: HPLOT XC - Y,YC - X: HPLOT XC + Y,YC - X: RETURN
⚫
180 RETURN
⚫
20 LET M = K - 31
⚫
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
⚫
200 LET M = K - 31
⚫
22 LET M = M - 32
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
⚫
220 LET M = M - 32
⚫
24 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
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
⚫
240 LET M = M - 32
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
⚫
33 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R - GY: HPLOT XC - R,YC + R: GOTO 9: REM !
⚫
320 RETURN
330 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R - GY: HPLOT XC - R,YC + R: GOTO 90: REM !
44 HPLOT XC - R,YC + R + R / 2 TO XC - R,YC + R: GOTO 9: REM ,
440 HPLOT XC - R,YC + R + R / 2 TO XC - R,YC + R: GOTO 90: REM ,
71 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 10: 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
87 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
98 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 10: RETURN : REM B
980 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 100: RETURN : REM B
100 HPLOT XC + R,YC - R * 2 TO XC + R,YC + R: GOTO 10: REM D
1000 HPLOT XC + R,YC - R * 2 TO XC + R,YC + R: GOTO 100: REM D
101 HPLOT XC - R,YC TO XC + R,YC:E = 1: GOTO 10: REM E
1010 HPLOT XC - R,YC TO XC + R,YC:E = 1: GOTO 100: REM E
108 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 9: REM L
1080 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 90: REM L
114 HPLOT XC - R,YC - R TO XC - R,YC + R:O = 2: GOTO 10: REM R
1140 HPLOT XC - R,YC - R TO XC - R,YC + R:O = 2: GOTO 100: REM R
121 HPLOT XC - R,YC - R TO XC,YC + R: HPLOT XC + R,YC - R TO XC - R,YC + R * 3: RETURN : REM Y</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}}==
=={{header|AutoHotkey}}==


Retrieved from "https://rosettacode.org/wiki/Hello_world/Graphical"