10MODE2:VDU23;8202;0;0;0; 20PROCvdu7 21PROCborder 30PROCacross 40PROCvdu:PROCgrid:PROCcage 50PROClogo:PROCline 60PROCOL(250,1000,"S L A T T E R",6) 70CHAIN"SLATTER" 80DEFPROCgrid: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,9 25:DRAW 775,0:DRAW 750,0 130 IF ch1=1 GOTO 150 140 PLOT85,775,925:PLOT85,750,925 150IF ch1=0 ch1=1:GCOL0,6:GOTO90 160ENDPROC 170DEFPROCcage:cl=1 180VDU5 190FORe=250 TO 900 STEP 3 200GCOL0,cl 210 MOVE 50,e:DRAW 710,e 220 IF cl=1 cl=4:GOTO240 230 IF cl=4 cl=1 240NEXT 250 GCOL0,0:MOVE 100,275:DRAW 100,900: DRAW 660,900:DRAW 660,275:DRAW 100,275:P LOT85,660,900:PLOT85,100,900 260MOVE 50,250:DRAW 60,250:DRAW 50,260 :DRAW50,250 270GCOL0,0 280MOVE 50,875:DRAW 60,900:DRAW 50,900 :DRAW50,875 290MOVE 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 310MOVE 685,900:DRAW 660,870:DRAW 660, 900:DRAW 685,900:PLOT85,660,870 320MOVE 685,900:DRAW 710,875:DRAW 710, 900:DRAW 685,900:PLOT85,710,875 330cl=4:ch=0 340GCOL0,cl 350 MOVE 750,775:DRAW 1275,775:DRAW 12 75,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 12 75,300:DRAW 750,300:DRAW 750,325 420 IF ch=1 GOTO 440 430 PLOT85,1275,300:PLOT85,1275,325 440IF ch=0 ch=1:cl=6:GOTO400 450PROCOL(800,700,"KEYS...",1):PROCOL( 800,650,"Z:LEFT",2):PROCOL(800,600,"X:RI GHT",2):PROCOL(800,550,"P:PAUSE",2):PROC OL(800,495,"BY A.",3):PROCOL(800,445,"SA TTAR",3):PROCOL(800,395,"SHAKOOR",3) 460PROCOL(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) 470VDU4:PRINTTAB(0,0):ENDPROC 480DEFPROCvdu: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,1 02,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 490VDU23,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 500VDU23,73,60,24,24,24,24,24,60,0:VDU 23,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,6 0,102,96,124,6,102,124,0 510VDU23,66,126,102,102,124,102,102,12 6,0:VDU23,89,102,102,102,126,24,24,24,0: VDU23,75,102,108,120,112,120,108,102,0:V DU23,79,126,102,102,102,102,102,126,0:VD U23,67,126,102,96,96,96,102,126,0 520VDU23,81,255,255,255,255,255,255,25 5,0:ENDPROC 530DEFPROClogo:VDU4:x1=0 540cl=1:cl2=4:f=cl 550y1=1023 560GCOL0,f:MOVEx1,y1:DRAW 1275,y1 570IF f=cl f=cl2:GOTO 590 580IF f=cl2 f=cl 590IF y1<=955 ENDPROC 600y1=y1-3:GOTO560 610DEFPROCacross:C1=4:C2=4 620x1=795:y1=0:x2=1275:y2=780:cl=C1 630 GCOL0,cl 640MOVEx1-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 690x1=1275:y1=0:x2=1275:y2=400 700GCOL0,cl 710 MOVE x1,y1:DRAW x2,y2 720 IF cl=C1 cl=C2:GOTO 740 730 IF cl=C2 cl=C1 740IF x1<800 ENDPROC 750x1=x1-15:y2=y2+12:GOTO700 760 DEFPROCOL(X%,Y%,A$,C%) VDU5:MOVEX% -8,Y%-4:GCOL0,0:PRINTA$:MOVEX%+8,Y%+4:PR INTA$:MOVEX%-8,Y%+4:PRINTA$:MOVEX%+8,Y%- 4:PRINTA$:MOVEX%,Y%:GCOL0,C%:PRINTA$:VDU 4:ENDPROC 770DEFPROCline:GCOL0,1:MOVE 100,585:DR AW 660,585:DRAW 660,615:DRAW 100,615:DRA W100,585:PLOT85,660,615:PLOT85,660,585:G COL0,4:MOVE 100,585:DRAW 660,585:DRAW 66 0,615:DRAW 100,615:DRAW100,585:ENDPROC 780DEFPROCvdu7: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("FX 211,1"):OSCLI("FX212,0"):OSCLI("FX213,18 0"):OSCLI("FX214,1"):ENDPROC 790DEFPROCborder:GCOL0,5:MOVE0,0:DRAW 750,0:DRAW 750,925:DRAW 0,925:DRAW0,0:EN DPROC