1f!Ge++snakey BASBN+ K,0` !!!` :BP' S â ÆÚX)V{$Û  Qe 1000^eA:1010led(12);:en(4)(VE(VE0VE24)23(VE23)1)(HO(HO0HO40)39(HO39)1);:exHO(24755):VE((24753)256(24754)20480)80:>fIN$"":(24588)0:OI(6164(24576)):OI13724758,((24758)1):203ff(24758)20OI96OI123OIOI32tfIN$(OI)f24588,0:f200:IN$""210:f(7);:fRV(1):fFR(0):f,SR$((SR),2(SR0)):g6CT0SR$ʸ(CT,42):SR$"":g7CN0CNCT:OGSR(2(SR0)1)510(CN1):OE(((OG))(10)):OM(OG10OE):OWCTCN(CN0)2:OVOW(OGɾ10CN):OV0g8OVOE:OE0314:OVOE1(SR$,1)(OWOE)g9OI1OE1:(SR$,OWOEOI)((OM)48):OM(OM(OM))10::316h:OV1(SR$,1)(OW)1h;OV0(SR$,OW1)"0"Oh<OGʾ10CN(SR$,1)"-"[h=CN0h>(SR$,CTCN)".":OICTCN1CT:OE˾1(SR$,OI)"0":OEOE1:::(SR$,OI)((OM)48):OM(OM(OM))10::h^SR$;:hh:hA5000:20:SNAKEYGAMEiPU(10)i1000i"how many lines on screen"8iAV\i"how many 1"Ge++snakey BASBN+ K,0` !!!` :BP' S â ÆÚX)V{$Û  characters per line"di$AHxi.AVAV2:AHAH2i8AV1 AH1 1020iBZ$"":IN$"":LX0:LY0iLAGAHAV20iVSC$(39,24),TX(255),TY(255)i`CS(255),AX(10),AY(10),NA$(10)jjI1 3:A$:CS((A$))6I!jtI?j~I1 3:A$:CS((A$))3IFjIbjI1 3:A$:CS((A$))IijIjI1 9:AX(I):AY(I):Ij100:2050jLX0:LY0j100j"please wait a moment"j"..."jI0 39:L0 24:SC$(I,L)""jL:IkTX0:TY0:100:HO0 AH3:k"-";:SC$(HO,0)"-":HOYk HO0:VE1:110:VE0 AV4wk"i":SC$(HO,VE1)"i":VEkHOAH3:VE1 AV3:110:"i";k2SC$(AH3,VE)"i":VEk<HO0:VEAV3:110kFHO0 AH3kP"-";:SC$(HO,VE)"-":HOlZI1 AGld260:FXRV(AH4)13ln260:FYRV(AV4)1MlxSC$(FX,FY)"" 1380llSC$(FX,FY)"m":HOFX:VEFY~l110:"m";:IlI1 AGl260:FXRV(AH4)1l260:FYRV(AV4)1lSC$(FX,FY)"" 1440lSC$(FX,FY)"^":HOFX:VEFYm110:"^";:ImLA1:PXAH2:PYAV2$Ge++snakey BASBN+ K+0` !!!` :BP' S â ÆÚX)V{$Û  PY)"@":HOPX:VEPYvm110:"@";:I1 SC:Im200:IN$"" 1570mAF(IN$):AFCS(AF)mTXAX(AF)mTYAY(AF)m"TX0 1610m,TY0 1610m6(LY0) (LX0) 1530 n@TXLX:TYLYnJLXTX:LYTY3nTPXPXTX:PYPYTYEn^Z$SC$(PX,PY)WnhZ$"^" 1760unr(Z$"-") (Z$"i") 1850n|Z$"@" 1910nZ9Z91:Z960 Z91nTX(Z9)PX:TY(Z9)PYnL9Z9LA:L90 L9L959nnSC$(PX,PY)"m" 1820oSC$(TX(L9),TY(L9))"":HOTX(L9)-oVETY(L9):1107o" ";Ao1510MoPOISONmoHOPX:VEPY:110:"toink!";oI1 1000:Io100o"snakey ate poision!!"o1960oSNAKEY BECOMES LONGERo&LALA1o01510o:WALLpDHOPX:VEPY:110:"toink";pNI1 1000:I-pX100:"snakey"Dpb"hit his head at"\pl"the wall !":1960mpvBIT HIMSELFpHOPX:VEPY:110:"x";pI1 1000:I:100p"snakey bit himself !"p1960pPU(QW)PU(QW)LA::p"he died with"q"the length of ";LA;" cm"q:/q:::"results:"Fq"==========="::e1%Ge++snakey BASBN+ K!,0` !!!` :BP' S â ÆÚX)V{$Û  qI1 A4:NA$(I);15);":";xq25);PU(I):Iq2550q"the snakeygame"q "=============="::q"programmed by thomas";q :"hofmeister"q*r4"do you want the instructions? (y/n)"1r>200:A$IN$:A$"" 2110RrHA$"y" A$"Y" 2150:2390lrRA$"n" A$"N" 2390vr\2110rf100rprzA$rA$"instructions:" 2170rCX0:CY0rA$rA$"***" 2640r(A$)0 2270 s"stop of instr. because there"+s"is a read error in the"9s"datas."Cs2640SsI1 (A$)dsB$(A$,I,1)qsC$C$B$sB$" " I:2200s C1CX(C$)s C1AH2 CXC1:2380s C$"home " C$"":2350s$ CYAV6 2370s. 2600:100:CX(C$):CY0 t8 2380"tB ::CYCY2:CX(C$):tL C$;:C$"":I:2200WtV 100:"how many players"tt` :"participate? (1..5)"|tj A4tt A4(A4)t~ (A41) (A45) 2460t "wrong entry!!"t I1 1000:I:2390t t :t "please enter the"u :"names of the" u :"players:"Iu I1 A4:"player";I;":";:NA$(I):1'Ge++snakey BASBN+ K+0` !!!` :BP' S â ÆÚX)V{$Û  Iuu "level of difficulty (1=high,100=low)"}u SCu (SC1) (SC100) 2520u QWQW1:QWA4 QW1u :NA$(QW);" is up to play!"u "press '!' to start"v 200:IN$"!" 2580v 1210&v( HO0:VEAV2:110Iv2 "press a key":"to continue";Rv< 210XvF bvP 2600kvZ 100qvd vn I1 3:vx L1 3v A$:A$;" ";v L:I:2600v va" ","z"," "va"<"," ","/"va" ","."," "wa-1,1,0,1,1,1,-1,0,0,0,1,0,-1wa-1,0,-1,1,-1/wa"instructions:"Xwa"you can move snakey (o) by those "wa"letters which i will show you in a moment. "wa"the letter in the middle "wb"stands for the momentary "w b"position of snakey. " xb"pressing one of the other "#x b"shown keys will "@x*b"make him wander into "Xx4b"that direction. "ux>b"if snakey happens to "xHb"walk upon a '%', he "xRb"eats it and dies "x\b"because it is poison. "xfb"and when he walks upon "ypb"a '$' he will become "yzb"1 cm longer. "9yb"but do also be cautious "Xyb"not to r1(Ge++snakey BASBN+ K,0` !!!` :BP' S â ÆÚX)V{$Û  un against the "hyb"walls!! "yb"thus, your task is to breed "yb"up snakey and to make him "yb"as long as possible. "yb"each cm will be counted "zb"as a point for you. " zb7zb"the keys you need are as follows: "azb"(if you want to use other letters "zzb"then you have to "zb"change the datas in lines 25000-25020 !!) "zc"***"z0uPROGRAM WRITTEN ON AzuCOMMODORE 64zuz\vBY{v*************************/{$w* *N{w* THOMAS HOFMEISTER *m{w* *{Px* WITTENBERGSTR. 25 *{x* *{y* 4630 BOCHUM 7 *{|y* *|y* WEST - GERMANY *'|Dz* *F|z*************************L| {R|p{p|{COPYRIGHT NOS HILVERSUM