Draws a version of a familiar optical illusion, the Penrose triangle.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.
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