1 REM ****************************›2 REM ** KNIGHTS by Sydney Brown *›3 REM ** FEB 83 *›4 REM ** ACE NEWSLETTER *›5 REM ** 3662 VINE MAPLE *›6 REM ** EUGENE, OR 97405 **›7 REM ** $ 10 YR **›8 REM ****************************›10 ? "}":POKE 710,194:? ,:? " ЛОЙЗИФ ЖПТ Б ДБЩ ":? :? "YOU ARE SIR CYRIL THE BRAVE AND YOU"›12 ? "HAVE SET OUT TO RESCUE THE BEAUTIFUL":? "PRINCESS WHO WAS CAPTURED AND LOCKED"›14 ? "IN THE TOWER OF THE EVIL KINGS CASTLE":? :? "YOU BEGIN IN THE ENTRANCE CHAMBER OF":? "THE CASTLE."›16 ? :? "YOU MUST SEARCH ALL THROUGH THE VERY";:? "CONFUSING MAZE OF ROOMS AND FIND THE"›18 ? "THREE STAIRCASES,ONE LEADS TO ANOTHER":? "TOWER & YOU ARE SENT BACK TO THE":? "ENTRANCE CHAMBER TO BEGIN AGAIN."›20 ? "ANOTHER LEADS TO THE DUNGEON WHICH":? "ALSO LEADS BACK TO THE ENTRANCE HALL."›22 ? "THE THIRD LEADS TO THE TRAPDOOR ROOM,":? "IF YOU MAKE IT PAST THIS ROOM THEN YOU";:? "HAVE MADE IT."›24 ? :? "THE TIME YOU TAKE IS SHOWN AT THE END":? :? " РТЕУУ ФИЕ УФБТФ ВХФФПО БОД УФБОДВЩ";›80 IF PEEK(53279)<>6 THEN 80›90 POKE 106,PEEK(106)-2›95 GRAPHICS 18:POKE 708,30:POKE 709,140:POKE 710,188:A=PEEK(106)*256›100 FOR B=0 TO 511›101 IF (B>423 AND B<456) OR B>463 THEN READ D:POKE A+B,D:NEXT B:GOTO 110›106 POKE A+B,PEEK(57344+B):NEXT B›110 TM=0:POSITION 0,0:? #6;"}":POKE 710,10:POKE 712,0:POKE 708,44:POKE 709,222:POKE 711,140:POKE 756,PEEK(106)›190 GOSUB 2000›191 H=10:V=11:POSITION 0,11:? #6;"х":GOSUB 900:FOR W=0 TO 10:COLOR 245:PLOT W,11:FOR WW=1 TO 100:NEXT WW›192 COLOR 32:PLOT W,11:NEXT W:COLOR 245:PLOT 10,10:FOR W=1 TO 100:NEXT W:COLOR 32:PLOT 10,10:COLOR 245:PLOT 10,9›193 FOR WW=1 TO 100:NEXT WW:COLOR 32:PLOT 10,9:COLOR 245:PLOT 10,8:FOR WW=1 TO 100:NEXT WW:COLOR 32:PLOT 10,8›198 GOSUB 920:COLOR 245:PLOT H,V:X=8:QQ=0›200 TM=TM+1:ST=STICK(0):IF ST=11 THEN LOCATE H-1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V›202 POKE 77,0:IF ST=7 THEN LOCATE H+1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V›204 IF ST=14 AND V>0 THEN LOCATE H,V-1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V-1:PLOT H,V›206 IF ST=13 AND V<10 THEN LOCATE H,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V+1:PLOT H,V›270 IF V<1 THEN X=H:H=10:V=11:GOTO 290›279 FOR W=1 TO 77:NEXT W:GOTO 200›290 IF X<8 THEN XX=A:ON A GOSUB 925,930,935›291 IF X>11 THEN XX=B:ON B GOSUB 925,930,935›292 IF X<12 AND X>7 THEN XX=C:ON C GOSUB 925,930,935›295 COLOR 245:PLOT H,V›300 QQ=0:ST=STICK(0):IF ST=11 AND H>0 THEN LOCATE H-1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V›301 POKE 77,0›302 TM=TM+1:IF ST=7 AND H<19 THEN LOCATE H+1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V›304 IF ST=14 AND V>0 THEN LOCATE H,V-1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V-1:PLOT H,V›306 IF ST=13 AND V<10 THEN LOCATE H,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V+1:PLOT H,V›340 IF H<1 OR H>18 OR V<1 THEN 355›350 FOR W=1 TO 77:NEXT W:GOTO 300›355 IF XX<>Q THEN 360›356 IF H<1 AND A=3 THEN GOSUB 940:GOTO 400›357 IF H>18 AND C=3 THEN GOSUB 940:GOTO 400›358 IF V<1 AND B=3 THEN GOSUB 940:GOTO 400›360 IF H<1 AND XX=1 THEN ON A1 GOSUB 920,930,935›361 IF H<1 AND XX=2 THEN ON A2 GOSUB 925,920,935›362 IF H<1 AND XX=3 THEN ON A3 GOSUB 925,930,920›365 IF H>18 AND XX=1 THEN ON C1 GOSUB 920,930,935›366 IF H>18 AND XX=2 THEN ON C2 GOSUB 925,920,935›367 IF H>18 AND XX=3 THEN ON C3 GOSUB 925,930,920›370 IF V<1 AND XX=1 THEN ON B1 GOSUB 920,930,935›371 IF V<1 AND XX=2 THEN ON B2 GOSUB 925,920,935›372 IF V<1 AND XX=3 THEN ON B3 GOSUB 925,930,920›380 H=10:V=11:COLOR 245:PLOT H,V:IF QQ=1 THEN QQ=0:GOTO 200›399 XX=X:GOTO 300›400 ST=STICK(0):TM=TM+1:POKE 77,0›401 IF ST=11 AND H>2 AND V=10 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V›402 IF ST=7 AND H<13 AND V=10 THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V›404 IF ST=6 THEN LOCATE H+1,V-1,Z:IF Z=122 OR Z=32 THEN COLOR 32:PLOT H,V:H=H+1:V=V-1:COLOR 245:PLOT H,V›405 IF Z=122 THEN 450›406 IF ST=9 THEN LOCATE H-1,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:V=V+1:PLOT H,V›449 FOR W=1 TO 77:NEXT W:GOTO 400›450 IF V=2 THEN ON AS GOTO 480,490,550›452 IF V=5 THEN ON BS GOTO 480,490,550›454 ON CS GOTO 480,490,550›480 GOSUB 950:H=18:V=11:COLOR 245:PLOT H,V:GOTO 600›490 SOUND 0,0,0,0:POKE 53768,5:POKE 53761,168:POKE 53765,168:POKE 53760,254:POKE 53764,127:GOSUB 960›495 COLOR 245:H=1:V=10:PLOT H,V›500 POKE 77,0:TM=TM+1:ST=STICK(0):IF ST=6 AND V>3 THEN COLOR 32:PLOT H,V:H=H+1:V=V-1:COLOR 245:PLOT H,V›502 IF ST=11 AND H>8 AND V=3 THEN COLOR 32:PLOT H,V:H=H-1:COLOR 245:PLOT H,V›504 IF ST=7 AND H<19 AND V=3 THEN COLOR 32:PLOT H,V:H=H+1:COLOR 245:PLOT H,V›530 IF H=19 THEN SOUND 0,0,0,0:SOUND 2,0,0,0:GOTO 540›539 FOR W=1 TO 35:NEXT W:GOTO 500›540 POKE 712,0:GOSUB 920:H=10:V=11:COLOR 245:PLOT H,V:GOTO 200›550 GOSUB 910:COLOR 245:PLOT 4,3:FOR W=1 TO 7:R=RND(0)*220+5:SOUND 0,R,10,10:SOUND 1,R+1,10,10:FOR WW=1 TO 77›589 NEXT WW:NEXT W:SOUND 1,0,0,0:SOUND 0,0,0,0:GOSUB 920:H=10:V=11:COLOR 245:PLOT H,V:GOTO 200›600 TM=TM+1:ST=STICK(0):IF ST=11 THEN LOCATE H-1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H-1:PLOT H,V›601 IF Z=123 THEN 490›602 IF ST=7 THEN LOCATE H+1,V,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:H=H+1:PLOT H,V›603 IF Z=123 THEN 490›604 IF ST=14 THEN LOCATE H,V-1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V-1:PLOT H,V›605 IF Z=123 THEN 490›606 IF ST=13 AND V<10 THEN LOCATE H,V+1,Z:IF Z=32 THEN COLOR 32:PLOT H,V:COLOR 245:V=V+1:PLOT H,V›607 IF Z=123 THEN 490›610 IF V<1 THEN 650›649 FOR W=1 TO 35:NEXT W:GOTO 600›650 GOSUB 910:COLOR 32:PLOT 16,3:POSITION 10,10:? #6;"хx"›660 RESTORE 1900:FOR W=1 TO 14:READ F:READ D:SOUND 0,F,10,10:SOUND 1,F+1,10,10:FOR WW=1 TO D:NEXT WW:NEXT W:SOUND 0,0,0,0:SOUND 1,0,0,0›670 POSITION 6,0:? #6;"фйнеЅ";TM›690 POSITION 4,11:? #6;"press start"›695 IF PEEK(53279)<>6 THEN 695›699 GOTO 110›900 GOSUB 910:POSITION 0,0:? #6;" ЛОЙЗИФ ЖПТ Б ДБЩ":SOUND 0,0,0,0:POKE 53768,4:POKE 53761,168:POKE 53765,168›902 POKE 53760,254:POKE 53764,127:FOR WX=1 TO 7:FOR W=12 TO 252 STEP 16:POKE 710,W›905 FOR WW=1 TO 10:NEXT WW:NEXT W:NEXT WX:POSITION 0,0:? #6;" "›909 SOUND 0,0,0,0:SOUND 2,0,0,0:RETURN ›910 POSITION 0,0:? #6;"}":POKE 712,0:POKE 709,222:POKE 708,44:POKE 711,140:POKE 710,10›911 POSITION 2,2:? #6;"^^^^^ ^^^^^":POSITION 3,3:? #6;"^ ^ ^x^":POSITION 3,4:? #6;"^^^ ^^^"›912 POSITION 2,1:? #6;"^ ^ ^ ^ ^ ^"›913 POSITION 3,5:? #6;"^^^ ^ ^ ^ ^ ^^^":FOR W=6 TO 10:POSITION 3,W:? #6;"^^^^^^^^^^^^^^^":NEXT W›914 COLOR 32:PLOT 4,8:PLOT 6,8:PLOT 10,8:PLOT 14,8:PLOT 16,8:FOR W=9 TO 11:PLOT W,9:PLOT W,10:PLOT W,8:NEXT W›919 RETURN ›920 POSITION 0,0:? #6;"}":QQ=1›921 POKE 708,44:GOSUB 990:COLOR 32:PLOT 4,0:PLOT 5,0:PLOT 9,0:PLOT 10,0:PLOT 14,0:PLOT 15,0:PLOT 9,11:PLOT 10,11›924 RETURN ›925 POSITION 0,0:? #6;"}":X=1›926 POKE 708,90:GOSUB 990:COLOR 32:PLOT 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLOT 19,5:PLOT 19,6:PLOT 9,11:PLOT 10,11›929 RETURN ›930 POSITION 0,0:? #6;"}":X=2›931 POKE 708,202:GOSUB 990:COLOR 32:PLOT 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLOT 19,5:PLOT 19,6:PLOT 9,11:PLOT 10,11›934 RETURN ›935 POSITION 0,0:? #6;"}":X=3›936 POKE 708,138:GOSUB 990:COLOR 32:PLOT 0,5:PLOT 0,6:PLOT 9,0:PLOT 10,0:PLOT 19,5:PLOT 19,6:PLOT 9,11:PLOT 10,11›939 RETURN ›940 POSITION 0,0:? #6;"}":POKE 708,44:POKE 709,6:POSITION 0,0›941 ? #6;" ^ ^ ^ ^ ^ ^ ^ ^ ^ ^";:FOR W=1 TO 11:? #6;" ^^^^^^^^^^^^^^^^^^^";:NEXT W:COLOR 32:PLOT 10,8:DRAWTO 8,10›942 PLOT 9,3:DRAWTO 2,10:DRAWTO 13,10:DRAWTO 17,6:COLOR 122:PLOT 10,2:PLOT 11,7:PLOT 18,5›949 H=10:V=10:COLOR 245:PLOT H,V:RETURN ›950 POSITION 0,0:? #6;"}":POKE 708,14:POKE 709,38:GOSUB 990:PLOT 6,1:DRAWTO 6,6:PLOT 13,10:DRAWTO 13,5›951 COLOR 32:PLOT 1,0:PLOT 2,0:PLOT 17,11:PLOT 18,11›952 COLOR 123:PLOT 9,1:PLOT 10,10:PLOT 1,5:PLOT 18,6:FOR W=1 TO 14›953 Y=INT(RND(0)*8)+2:X=INT(RND(0)*16)+2:LOCATE X,Y,Z:IF Z<>32 THEN 953›954 PLOT X,Y:NEXT W›959 RETURN ›960 POSITION 0,0:? #6;"}":POKE 712,4:POKE 710,0:POKE 708,10›961 W=8:COLOR 94:FOR Y=4 TO 10:FOR X=W TO 19:PLOT X,Y:NEXT X:W=W-1:NEXT Y:COLOR 219:FOR W=4 TO 16 STEP 4:FOR X=W TO W+2›962 PLOT X,9:PLOT X,10:NEXT X:NEXT W:PLOT 11,6:PLOT 15,6:COLOR 218:PLOT 19,3›969 RETURN ›990 COLOR 94:PLOT 0,0:DRAWTO 19,0:DRAWTO 19,11:DRAWTO 0,11:DRAWTO 0,0:RETURN ›999 RETURN ›1000 DATA 28,8,62,93,93,20,20,54,1,3,7,15,31,63,127,255,255,127,63,31,15,7,3,1›1005 DATA 0,8,120,8,28,62,8,24,126,126,126,126,94,126,126,126,170,255,170,170,170,170,255,170›1010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1050 DATA 253,253,253,0,223,223,223,0,0,0,0,0,0,0,0,0›1900 DATA 49,75,53,60,75,25,59,50,65,50,75,50,90,50,100,50,110,25,100,25,90,50,100,25,90,25,80,150›2000 A=INT(RND(0)*3)+1›2001 B=INT(RND(0)*3)+1:IF B=A THEN 2001›2002 C=INT(RND(0)*3)+1:IF C=A OR C=B THEN 2002›2010 A1=INT(RND(0)*3)+1›2011 B1=INT(RND(0)*3)+1:IF B1=A1 THEN 2011›2012 C1=INT(RND(0)*3)+1:IF C1=A1 OR C1=B1 THEN 2012›2020 A2=INT(RND(0)*3)+1›2021 B2=INT(RND(0)*3)+1:IF B2=A2 THEN 2021›2022 C2=INT(RND(0)*3)+1:IF C2=A2 OR C2=B2 THEN 2022›2030 A3=INT(RND(0)*3)+1›2031 B3=INT(RND(0)*3)+1:IF B3=A3 THEN 2031›2032 C3=INT(RND(0)*3)+1:IF C3=A3 OR C3=B3 THEN 2032›2040 AS=INT(RND(0)*3)+1›2041 BS=INT(RND(0)*3)+1:IF BS=AS THEN 2041›2042 CS=INT(RND(0)*3)+1:IF CS=AS OR CS=BS THEN 2042›2050 Q=INT(RND(0)*3)+1›2099 RETURN ›