10 MODE2:VDU23;8202;0;0;0; 20 PROCvdu7 21 PROCborder 30 PROCacross 40 PROCvdu:PROCgrid:PROCcage 50 PROClogo:PROCline 60 PROCOL(250,1000,"S L A T T E R",6) 70 CHAIN"SLATTER" 80 DEFPROCgrid:ch1=0:GCOL0,4 90 MOVE0,925:DRAW 1275,925:DRAW 1275,950:DRAW 0,950:DRAW 0,925 100 IF ch1=1 GOTO 120 110 PLOT85,1275,950:PLOT85,1275,925 120 MOVE 750,0:DRAW 750,925:DRAW 775,925:DRAW 775,0:DRAW 750,0 130 IF ch1=1 GOTO 150 140 PLOT85,775,925:PLOT85,750,925 150 IF ch1=0 ch1=1:GCOL0,6:GOTO90 160 ENDPROC 170 DEFPROCcage:cl=1 180 VDU5 190 FORe=250 TO 900 STEP 3 200 GCOL0,cl 210 MOVE 50,e:DRAW 710,e 220 IF cl=1 cl=4:GOTO240 230 IF cl=4 cl=1 240 NEXT 250 GCOL0,0:MOVE 100,275:DRAW 100,900:DRAW 660,900:DRAW 660,275:DRAW 100,275:PLOT85,660,900:PLOT85,100,900 260 MOVE 50,250:DRAW 60,250:DRAW 50,260:DRAW50,250 270 GCOL0,0 280 MOVE 50,875:DRAW 60,900:DRAW 50,900:DRAW50,875 290 MOVE 90,875:DRAW 90,900:DRAW 80,900:DRAW 90,875:PLOT85,90,900 300 MOVE 685,250:DRAW 715,265:DRAW 715,250:DRAW 685,250:PLOT85,715,265 310 MOVE 685,900:DRAW 660,870:DRAW 660,900:DRAW 685,900:PLOT85,660,870 320 MOVE 685,900:DRAW 710,875:DRAW 710,900:DRAW 685,900:PLOT85,710,875 330 cl=4:ch=0 340 GCOL0,cl 350 MOVE 750,775:DRAW 1275,775:DRAW 1275,750:DRAW 750,750:DRAW 750,775 360 IF ch=1 GOTO 380 370 PLOT85,1275,750:PLOT85,1275,775 380 IF ch=0 ch=1:cl=6:GOTO340 390 cl=4:ch=0 400 GCOL0,cl 410 MOVE 750,325:DRAW 1275,325:DRAW 1275,300:DRAW 750,300:DRAW 750,325 420 IF ch=1 GOTO 440 430 PLOT85,1275,300:PLOT85,1275,325 440 IF ch=0 ch=1:cl=6:GOTO400 450 PROCOL(800,700,"KEYS...",1):PROCOL(800,650,"Z:LEFT",2):PROCOL(800,600,"X:RIGHT",2):PROCOL(800,550,"P:PAUSE",2):PROCOL(800,495,"BY A.",3):PROCOL(800,445,"SATTAR",3):PROCOL(800,395,"SHAKOOR",3) 460 PROCOL(800,275,"PLACE 3",5):PROCOL(800,225,"SLATES",5):PROCOL(800,175,"NEXT TO",5):PROCOL(800,125,"EACH",5):PROCOL(800,75,"OTHER",5) 470 VDU4:PRINTTAB(0,0):ENDPROC 480 DEFPROCvdu:VDU23,83,60,102,96,124,6,102,124,0:VDU23,76,112,112,112,112,112,126,126,0:VDU23,65,126,102,102,126,102,102,102,0:VDU23,84,126,60,24,24,24,24,24,0:VDU23,69,126,112,112,126,112,112,126,0:VDU23,82,126,102,102,124,124,102,102,0 490 VDU23,90,126,126,28,56,112,126,126,0:VDU23,70,126,112,112,126,112,112,112,0:VDU23,88,102,102,126,24,126,102,102,0 500 VDU23,73,60,24,24,24,24,24,60,0:VDU23,71,126,102,96,110,102,102,126,0:VDU23,80,126,102,102,126,96,96,96,0:VDU23,85,102,102,102,102,102,102,126,0:VDU23,83,60,102,96,124,6,102,124,0 510 VDU23,66,126,102,102,124,102,102,126,0:VDU23,89,102,102,102,126,24,24,24,0:VDU23,75,102,108,120,112,120,108,102,0:VDU23,79,126,102,102,102,102,102,126,0:VDU23,67,126,102,96,96,96,102,126,0 520 VDU23,81,255,255,255,255,255,255,255,0:ENDPROC 530 DEFPROClogo:VDU4:x1=0 540 cl=1:cl2=4:f=cl 550 y1=1023 560 GCOL0,f:MOVEx1,y1:DRAW 1275,y1 570 IF f=cl f=cl2:GOTO 590 580 IF f=cl2 f=cl 590 IF y1<=955 ENDPROC 600 y1=y1-3:GOTO560 610 DEFPROCacross:C1=4:C2=4 620 x1=795:y1=0:x2=1275:y2=780:cl=C1 630 GCOL0,cl 640 MOVEx1-15,y1:DRAW x2,y2 650 IF cl=C1 cl=C2:GOTO 670 660 IF cl=C2 cl=C1 670 IF x2<=790 GOTO690 680 y1=y1+12:x2=x2-15:GOTO 630 690 x1=1275:y1=0:x2=1275:y2=400 700 GCOL0,cl 710 MOVE x1,y1:DRAW x2,y2 720 IF cl=C1 cl=C2:GOTO 740 730 IF cl=C2 cl=C1 740 IF x1<800 ENDPROC 750 x1=x1-15:y2=y2+12:GOTO700 760 DEFPROCOL(X%,Y%,A$,C%) VDU5:MOVEX%-8,Y%-4:GCOL0,0:PRINTA$:MOVEX%+8,Y%+4:PRINTA$:MOVEX%-8,Y%+4:PRINTA$:MOVEX%+8,Y%-4:PRINTA$:MOVEX%,Y%:GCOL0,C%:PRINTA$:VDU4:ENDPROC 770 DEFPROCline:GCOL0,1:MOVE 100,585:DRAW 660,585:DRAW 660,615:DRAW 100,615:DRAW100,585:PLOT85,660,615:PLOT85,660,585:GCOL0,4:MOVE 100,585:DRAW 660,585:DRAW 660,615:DRAW 100,615:DRAW100,585:ENDPROC 780 DEFPROCvdu7:ENVELOPE 3,1,0,0,0,0,0,0,-126,-2,0,-1,126,80:ENVELOPE 1,1,0,0,0,0,0,0,-126,-2,0,-1,126,80:ENVELOPE2,1,0,0,0,0,0,0,-126,-2,0,-1,126,80:OSCLI("FX211,1"):OSCLI("FX212,0"):OSCLI("FX213,180"):OSCLI("FX214,1"):ENDPROC 790 DEFPROCborder:GCOL0,5:MOVE0,0:DRAW 750,0:DRAW 750,925:DRAW 0,925:DRAW0,0:ENDPROC