Created
May 31, 2017 19:54
-
-
Save aaronryank/da454e9af3e117affc2f1afa1ceb80f1 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 010 GR | |
| 020 POKE 49234,0 | |
| 030 COLOR= 15 | |
| 040 FOR I = 0 TO 39 | |
| 050 VLIN 0,47 AT I | |
| 060 NEXT | |
| 100 COLOR= 5 | |
| 110 S = 21 | |
| 120 W = S | |
| 130 H = 27 | |
| 140 X = INT ((40 - W) / 2) | |
| 150 Y = INT ((48 - H) / 2) | |
| 160 D = INT (W / 3) | |
| 161 DX = D | |
| 170 Y2 = Y + H | |
| 180 X2 = X + W | |
| 200 FOR I = 0 TO 3 | |
| 210 VLIN Y,Y2 AT X + I * D | |
| 220 NEXT | |
| 240 D = INT (H / 3) | |
| 250 FOR I = 0 TO 3 | |
| 260 HLIN X,X2 AT Y + I * D | |
| 270 NEXT | |
| 280 YH = INT (D / 2) | |
| 281 YM = Y + H - YH | |
| 290 XH = INT (DX / 2) | |
| 300 COLOR= 0 | |
| 310 FOR I = 0 TO 2 | |
| 320 YY = YM | |
| 330 XX = X + XH + I * DX | |
| 340 GOSUB 500 | |
| 350 NEXT | |
| 400 YY = YY - D | |
| 410 GOSUB 500 | |
| 420 YY = YY - D | |
| 430 XX = XX - DX | |
| 440 GOSUB 500 | |
| 450 K = PEEK ( - 16384) | |
| 460 IF K < 128 THEN 450 | |
| 470 K = PEEK ( - 16368) | |
| 480 TEXT : HOME | |
| 490 END | |
| 500 VLIN YY + 1,YY - 2 AT XX | |
| 510 VLIN YY + 1,YY - 2 AT XX + 1 | |
| 520 VLIN YY,YY - 1 AT XX - 1 | |
| 530 VLIN YY,YY - 1 AT XX + 2 | |
| 540 RETURN |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment