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