jsbasic/samples/sample.hacker.txt

49 lines
1.0 KiB
Plaintext
Raw Normal View History

2012-02-09 03:13:44 +00:00
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