Listing of file='PZSQ.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
10 REM WRITTEN BY WILLIAM B. LEE 408-448-4486 20 REM NOV. 30,1980 60 TRIP= 0 80 CU= 1 85 TRIP= TRIP+ 1 90 W= 11 100 PLOT 12,15 170 G$= " " 180 F$= "CORRECT" 190 E$= " " 200 A$= " " 220 B$= " " 230 D$= " " 240 C$= " " 250 GOTO 400 300 PLOT 3,X,Y 305 PLOT 27,W 310 IF V= 1THEN PRINT A$ 312 IF V= 2THEN PRINT B$ 314 IF V= 3THEN PRINT C$ 316 IF V= 4THEN PRINT D$ 320 X= X+ XI 330 Y= Y+ YI 340 IF Y< TLOR Y> BLTHEN RETURN 345 IF X< LLOR X> RLTHEN RETURN 350 GOTO 300 400 XI= 0:YI= 1:BL= 7:X= 11:Y= 1:TL= 1:V= 1 405 RL= 60:LL= 1 410 GOSUB 300 415 PLOT 27,10 420 XI= 1:YI= 0:RL= 42:X= 22:Y= 1:V= 2:PLOT 27,11 425 W= 10 430 GOSUB 300 440 PLOT 27,11 450 XI= 0:YI= 1:BL= 7:X= 44:Y= 1:TL= 1:V= 1 455 W= 24 456 RL= 62 460 GOSUB 300 500 XI= 0:YI= 1:BL= 22:X= 11:Y= 9:TL= 1:V= 4 510 GOSUB 300 550 XI= 0:YI= 1:BL= 22:X= 44:Y= 9:TL= 1:V= 4 560 GOSUB 300 600 XI= 0:YI= 1:BL= 30:X= 11:Y= 24:TL= 1:V= 1 610 GOSUB 300 650 XI= 1:YI= 0:RL= 42:X= 22:Y= 24:V= 2:PLOT 27,11 655 W= 10 660 GOSUB 300 700 XI= 0:YI= 1:BL= 30:X= 44:Y= 24:TL= 1:V= 1 704 RL= 62 705 W= 11 710 GOSUB 300 800 XI= 0:YI= 1:BL= 22:X= 22:Y= 9:TL= 1:V= 3 810 GOSUB 300 1000 PLOT 8 1010 IF TRIP> 1GOTO 10300 1100 GOSUB 10500:REM HOW MANY 1140 PLOT 8:FOR I= 1TO 3:PRINT E$:NEXT I 1150 REM CHECK IF CORRECT 1160 IF NUM= 10THEN GOTO 10100 1180 GOSUB 10400:REM WRONG ANS 1210 GOSUB 10000:REM TIME 1220 PLOT 8:FOR I= 1TO 3:PRINT E$:NEXT I 1230 ON CU- 1GOSUB 5000,5100,5200,5300,5400 1240 GOTO 1000 5000 REM SMALL SQ 5010 GOSUB 11200 5020 GOSUB 10000:REM TIME 5030 GOSUB 11250:REM ERASE 5040 RETURN 5100 REM IN SIDE BORDER 5110 GOSUB 11100 5120 GOSUB 10000:REM TIME 5130 GOSUB 11150:REM ERASE 5140 RETURN 5200 REM OUT SIDE BORDER 5210 GOSUB 11000 5220 GOSUB 10000:REM TIME 5230 GOSUB 11060:REM ERASE 5240 RETURN 5300 REM HIDDEN TOP LEFT 5310 GOSUB 11300 5320 GOSUB 10000:REM TIME 5330 GOSUB 11390:REM ERASE 5340 RETURN 5400 REM LAST TRY 5410 GOSUB 11500 5415 PLOT 8 5420 GOSUB 10500:REM HOW MANY 5425 PLOT 8:FOR I= 1TO 3:PRINT E$:NEXT I 5430 IF NUM= 10THEN GOTO 10100 5440 GOSUB 40000 5450 GOTO 10210 9998 REM END OF PROGRAM 9999 END 10000 REM TIME LOOP 10010 FOR JJ= 1TO 500:NEXT JJ:RETURN 10100 REM CORRECT ANS. 10110 FOR K= 0TO 28STEP 4 10120 PLOT 3,0,K:PRINT F$ 10130 FOR L= 1TO 100:NEXT L 10140 PLOT 3,0,K:PRINT E$ 10150 PLOT 3,55,K+ 1:PRINT F$ 10160 FOR L= 1TO 100:NEXT L 10170 PLOT 3,55,K+ 1:PRINT E$ 10200 NEXT K 10210 PLOT 8 10220 PRINT "WOULD YOU" 10230 PRINT "LIKE TO SEE" 10240 PRINT "THE CORRECT" 10250 INPUT "ANSWER?";A$ 10260 IF A$= "N"THEN PRINT "OK":GOTO 9999 10270 PLOT 8:FOR I= 1TO 4:PRINT E$:NEXT I 10280 IF A$< > "Y"THEN GOTO 10210 10290 GOTO 80 10300 REM DO AND COUNT CORRECT NUMBER 10310 GOSUB 30000 10320 GOTO 9999 10400 REM WRONG ANS 10410 PLOT 8 10420 PRINT "SORRY,WRONG" 10430 PRINT " NUMBER ";CU 10440 PRINT "CLUE IS ..." 10450 GOSUB 10000:REM TIME 10460 CU= CU+ 1 10470 RETURN 10500 REM HOW MANY 10510 PRINT "HOW MANY" 10520 PRINT "SQUARES DO" 10530 INPUT "YOU SEE?";NUM 10540 RETURN 11000 REM DRAW BORDER 11010 PLOT 6,6 11020 REM OUT SIDE BORDER 11030 PLOT 2,21,2,242,21,125,109,125,109,2,21,2,255 11032 PLOT 6,0:REM CORRECT 11033 PLOT 3,43,0,6,48,2,254,187,255 11034 PLOT 3,21,0,6,48,2,254,187,255 11035 PLOT 3,21,31,6,48,2,254,221,255 11036 PLOT 3,54,23,6,48,2,254,15,255 11037 PLOT 3,43,31,6,48,2,254,221,255 11040 PLOT 6,0 11050 RETURN 11055 REM ERASE 11060 PLOT 2,21,2,242,21,125,109,125,109,2,21,2,255 11070 PLOT 6,2 11080 RETURN 11100 REM IN SIDE BORDER 11110 PLOT 6,6 11120 PLOT 2,42,34,242,42,92,86,92,86,34,42,34,255 11122 PLOT 6,0:REM CORRECT 11124 PLOT 3,21,8,6,48,2,254,119,255 11125 PLOT 3,21,23,6,48,2,254,220,255 11126 PLOT 3,43,23,6,48,2,254,252,255 11127 PLOT 6,0 11130 RETURN 11140 REM ERASE 11150 PLOT 2,42,34,242,42,92,86,92,86,34,42,34,255 11160 PLOT 6,2 11170 RETURN 11200 REM SMALL SQ 1 BORDER 11210 PLOT 6,6 11220 PLOT 2,21,94,242,21,125,43,125,43,94,21,94,255 11222 PLOT 6,0:REM CORRECT 11224 PLOT 3,10,8,6,48,2,254,207,255 11226 PLOT 6,0 11230 RETURN 11240 REM ERASE 11250 PLOT 2,21,94,242,21,125,43,125,43,94,21,94,255 11260 PLOT 6,2 11270 RETURN 11300 REM HIDDEN TOP LEFT 11310 PLOT 6,6 11320 PLOT 2,21,34,242,21,125,86,125,86,34,21,34,255 11330 PLOT 6,0:REM CORRECT 11340 PLOT 3,10,23,6,48,2,254,207,255 11350 PLOT 3,21,23,6,48,2,254,221,255 11360 PLOT 3,43,0,6,48,2,254,243,255 11362 FOR NN= 1TO 10 11364 PLOT 3,10+ NN,23,6,48,2,254,221,255:NEXT NN 11370 PLOT 6,0 11380 RETURN 11390 REM ERASE 11400 PLOT 2,21,34,242,21,125,86,125,86,34,21,34,255 11410 PLOT 6,2 11420 RETURN 11500 REM LAST TRY 11510 PLOT 8 11520 PRINT " LAST TRY" 11530 GOSUB 10000:REM TIME 11535 PLOT 8 11540 PRINT " " 11550 REM 11560 REM SMALL SQ 11570 GOSUB 11200 11580 GOSUB 11250:REM ERASE 11581 GOSUB 20600:REM SMALL SQ 2 11582 GOSUB 20680:REM ERASE 11583 GOSUB 20800:REM SMALL SQ 3 11584 GOSUB 20880:REM ERASE 11585 GOSUB 21000:REM SMALL SQ 4 11586 GOSUB 21080:REM ERASE 11590 REM IN SIDE BORDER 11600 GOSUB 11100 11610 GOSUB 11150:REM ERASE 11620 REM OUT SIDE BORDER 11630 GOSUB 11000 11640 GOSUB 11060:REM ERASE 11650 REM HIDDEN TOP LEFT 11670 GOSUB 11300 11680 GOSUB 11390:REM ERASE 11690 REM HIDDEN TOP RIGHT 11700 GOSUB 20000 11710 GOSUB 20200:REM ERASE 11720 REM HIDDEN BOTTOM LEFT 11730 GOSUB 20240 11740 GOSUB 20360:REM ERASE 11750 REM HIDDEN BOTTOM RIGHT 11760 GOSUB 20400 11770 REM ERASE 11780 GOSUB 20480 11999 RETURN 20000 REM HIDDEN TOP RIGHT 20100 PLOT 6,6 20110 PLOT 2,42,34,242,42,125,109,125,109,34,42,34,255 20120 PLOT 6,0:REM CORRECT 20130 PLOT 3,43,23,6,48,2,254,221,255 20140 PLOT 3,54,23,6,48,2,254,205,255 20150 FOR I= 1TO 7 20160 PLOT 3,21,I,6,48,2,254,240,255 20170 NEXT I 20172 FOR NN= 1TO 11 20174 PLOT 3,42+ NN,23,6,48,2,254,221,255:NEXT NN 20180 PLOT 6,0 20190 RETURN 20200 REM ERASE 20210 PLOT 2,42,34,242,42,125,109,125,109,34,42,34,255 20220 PLOT 6,6 20230 RETURN 20240 REM HIDDEN BOTTOM LEFT 20250 PLOT 2,21,2,242,21,92,86,92,86,2,21,2,255 20260 PLOT 6,0:REM CORRECT 20280 PLOT 3,43,8,6,48,2,254,247,255 20290 PLOT 3,43,31,6,48,2,254,252,255 20300 FOR I= 1TO 11 20310 PLOT 3,10+ I,8,6,48,2,254,119,255 20320 NEXT I 20330 PLOT 3,10,8,6,48,2,254,127,255 20340 PLOT 6,0 20350 RETURN 20360 REM ERASE 20370 PLOT 2,21,2,242,21,92,86,92,86,2,21,2,255 20380 PLOT 6,6 20390 RETURN 20400 REM HIDDEN BOTTOM RIGHT 20410 PLOT 6,6 20420 PLOT 2,42,2,242,42,92,109,92,109,2,42,2,255 20430 PLOT 6,0:REM CORRECT 20440 PLOT 3,54,8,6,48,2,254,119,255 20450 PLOT 3,21,23,6,48,2,254,240,255 20451 FOR NN= 1TO 10 20452 PLOT 3,43+ NN,8,6,48,2,254,119,255:NEXT NN 20453 FOR NN= 1TO 7 20454 PLOT 3,21,23+ NN,6,48,2,254,240,255:NEXT NN 20460 PLOT 6,0 20470 RETURN 20480 REM ERASE 20490 PLOT 2,42,2,242,42,92,109,92,109,2,42,2,255 20500 PLOT 6,6 20510 RETURN 20600 REM SMALL SQ 2 20610 PLOT 6,6 20620 PLOT 2,86,94,242,86,125,109,125,109,94,86,94,255 20630 PLOT 6,0:REM CORRECT 20640 PLOT 3,54,8,6,48,2,254,205,255 20650 PLOT 3,43,8,6,48,2,254,220,255 20660 PLOT 6,0 20670 RETURN 20680 REM ERASE 20690 PLOT 2,86,94,242,86,125,109,125,109,94,86,94,255 20700 PLOT 6,6 20710 RETURN 20800 REM SMALL SQ 3 20810 PLOT 6,6 20820 PLOT 2,21,2,242,21,33,43,33,43,2,21,2,255 20830 PLOT 6,0:REM CORRECT 20870 RETURN 20880 REM ERASE 20890 PLOT 2,21,2,242,21,34,43,34,43,2,21,2,255 20900 PLOT 6,6 20910 RETURN 21000 REM SMALL SQ 4 21010 PLOT 6,6 21020 PLOT 2,86,2,242,86,33,109,33,109,2,86,2,255 21030 PLOT 6,0:REM CORRECT 21070 RETURN 21080 REM ERASE 21090 PLOT 2,86,2,242,86,34,109,34,109,2,86,2,255 21100 PLOT 6,6 21110 RETURN 30000 REM FINAL PASS 30100 REM DO AND COUNT CORRECT NUMBER 30110 PLOT 8 30120 PRINT "ANSWER=1" 30130 REM SMALL SQ 30135 GOSUB 11200 30140 GOSUB 10000:REM TIME 30150 GOSUB 11250:REM ERASE 30160 PLOT 8 30170 PRINT "ANSWER=2" 30180 GOSUB 20600:REM SMALL SQ 2 30190 GOSUB 10000:REM TIME 30200 GOSUB 20680:REM ERASE 30210 PLOT 8 30220 PRINT "ANSWER=3" 30230 GOSUB 20800:REM SMALL SQ 3 30240 GOSUB 10000:REM TIME 30250 GOSUB 20880:REM ERASE 30260 PLOT 8 30270 PRINT "ANSWER=4" 30280 GOSUB 21000:REM SMALL SQ 4 30290 GOSUB 10000:REM TIME 30300 GOSUB 21080:REM ERASE 30310 PLOT 8 30320 PRINT "ANSWER=5" 30330 REM IN SIDE BORDER 30340 GOSUB 11100 30350 GOSUB 10000:REM TIME 30360 GOSUB 11150:REM ERASE 30370 PLOT 8 30380 PRINT "ANSWER=6" 30390 REM OUT SIDE BORDER 30400 GOSUB 11000 30410 GOSUB 10000:REM TIME 30420 GOSUB 11060:REM ERASE 30430 PLOT 8 30440 PRINT "ANSWER=7" 30450 REM HIDDEN TOP LEFT 30460 GOSUB 11300 30470 GOSUB 10000:REM TIME 30480 GOSUB 11390:REM ERASE 30490 PLOT 8 30500 PRINT "ANSWER=8" 30510 REM HIDDEN TOP RIGHT 30520 GOSUB 20000 30530 GOSUB 10000:REM TIME 30540 GOSUB 20200:REM ERASE 30550 PLOT 8 30560 PRINT "ANSWER=9" 30570 REM HIDDEN BOTTOM LEFT 30580 GOSUB 20240 30590 GOSUB 10000:REM TIME 30600 GOSUB 20360:REM ERASE 30610 PLOT 8 30620 PRINT "ANSWER=10" 30630 REM HIDDEN BOTTOM RIGHT 30640 GOSUB 20400 30650 GOSUB 10000:REM TIME 30660 GOSUB 20480:REM ERASE 30670 PLOT 8 30680 INPUT "GO AGAIN ?";A$ 30690 IF A$= "N"THEN PRINT "OK":GOTO 9999 30700 GOTO 60 40000 REM END ROUTINE 40010 X= 1 40100 PLOT 12 40110 PLOT 14,6,3 40120 PLOT 3,55,16:PRINT "I" 40130 PLOT 3,55,14:PRINT "O" 40140 PLOT 3,55,18:PRINT "^" 40150 AR$= "----->" 40160 BR$= " " 40170 FOR I= 1TO 25 40180 PLOT 3,X,16:PRINT AR$ 40200 PLOT 3,X,16:PRINT BR$ 40210 X= X+ 1 40220 NEXT I 40230 PLOT 3,20,16:PRINT "YOU" 40240 FOR I= 1TO 5 40245 X= X+ 1 40250 PLOT 3,X,16:PRINT AR$ 40260 PLOT 3,X,16:PRINT BR$ 40265 NEXT I 40270 PLOT 3,25,16:PRINT "LOSE" 40280 FOR I= 1TO 20 40290 X= X+ 1 40300 PLOT 3,X,16:PRINT AR$ 40310 PLOT 3,X,16:PRINT BR$ 40320 NEXT I 40999 PLOT 15,8 41000 RETURN