Unknown Program

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
1010 CLS 
1020 SLOW 
1040 RAND USR 30000
1060 STOP 
1500 FOR I=J TO J+3 STEP 2
1510 GOSUB 2500
1520 NEXT I
1530 FOR I=J TO J+1
1540 GOSUB 3000
1550 NEXT I
1560 RETURN 
2500 LET M=(Y(I)-(Y(I+1)))/(X(I)-(X(I+1)))
2510 LET C=Y(I)-(M*X(I))
2520 FOR X=X(I) TO X(I+1)
2530 PLOT X,(M*X)+C
2540 NEXT X
2550 RETURN 
3000 FOR Y=Y(I+2) TO Y(I)
3010 PLOT X(I),Y
3020 NEXT Y
3024 FOR Y=22 TO 43
3026 PLOT 30,Y
3028 NEXT Y
3030 RETURN 
4020 LET A$="7530"
4030 GOSUB 5000
4060 LET A$="1EFF1D7BFE00C82A0C40015A750A7723030AFE0C20F8030AFE0C28E61602157AFE0020FA2A0C400A18E4"
4070 IF A$="" THEN RETURN 
4100 POKE Z,16*CODE A$+CODE A$(2)-476
4110 LET Z=Z+1
4120 LET A$=A$(3 TO )
4130 GOTO 4070
5000 LET Z=4096*CODE A$+256*CODE A$(2)+16*CODE A$(3)+CODE A$(4)-122332
5010 RETURN 
5020 STOP 
5040 SAVE "1024%2"
5050 RUN