Alpha 1 :':[:?a=23613=\+256*23614>\:a,0:a+1,0:0,0; "********************************* Geschrieben von ** Stefan Wisskirchen ** Bonn **  1984 *********************************":i=0400:i 7high=0:1000:5:0:0: qINK=1:o=0:ss=12 :forto=0:feind=40(:schuss=0:pu=0:strange=1 Rs=20:t=10 :e=1:p=1:q=(*28)+1:v=1  Bildaufbau i=05.5 1i,0:254-2*i,0,-2 0,0;7;"score ";pu;0,10 ;"feind ";feind;0,19;"high ";high;0,28;"St";strange i d9i=23232Z23263Z:i,((INK+8)*8):i 9000(# 3 e21,15;" ";20,15;" ";19,15;"";18,15;" " 9020<# :4:21,13 ;"";20,13 ;"" 9030F# A21,19;6;"";20,19;6;"" 9040P# &21,5;2;"" 9050Z# 4 I21,21;"";21,24;"";21,27;"" + Laufschrift ,"350^:i=03:a$ 6{a=118:10 :1,30-a;0;4;"";0;7;a$(a):0.01z# =,10 :a @a=010 :10 :1,10 -a;0;4;"";0;7;a$;0;" ":0.01z# =,20:a J1,0;0;7;">";0;4;a$:a=119:10 :1,0;0;7;a$(a);0;" ":.01z# =,30:a Ki L`i=02:.1}L,1:.1}L,7:0.1}L,14:.1}L,7:i T 400 ^U" Alpha 1 "," Mache dich bereit","Schuetze die Stadt"," Du~HELD~ ?! " 20,6;5;0;1;"";20,8;5;0;1;"";20,10 ;5;0;1;"";0:7 ?i=010 :.05|L,1:.05|L,1.5@:i ke=1s16s=s-1:s,t;5;1;"";s+1,t;0;0;" ":5 s=16450 e=220,8;0;" ";20,9 ;5;1;"":5:20,9 ;0;0;" ";20,10 ;5;1;"";0;5:20,10 ;0;" ":e=1:s=20:t=10 :420 e=320,6;5;1;"":5:20,7;"";20,6;0;0;" ":5:20,7;" ":20,8;0;"";20,9 ;5;1;"":5:20,9 ;0;0;" ";20,10 ;5;1;"";0;5:e=1:s=20:t=10 :420  420 s=16:t=10 li=15:s,t+i-1;0;0;" ":5:s,t+i;5;1;0;"":i ̊13 ,15;0;0;0;" ";14,14;5;"";14,16;"";12 ,15;0;" " ͅs=16:t=15:i=14:s-i+1,t;0;0;"":10 :s-i,t;5;1;0;"":i u0.1}L,20:14,14;0;0;" ";14,16;" ";13 ,15;5;""  500  Bewegung !s=12 :t=15:0 i=03-forto >="5"t2t30t=t-1:0.005y# =,5 ?="8"t1t29t=t+1:0.005y# =,10 ="0"600X f0,6;7;pu;0,16;feind;0;"";0,30;7;strange Ps,t;5;1;"";s,t-1;0;0;" ";s,t+1;" " R(s,t+1)=4ū(s,t-1)=4ū(s-1,t)=42000 *i + 700 , 510 WSchuss X!d=80P:h=t*8+4 Y4(11 ,t)=4ū(10 ,t)=4ū(9 ,t)=4ū(8,t)=4ū(7,t)=4ū(6,t)=4ū(5,t)=4ū(4,t)=4ū(3,t)=4ū(2,t)=4ū(1,t)=4p,q;0;0;" ":p=1:schuss=1:pu=pu+10 ]47:h,d:0,71G:.005y# =,0 ^ 0:h,d:0,71G   Angreifer p,q;0;" " Yschuss=1p=1:q=(*28)+1:feind=feind-1:schuss=0  p=p+1 ~p=19o=o+1:feind=feind-1:p,q;0;" ":p=1:q=(*28)+1:o=10 5000 <p,q;4;0;0;"":i=05:i .005y# =,-20 feind=05000   7:0:7: 09055_#:i=023:a:"a"+i,a:i J0,12 ;2;1;1;"Alpha 1":0:0 &:"Du hast drei gegnerische Raum- " =:"schiffe ";4;"";0;" gefangen.Die Streit-" &:"macht der Klingonen versucht als" &:"Racheakt deine Stadt zu " &:"zerstoeren und ihre Raumschiffe " &:"zu befreien. " F21,5;1;1;"Druecke eine Taste !!":0 7:7:1:  &:"Du musst versuchen mit deinem " K:"Raumgleiter ";1;7;"";1;7;" die Stadt zu " :"verteidigen" &:"Du hasts drei Raumgleiter zur " &:"Verfuegung.Die Klingonen ver- " $&:"suchen den Schutzschirm der " )&:"Stadt zu zerstoeren.Wenn sie 10 " .$:"Treffer gemacht haben ist der " 3 :"Schutzschirm deiner Stadt " 8%:"vernichtet. >ENTER<":0 9 3: ::"Dann hasst du deinen " B&:"Auftrag nicht erfuellt und wirst" G#:"von den Klingonen gefangenge-" L :"nommen." Q41::1;"""Cursorsteuerung""";0 V:"5 = links" [:"8 = rechts" `:"0 = Feuer" eG21,0;1;4;"Druecke ""S"" um zu Beginnen !" f"s"1126f   Zerstoerung des Raumgleiters s,t;1;5;"" @i=03:.05|L,20:.05|L,20.5$:i s,t;0;" ";p,q;" " )v=v+1:e=v:v=45000  400+(v*10 )   schluss &feind=0o<10 5200P "o<10 v=45100 o=10 5300  u1,0;6;"Du hast alle";2,0;" Raumgleiter";3,0;"verlohren !!":200 s,t;0;0;" "  Yi=05.5:0;i,0:254-2*i,0,-2:i R21,21;0;" ";21,24;" ";21,27;" " i=202-1 O4;0;i,21;"";i,24;"";i,27;"":5 ^0;0;i+1,21;" ";i+1,24;" ";i+1,27;" " i #O1,21;0;" ";1,24;" ";1,27;" " $(puhigh0,24;pu:high=pu (}0,6;7;pu;0,16;feind;0;"";0,24;7;high;0,30;strange -'i=-2020:0.05|L,i:i 2 5400 P]2,0:2,7:1.75`,12 :.25~,16:2,15 Z7pu=pu+strange*100d:0,6;7;pu _strange=strange+1:feind=40(+strange*10 -10 :forto=forto+0.5:s,t;5;1;"":7:0:strange/5=(strange/5)forto=0 d"i=0502:i:510 .6:1,0;"Der Schutzschirm" %2,0;"deiner Stadt ist" f3,0;"zerstoert !!";4,0;"Du wirst gefangen-";5,0;"genommen !!" i=202-1 O4;0;i,21;"";i,24;"";i,27;"":5 ^0;0;i+1,21;" ";i+1,24;" ";i+1,27;" " i 200:5600 v5,0;5;1;"********* Game Over ************":i=010 .05|L:0.05|L,i:i  5400 (0:7:0:7:: "12,1;"Was willst du jetzt machen ?" ,4:" A)ufhoeren N)och einmal " 1821,5;1;1;"Drueke a oder n " 6="n"Ŧ="a"5440@ ; 54306 @-="n"0:5:0::3 E ="a" 0:5:0:  9025A# i=015:a  "a"+i,a i a$=" "  b$=""  c$=" "  e$=""  f$=""  g$="" h$="" 21,2;a$;20,2;a$;19,3;b$;18,3;b$;17,3;c$;16,3;c$;15,3;b$;14,3;b$;13 ,4;e$;12 ,5;f$:i=11 9 -1:i,5;"":i  J480,32 :0,16:40(,40(:16,0  4:1 P17,9 ;f$:d=10 :i=1821:d=d+1:i,d;h$:i 4:13 ,27;h$;14,26;f$;15,27;h$;16,26;"";17,25;"";18,26;"";19,27;"";20,27;"";21,26;f$;17,23;2;"" 1,0:1,0:0.25~,0:0.75@,0:1,3:0.25~,2:0.75@,2:0.25~,0:0.75@,0:0.25~,-1:1.75`,0 x7;72H,64@:16,-16:25:0;-16,16:15,11 ;0;" " u7;72H,64@:24,0:25:0;-24,0:13 ,12 ;0;" " !7;72H,64@:16,16:25:0;-16,-16:11 ,11 ;0;" ";13 ,9 ;" " &87;72H,64@:0,24:40( 0_16,9 ;7;"";15,9 ;"";14,9 ;6;"":30 1_16,9 ;0;" ";15,9 ;" ";14,9 ;0;" ":30 516,10 ;7;"";15,9 ;"";14,10 ;6;"";16,11 ;7;"":30 :A14,11 ;7;"< Hallo !":i=0100d:i ?)14,11 ;7;" " D13 ,19;"Haende" I514,19;"hoch >":i=0150:i N13 ,19;" " S14,19;" " X,14,11 ;7;"< Denkste..." bDi=0150:i:14,11 ;0;" " 6i=141-1:i,10 ;6;"";i+1,9 ;5;"";i+2,9 ;2;1;"~";0;i+2,10 ;5;"":15:i,10 ;0;" ";i+1,9 ;0;" ";i+2,9 ;0;" ";i+2,10 ;0;" ":i N40(:13 ,18;4;"Weg ist";14,18;"er !! >" i=0100d:i: #' #(/90102#:i=08*6-1 #) a:"a"+i,a #*i #2N60<,60<,60<,126~,126~,126~,255,255 #3I60<,60<,60<,60<,60<,60<,60<,60< #4q0,11111000,11111000,10011000,10011000,11111000,11111000,0 #5[60<,255,255,10011001,10011001,255,255,60< #6q0,00011111,00011111,00011001,00011001,00011111,00011111,0 #7I24,24,24,24,24,24,60<,60< #8 #< 9025A# #=i=015:a #> "a"+i,a #?i #A1,1,1,1,1,1,1,1,128,128,128,128,128,128,128,128 #B #F 9035K# #Gi=015:a #H "a"+i,a #Ii #K255,255,255,195,195,195,195,195,0,0,0,0,60<,126~,255,255 #L #P 9045U# #Qi=023:a #R "a"+i,a #Si #U0,0,0,255,255,24,24,24,0,0,0,255,255,0,0,0,255,255,255,255,255,0,0,0 #V #Z 9055_# #[i=023:a #\ "a"+i,a #]i #_H3,15,00011001,00001001 ,7,00001101 ,00011001,001100011,11000000,11110000,10011000,10010000,11100000,10110000,10011000,10001100,24,24,24,60<,01011010Z,126~,11011011,11011011 #` ' "Alpha 1"1 '0b=23613=\:b,0:b+1,61=: 'v2,0;7;"Noch ";23730\+256*23731\-23653e\-256*23654f\;" Bytes":  #P 9045U# #Qi=023:a #R "a"+i,a #Si #U0,0,0,255,255,24,24,24,0,0,0,255,255,0,0,0,255,255,255,255,255,0,0,0 #V #Z 9055_# #[i=023:a #\ "a"+i,a #]i #_H3,15,00011001,00001001 ,7,00001101 ,00011001,001100011,11000000,11110000,10011000,10010000,11100000,10110000,10011000,10001100,24,24,24,60<,01011010Z,126~,11011011,11011011 #`  #P 9045U# #Qi=023:a #R "a"+i,a #Si #U0,0,0,255,255,24,24,24,0,0,0,255,255,0,0,0,255,255,255,255,255,0,0,0 #V #Z 9055_# #[i=023:a #\ "a"+i,a #]i #_H3,15,00011001,00001001 ,7,00001101 ,00011001,001100011,11000000,11110000,10011000,10010000,11100000,10110000,10011000,10001100,24,24,24,60<,01011010Z,126~,11011011,11011011 #` U