Atari 8-bit Source code

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	

• Download link 1

• Download link 1
• Download link 2
• Download link 3