C64S tape image fileMAZE MANIA 'SNAKES*DRAGON MAZE 'STORY PROB -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ ! ********* SNAKES ********A PUBLIC DOMAIN EDUCATIONAL\ PROGRAM FOR THEu COMMODORE-16 AND COMMODORE PLUS/4 AUTHOR: P. ROWE940(8)(142)""800:904:4001000:25#UR$:K91(US$):UR$(US$,K9,1)37$K9:35'%UR$:-':6950H""(12814)|UT$" SNAKES":UH1:UP0:UG$"INSTRUCTIONS":850" DO YOU WANT INSTRUCTIONS ? ";:US$"YN":UL1:35UR$"N"850"IN THIS GAME THERE ARE THREE OPTIONS: "("1. PLAYER 1 AGAINST PLAYER 2"L"2. PLAYER AGAINST COMPUTER""3. COMPUTER AGAINST COMPUTER":835:UH1:850"IN THE PLAYER AGAINST COMPUTER VERSION""THE PLAYER'S CONTROLS ARE:"" Y U I"" "2" H- -K"P" "m" N M ,"835:UH1:850"IN PLAYER 1 AGAINST PLAYER 2 VERSION""PLAYER 1'S CONTROLS ARE:"" QWE" " "+" A- -D"H" "e" Z X C""PLAYER 2'S CONTROLS ARE:"" Y U I"" "" H- -K"" "-" N M , ":835:UH1:850U"THE OBJECT OF THIS GAME IS TO""GUIDE YOUR SNAKE AROUND THE GAME ""BOARD AND NOT HIT EITHER THE WALLS OR""THE OTHER SNAKE. IN THE PLAYER 1 VS. "PLAYER 2 VERSION THE PLAYERS MAY ALSO";"USE A BLASTER TO SHOOT AT EACH OTHER."k"FOR PLAYER 1 THE BLASTER IS CONTROLLED""WITH THE 'S' KEY; FOR PLAYER 2 IT IS""CONTROLLED WITH THE 'J' KEY.835:UH1:850"WHEN ASKED FOR NO. OF PLAYERS-"+"0 MEANS THE COMPUTER WILL PLAY ITSELF.Y"IT MIGHT BE A GOOD IDEA TO WATCH THE""COMPUTER PLAY ONCE IF THIS IS YOUR ""FIRST TIME.":835:UH1:850"NOTE: PLAYER 1 HAS THE ֒ SNAKE,""PLAYER 2 HAS THE ے SNAKE."."THIS IS ALSO THE SNAKE THE PLAYER HAS"Z"WHEN PLAYING AGAINST THE COMPUTER."" IF YOU WANT TO QUIT OR RESTART"" THE GAME, PRESS THE RUN/STOP KEY."835: 0,2:4,15,1:""(142);%" &"  8'" ߚ C O M M O D O R EK(" k*"SOFTWARE4"":R9$"5R9$"**********6R9$"* SNAKES *7R9$"**********9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:RC(UD$,24);"PRESS SPACE BAR TO CONTINUE"fHUI$:UI$" "oM840RUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":8UC$(154):US12256UD$"":UP$" "I07:FK(I)(1375I):1375I,0:: DISABLE FUNCTION KEYS H$(15),L(102),D(102) 9501(142)"DO YOU WISH TO RESTART THE GAME (Y/N)?";KUI$:UI$"Y"980:zUI$"N"980:2025,0:"N":"BYE!"(9):952:I07:1375I,FK(I)::: RESTORE FUNCTION KEYS"";:8UT$" ":"":(14);VUG$"NTRODUCTION":UP0:850D"OW MANY PLAYERS? (0,1 OR 2) ? ";dUL1:US$"012":35:N(UR$)N(N1)(N2)01490B$"N":T$"Y"N2 2470"ANDOM TARTING OCATIONS (Y OR N) ? ";R1:UL1:US$"YN":35:UR$"Y"R0S(0)0:S(1)0:S0$"PLAYER"+S1$"COMPUTER"EN0S0$"COMPUTER 2"]N2S0$"PLAYER 2"u"N2S1$"PLAYER 1"{,1I07: H$(I),H$(I8),H(I)::6 M,X,40,H,A,-1,K,D,1,U,W,-40,N,Z,39,",",C,41,Y,Q,-41,I,E,-39A"";0CUT$" SNAKES":UH1:(12814);:UPS(1)S(2):UG$"GAME":FF1:855ADN2T$"Y"YJIUS40US960920sTJII39:J,170:J,I^IUS40US92040hI,170:I39,170:IrL(0)US337:L(1)US528:Q30:QD.3|D(0)40:D(1)40:R11690 I01:D(I)139(2(1))2 L(I)40(17(1)4)(32(1))US3:B TTI:QQQDf 6:1,20012(50(0)),1:I01 F1: A$:A$""1790 B$"Y"1750 A$"J"U1: 2260 A$"S"U0: 2260 J015:A$H$(J)1770 : 1790!N0J8D(1)H(J):1710$!N2J7D(0)H(J8):17102!N21811U!IN0(L(I)2D(I))321830[!y!F2:(L(I)D(I))321930!IN12040!&A41(D(I)):JA20AA!0K11 2!:(L(I)KJ)321870!D::K1!NK11910"X(L(I)J)321920"b JA F1811,2040+"l(1).519204"vAA?"D(I)A|"T$"N"L(I)L(I)D(I):L(I),2145I:L(I)D(I),32:2010" L(I),2145I:L(I)L(I)D(I)"(D(I))1 L(I),61D(I)"(D(I))40 L(I),1(D(I)1026)"D(I)39 L(I),109#D(I)41 L(I),125,#D(I)39 L(I),110E#D(I)41 L(I),112M# I^#TITQ2020i# 1690#S(I)S(I)1:QDQD.1:N22060#I0 N1QD.3# QQQD: L(I)D(I),42#F60:# F112F:25000:TTI#*TIT102090$=UH1:UP0:UG$"RESULTS":850$fTTIJ$pS(1)"";S1$;" WON"{$zS(0)"";S0$;" WON"$835$$$$" ";:T1217:T$" ";:T1217:T$ A$:A$""2220$$ *** BLASTERS *** %6:3,700,20 %BLL(U)D(U): B675%(D(U))40B93J%(D(U))39B78_%(D(U))41B77t% (BL) 322350% BL,B% TT1 2:%$ BL,32: BLBLD(U): 2310%. (BL)170TTI:1810%8 T$"N"2380%B (BL)214 (BL)2192430&L QQ(QD.1)&V I1:UI0'&` S(I)S(I)1J&j BL,42 : 25000:S(1)1: 2109]&~ BL,42:25000:i& BL,32{& S(0)1: 2109& *** TAILS OR BLASTERS ***& "AILS (Y OR N) ? ";& UL1:US$"YN":35:A$UR$& A$"N"T$"N":B$"Y":' "LASTERS (Y OR N) ? ";.' UL1:US$"YN":35:A$UR$A' A$"Y"B$"Y"T' A$"N"B$"N"Z' y'a5:I1002 6:2,6I,3:'a(7):TT11000:: *** DRAGON MAZE ***C TO THE BEST OF OUR KNOWLEDGEd THIS PROGRAM IS IN THE PUBLIC DOMAIN AUTHOR: UNKNOWN PLUS/4 C16 VERSION 2025,64: NO EOL INSERT 231000:A""(142)"DO YOU WANT TO RESTART THE GAME ?":KB,0[UI$:UI$"Y"150:mUI$"N"146150:2025,0:""(9)::I07:1375I,FK(I)::: RESTORE FUNCTION KEYS""UT$" RAGON AZE":UH1:UP0:UG$"NSTRUCTIONS":8506" ISAGAMETHAT WILL TEST"a" YOUR SKILL ANDMEMORY. MAZE IS"" BUILT ONTHE VIDEOSCREEN. ATCH"" CAREFULLYASITISCOMPLETED. FTER"" IT IS FINISHED THE MAZEISHIDDENAS"" IF THELIGHTSWERETURNEDOUT. HE"?" OBJECT IS TO GETOUT OFTHEMAZE"" BEFORE EATS YOU.":835:850:" OUR CIRCLES INDICATES"" YOURPOSITION AND FOUR SQUARES"" GIVES THEDRAGON'S. OUMOVE BY"" KEYBOARD KEYS AS SHOWN IN A FOLLOW-"T" ING DIAGRAM. SE THE KEYS FOR THE":" THE DESIRED DIRECTION. S YOU"" ADVANCESODOES THEDRAGON. INCE THE"" SCENT OFHUMANSDRIVESTHE"" INTO ARAGE, HE'LL BREAKTHRUWALLS"" TO GET ATYOU."835:850:" IRECTION KEYS"+" "@" ^"U" "j" "" <----- ------> "" "" "" V"" " " O GET OUT OF THE MAZE PRESS ''"835:> 0,2:4,15,1:""(142);V%" m&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"***************%6R9$"* DRAGON MAZE *B7R9$"***************K9UI0r:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)DW" --------------------------------------"J\[aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... "::UX$"Q":UC$(154):US12256:U3202:U4205:KB239:UNKBI07:FK(I)(1375I):1375I,0:: DISABLE FUNCTION KEYSfUD$"":UP$" "{M(14,9),T(14,9):(8):800:900:400""UC$;(142);:" DRAGON MAZE"V$"":I023:V$V$"":IH$"":I038:H$H$"":I<$C$"":I023:C$C$"":IZn"": * BUILD THE MAZE *ys 2025,64: NO EOL INSERTxX0393:""X);V$"":XX1253:(C$,X);H$"":X:US999,102S1000I014J09T(I,J)0:M(I,J)11J,IX((1)131)+Y((1)81)5C104F C1 1990ZR0:D0:L0:U0pM(X,Y)(M(X,Y))zCC1 X13 1560 M(X1,Y) 0 R1 Y8 1580" M(X,Y1) 0 D1, X1 16006 M(X1,Y) 0 L1@ Y1 1620(J M(X,Y1) 0 U16TQRDLU^^ (Q3 ((1)10)2) Q0 1940qhDR((1)41)r DR 1660,1730,1800,1870| R0 1640M(X,Y)M(X,Y)1: XX1I3(X1) J3Y2 3Y1 US40JI,32:3320  1500 D0 16406M(X,Y)M(X,Y)10:YY1DJ3(Y1)\ I(3X2) 3X1o US40JI,32{:3320 1500 L0 1640M(X1,Y)M(X1,Y)1:XX1I3X& J3Y2 3Y10 US40JI,32::3320D 1500N U0 1640/XM(X,Y1)M(X,Y1)10:YY19bJ3YOl I3X2 3X1bv US40JI,32n:3320y 1500X((1)131)Y((1)81) M(X,Y) 0 1940CC1 1500 27);"THE MAZE"I1999:""H$""V$""2""39);V$""(C$,25);H$"":US999,102L2025,0: NORMAL EOLj * STARTING POS OF YOU *X1:Y((1)81) K1 2: L0 1  US40(3Y2L)K,81 L: K  * EXPAND YOU TO BOARD POS **HX3X2:HY3Y2 4WY((1)81) > * EXIT *4 H US40(3WY2)39,32R R * STARTING POS DRAGON *b \SX13:SYWYz fQX3SX2:QY3SY2 pRD1 y: z * SENSE KEYBOARD * { SXX SYY 3280 |QQK:2770:KQQ  SXX SYY 3280 K$"Q"145!K$!KK(K$)#!KK76K6:22708!KK74K4:2460M!KK73K8:2490b!KK75K2:2540l!2180r!:! * YOU MOVE RIGHT *!DX1:DY0! M(X,Y)10(M(X,Y)10) 2580!FX3X2:FY3Y2! I1 3! FXFXDX:FYFYDY" K0 1" L0 10"$ US40(HYL)(HXK),32<". L: KJ"8 K0 1X"B L0 1u"L US40(FYL)(FXK),81"V L: K"` HXFX:HYFY"j I"t XXDX:YYDY"~ X13 YWY 2710" 2170" * YOU MOVE LEFT *" DX1:DY0"# M(X1,Y)10(M(X1,Y)10) 0 2580-# 2290:# * UP *K# Y1 2580g# M(X,Y1) 9 2580v# DX0:DY1# 2290# * DOWN *# DX0:DY1# M(X,Y) 9 2580# 2290# * BLOCKAGE! *# OGUS1233X120Y:32645$( K2 2670,2660,2630,2690$$2 I0 3F$< OGIDEL,102:I:3320:2170O$F RT[$P OGOG3d$Z LTq$d DEL40:{$n DWN$x OGOG120$ UP$ DEL1:$ * YOU WIN *$ "YOU WIN!"$ "SCORE=";S8$ II1999:$ 3291% *DRAGON MVS!% XSX 28203% YSY 3110E% XSX 3170W% YSY 3230j% SX13 3110% T(SX,SY)9 2860% * DRAGON MOVES RIGHT *%" M(SX,SY)10(M(SX,SY)10) 3110%, DX1:DY0%6 * PRINT DRAGON *%@ RX3SX2&J RY3SY2&T I1 3#&^ RXRXDX0&h RYRYDYA&r * GOTO 7160O&| K0 1]& L0 1z& US40(QYL)(QXK),32& L& K& K0 1& L0 1& US40(RYL)(RXK),90& L,K& QXRX& QYRY& I& SXSXDX' SYSYDY' T(SX,SY)T(SX,SY)1!' 7' * DRAGON DOWN *I'& SY8 3170c'0 T(SX,SY) 9 3140}': M(SX,SY) 9 3170'D DX0:DY1'N 2880'X * DRAGON LEFT *'b SX1 3230'l T(SX,SY) 9 3200(v M(SX1,SY)10(M(SX1,SY)10) 3230( DX1:DY0( 28803( * DRAGON UP *E( SY1 2820_( T(SX,SY) 9 3260{( M(SX,SY1) 9 2820( DX0:DY1( 2880( II110( "";5)"THE DRAGON GOT YOU !":3340:( UT$" DRAGON MAZE"!) UG$"END GAME":UH1:850:" ANOTHER GAME (Y OR N) ? ";+) UR$<) UR$"N"145N) UR$"Y"1390Y) 3293_) :) 7:1,(20012((1)40)),3:) 7:3,500,4:) I19:I:"";5)"THE DRAGON GOT YOU !") 7:I13:3,600,5:I:* 6:3,(20012((1)40)),6: