37 lines
2.1 KiB
Plaintext
37 lines
2.1 KiB
Plaintext
1 LET T$ = "GOODBYE, WORLD!"
|
|
2 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
|
|
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
|
|
5 IF K > 64 THEN K = K + LC: GOSUB 20:LC = 32: 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
|
|
8 RETURN
|
|
9 LET XC = XC - R * 2: RETURN
|
|
10 LET Y = R:D = 1 - R:X = 0
|
|
11 IF D > = 0 THEN Y = Y - 1:D = D - Y * 2
|
|
12 LET D = D + X * 2 + 3
|
|
13 IF O = 1 OR O = 3 THEN GOSUB 17
|
|
14 IF O = 2 OR O = 3 THEN GOSUB 19
|
|
15 LET X = X + 1: IF X < Y THEN 11
|
|
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
|
|
18 RETURN
|
|
19 HPLOT XC - X,YC - Y: HPLOT XC + X,YC - Y: HPLOT XC - Y,YC - X: HPLOT XC + Y,YC - X: RETURN
|
|
20 LET M = K - 31
|
|
21 ON M GOTO 32,33,34,35,36,37,38,39,40,41,42,43,44
|
|
22 LET M = M - 32
|
|
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
|
|
24 LET M = M - 32
|
|
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
|
|
33 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R - GY: HPLOT XC - R,YC + R: GOTO 9: REM !
|
|
44 HPLOT XC - R,YC + R + R / 2 TO XC - R,YC + R: GOTO 9: 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
|
|
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
|
|
98 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 10: RETURN : REM B
|
|
100 HPLOT XC + R,YC - R * 2 TO XC + R,YC + R: GOTO 10: REM D
|
|
101 HPLOT XC - R,YC TO XC + R,YC:E = 1: GOTO 10: REM E
|
|
108 HPLOT XC - R,YC - R * 2 TO XC - R,YC + R: GOTO 9: REM L
|
|
114 HPLOT XC - R,YC - R TO XC - R,YC + R:O = 2: GOTO 10: 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
|