Draws a version of a familiar optical illusion, the Penrose triangle.
Content
Image Gallery
Source Code
5 REM "What-Iz-It"???
10 REM By Frank Bouldin W5GAA Fort Worth T/S UG (11-18-86)
20 REM For T/S 2068 computer
30 LET D=200: LET P=100: CLS
40 RESTORE P: READ A,B: BEEP .05,34: PLOT A,B: LET P=P+10: RESTORE D
50 FOR N=1 TO 10: LET B=INT (RND*20)+15: READ X: READ Y: DRAW X,Y: BEEP .05,B
60 NEXT N: IF P=140 THEN GO TO 80
70 LET D=D+20: GO TO 40
80 RESTORE 300: PRINT #0;AT 1,10;"PRESS ANY KEY": PAUSE 0: FOR Y=4 TO 26: READ C
90 PRINT #0;AT 1,Y;CHR$ C: BEEP .05,X: LET X=X+1: NEXT Y: PAUSE 0: GO TO 30
100 DATA 112,102
110 DATA 20,18
120 DATA 169,85
130 DATA 224,3
200 DATA 14,21,14,-22,-48,0,46,70,100,-152
210 DATA -13,-16,-197,0,-9,15,96,153,22,0
220 DATA 85,0,-25,34,-11,-18,24,0,-45,0
230 DATA 32,51,70,0,-24,38,10,16,34,-54
240 DATA -19,0,-11,-16,-48,0,-11,-17,11,17
250 DATA -10,15,45,-66,67,0,-23,36,10,16
260 DATA -44,67,-23,-37,24,0,-45,0,35,51
270 DATA -45,-66,11,16,-24,35,14,-20,12,20
300 DATA 84,72,69,32,73,77,80,79,83,83,73,66
310 DATA 76,69,32,84,82,73,65,78,71,76,69
9999 SAVE "WHAT-IZ-IT" LINE 30