mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-10-09 12:57:09 +00:00
49 lines
1.0 KiB
Plaintext
49 lines
1.0 KiB
Plaintext
5 REM http://www.geocities.com/mmphosis/apple2/contest/2007/old-computer-challenge.html
|
|
10 GR
|
|
20 POKE 49234,0 : rem fullscreen
|
|
30 COLOR= 15
|
|
40 FOR I = 0 TO 39
|
|
50 VLIN 0,47 AT I
|
|
60 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
|