! ********* 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::