Source Code
20 CLS
40 FAST
50 DIM X(24)
60 DIM Y(24)
70 LET P=0
80 LET B$=""
90 LET C$=""
100 LET D$=""
110 LET E$=""
120 LET F$=""
130 LET G$=""
140 LET X(1)=20
150 LET X(2)=40
160 LET X(3)=20
170 LET X(4)=40
180 LET X(5)=23
190 LET X(6)=37
200 LET X(7)=23
210 LET X(8)=37
220 LET X(9)=26
230 LET X(10)=34
240 LET X(11)=26
250 LET X(12)=34
260 LET X(13)=31
270 LET X(14)=30
280 LET X(15)=31
290 LET X(16)=30
300 LET X(17)=26
310 LET X(18)=34
320 LET X(19)=26
330 LET X(20)=34
340 LET X(21)=23
345 LET X(22)=37
350 LET X(23)=23
360 LET X(24)=37
370 LET Y(1)=39
380 LET Y(2)=39
390 LET Y(3)=26
400 LET Y(4)=26
410 LET Y(5)=42
420 LET Y(6)=36
430 LET Y(7)=29
440 LET Y(8)=23
450 LET Y(9)=43
460 LET Y(10)=35
470 LET Y(11)=30
480 LET Y(12)=22
490 LET Y(13)=43
500 LET Y(14)=35
510 LET Y(15)=30
520 LET Y(16)=22
530 LET Y(17)=35
540 LET Y(18)=43
550 LET Y(19)=22
560 LET Y(20)=30
570 LET Y(21)=36
580 LET Y(22)=42
590 LET Y(23)=23
600 LET Y(24)=29
605 GOSUB 4010
610 FOR J=1 TO 21 STEP 4
620 GOSUB 1500
630 PRINT AT 10,31;"£"
640 LET P=P+1
650 IF P=6 THEN PRINT AT 10,30;"£"
660 LET A=PEEK 16396+256*PEEK 16397
665 LET A$=""
670 FOR B=0 TO 363
680 LET S=PEEK (A+B)
690 LET H=INT (S/16)
700 LET L=(S/16-H)*16
710 LET L$=CHR$ (L+28)
720 LET H$=CHR$ (H+28)
730 LET A$=A$+H$+L$
790 NEXT B
800 CLS
810 GOSUB 4070
820 NEXT J
\n1010 CLS
\n1020 SLOW
\n1040 RAND USR 30000
\n1060 STOP
\n1500 FOR I=J TO J+3 STEP 2
\n1510 GOSUB 2500
\n1520 NEXT I
\n1530 FOR I=J TO J+1
\n1540 GOSUB 3000
\n1550 NEXT I
\n1560 RETURN
\n2500 LET M=(Y(I)-(Y(I+1)))/(X(I)-(X(I+1)))
\n2510 LET C=Y(I)-(M*X(I))
\n2520 FOR X=X(I) TO X(I+1)
\n2530 PLOT X,(M*X)+C
\n2540 NEXT X
\n2550 RETURN
\n3000 FOR Y=Y(I+2) TO Y(I)
\n3010 PLOT X(I),Y
\n3020 NEXT Y
\n3024 FOR Y=22 TO 43
\n3026 PLOT 30,Y
\n3028 NEXT Y
\n3030 RETURN
\n4020 LET A$="7530"
\n4030 GOSUB 5000
\n4060 LET A$="1EFF1D7BFE00C82A0C40015A750A7723030AFE0C20F8030AFE0C28E61602157AFE0020FA2A0C400A18E4"
\n4070 IF A$="" THEN RETURN
\n4100 POKE Z,16*CODE A$+CODE A$(2)-476
\n4110 LET Z=Z+1
\n4120 LET A$=A$(3 TO )
\n4130 GOTO 4070
\n5000 LET Z=4096*CODE A$+256*CODE A$(2)+16*CODE A$(3)+CODE A$(4)-122332
\n5010 RETURN
\n5020 STOP
\n5040 SAVE "1024%2"
\n5050 RUN
