demon &&L(jdemon-driver v1.0 fuer spectrum 48k 1983 by w.schneider cpu 1/84 %"demon1"40000@:"demon2""a" A0:0:7::a()=23677}\:b()=23678~\ [p$(x,y)=18+y+("0"x<1000)+("0"x<100d)+("0"x<10 )+x Gc$(6):n$(6,20):p(6):q=1:hsc=0 #100d:9000(#:2000 spielfeld zeichnen  =a=171120x-16:x=4+171-a:y=a I1;x,y:1;111o-x,0:1;6;a(),b() _1;255-x,y:1;144-(255-x),0:1;6;a(),b() I1;x,y:1;0,104h-y:1;6;a(),b() S1;255-x,y:1;0,104h-y:1;6;a(),b() S1;x,175-y:1;111o-x,0:1;6;a(),b() i1;255-x,175-y:1;144-(255-x),0:1;6;a(),b() ^1;x,175-y:1;0,71G-(175-y):1;6;a(),b() h1;255-x,175-y:1;0,71G-(175-y):1;6;a(),b() !a $1;4,4:1;247,0:1;0,167:1;-247,0:1;0,-167 (1;70F,70F:1;114r,0:1;0,36$:1;-114r,0:1;0,-36$ 2J10 ,13 ;"DEMON-";11 ,13 ;"DRIVER":0 7 dma=010 :128,64@:a-128,-64@:128,64@:127-a,-64@:a n8sl=4:sb=2:sp=64@:a=15 xRb=spsp-sl-1:(128-(sb/2)),b:sb,0:sb=sb+.25~:b &sl=sl+1.5@:sp=sp-1.75`*sl a =1;5,10 ;6;2;"DEMON-DRIVER" (x=07:a,b:a/2,b:x .5,0,.25~,2,.25~,4,.25~,5,.25~,7,.25~,9 ,.25~,11 ,.25~,12 9#0;1;"Druecken Sie eine Taste !!":0  beginn des spiels Lsc=0:bon=1:d$=" ":2:1:1:9 : #10 ;1;"DEMON-DRIVER" s'"Ihre Aufgabe :"''"Sammeln Sie moeglichst viele Punkte (.), die das gegnerische Auto als Spur hinterlaesst. " "Jeder gesammelte . bringt 10 Punkte, jede gefahrene Runde erhoeht die Geschwindigkeit. Doch VORSICHT ! Weichen Sie dem gegnerischen Auto aus,denn es versucht staendig,Sie zu rammen!!" S'"""1"" = links"'"""2"" = unten"'"""3"" = oben"'"""4"" = rechts"'"""5"" = fahren" 4"":#0;1;"Druecken Sie eine Taste !!"  =""2060  J"":0:0:1::20:#0;6;d$;1  &40035c,75K:x=40000@ *@x=3276650001Q,6:x=50000P:2000 4%50001Q,5:x=50000P >a=-2020 H2v=(*8)*8:v=v+7*(v24) M;.008zn,a:.006yD,a:50107,v:x=50100 Ra \e50107,((*4)*8)+7:x=50100:9 :(50107-7)/8 f6sc=sc+10 *(64007+256*64008) khscp(6)q=6:3045 3090 +c$(q)="":n$(q)=m$:p(q)=sc:q=q+1 ?cnt=0:a=15:p(a)p(a+1)3080 >cnt=1:q$=n$(a):n$(a)=n$(a+1):n$(a+1)=q$ -qd=p(a):p(a)=p(a+1):p(a+1)=qd 1q$=c$(a):c$(a)=c$(a+1):c$(a+1)=q$ a:cnt=13050 a=16:(c$(a)="");a*2+4,0;a;".";0;" ";5;p$(p(a),(c$(a)=""));0;" ";6;n$(a):a )a=16:c$(a)=""c$(a)=" " a  #(initialisierung #-29000(#:a=50000P50025i:x:a,x:a #26,6,197,33!,0,3,17,1,0,229,205,181,3,225,17,12 ,0,167,237,82R,32 ,240,193,16,233,201 #<&a=5010050115:x:a,x:a #F33!,0,88X,1,192,2,62>,4,119w,35#,11 ,120x,177,32 ,247,201 #P & ende &0::20:"":#0;6;6;" ":6:6:a=088X &j0,a:0;0;255,0:0,175-a:0;0;255,0 &a &&3:1:0:0: &1,-30 &wg$=" " &Wo$=" " &@a=615:a,7;1;" ":a &<3;8;7,6;g$;12 ,8;o$ ' 9990' 'Q"demon"1:"demon1"40000@,1990:"demon2"55981,491 demon1 @&!6#6#6#6#6#6#6#6#6!<\6K*x_ $xW -xO ,xG %(̀*EL̀ø:(<<(( Hw "*:WHw()HN :< >W" :< >2" W:(<<((*Hw "*:WHw()HN :< >W" := >2"*DM̓%͙y *#"*EL:_̀*EL:_̀xG O*KB| : : !4:c 2cb>*LE *[R| >>|(@(?(>(=(0(/(.(-}((((((( ( .....xg÷z $ - % ,>z>xy{*TM*PTy x[v\c.zRR_PR0#"v\˼DM}<DM̓%͙y>> &͵fdemon2 1&3bbZ~ZFFZ~Z