QuBERT =X=X$?X _>>7\00 ACHTUNG! Die erste QuBERT Zeile muss unbedingt vorhanden sein, weil in dieser Zeile ein kurzer Maschinencode abgelegt wird! Siehe auch Zeile 600! ********************* *Michael Rosenbohm * * Kiebitzring 8 * * 2880 Brake * ********************* *49899:0:0:7: w$="QuBERT" *17:q="a""a"+7:a:q,a:q F36$,0,568,4,60<,68D,60<,0 2,7;1;1;ڥ*3;٥*4+4;"M.R. - SOFTWARE";5,9 ;ڥ*3;٥*4+4;"praesentiert" Xq=16:8+q,11 +q;1;1;٥*6+2;w$(q):q {#0;0,4;"neuer Zeichensatz fuer";1,6;"das Spiel ? (J/N)":a$=:a$="j"a$="J"6000p 'a$"j"a$"J"a$"n"a$"N"20 - DATA'S FUER FIGUREN - ,:40(:c=0:q="a""q"+7 #a:q,a:c=c+a:q (A7,15,27,17,491,a,59;,62> -@192,224,176,24,a,a,184,248 2@60<,24,25,15,7,4,a,29 <@112p,240,224,192,a,64@,a,192 FB0,0,0,8,12 ,8,0,1 PG0,0,0,128,192,128,0,0 ZA3,7,6,0,0,0,0,0 dC128,0,0,0,0,0,0,0 nO18,502,127,255,193,221,193,255 xO72H,76L,254,255,131,187,131,255 M254,231,112p,62>,31,14,28,124| N127,231,14,124|,248,112p,568,62> 60,0,0,0,62>,a,a,0 B0,3,5,15,7,0,0,0 M0,128,192,224,176,480,96`,192 <1,3,6,12 ,a,6,3,1 K152,36$,34",6,12 ,24,176,224 4c9933&"ERROR IN DATA":1,-25: $a$="":b$="":c$="":d$="" e$="":f$="":g$="" h$="":i$="" 3w$(12 ,24):g=112 3 "w$(g)="000000 QuBERT___________" *w$(g+1)="000000 SAMMY____________" *w$(g+2)="000000 DIE SCHLANGE_____" g - AUFBAU DER KULISSE - $bo=0:a=20:b=19 5f=36$13216:g=17-bo Z0;a,b:16,7:16,-7:-16,-7:-16,7 6a=a+32 :g:bo=bo+1:a=f:b=b+24:f /bo=0:c=1:a=20:b=19 "Of=71-1:g=f+c255-f-c255/7-f/2-c ,:a,b:0,(-17f7)+(-13 f=7) 66a=a+32 :bo=bo+1:bof+1340T @a255340T Jg T>bo=0:c=c+1:b=b+24:a=c*18-c-c/f:f ^/bo=1:c=0:a=36$:b=13 hOf=71-1:g=f+c255-f-c255/7-f/2-c rTa,b:0,(-13 -cf=7)+(-18f=6)+(-14-cf<6) |&a=a+32 :a>255400  bo=bo+1:bof410 g Gbo=0:c=c+1:b=b+24:a=c*18-c-c/f+34":f '228,13 :0,-13 :c1=0:bo=1:c=0:a=20:b=7 +f=17:f=2b=b-1 g=113 +c1 aa,b:i=17-c:1:16,-7:16,7:0:i:b=b+1 g 7b=b+9 :a=a+16:c=c+1:c1=c1+1 $c=4b=100d:c1=1 f=2b=b+1 f Hc=0:f=193-3:g=4+c31-c4  f,g;"o" g:c=c+2:f -GERAEUSCH FUER QuBERT- Cc=0:540:g=60000`60024x:a:c=c+a:g,a:g 1,5,10 ,33!,255,0,17,10 ,0,229,213,197,205,181,3,193,209,225,125},145,111o,16,242,251,201 &4c3077 "ERROR IN DATA":1,-30: 01;6;0,0;"PUNKTE:";1,0;" ";0,26;"LEBEN:";1,26;" ";2,26;" ";3,26;"RUNDE:";4,26;" " 9BILDSCHIRM INVERTIERER :C580D:c=0:g=62000062018B:a:c=c+a:g,a:g D33!,0,64@,6,24,197,6,0,126~,238,255,119w,35#,16,249,193,16,243,201 N4c2021"ERROR IN DATA":1,-35#: W- WHITE NOISE - XQ620l: M-Code einlesen und in die ersteZeile des Programms poken. b8c=0:g=23760\23777\:a:c=c+a:g,a:g l1,0,0,10 ,95_,62>,7,179,211,254,62>,557,184,200,3,195,211,92\ v4c1821"ERROR IN DATA":1,-37%: - GROSSE SCHRIFT - Ue=0:r=22:t=1:u=.5:r$="*QuBERT*  By Michael Rosenbohm" 4x=e+16383?+32 *(r+568*(r/8)) Cchr=236066\+256*236077\:f=(r=7r=15)  i=ṯr$ a=chr+8*r$(i) x=x+t j=013 >x+256*j-(2016-1792*f)*(j>7),(a+j*u) j:i ABSTURZ & ZUSAMMENSTOSS C740:c=0:g=6300063049I:a:c=c+a:g,a:g 6,192,17,0,64@,213,225,35#,197,1,31,0,26,237,176,43+,119w,0,35#,35#,19,193,16,240,201 6,192,17,255,87W,213,225,43+,197,1,31,0,26,237,184,35#,119w,0,43+,43+,27,193,16,240,201 5c4952X"ERROR IN DATA":.1}L,-39':  920 8c=0:g=4990049923:a:c=c+a:g,a:g 33!,0,64@,17,80P,195,1,192,26,237,176,201,33!,80P,195,17,0,64@,1,192,26,237,176,201 5c2444 "ERROR IN DATA":.1}L,-40(: BILDSCHIRM ABSPEICHERN l=49900  - MELODIE - :0,6,9 ,15,9 ,6,0 i=40(-20-3:950:g=14:a:.04|# =,a+i:g:i:1,i+1:1,i:2,i+5 :5500| - SPIELBEGINN - F23658j\,0:ro=1:bon=0:sc=0:li=3 :l=49912:fi=0:qx=16:qy=1:bx=4:by=19:sx=28:sy=19:qx1=qx:qy1=qy:bx1=bx:by1=by:sx1=sx:sy1=sy 23560\,0:1:1,7-sc;6;sc;4,30-ro;6;ro;1,32 -li*2;6;""(li*2);2,32 -li*2;6;""(li*2):0:bon1035  N1030:g=116:a:.095}B\)+li/100d,a:g:bon=0 20,16,12 ,10 ,20,16,12 ,10 ,20,16,19,23,19,16,12 ,10  t:1;5;18,4;e$;19,4;f$;6;18,28;h$;19,28;i$  "" p1;qy-1,qx;a$;qy,qx;b$;5;by-1,bx;e$;by,bx;f$;6;sy-1,sx;h$;sy,sx;i$ 623560\*5+1500:23560\,0 $&1;qy-1,qx;c$;qy,qx;d$ .p1;qy-1,qx;a$;qy,qx;b$;5;by-1,bx;e$;by,bx;f$;6;sy-1,sx;h$;sy,sx;i$ 8 2800 B&1;qy-1,qx;c$;qy,qx;d$ L 1040 - BEWEGUNG QuBERT -   1;qy-1,qx;a$;qy,qx;b$:qx=qx-2:qy=qy+3:l=60000`:(qy+1,qx)=" "qy213000 g(qy-3,qx+2)=""1;qy-4,qx+2;a$;qy-3,qx+2;b$:1986 Sqy=byqx=bxqy=syqx=sxqx1=qx:qy1=qy:qx=qx+2:qy=qy-3:4000 *qx1=qx:qy1=qy:(qy,qx)="o"3500   1;qy-1,qx;a$;qy,qx;b$:qx=qx-2:qy=qy-3:l=60000`:(qy+1,qx)=" "qy03000 g(qy+3,qx+2)=""1;qy+2,qx+2;a$;qy+3,qx+2;b$:2066 Sqy=byqx=bxqy=syqx=sxqx1=qx:qy1=qy:qx=qx+2:qy=qy+3:4000 *qx1=qx:qy1=qy:(qy,qx)="o"3500   1;qy-1,qx;a$;qy,qx;b$:qx=qx+2:qy=qy+3:l=60000`:(qy+1,qx)=" "qy213000 g(qy-3,qx-2)=""1;qy-4,qx-2;a$;qy-3,qx-2;b$:2076 Sqy=byqx=bxqy=syqx=sxqx1=qx:qy1=qy:qx=qx-2:qy=qy-3:4000 *qx1=qx:qy1=qy:(qy,qx)="o"3500  . /1;qy-1,qx;a$;qy,qx;b$:qx=qx+2:qy=qy-3:l=60000`:(qy+1,qx)=" "qy03000 0g(qy+3,qx-2)=""1;qy+2,qx-2;a$;qy+3,qx-2;b$:20960 1Sqy=byqx=bxqy=syqx=sxqx1=qx:qy1=qy:qx=qx-2:qy=qy+3:4000 2*qx1=qx:qy1=qy:(qy,qx)="o"3500 3  - BEWEGUNG SAMMY - &bx1=bx:by1=by:*4+2801 *by=by+3:bx=bx+2:2810 *by=by-3:bx=bx+2:2810 *by=by+3:bx=bx-2:2810 by=by-3:bx=bx-2 4by<0by>21by=by1:bx=bx1:2860, 2(by+1,bx)=" "bx=bx1:by=by1:2860, qbx=qxby=qy1;7;by1-1,bx1;e$;by1,bx1;f$;5;by-1,bx;e$;by,bx;f$:4000 31;7;by1-1,bx1;e$;by1,bx1;f$ "/1;5;by-1,bx;e$;by,bx;f$ ,.01z# =,-by:.01z# =,-bx S- BEWEGUNG SHLANGE - T&sx1=sx:sy1=sy:*4+2901U U*sy=sy+3:sx=sx-2:2910^ V*sy=sy-3:sx=sx+2:2910^ W*sy=sy+3:sx=sx+2:2910^ Xsy=sy-3:sx=sx-2 ^4sy<0sy>21sy=sy1:sx=sx1:2980 h2(sy+1,sx)=" "sx=sx1:sy=sy1:2980 rqsx=qxsy=qy1;7;sy1-1,sx1;h$;sy1,sx1;i$;6;sy-1,sx;h$;sy,sx;i$:4000 |31;7;sy1-1,sx1;h$;sy1,sx1;i$ /1;6;sy-1,sx;h$;sy,sx;i$ 9<.9ffff-ro/200.01z# =,-sy:.01z# =,-sx: q(sy1,sx1)"o"sx1sxsy1sysx1bxsy1bysy1,sx1;"o":.01z# =,0:.01z# =,10 :fi=fi-502 .01z# =,-sy:.01z# =,-sx: - ABSTURZ - l=23760\:.3,10 :.3,0:.3,-10 :q=18:l=620000:q:g=15:l=63000:l=630251:g 1;1;6;1,32 -li*2;""(li*2);2,32 -li*2;""(li*2) E1;qy1-1,qx1;a$;qy1,qx1;b$:(qy1,qx1)=""3010 ag=20-20-1:.02{# =,g:.01z# =,g:g:g=-200:.01z# =,g:g 'li=li-1:li05000 bon=0:1010 - PUNKTE - sc=sc+502:.01z# =,20:.01z# =,10 :qy,qx;" ":1,7-sc;1;6;sc:fi=fi+502:fi<1350F - BONUS - D1;qy1-1,qx1;a$;qy1,qx1;b$:(qy1,qx)=""3510 &1;qy-1,qx;a$;qy,qx;b$ pg=150010 :sc=sc+10 :.01z# =,0:1,7-sc;1;6;sc:g -g=-205025:.1}L,g:g 7bon=1:ro=ro+(1ro<120x):1010 -- ZUSAMMENSTOSS -- Il=23760\:.3,10 :.3,0:.3,-10 1;1;6;1,32 -li*2;""(li*2);2,32 -li*2;""(li*2) *1;qy1-1,qx1;a$;qy1,qx1;b$ lqx1<26qy1-1,qx1+2;1;1;ڥ*3;٥*4+4;"*%*''":4040 eqy1-1,qx1+2;1;1;ڥ*3;٥*4+4;"*%";qy1,qx1+2;"!'" \g=18:l=620000:g:g=15:l=63000:l=630251:g ag=20-20-1:.02{# =,g:.01z# =,g:g:g=-200:.01z# =,g:g 'li=li-1:li05000 bon=0:1010 - SPIELENDE - Hx$="":1,30;1;6;" ";2,30;" " a,0,a,2,a/2,3,a/2,2,a,0,a,0,a,2,a/2,3,a/2,2,a,0,a,3,a,5,a*2,7,a,3,a,5,a*2,7,.075},7,.025{L,8,a/2,7,a/2,5,a/2,3,a/2,2,a,0,.075},7,.025{L,8,a/2,7,a/2,5,a/2,3,a/2,2,a,0,a,0,a,-5,a*1.5@,0,a,0,a,-5,a*1.5@,0 #x$=x$+"000000"(6-sc)+sc  g=1 #g=11 sc=05240x ,x$12 w$(g,f-4)=" ":f=f-1:14,f;"_";:""5220d 2q$<" "q$>"z"5130  <14,f;q$ Fw$(g,f-3)=q$ P!.01z# =,20:f=f+1 Zf28f=11 d""5220d n 5130  xp:11 ,10 ;1;ڥ*3;٥*4+4;"GAME OVER":1,-25:1,-30 {- INFORMATIONEN - |r::0,11 ;1;٥*4+4;ڥ*3;"QuBERT":6,8;1;"DIE PERSONEN:" ;9 ,6;a$;10 ,6;b$;"......DER HELD" N5;12 ,6;e$;13 ,6;f$;7;".........SAMMY" N6;15,6;h$;16,6;i$;7;"..DIE SCHLANGE" i150:1;9 ,6;c$;10 ,6;d$;12 ,6;5;g$:150: o:0,12 ;1;٥*4+4;ڥ*3;"QuBERT":7,9 ;1;"DIE LENKUNG:" 10 ,12 ;"Q W" 11 ,13 ;"\ /" 12 ,14;"X" 13 ,13 ;"/ \" 14,12 ;"A S"  250: m:0,9 ;1;٥*4+4;ڥ*3;"QuBERT":5,7;1;"DIE PUNKTE:" "9 ,7;"o...50 PUNKTE" P12 ,7;"FUER JEDE NEUE RUNDE";14,7;"500 PUNKTE BONUS."  300,: B3;1;٥*4+4;ڥ*3;"DIE 10 BESTEN:" & 0g=110 :R'3;6-((g-1)/2);w$(g,6);5;w$(g,7) Dg N 200: W- TITEL NOCHEINMAL - X=""5500| b l""5740l v 1000 o- NEUER ZEICHENSATZ - pL:c=0:c1=0:8,9 ;1;1;"BITTE WARTEN" ux13 ,0;" Der neue Zeichensatz kann mit"''" POKE 23606,0 und POKE 23607,60"''" wieder ausgeschaltet werden." w^5,30:0,43+:245,0:0,-43+:-245,0 z@a=650720:q=16088>16131?:a,q:a=a+1:q @a=653280:q=16344?16383?:a,q:a=a+1:q 97000X:q=64600X65071/:a:q,a:c=c+a:q ;8000@:q=65120`65327/:a:q,a:c1=c1+a:q adr=64344X -236066\,88X:236077\,251 ?c25008a"ERROR IN LINE 7000-7750":1,-40(: @c112042 /"ERROR IN LINE 8000-8250":1,-30:  30 XA0,0,0,0,0,0,0,0 b10,24,a,a,a,0,24,0 l=0,100d,a,0,0,0,0,0 vB0,36$,126~,36$,a,126~,36$,0 K0,16,124|,80P,124|,20,124|,16 G0,98b,100d,8,16,38&,70F,0 B0,60<,32 ,126~,68D,a,124|,0 60,24,a,a,0,0,0,0 20,568,480,a,a,a,568,0 20,28,12 ,a,a,a,28,0 G0,0,84T,568,124|,568,84T,0 30,24,a,126~,a,24,a,0 =0,0,0,0,0,480,a,16 =0,0,0,126~,a,0,0,0 <0,0,0,0,0,480,a,0 E0,2,6,12 ,24,480,96`,0 E0,126~,102f,106j,a,114r,126~,0 $0,24,a,a,a,a,a,0  B0,124|,4,124|,96`,a,124|,0 B0,124|,12 ,60<,12 ,a,124|,0  :0,96`,a,a,104h,124|,8,0 *B0,124|,96`,124|,4,a,124|,0 4D0,124|,96`,124|,100d,a,124|,0 >,0,124|,12 ,a,a,a,a,0 HE0,124|,100d,124|,100d,a,124|,0 R;0,124|,100d,a,124|,4,a,0 \C0,0,24,0,0,24,0,0 f=0,0,24,0,0,24,8,a pF0,0,24,480,96`,480,24,0 zE0,0,0,126~,0,126~,0,0 E0,0,24,12 ,6,12 ,24,0 A124|,12 ,a,60<,32 ,0,32 ,0 I0,126~,74J,90Z,94^,64@,126~,0 L=0,124|,100d,a,124|,100d,a,0 VE0,120x,104h,124|,100d,a,124|,0 `D0,124|,100d,96`,a,100d,124|,0 j50,124|,100d,a,a,a,124|,0 tC0,124|,96`,120x,96`,a,124|,0 ~;0,124|,96`,120x,96`,a,a,0 L0,124|,100d,96`,108l,100d,124|,0 50,100d,a,124|,100d,a,a,0 20,60<,24,a,a,a,60<,0 30,24,a,a,a,88X,120x,0 <0,96`,104h,a,124|,100d,a,0 ,0,96`,a,a,a,a,124|,0 -0,126~,106j,a,a,a,a,0 -0,124|,100d,a,a,a,a,0 =0,124|,108l,a,100d,a,124|,0 <0,124|,100d,a,124|,96`,a,0 60,124|,100d,a,a,a,124|,24 E0,124|,100d,a,124|,120x,108l,0 C0,124|,96`,a,124|,12 ,124|,0  ,0,126~,24,a,a,a,a,0 -0,100d,a,a,a,a,124|,0 30,100d,a,a,a,36$,24,0 (-0,106j,a,a,a,a,126~,0 240,100d,a,568,100d,a,a,0 <30,98b,a,126~,24,a,a,0 FC0,124|,12 ,a,124|,96`,124|,0 @I0,0,124|,4,124|,100d,124|,0 J664@,a,124|,100d,a,a,124|,0 TJ0,0,124|,100d,96`,100d,124|,0 ^54,a,124|,100d,a,a,124|,0 hJ0,0,124|,100d,124|,64@,124|,0 r:0,28,16,568,16,24,a,a |C0,0,124|,100d,a,124|,4,124| .64@,a,124|,100d,a,a,a,0 216,0,16,480,a,a,a,0 14,0,4,12 ,a,a,a,60< 564@,a,72H,a,124|,100d,a,0 %32 ,a,480,a,a,a,a,0 30,0,126~,106j,a,a,a,0 30,0,124|,100d,a,a,a,0 ;0,0,124|,100d,a,a,124|,0 <0,0,124|,100d,a,124|,64@,a ;0,0,124|,100d,a,124|,4,a 20,0,124|,96`,a,a,a,0 H0,0,124|,96`,124|,4,124|,0 316,a,568,16,24,a,a,0 30,0,100d,a,a,a,124|,0 ?0,0,502,a,546,524,28,0 30,0,106j,a,a,a,126~,0 &:0,0,100d,a,568,100d,a,0 0;0,0,100d,a,a,124|,4,124| :H0,0,124|,4,124|,96`,124|,0 '  ' - ABSPEICHERN - ':"QuBERT"1 ''65535-7962;" BYTES FREI" 5