Compucolor.org – Virtual Media

Listing of file='PERSQU.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'

20 REM  PERSPECTIVE SQUARES
25 REM  BY  PATRICK LEABO
50 CLEAR 1000
100 A$= CHR$ (10)
120 FOR N= 1TO 64
130 A$= A$+ CHR$ (26)
140 NEXT
150 B$= ""
160 FOR N= 1TO 64
170 B$= B$+ "`"
180 NEXT
190 CC$= ""
195 X= 10:Y= 6:PLOT 12:GOSUB 210:GOTO 250
200 INPUT "ENTER WIDTH,HEIGTH ! ";X,Y:PLOT 12
210 FOR YY= 1TO Y
220 CC$= CC$+ LEFT$ (B$,X)+ LEFT$ (A$,X+ 1)
230 NEXT :RETURN
250 FOR N= 1TO 7
270 C= N
300 PLOT 6,C* 9,3,7* N,3* N:PRINT CC$
400 NEXT
500 FOR N= 1TO 7
510 PLOT 3,5+ 3* N,16+ N,6,N* 9:PRINT CC$
522 PLOT 3,40+ N,4+ N:PRINT CC$
530 NEXT
540 FOR N= 1TO 1000:NEXT :PLOT 6,0,12
550 X= 4:Y= 4:CC$= "":GOSUB 210
600 FOR N= 1TO 7
610 PLOT 6,N* 9
620 PLOT 3,26,11+ N:PRINT CC$
625 PLOT 3,30+ N,10+ N:PRINT CC$
630 PLOT 3,22- N,10+ N:PRINT CC$
635 PLOT 3,18- N* 2,8+ N:PRINT CC$
640 PLOT 3,34+ N* 2,8+ N:PRINT CC$
645 PLOT 3,38+ N* 3,5+ N:PRINT CC$
700 NEXT :FOR N= 1TO 1000:NEXT
705 PLOT 6,4
710 LOAD "MENU":RUN