30 lines
859 B
Plaintext
30 lines
859 B
Plaintext
100 WIDTH = 320
|
|
110 HEIGHT = 240
|
|
120 C = 1: REM RED
|
|
130 X = 100
|
|
140 Y = 100
|
|
150 DEF FN X(X) = INT ((X - 1) / 14)
|
|
160 DEF FN Y(Y) = INT ((Y - 1) / 8)
|
|
170 W = FN X(WIDTH)
|
|
180 H = FN Y(HEIGHT)
|
|
190 WX = INT ( RND (1) * (40 - W))
|
|
200 WY = INT ( RND (1) * (48 - H))
|
|
210 C$ = "0123456789:;<=>?"
|
|
220 C$ = MID$ (C$,C,I) + MID$ (C$,C + 2, LEN (C$) - C - 1)
|
|
230 I = INT ( RND (1) * LEN (C$))
|
|
240 COLOR= ASC ( MID$ (C$,I + 1)) - 48
|
|
250 C$ = MID$ (C$,1,I) + MID$ (C$,I + 2, LEN (C$) - I - 1)
|
|
260 A = PEEK (49234) + PEEK (49240) + PEEK (49232)
|
|
270 FOR I = 0 TO 39
|
|
280 VLIN 0,47 AT I
|
|
290 NEXT
|
|
300 COLOR= ASC ( MID$ (C$, INT ( RND (1) * LEN (C$)) + 1)) - 48
|
|
310 FOR I = WX TO WX + W
|
|
320 VLIN WY,WY + H AT I
|
|
330 NEXT
|
|
340 COLOR= C
|
|
350 PLOT WX + FN X(X),WY + FN Y(Y)
|
|
360 WAIT 49152,128
|
|
370 TEXT
|
|
380 HOME
|