$ ALADIN=================== 16G (P) 04/87 COMMODORE WELT ==j ============================( (C) 01/87 BY MARKUS SPOHR ==2 ELSDORF ==< ==F BASIC V3.5 ==P C16/116/PLUS 4 ==<Z ============================H_ 60000Yd55,0:56,60enLEBEN4mx 8xBILD1~G13229ZEIT300R31941,2:0,1:4,1V65280V18,(V18)251: BEIMV19,(V19)352: BEIM FEHLERSUCHEN WEGLASSEN ***0T832849:A:T,A:: 832]T1383114204:A:A1T,A: 162,0,189,0,208,157,0,52,189,0,209,157,0,53,202,208,241,96 *** ZEICHEN DATA'S *** 0 31,32,64,255,128,128,128,255" 255,5,9,241,18,20,24,240+, 126,255,201,201,255,219,219,219K6 24,24,24,24,24,60,126,255f@ 0,24,24,0,0,24,24,24J 7,15,25,57,127,239,240,252T 224,240,152,156,254,247,15,63^ 255,127,63,31,14,14,30,62h 255,254,252,248,112,112,120,124r 60,66,153,161,161,153,66,603| 240,144,144,240,25,15,7,3X 31,127,255,207,255,207,255,255v 255,255,255,255,0,0,0,0 248,254,255,243,255,243,255,255 207,255,255,207,255,255,255,255 0,102,102,255,255,102,102,0  243,255,255,243,255,255,255,255, 129,195,24,60,60,24,195,129O 62,127,127,127,127,28,62,127k 30,247,31,126,0,0,0,0 0,252,254,3,3,3,3,6 0,63,127,192,224,63,63,0 6,252,248,0,6,254,248,0 7,15,25,57,127,239,240,252 224,240,152,156,254,247,15,63' 255,127,63,31,14,14,30,62M 255,254,252,248,112,112,120,124V& -1t0 **** SPIELFELD (1) ****:BK$CL$C4$" "D"" N" "?X""YM$" "ob" "l" "v" "" "-" "]" "" "" "" "" "J" "z" "" "" " " "9" "h" "  **** SCHLUESSEL SETZEN ****""  1620:1,20,1,"Z :":ZEIT*X((1)1000)3072:X3180XX2004 X3900XX200/> (X)32X,75:810GHZZ1:Z2810Z0uR0,3,4:4,3,4:T15000::0,1:4,1:1640\ **** HAUPTSCHLEIFE ****f2048R3072,105:2048R13072,105:2048R403072,105p2048R413072,105z2048G13072,105J(1) J1 920:960GQ(R40):W(R401):Q32930:1270\ W32940:1270yRR40:R80,32:R81,32R,88:R1,89:R40,90:R41,91:1140 J5970:1010Q(R80):W(R801):Q32980:1270 W32990:1270RR40:R40,32:R401,32?R,88:R1,89:R40,90:R41,91:1140U J3 1020:1060Q(R2):W(R402):Q321030:1270 W321040:1270RR1:R1,32:R140,32R,88:R1,89:R40,90:R41,91:1140$ J7 1070:1140.Q(R1):W(R401):Q321080:127028W321090:1270OBRR1:R2,32:R402,32sLR,88:R1,89:R40,90:R41,91}V 860` **** GEIST ROTINE ****j2048R413072,105tLICHTLICHT1:LICHT00,1~ZEITZEIT1:ZEIT01,25,1," ":1,24,1,"":ZEIT:1640;F((1)4)1:F1170,1190,1210,1230[Q(G140):Q321180:1250{G1,32:G1G140:G1,67:860Q(G11):Q321200:1250G1,32:G1G11:G1,67:860Q(G140):Q321220:1250G1,32:G1G140:G1,67:860 Q(G11):Q321240:12507 G1,32:G1G11:G1,67:860F Q871640Q  1140p  **** UNTERPROGRAMME ****  Q651,900,6:1140  W651,900,6:1140  Q661,900,6:1140  W661,900,6:1140 ( Q67:1640 2 W67:1640 !< Q691370!F W691370'!P 1380`!ZKERKER1:Q10011140:LICHT16:239,0:0,3,4:1410v!d Q751400:1390!n W751400:1450!x1,200,15:SCHLUESSEL1:PUPU100:4,3,4:1620! J1 940! J5 990! J3 1040! J7 1090&" Q82PUPU50:1,500,14:1620:1410P" W82PUPU50:1,500,14:1620:1410{" Q83 1,500,14:PUPU50:1620:1410" W831,500,14:PUPU50:1620:1410" Q841580" W841580" Q851580" W851580" Q861580# W861580# Q871580%# W871580/#"15909#,1640K#6 Q80 1690]#@ W80 1690q#J1,500,6: 1140#T1,15,1," ":1,5,1,WH$"P :":PU:PU0PU0:1640#^#hLEBENLEBEN1:0,3,4: LEBEN02380'$r1,0,23," "C4$(QL$,17)" ":G1,32:G13229C$|Q1LEBEN33:1,500,5z$1,Q,23,C3$""C4$C1$C1$""YM$:W1250:W:$ 860$ **** SPIELFELD (2) ****$0,3,4:1730$2030:Q024:1,0,Q," "!%1,700(Q10),10:W1200:W:Q:1740>%SCHLUESSEL11710:1640g%BILDBILD1:BILD570,1750,2040,2360%BK$CL$C4$" "%""&" "4&""YM$" "d&" "&" "&" "&" "$'&" "T'0" "':" "'D" "'N" "(X" "C(b" "s(l" "(v" "(" ")" "3)" "c)" ")"":Z0:SCHLUESSEL0:4,1) 1620:1,20,1,"Z :":ZEIT)X((1)1000)3072:X3180XX200* X3900XX200* (X)32X,75:19808*ZZ1:Z21980Z0r*L0:ZEIT300:LEBENLEBEN1:1620:G13229:R3194:1640*1,L,0:PUPU1:LL1:LZEITL0::Ս1620:2030* **** SPIELFELD (3) *****BK$CL$C4$" "-+ ""]+" "+ ""YM$" "+*" "+4" "!,>" "Q,H" ",R" ",\" ",f" "-p" "A-z" "q-" "-" "-" "." "1." "a." "." "." " /"":SCHLUESSEL0:0,3,4:Z0/LEBENLEBEN1=/ZEIT300:R3194:G13229:1620T/0,3,4:Q11000:s/ 1620:1,20,1,"Z :":ZEIT/ X((1)1000)3072:X3180XX200/ X3900XX200/ (X)32X,75:2310/$ ZZ1:Z22310Z00. 0,3,4:4,3,4:T15000::0,1:4,1:1640708 ** ALLE DREI BILDER GESCHAFT **|0B BILD1:ZEIT300:R3194:G13229::SCHLUESSEL0:LEBENLEBEN1:5600L D$" GAME OVER NEUES SPIEL J/N ":0V 65298,196:65299,208:1,15,3,"PUNKTE":PU:1,0,20,""0` C2$;D$1j D$D$(D$,1):D$(D$,2,40))1t A$:A$"J"91~ A$"N":N1 T1100::2400n1` NACHSPANN ===============1j * FARBCODES/STEUERCODES *1tWH$(005):C4$(017)1~C3$(029):BK$(144)1C2$(145):CL$(147)1C1$(157) 2 *** ZEICHENSATZ/GRAPHIK *2YM$(219):2 ********* ZEICHENFOLGEN *I2 Q1 40Y2QL$QL$C1$a2 Qg22 =========================2 000000 BYTES MEMORY ==2 009064 BYTES PROGRAM ==2 000000 BYTES VARIABLES ==3 000000 BYTES ARRAYS =='3 000000 BYTES STRINGS ==G3 000000 BYTES FRE(0) ==g3( =========================