@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREIE SEKT.  G) *Gȩ GȽG GȌ*jj >G}J,}Λ "dJ\|DOS SYSRAMDISK COM/}B}B}-}CDOS SYS} C C*(> C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSLADEN NUR MIT MEM.SAV MOEGLICH.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VJ8 B V  @  /DE `E:D8:DUP.SYSPROGRAMM-SPEICHERUNG FEHLERHAFT!DOS DENNOC&}H LADEN? >J/N B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISKETTEN BETRIEBSSYSTEM II VERS. COPYRIGHT 1985 ATARI CORP.A. DISK-INHALT I. FORMATIERENB. ZUM STECKMOD*}UL J. DISK KOPIEREN C. DATEI KOPIEREN K. BINAER SAVED. LOESCHE DATEI L. BINAER LOADE. NAMEN AENDERN M. START BEI ADR+}.F. DATEI SICHERN N. MEM.SAV ANLEGENG. DAT. FREIGEBEN O. DAT. KOPIERENH. DOS SCHREIBEN P. FORMATIEREN ӛL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }DOS 2.0s EINLEGEN -> Y, x -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLBITTE .}WAEHLEN, -> MENUE! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%INHALT [SUCHBEGRIFF,AUSGABEGER.]?[# 0 0 &|D3" 1L!KEINE DISKDATEIN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0JЛ 1 ;#L" ;#L! BL1->J ZUM LOESCHEN... LOESCHE DAT.NAME2}KOPIE-VON, AUF?DAS KANN ICH NICHT737 FREIE SEKT. KOPIERE---D1:DISKFIX.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!KEINE 'WILD CARD6}S' IM ZIEL-DATEINAMEN 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!FORMATFEHLER!WELCHE DATEI LADEN? ) 0 ?}0#B 1L!SICHERN DAT.-NAME?) 0 0$B 1L!FREIGEBEN DAT.-NAME?DUP DISK-ORIGINAL,ZIEL STAT?PROGRAMM-SPEICHER BE@}NUTZEN? (J/N)ACHTUNG: MEM.SAV WIRD DANN INAKTIV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)BEIDE DISKETTEN EINLEGEN, Ԯ^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` ZU WENIG RAM! ORIGINAL EINLEGEN, ZIEL DISKETTE EINLEGEN, E}`  `8 rL1`-* 1P* 1 y0J`hhL!UEBERTRAGE DATEI:...?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Jj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DOS.SYS ALS ZIEL VERBOJ}TEN! 0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-DAT.NL}AME,START,ENDE(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} ZU LANG! B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2EINGABE ZU LANGUNGUELTIGE HQ}EXADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENduR} XADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENduAuLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxAT}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` AU} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BIIV}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PDW}EHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C X} C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`Y}L)D ` ```߰`` %`))Ţ𲥢0``))Z}ŢLD0```) eeFf&LD D {D JE `[} D C JE ``00!`IIiiLEIIii``E`II\}ii`UVT E`UVT E`HH`HH"`ʼnLSFň]}LSF`mm mm 88888 ͭ`^}iiii8 ͭ```hhȱȱȄLF _}GȩLF GLFeiHH`HH`hh> BoHB(HIoDHE V #LF `}GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅa}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`b} d'hhiiȱȱȱ mc}m iiHH E````d}`)II") JI ƲLIɟ沭II)@II)JI ƳLIɿ泭IIe}`#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMMf}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMMg}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`Fh}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeXi}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)j}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MMk}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMMl}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?m}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)n}`ԍԍ`"ԩ@ԩ`` S0H 1 L!0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0o}L<1 ,;ɛ7,"ɛ:ݦ1ݥA"D|ݤD|ȩ:|ȩ|ɛ,,(/+p}.ީ1 1,ɛ`轤{NAME ZU LANG! B VL!` L1I H1EΝDL1q}|mDiE` V0`8d/8 i:222 1 L!ERROR- 138uj/ -A0ypppr}ppppNNN N@N`Ns}A0y A (D1:BWFONT.FNT JKB DE V| t}BHIDE V B V􅂩| A (D1:AGRESSIV.CMC JKu}B DE V BHIDE V BHv}IDE V B V A (D1:AGRESSIV.REP JKB DE Vw} BHIDE V  BHIDE Vx} B V s -Al          y}    -Ayppp°ppppppppR(Ay 0A -Aޘm02/'2!--!$"543#(%2'&8z}2%0,!9""3&8"%%4,%yyʰԩ􅂩| A MILLIGREEN {} A(C)FOUNDATION TWO 1999 A A A(..HI TO:ABBUC,SWAT,RAF,VAC,HAP |}AFD,RENE,MIRCO,FOX,BITBUSTERS,PA AdRANOID,ESCAPE,505,MC LASER,FUN A,DIRK,MYSTIK BYTES,CREATURE XL A,SHIUMING}},JOE,MIKE,STEFAN,CLAU AS,BASTIAN,FROST,SWE,SAGE,LLAMA Aܜ,MISS STRESS,MARKUS,COBRA,THOM AAS,MARCSTAR,DHS,CENTEK,~}RUVEN.. A A, pDVEVԌo_V`V \/0}y1"/ɰLVɰLV ԍȰȰmȰɰ ԭȰɰLV⅂yAㅂy⑂ȩy r/fhV}VԌgWW \@  A (D1:MILLI.FNT JKB DE V} BHIDE V B V􅂩01 -Aΰ}} -Az8}}Ld -AxpppNNN TTDDDDDpD`ةPȪT@TT0T@NNNȘNNxNP}N(NA A (D1:MPIC.PIC JKB DE V BH}IDE V B V䩐`Űǰnư°ðİ}z zzzzЩЩЩЩ01|ԩ{ 0A}Щd}6FP} A (D1:BACK80.MAP } JKB DE V BHIDE VP} BHIDE VP BHIDE VP} BHIDE VP BHIDE VP} BHIDE VP BHIDE VP}p BHIDE VP BHIDE VP}` BHIDE VP؍ BHIDE V}PP BHIDE VPȍ BHIDE }VP@ BHIDE VP BHID}E VP0 BHIDE VP BHI}DE V B V䩠( Aixiixi}Lt`{ 0A>/p 5f a a \qhaaԌԩ}ԩLdLaa Lo7Lax =ey e dŰǰΰLaưLaưmưǰ}ǰɞLaǰLa((La؍La((Lb؍>Lb k>ɶL&b k>L}8b Lk>ɶLLb Lk Ѝ)Lob Lk kЍ)Lb Lk k Ѝ)}LbŰLbi Ѝ) LcŰLci Ѝ)L"c LkЍ}) LDc k Щ LcLpcLscη0LcLcLcLcι}0LcLcL dL dii LRdLRd}ii LsddLnd LddLdLBa/}gdd \ r@ ;qLdLdLaYLdLdΧLdLeΨLe}L"eΩL/eLNOQR.TUWX`Lkkm}ii(iL|k`L#lmi}i(iLk`{ 0AL)mzmi(zm}i@ Ami8@L)m }iiiiLlL!nzmiHzmi}@ Ami8@L!n }iiiiLmzmưi)}ii) ii) }ii)ɐLAo`LKo``Lo}LooLyoLo}LoLoLoLo}}`)PM | ԩɰЩʰʰԭʰLrpԩʰyiyyiyyy  } A LrpyypupvpԌԠ)PLb)P pppԌԠ)P@)}P| Ԡ)P@)PM̰˰ͰL%qͰ̰̰ L%q̰Ͱɰ)PLbЩ 0A -A}ypppppppWppppAy -A 0,!9%2/.% -A6 0,!9%247/ -Ad$02%3334!244/0,!9!'!). }" t R t􅂩prr \0y1{ 0A>/ɰ˰}̰ͰLrɰLr ԍȰȰmȰɰ Ԯ˰lԭȰ˰ɰLSryAyȩy r􅂩}/`ЅȩЅȩЅɰɰdLsɰL s` r/ 0A A }(D1:MILIGREN.MIC JKB DE V BHIDE V} B VąŅƅȅ00y1"/p gt7t8t} \LQtLDtL^tLQt r/` @HHHM @hhhLb΍$}v tLu A ii A}ɀ ɀLRu Aɀ ɀLu88Lcu}  A iiLt`CP Aɀ ɀLu88LcuB( V o79AƆ6 쯹ۆ 6ƃA97ΰo濮yJAꫭ }6'7;;7'6AJy殾All33llAχ0 }Agg<<AV0ϊ  0Agg3<<3A0 }V A0gg3<<30AV̇Ϫe?0Dgg?ee<< }?E0V?e\S<<Uf9,XXgg_SS_6Օ?,WlWlVS\: }<<ml,[[gge 0e loj,Wl?Wl̰V:<<H  } H̫<<jHUeeUH̫jeU<<HUeUUeUH }Ue\S<<HUe_SS_UeH̫S\: U$旧9]mUY0UY$ }?yAU:CAV$lX謰 UV  AyUV$XlVu*L֘ee }$MeU8*$:₢:\leUUe(%..x+ +Ue\S',+,#_SS_ }*88 S\; K 0  0 K ;?;?jjUjWjjUj" }00+00jUjjUj!?;??,jkjk" }00jj!,??ðc?fZZZVfZ }ZZV#888ӳ8ZZZZZZ"?c?5&ZZZU }jZZZUj'ZZZjZZZj%&5YU]m,jjUjWjjU }j$]mYUUYyAjUjjUj$yAUYV kjk$  }YY j$V֘UH֘Uj00UjHU\lUH\lU }eV xUeVHxU5&{wgfVHrlUYVwUYG5[fV&5YU{wgfHrlUYUUY }VwUG5[fUYV{wgjHrlUYYVwUG5[jVojf<V00 }Vs^]Y; 0\h,s\[Y0 Y0ܜ[,>chfjn } 5&8)ɲ95 &5Y? DYj }jYE  ?Y3A  A 3030 A }3ς3A 300 A3??3A   }/? Ak99̯99kAÿ ?/mۛ3Azn戮n؜zA3 }mclAp;nn;pAlc۹ 6ƃA97ΰo }o79AƇ6 쯹p;nn;pAlc۹ 6ƃA97ΰo "LR(125,13) DATA($79E2) [ 112,112,112 194,$98B0 0,112,112 7,7,112,112,7,7 112,112,7 135,112,112,82 },$9928 65,$79E2 ] **** BILDSCHIRM FREI CREDITS **** CLR(152,8) DATA($98DE) [ 48,50,47,39,50,33,45,26 }0,0,0,0,0,0,0,0,0,0 0,0 45,33,36,0,34,53,52,51,35,40,37,50 0,0,0,0 39,38,56,26 0,0,0,0,0,0,0,0,0,0 0, }0,0,0,0,0 50,37,48,44,33,57,0,15,34,34 0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0 51,38,56,26 0,0,0,0,0,0,0,0,0,0 } 0,0,0,0,0,0 34,37,37,52,44,37 ] ANFANG=$9C00 HZAEHL=15 HSCROL=15 POKE(756,124) HEAD=" MILLIGREEN " } HEAD2="(C)FOUNDATION TWO 1999 " SCRL1=" " SCRL2=" " SCR1="..HI TO:ABBUC,SWAT },RAF,VAC,HAP" SCR2="D,RENE,MIRCO,FOX,BITBUSTERS,PA" SCR3="RANOID,ESCAPE,505,MC LASER,FUN" SCR4=",DIRK,MYSTIK BYTES,CREA }TURE XL" SCR5=",SHIUMING,JOE,MIKE,STEFAN,CLAU" SCR6="S,BASTIAN,FROST,SWE,SAGE,LLAMA" SCR7=",MISS STRESS,MARKUS,COBRA,TH }OM" SCR8="AS,MARCSTAR,DHS,CENTEK,RUVEN.." SCRL3=" " SCRL4=" " DLI(DLI }ST) VBI(VBL_CRED) DMA=0 DPL=$79E2 DMA=34 ZAEHLER=0 WHILE CONSOL<>6 IF ZAEHLER=2 ZEILE=VCOUNT AD }D(ZEILE,RTCLK,ZEILE) ZAEHLER=0 WSYNC=RTCLK COLPF2=ZEILE ENDIF ZAEHLER+ WEND **** ALLES AUS }SCHALTEN **** POKE($79E2,65) DPOKE($79E3,$79E2) .DUNKEL DMA=0 DLI(DLILEER) VBI(VBLLEER) CALL($40,0,0,$8999) } OPEN(1,4,0,"D1:MILLI.FNT") BGET(1,1024,$A000) CLOSE(1) POKE(756,160) DPL=$AE00 **** DAS EIGENTLICHE SPIEL **** } GEPOKE=3* CLR(125,10) DATA(KURVE) [ 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 1,1,1,0,1,1,0,1,1,0,1,0,0,1,0,0,1 }0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2 0,2,0,2,0,2,2,0,2,2,0,2,2,2,2,0,2 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 2,2,2,2,2,2 },0,2,2,2,2,0,0,2,2,0,2 2,0,2,0,2,0,2,0,0,2,0,0,0,0,0,0,0 0,0,0,0,0,0,1,0,0,1,0,0,1,0,1,1,0 1,1,0,1,1,1,0,1,1,1,1, }1,1,1,1,0,1 1,1,1,1,1 ] DATA($7A00) [ 0,0,192,224,224,0,127,0,0 0,0,28,127,0,240,224,192,0,0 0 0, }0,3,7,7,0,254,0,0 0,0,56,254,0,15,7,3,0,0 0 0,0,0,2,0,0,0,0 0,0,2,1,1,2,0,0 0,2,1,1,1,1,2,0 } 2,1,1,1,1,1,1,2 0,0,0,8,0,0,0,0 0,0,8,4,4,8,0,0 0,8,4,4,4,4,8,0 8,4,4,4,4,4,4,8 0,0,0,1,0,0,0 },0 0,0,1,2,2,1,0,0 0,1,2,2,2,2,1,0 1,2,2,2,2,2,2,1 0,0,0,4,0,0,0,0 0,0,4,8,8,4,0,0 0,4,8,8,8,8,4,0 } 4,8,8,8,8,8,8,4 0,0,0,3,5,24,24,160,192,0,0,0 0,0,0,0,0,159,249,0,0,0,0,0 0,0,0,192,160,24,24,5,3,0,0,0 0 },0,24,16,16,24,24,8,8,24,0,0 ] ENDLOS=1 ***************** BEGINN NEUES SPIEL WHILE ENDLOS=1 **** DISPLAYLI }ST GAME **** DATA($AE00) [ 112,112,112 78,$9800 14,14,14,14,14,14 14,14,14 78,$9990 14,14,14,14,1 }4,14 14,14,14 78,$9B20 14,14,14,14,14,14 14,14,14,142 0,84,$A5A0 84,$A618 68,$A690 68,$A708 } 68,$A780 68,$A7F8 68,$A870 68,$A8E8 196,$A960 212,$A9D8 212,$AA50 212,$AAC8 84,$AB40 } 84,$ABB8 84,$AC30 84,$ACA8 0 206,$9940 78,$9918 78,$98F0 78,$98C8 78,$98A0 78,$9878 }78,$9850 78,$9828 78,$9800 65,$AE00 ] OPEN(1,4,0,"D1:MPIC.PIC") BGET(1,1280,$9800) CLOSE(1) BFORM1=1 }44 BFORM2=96 EXTRA1=0 EXTRA2=0 BX=0 SINCOUNT=0 BY=110 JOYDELAY=0 BSCROL1=7 BSCROL2=7 BSCROL3=7 BSCROL4= }7 BLINK1=1 BL_TIME=0 BLINK2=1 BL_DAUER=0 LIVES1=0 LIVES2=0 PLADR=$7A00 PLADR1=$7A09 PLADR2=$7A14 PLADR }3=$7A1D BONUS=$7AA8 SCCOUNT=7 SCHRITT=0 HCOL1=140 HCOL2=136 HCOL3=132 HCOL4=0 DPL=$AE00 PMBASE=124 CLR(1 }23,4) LAEUFT=0 GLAEUFT=0 B=0 PMCTL=3 SHX=100 **** PLAYER 1 **** RICHT=0 LI_RE=0 MRICHT=0 COL=125 COL2=5 }4 PX=70 PY=80 **** PLAYER 2 **** RICHT2=1 LI_RE2=1 MRICHT2=1 GCOL=125 GCOL2=26 GX=150 GY=150 OPEN(1,4, }0,"D1:BACK80.MAP") BGET(1,6,$A5A0) BGET(1,80,$A5A0) BGET(1,80,$A618) BGET(1,80,$A690) BGET(1,80,$A708) BGET(1,80 },$A780) BGET(1,80,$A7F8) BGET(1,80,$A870) BGET(1,80,$A8E8) BGET(1,80,$A960) BGET(1,80,$A9D8) BGET(1,80,$AA50) B }GET(1,80,$AAC8) BGET(1,80,$AB40) BGET(1,80,$ABB8) BGET(1,80,$AC30) BGET(1,80,$ACA8) CLOSE(1) MOVEADR=$A5A0 NA }CHADR=$A5F0 ACOUNT=0 REPEAT BMOVE(MOVEADR,NACHADR,40) ADD(MOVEADR,120,MOVEADR) ADD(NACHADR,120,NACHADR) A }COUNT+ UNTIL ACOUNT=16 ************ PLAYER LOESCHEN ***** CLR(123,5) ACOUNT=0 **** BILDSCHIRM AN **** DMA=62 } POKE(752,160) CALL($70,0,$84,$8999) CALL(0,0,0,$8999) CALL(0,0,0,$899C) VBI(VBL) DLI(DLI1) HSCROL=15 DELAY= }0 GAMEOVER=0 WHILE GAMEOVER=0******* JOYSTICK UND PLAYERBEWEGEN *** BLCOUNT+ IF BLCOUNT=255 BLCOUNT=0 } .BLTEST ENDIF JOYDELAY+ IF JOYDELAY=55 JOYDELAY=0 .CONTROL(JOY1) .CONTROL2(JOY2) .LAUF } BX+ TEMP=KURVE(SINCOUNT) IF TEMP=2 BY- ELSE ADD(BY,TEMP,BY) ENDIF SINCOUN }T+ IF SINCOUNT=158 SINCOUNT=0 ENDIF ENDIF******* COLISIONEN ABFRAGEN **** IF PX>216 PX=40 } ENDIF IF PX<40 PX=216 ENDIF IF GX>216 GX=40 ENDIF IF GX<40 GX=216 ENDIF } ************ PL1 - RAND ****** IF GY<62 .LOST2 GY=62 ENDIF IF GY>182 .LOST2 GY=1 }82 ENDIF ************ PL2 - RAND ****** IF PY<62 .LOST1 PY=62 ENDIF IF PY>182 }.LOST1 PY=182 ENDIF ************ PL1 - PL2 ****** COLREG=POPL COLTEST=0 AND(COLREG,2,COLTEST) } IF COLTEST=2 .LOST1 .LOST2 ENDIF ************ PL3-PL4 ******** COLREG=P2PL COLTEST=0 A }ND(COLREG,8,COLTEST) IF COLTEST=8 .LOST1 .LOST2 ENDIF ************ PL1 - BONUS **** COLREG=M2 }PL COLTEST=0 AND(COLREG,5,COLTEST) IF COLTEST>0 BX=0 IF EXTRA1<24 ADD(EXTRA1,8,EXTRA1) }ENDIF ENDIF ************ PL2 - BONUS **** COLREG=M2PL COLTEST=0 AND(COLREG,10,COLTEST) IF C }OLTEST>0 BX=0 IF EXTRA2<24 ADD(EXTRA2,8,EXTRA2) ENDIF ENDIF ************ MISSILE }2 ******* COLREG=M1PL COLTEST=0 AND(COLREG,5,COLTEST) IF COLTEST>0 .LOST1 ENDIF *********** }* MISSILE 1 ******* COLREG=MOPL COLTEST=0 AND(COLREG,10,COLTEST) IF COLTEST>0 .LOST2 ENDIF }HITCLR=13********************** A=0 DELAY+ IF DELAY=10 DELAY=0 IF MRICHT=0 SHX+ ELSE } SHX- ENDIF IF SHX<48 LAEUFT=0 ENDIF IF SHX>208 LAEUFT=0 ENDIF IF }MRICHT2=0 SGX+ ELSE SGX- ENDIF IF SGX<48 GLAEUFT=0 ENDIF IF SGX>208 } GLAEUFT=0 ENDIF ENDIF IF LAEUFT=0 IF TRIG=0 LAEUFT=LI_RE LAEUFT+ MRICHT=0 } SHX=PX ADD(SHX,4,SHX) SHY=PY ADD(SHY,9,SHY) MRICHT=LI_RE ENDIF ENDIF IF G }LAEUFT=0 IF TRIG2=0 GLAEUFT=LI_RE2 GLAEUFT+ MRICHT2=0 SGX=GX ADD(SGX,4,SGX) } SGY=GY ADD(SGY,9,SGY) MRICHT2=LI_RE2 ENDIF ENDIF IF LIVES1=10 SCORE2+ IF SCORE }2=100 SCORE2=0 ENDIF GAMEOVER=1 ENDIF IF LIVES2=10 SCORE1+ IF SCORE1=100 } SCORE1=0 ENDIF GAMEOVER=1 ENDIF WEND DMA=0 VBI(VBLLEER) .DUNKEL CALL($40,0,0,$8999) . }SCORE WHILE ENDLOS=1 WEND ENDLOS=1 WENDENDMAINPROC LAUFBEGIN IF RICHT=0 PX+ ENDIF IF RICHT=1 PX }- ENDIF IF RICHT=2 PY+ ENDIF IF RICHT=3 PY- ENDIF IF RICHT2=0 GX+ ENDIF IF RICHT2 }=1 GX- ENDIF IF RICHT2=2 GY+ ENDIF IF RICHT2=3 GY- ENDIF ENDPROCPROC CONTROLINBYTE[ J }OY]BEGIN IF RICHT<2 IF JOY=14 RICHT=3 ENDIF IF JOY=13 RICHT=2 ENDIF ELSE IF JOY=11 } LI_RE=1 RICHT=1 PLADR=$7A14 PLADR1=$7A1D ENDIF IF JOY=7 LI_RE=0 RICHT=0 PLADR=$ }7A00 PLADR1=$7A09 ENDIF ENDIFENDPROCPROC CONTROL2INBYTE[ JOY]BEGIN IF RICHT2<2 IF JOY=14 RI }CHT2=3 ENDIF IF JOY=13 RICHT2=2 ENDIF ELSE IF JOY=11 LI_RE2=1 RICHT2=1 PLADR2=$7A14 } PLADR3=$7A1D ENDIF IF JOY=7 LI_RE2=0 RICHT2=0 PLADR2=$7A00 PLADR3=$7A09 ENDIF EN }DIFENDPROCINTER VBLBEGIN IPUSH ATRACT=0 CALL(0,0,0,$899C) .MISSILE HCOL1=140 HCOL2=136 HCOL3=132 HCOL4=0 !} PXPOS=PX ADD(PY,2,PYY) PXXPOS=PX GEPOS=GX ADD(GY,2,GYY) GXXPOS=GX SHOTX=SHX GSHOTX=SGX BONUSX=BX BO "}NUSXX=BX PLAYER(124,PY,9,PLADR) PLAYER(125,GY,9,PLADR2) PLAYER(126,PYY,10,PLADR1) PLAYER(127,GYY,10,PLADR3) SCCOUNT #}- IF SCCOUNT=255 SCCOUNT=7 BSCROL1- BSCROL2- BSCROL3- BSCROL4- ENDIF IF SCCOUNT=1 BSCROL4- $}BSCROL3- BSCROL2- ENDIF IF SCCOUNT=3 BSCROL4- BSCROL3- ENDIF IF SCCOUNT=5 BSCROL4- ENDIF IF BSCRO %}L1=255 BSCROL1=7 ENDIF IF BSCROL2=255 BSCROL2=7 .SCROLL2 ENDIF IF BSCROL3=255 BSCROL3=7 .SCROLL3 &} ENDIF IF BSCROL4=255 BSCROL4=7 .SCROLL4 ENDIF DLI(DLI1) IPULL ENDVBIINTER VBLLEERBEGIN IPUSH ZPUSH '} PUSH ATRACT=0 DLI(DLILEER) CHARSET=160 ENDLOS=2 PULL ZPULL IPULL ENDVBIINTER DLILEERBEGIN PUSH PULL (}ENDDLIINTER DLI1BEGIN PUSH SYNC(1) HSCROL=BSCROL4 HCOL1=24 HCOL2=20 HCOL3=16 CINV=0 PRIOR=1 DLI(DLI2) )} PULLENDDLIINTER DLI2BEGIN PUSH SYNC(1) HSCROL=BSCROL1 HCOL2=194 PRIOR=1 DLI(DLI3) PULLENDDLIINTER DLI3 *}BEGIN PUSH SYNC(1) HSCROL=BSCROL2 HCOL1=198 HCOL4=0 CINV=202 PRIOR=1 DLI(DLI4) PULLENDDLIINTER DLI4BEGI +}N PUSH SYNC(1) HSCROL=BSCROL3 CINV=200 PRIOR=1 DLI(DLI5) PULLENDDLIINTER DLI5BEGIN PUSH SYNC(1) HSCRO ,}L=BSCROL4 HCOL2=4 HCOL1=8 HCOL3=12 PRIOR=1 DLI(DLIU) PULLENDDLIINTER DLIUBEGIN PUSH SYNC(1) HCOL1=140 -} HCOL2=136 HCOL3=132 HCOL4=0 PRIOR=1 DLI(DLI1) PULLENDDLIPROC SCROLL2BEGIN ADD(SC11,2,SC11) IF SC11=$AA9E .} SC11=$AA4E ENDIFENDPROCPROC SCROLL3BEGIN ADD(SC12,2,SC12) IF SC12=$AB16 SC12=$AAC6 ENDIFENDPROCPROC SCR /}OLL4BEGIN ADD(SC1,2,SC1) ADD(SC2,2,SC2) ADD(SC13,2,SC13) ADD(SC14,2,SC14) ADD(SC15,2,SC15) ADD(SC16,2,SC16) IF 0} SC13=$AB66 SC1=$A59E SC2=$A616 SC13=$AB3E SC14=$ABB6 SC15=$AC2E SC16=$ACA6 ENDIFENDPROCPROC LOS 1}T1BEGIN IF BLINK1<1 BLINK1=1 COUY=0 SCRAD=$996B ADD(SCRAD,LIVES1,SCRAD) REPEAT POKE(SCRAD,0) ADD(SCR 2}AD,40,SCRAD) COUY+ UNTIL COUY=7 EXTRA1=0 EXTRA2=0 LIVES1+ ENDIFENDPROCPROC LOST2BEGIN IF BLINK2<1 BLINK 3}2=1 COUY=0 SCRAD=$9983 ADD(SCRAD,LIVES2,SCRAD) REPEAT POKE(SCRAD,0) ADD(SCRAD,40,SCRAD) COUY+ UNTIL 4} COUY=7 EXTRA1=0 EXTRA2=0 LIVES2+ ENDIFENDPROCPROC MISSILEBEGIN CLR(123,1) **************** MISSILE 1 I 5}F LAEUFT>0 SHADR=31484 ADD(SHADR,SHY,SHADR) SHDATA=$7A28 ADD(SHDATA,EXTRA1,SHDATA) MUL(LAEUFT,64,ACOUNT) 6} ADD(SHDATA,ACOUNT,SHDATA) SUB(SHDATA,64,SHDATA) ACOUNT=0 WHILE ACOUNT<8 PEEK(SHADR,A) PEEK(SHDATA 7},B) OR(A,B,A) POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SHADR) ACOUNT+ WEND ENDIF 8} ************** MISSILE 2 IF GLAEUFT>0 SHADR=31484 ADD(SHADR,SGY,SHADR) SHDATA=$7A48 ADD(SHDATA,EXTRA2, 9}SHDATA) MUL(GLAEUFT,64,ACOUNT) ADD(SHDATA,ACOUNT,SHDATA) SUB(SHDATA,64,SHDATA) ACOUNT=0 WHILE ACOUNT<8 :} PEEK(SHADR,A) PEEK(SHDATA,B) OR(A,B,A) POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SH ;}ADR) ACOUNT+ WEND ENDIF ******** BONUS MISSILES SHADR=31487 ADD(SHADR,BY,SHADR) PEEK(SHADR,A) AND(A,1 <}5,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) OR(A,BFORM1,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) =} PEEK(SHADR,A) AND(A,15,A) OR(A,BFORM2,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) POKE(SHA >}DR,A) IF BFORM1=144 BFORM1=96 BFORM2=144 ELSE BFORM1=144 BFORM2=96 ENDIFENDPROCPROC BLTESTBEGIN I ?}F BLINK1>0 IF BLINK1=1 BLINK1=2 COL=0 ELSE BLINK1=1 COL=255 ENDIF BL_ @}TIME+ IF BL_TIME>20 BL_TIME=0 BLINK1=0 COL=125 ENDIF ENDIF IF BLINK2>0 IF BLINK2=1 BL A}INK2=2 GCOL=0 ELSE BLINK2=1 GCOL=255 ENDIF BL_DAUER+ IF BL_DAUER>20 BL B}_DAUER=0 BLINK2=0 GCOL=125 ENDIF ENDIFENDPROCINTER VBL_CREDBEGIN ZPUSH ATRACT=0 CALL(0,0,0,$899C) C} CHARSET=124 ZAEHLER=0 TEXTCOL=255 TEXTBACK=0 HZAEHL- HSCROL=HZAEHL IF HZAEHL=255 HSCROL=15 HZAEHL=1 D}5 ADD(ANFANG,4,ANFANG) IF ANFANG=$9D20 ANFANG=$9C00 ENDIF ENDIF DLI(DLIST) ZPULLENDVBIINTER DLIST E}BEGIN ZPUSH CHARSET=224 DLI(DLIST2) ZPULLENDDLIINTER DLIST2BEGIN ZPUSH CHARSET=124 ZPULLENDDLIINTER VBL F}_SCBEGIN ZPUSH ATRACT=0 HSCOUNT=VBLCOUNT IF SC_DELAY=4 SC_DELAY=0 VBLCOUNT+ IF VBLCOUNT=10 VBLCOUN G}T=0 ENDIF ENDIF SC_DELAY+ ZAEHLER=0 ZPULLENDVBIPROC SCOREBEGIN COLBACK=0 CLR(152,8) DATA($79C0) [ H} 112,112,112 112,112,112,112 87,$9800 112,23,112,23,112,23,112 22,22 65,$79C0 ] DATA($9806) [ I} 48,44,33,57,37,50,0,47,46,37 ] DATA($9836) [ 48,44,33,57,37,50,0,52,55,47 ] DATA($9864) [ 48,50,37,51,51 J},0,51,52,33,50,52 0,52,47,0,0,0,0,0 0,0,0,0,0,0,0 48,44,33,57,0 33,39,33,41,46 ] .ZAHL(2,10,SCORE1,$9822) K} .ZAHL(2,10,SCORE2,$9852) POKE(756,224) VBI(VBL_SC) DPL=$79C0 CLR(123,5) DMA=62 ZAEHLER=0 HSCOUNT=0 VBLCOU L}NT=0 SC_DELAY=0 WHILE CONSOL<>6 IF ZAEHLER=2 ZEILE=VCOUNT ADD(ZEILE,RTCLK,ZEILE) ZAEHLER=0 W M}SYNC=RTCLK HSCROL=SIN(HSCOUNT) COLPF2=ZEILE HSCOUNT+ ENDIF ZAEHLER+ WEND **** ABDUNKELN *** N}* POKE($79C0,65) DPOKE($79C1,$79C0) .DUNKEL POKE(756,160) DMA=0ENDPROCPROC DUNKELBEGIN DPOKE($D016,0) DPOKE O}($D018,0) POKE($D01A,0) ZAEHLER=0 WHILE ZAEHLER<100 ZAEHLER+ WENDENDPROCPROC TITLEPICBEGIN .DUNKEL DMA=0 P} CLR(160,15) OPEN(1,4,0,"D1:MILIGREN.MIC") BGET(1,4880,$9CE0) CLOSE(1) POKE(708,250) POKE(709,246) POKE(710,24 Q}5) POKE(712,0) DPL=$7930 DMA=34 CALL($70,0,$84,$8999) CALL(0,0,0,$8999) CALL(0,0,0,$899C) VBI(TITLE) WHILE R} CONSOL<>6 WEND WHILE CONSOL=6 WEND .DUNKEL DMA=0ENDPROCINTER TITLEBEGIN IPUSH ATRACT=0 CALL(0,0,0,$899C S}) IPULLENDVBI .ZAHL(4,1000,1998,30244)PROC ZAHLIN BYTE [ STELLEN ] WORD [ TEILER ZAHL SCRADR ] T}LOCAL WORD [ B C ]BEGIN C=0 B=0 WHILE STELLEN>0 DIV(ZAHL,TEILER,B) ADD(B,16,C) IF C>25 C=1 U}6 ENDIF POKE(SCRADR,C) WHILE B>0 SUB(ZAHL,TEILER,ZAHL) SUB(B,1,B) WEND DIV(TEILER,10,TEILER) V} ADD(SCRADR,1,SCRADR) STELLEN- WENDENDPROCZAHL,TEILER,ZAHL) SUB(B,1,B) WEND DIV(TEILER,10,TEILER) 7AENLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxAX}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` AY} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BIIZ}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PD[}EHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C \} C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`]}L)D ` ```߰`` %`))Ţ𲥢0``))^}ŢLD0```) eeFf&LD D {D JE `_} D C JE ``00!`IIiiLEIIii``E`II`}ii`UVT E`UVT E`HH`HH"`ʼnLSFňa}LSF`mm mm 88888 ͭ`b}iiii8 ͭ```hhȱȱȄLF c}GȩLF GLFeiHH`HH`hh> BoHB(HIoDHE V #LF d}GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅe}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`f} d'hhiiȱȱȱ mg}m iiHH E````q}g``栠``򠠠`B%DOS SYSB*)DUP SYSBmSAUTORUN SYSMILI1 PICWRUNTIME OBJBmMILIGRENOBJ GRAPH LIBMATH LIB NUMERIC LIB)!STR LIBJRUNTIME OBJmrMILIGRENOBJ2LIST OBJ SINDEMO QIK BCD QIKQIKDEMO QIK SUNRISE QIKSCROLL QIK RAMDISK COMGR15 QIK AG CMCcBILDLADEQIK,CMCPLAY QIKBWTXT TXTCBWAA1 PICBOOT COMB BWFONT FNT>MPIC PIC.CMD REPVBACK1 MAP \MILLI FNT hBACK2 MAPPBERGE MAPOBACK40 MAP tBACK80 MAPNTEST MAP sBACK79 MAP]MGII6 QIKB @AGRESSIVCMCBLAGRESSIVREP> MILIGRENMIC`)II") JI ƲLIɟ沭II)@II)JI ƳLIɿ泭II}AuLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxA-s}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` A-t} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BII-u}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PD-v}EHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C -w} C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`-x}L)D ` ```߰`` %`))Ţ𲥢0``))-y}ŢLD0```) eeFf&LD D {D JE `-z} D C JE ``00!`IIiiLEIIii``E`II-{}ii`UVT E`UVT E`HH`HH"`ʼnLSFň-|}LSF`mm mm 88888 ͭ`-}}iiii8 ͭ```hhȱȱȄLF -~}GȩLF GLFeiHH`HH`hh> BoHB(HIoDHE V #LF -}GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅ-}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`-} d'hhiiȱȱȱ m-}m iiHH E````-}`)II") JI ƲLIɟ沭II)@II)JI ƳLIɿ泭II-}`#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMM-}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMM-}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`F-}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeX-}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)-}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MM-}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMM-}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?-}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)-}`ԍԍ`"ԩ@ԩ`` S0H 1 L!0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0-}L<1 ,;ɛ7,"ɛ:ݦ1ݥA"D|ݤD|ȩ:|ȩ|ɛ,,(/+-}.ީ1 1,ɛ`轤{NAME ZU LANG! B VL!` L1I H1EΝDL1-}|mDiE` V0`8d/8 i:222 1 L!ERROR- 138uj/ -A0yppp-}ppppNNN N@N`N-}A0y A (D1:BWFONT.FNT JKB DE V| -}BHIDE V B V􅂩| A (D1:AGRESSIV.CMC JK-}B DE V BHIDE V BH-}IDE V B V A (D1:AGRESSIV.REP JKB DE V-} BHIDE V  BHIDE V-} B V s -Al          -}    -Ayppp°ppppppppR(Ay 0A -Aޘm02/'2!--!$"543#(%2'&8-}2%0,!9""3&8"%%4,%yyʰԩ􅂩| A MILLIGREEN -} A(C)FOUNDATION TWO 1998 A A A(..HI TO:ABBUC,SWAT,RAF,VAC,HAP -}AFD,RENE,MIRCO,FOX,BITBUSTERS,PA AdRANOID,ESCAPE,505,MC LASER,FUN A,DIRK,MYSTIK BYTES,CREATURE XL A,SHIUMING-},JOE,MIKE,STEFAN,CLAU AS,BASTIAN,FROST,SWE,SAGE,LLAMA Aܜ,MISS STRESS,MARKUS,COBRA,THOM AAS,MARCSTAR,DHS,CENTEK,-}RUVEN.. A A, pDVEVԌo_V`V \/0-}y1"/ɰLVɰLV ԍȰȰmȰɰ ԭȰɰLV⅂yAㅂy⑂ȩy r/fhV-}VԌgWW \@  A (D1:MILLI.FNT JKB DE V-} BHIDE V B V􅂩01 -Aΰ-}-} -Az8-}-}Ld -AxpppNNN TTDDDDDpD`ةPȪT@TT0T@NNNȘNNxNP-}N(NA A (D1:MPIC.PIC JKB DE V BH-}IDE V B V䩐`Űǰnư°ðİ-}z zzzzЩЩЩЩ01|ԩ{ 0A-}Щd}6FP} A (D1:BACK80.MAP -} JKB DE V BHIDE VP-} BHIDE VP BHIDE VP-} BHIDE VP BHIDE VP-} BHIDE VP BHIDE VP-}p BHIDE VP BHIDE VP-}` BHIDE VP؍ BHIDE V-}PP BHIDE VPȍ BHIDE -}VP@ BHIDE VP BHID-}E VP0 BHIDE VP BHI-}DE V B V䩠( Aixiixi-}Lt`{ 0A>/p 5f a a \qhaaԌԩ-}ԩLdLaa Lo7Lax =ey e dŰǰΰLaưLaưmưǰ-}ǰɞLaǰLa((La؍La((Lb؍>Lb k>ɶL&b k>L-}8b Lk>ɶLLb Lk Ѝ)Lob Lk kЍ)Lb Lk k Ѝ)-}LbŰLbi Ѝ) LcŰLci Ѝ)L"c LkЍ-}) LDc k Щ LcLpcLscη0LcLcLcLcι-}0LcLcL dL dii LRdLRd-}ii LsddLnd LddLdLBa/-}gdd \ r@ ;qLdLdLaYLdLdΧLdLeΨLe-}L"eΩL/eLNOQR.TUWX`Lkkm-}ii(iL|k`L#lmi-}i(iLk`{ 0AL)mzmi(zm-}i@ Ami8@L)m -}iiiiLlL!nzmiHzmi-}@ Ami8@L!n -}iiiiLmzmưi)-}ii) ii) -}ii)ɐLAo`LKo``Lo-}LooLyoLo}LoLoLoLo-}}`)PM | ԩɰЩʰʰԭʰLrpԩʰyiyyiyyy  -} A LrpyypupvpԌԠ)PLb)P pppԌԠ)P@)-}P| Ԡ)P@)PM̰˰ͰL%qͰ̰̰ L%q̰Ͱɰ)PLbЩ 0A -A-}ypppppppWppppAy -A 0,!9%2/.% -A6 0,!9%247/ -Ad$02%3334!244/0,!9!'!). -}" t R t􅂩prr \0y1{ 0A>/ɰ˰-}̰ͰLrɰLr ԍȰȰmȰɰ Ԯ˰lԭȰ˰ɰLSryAyȩy r􅂩-}/`ЅȩЅȩЅɰɰdLsɰL s` r/ 0A A -}(D1:MILIGREN.MIC JKB DE V BHIDE V-} B VąŅƅȅ00y1"/p gt7t8t-} \LQtLDtL^tLQt r/` @HHHM @hhhLb΍$-}v tLu A ii A-}ɀ ɀLRu Aɀ ɀLu88Lcu-}  A iiLt`P Aɀ ɀLu88Lcu,B`#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMM}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMM}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`F}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeX}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MM}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMM}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)}`ԍԍ`"ԩ@ԩ`` S0H 1 L!0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0}L<1 ,;ɛ7,"ɛ:ݦ1ݥA"D|ݤD|ȩ:|ȩ|ɛ,,(/+}.ީ1 1,ɛ`轤{NAME ZU LANG! B VL!` L1I H1EΝDL1}|mDiE` V0`8d/8 i:222 1 L!ERROR- 1381I H1EΝDL1`AuLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxA)}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` A)} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BII)}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PD)}EHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C )} C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`)}L)D ` ```߰`` %`))Ţ𲥢0``)))}ŢLD0```) eeFf&LD D {D JE `)} D C JE ``00!`IIiiLEIIii``E`II)}ii`UVT E`UVT E`HH`HH"`ʼnLSFň)}LSF`mm mm 88888 ͭ`)}iiii8 ͭ```hhȱȱȄLF )}GȩLF GLFeiHH`HH`hh> BoHB(HIoDHE V #LF )}GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅ)}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`)} d'hhiiȱȱȱ m)}m iiHH E````)}`)II") JI ƲLIɟ沭II)@II)JI ƳLIɿ泭II)}`#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMM)}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMM*}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`F*}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeX*}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)*}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MM*}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMM*}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?*}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)*}`ԍԍ`"ԩ@ԩ`` S0H 1 L!0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0*}L<1 ,;ɛ7,"ɛ:ݦ1ݥA"D|ݤD|ȩ:|ȩ|ɛ,,(/+* }.ީ1 1,ɛ`轤{NAME ZU LANG! B VL!` L1I H1EΝDL1* }|mDiE` V0`8d/8 i:222 1 L!ERROR- 138uj/ -A0yppp* }ppppNNN N@N`N* }A0y A (D1:BWFONT.FNT JKB DE V| * }BHIDE V B V􅂩| A (D1:AGRESSIV.CMC JK*}B DE V BHIDE V BH*}IDE V B V A (D1:AGRESSIV.REP JKB DE V*} BHIDE V  BHIDE V*} B V s -Al          *}    -Ayppp°ppppppppR(Ay 0A -Aޘm02/'2!--!$"543#(%2'&8*}2%0,!9""3&8"%%4,%yyʰԩ􅂩| A MILLIGREEN *} A(C)FOUNDATION TWO 1999 A A A(..HI TO:ABBUC,SWAT,RAF,VAC,HAP *}AFD,RENE,MIRCO,FOX,BITBUSTERS,PA AdRANOID,ESCAPE,505,MC LASER,FUN A,DIRK,MYSTIK BYTES,CREATURE XL A,SHIUMING*},JOE,MIKE,STEFAN,CLAU AS,BASTIAN,FROST,SWE,SAGE,LLAMA Aܜ,MISS STRESS,MARKUS,COBRA,THOM AAS,MARCSTAR,DHS,CENTEK,*}RUVEN.. A A, pDVEVԌo_V`V \/0*}y1"/ɰLVɰLV ԍȰȰmȰɰ ԭȰɰLV⅂yAㅂy⑂ȩy r/fhV*}VԌgWW \@  A (D1:MILLI.FNT JKB DE V*} BHIDE V B V􅂩01 -Aΰ*}*} -Az8*}*}Ld -AxpppNNN TTDDDDDpD`ةPȪT@TT0T@NNNȘNNxNP*}N(NA A (D1:MPIC.PIC JKB DE V BH* }IDE V B V䩐`Űǰnư°ðİ*!}z zzzzЩЩЩЩ01|ԩ{ 0A*"}Щd}6FP} A (D1:BACK80.MAP *#} JKB DE V BHIDE VP*$} BHIDE VP BHIDE VP*%} BHIDE VP BHIDE VP*&} BHIDE VP BHIDE VP*'}p BHIDE VP BHIDE VP*(}` BHIDE VP؍ BHIDE V*)}PP BHIDE VPȍ BHIDE **}VP@ BHIDE VP BHID*+}E VP0 BHIDE VP BHI*,}DE V B V䩠( Aixiixi*-}Lt`{ 0A>/p 5f a a \qhaaԌԩ*.}ԩLdLaa Lo7Lax =ey e dŰǰΰLaưLaưmưǰ*/}ǰɞLaǰLa((La؍La((Lb؍>Lb k>ɶL&b k>L*0}8b Lk>ɶLLb Lk Ѝ)Lob Lk kЍ)Lb Lk k Ѝ)*1}LbŰLbi Ѝ) LcŰLci Ѝ)L"c LkЍ*2}) LDc k Щ LcLpcLscη0LcLcLcLcι*3}0LcLcL dL dii LRdLRd*4}ii LsddLnd LddLdLBa/*5}gdd \ r@ ;qLdLdLaYLdLdΧLdLeΨLe*6}L"eΩL/eL}ЩЩʍЩ5iiiԌhhh@HHH ԭðԩȍЩniPiQiԌhhh@HHH ԭİԩ*?}Щ ЩiiiԌhhh@HHH ԩЩЩЩЩqhiiԌhhh@HiHI*\}堎 9Wq>A}0p pB}F3#"""zE#[ϊV4gUDe$"yE!3DUUUvC}D}   E} F}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@y@@y@@y@@y@@@yG}@@y@@y@@yyyUUaaSS__QQ]]PP\\UUaaSS__QQ]]PP\\NNZZNNZZNNZZGGSSIIaaIIaaIIaaIIaaIIIIGGGGEEEEDDDDIIIIGGGGEEEEDDDDH}BBBBBBBBBBBBGGGGIIIIIIIIIIIIIIII@UU@yU@UUU@UyUUU@UU@yU@UUU@UyUUU@UU@yU@UUU@UyUUU@UU@yUI}@UUU@UyUyy@II@yI@IGG@GyGGG@EE@yE@EDD@DyDDD@BB@yB@BBB@BySSS@UU@yU@UUU@UyUJ}yya_a_a_\Z\ZZ\ZSUUSU\ZXZ\ZUSU\ZXZ\_\Z\PNLNPNIGIPNLNPSPNPUSUSUSPNPNNPNGIIGIK}IIIIGGGGGGEEEEDDDDDDBBBBBBBSSSUUUUUUUUUUPNLNPNIGIPNLNPSPNPUSUSUSPNPNNPNGIIGI=WLLLQL_@+牎艌)pJJJ*(M}+)ҩ鉮艭LhY:e(Ċ$ˊɏ T T`׉ډ􍢉㉠剭쉅N} iU0Lɏꉎ`ꉎ`쉆퉄iiiiꉍ뉢ҩO}쩀`)鉭艍牌鉩lj i0Hiheiii m P}ȱЉ͉ʉĉ)KLȱJJJJm牍牍Bĉ) ȌLȱ)m牍牬Q}ĉ)(ݲ8鉱H)ڐhJJJJ>7 0 iڏ`ڏ\إHHHHLLLR}L!0׉$䉌荣ԉiU$7L3/JJJ)%S} & Չ s[U$Ћ$LL39?IS_| `0`08`0e`0ߍꉍ`0ӭ։0Ȍe剭։T}T`0 ɏ`ډډWRԉ@Ki@׉) )?݉׉@ )?݉ 9Lɀ )?ډ׉U})?ꉍ뉭ĉ)(ĉ)7!.&ʉV}LJJJJJ)ĉ)ݵ( =lj Ӊ8)搅)(i͉%ӉW}轻))ʉ @ljĉJJJJJ}}0L9ĉ)ӉX} HƏ)) ҽ(h)Эhhhh`xrY}ke_ZUPKGC?<852/,*'%#! οzqke_VPg`ZUQLHC?=9439-*(%$! 8 j Z}jFAn0R"zU4w`N8'xpjd^WR2 @5?[}@ MhBhh`$V%W$%hh82hhp LV$W%@L Q NOQR.TUWX`Lkkm*_}ii(iL|k`L#lmi*`}i(iLk`{ 0AL)mzmi(zm*a}i@ Ami8@L)m *b}iiiiLlL!nzmiHzmi*c}@ Ami8@L!n *d}iiiiLmzmưi)*e}ii) ii) *f}ii)ɐLAo`LKo``Lo*g}LooLyoLo}LoLoLoLo*h}}`)PM | ԩɰЩʰʰԭʰLrpԩʰyiyyiyyy  *i} A LrpyypupvpԌԠ)PLb)P pppԌԠ)P@)*j}P| Ԡ)P@)PM̰˰ͰL%qͰ̰̰ L%q̰Ͱɰ)PLbЩ 0A -A*k}ypppppppWppppAy -A 0,!9%2/.% -A6 0,!9%247/ -Ad$02%3334!244/0,!9!'!). *l}" t R t􅂩prr \0y1{ 0A>/ɰ˰*m}̰ͰLrɰLr ԍȰȰmȰɰ Ԯ˰lԭȰ˰ɰLSryAyȩy r􅂩*n}/`ЅȩЅȩЅɰɰdLsɰL s` r/ 0A A *o}(D1:MILIGREN.MIC JKB DE V BHIDE V*p} B VąŅƅȅ00y1"/p gt7t8t*q} \LQtLDtL^tLQt r/` @HHHM @hhhLb΍$*r}v tLu A ii A*s}ɀ ɀLRu Aɀ ɀLu88Lcu*t}  A iiLt`CP Aɀ ɀLu88Lcu(BOL=705 COL2=706 GCOL2=707 JOY1=632 JOY2=633 TRIG=644 TRIG2=645 RANDOM=53770 CONSOL=53279 DMA=559 HCOL1=$v}D016 HCOL2=$D017 HCOL3=$D018 HCOL4=$D01A CINV=$D019 POPF=$D004 P1PF=$D005 M1PL=$D009 MOPL=$D008 M2PL=$D00Aw} POPL=$D00C P1PL=$D00D P2PL=$D00E HITCLR=$D01E A B BFORM1 BFORM2 ACOUNT MRICHT MRICHT2 PYY GYY SHXx} SHY SGX SGY LI_RE LI_RE2 LAEUFT GLAEUFT HSCROL=$D404 SCCOUNT SCHRITT BSCROL1 BSCROL2 BSCROL3 BSCy}ROL4 BX BY SINCOUNT PRIOR=$D01B **** CREDITS *** VCOUNT=$D40B RTCLK=$14 WSYNC=$D40A COLPF2=$D016 TEXTCOLz}=$D017 TEXTBACK=$D018 COLBACK=$D01A ZEILE ZAEHLER CHARSET=$D409 HZAEHL **** SCORE **** HSCOUNT VBLCOUNT S{}C_DELAY]ARRAY[ KURVE(158) **** SCORE **** SIN(140) **** CREDITS **** HEAD(21)=$98B0 HEAD2(30)=$98BF SCRL1(|}21)=$9C00 SCRL2(21)=$9C14 SCR1(31)=$9C28 SCR2(31)=$9C46 SCR3(31)=$9C64 SCR4(31)=$9C82 SCR5(31)=$9CA0 SCR6(31)=$}}9CBE SCR7(31)=$9CDC SCR8(31)=$9CFA SCRL3(21)=$9D18 SCRL4(31)=$9D2C]MAIN DMA=0 SCORE1=0 SCORE2=0 **** TIT~}LEPIC **** DATA($7930) [ 112,112,112 112,112,112 112 78,$9CE0 14,14,14,14,14,14,14,14,14 14,14,14},14,14,14,14,14,14,14 78,$A000 14,14,14,14,14,14,14,14,14,14 14,14,14,14,14,14,14,14,14,14 78,$A320 14,14},14,14,14,14,14,14,14 14,14,14,14,14,14,14,14,14,14 78,$A640 14,14,14,14,14,14,14,14,14 14,14,14,14,14,14,14,}14,14,14 78,$A960 14,14,14,14,14,14,14,14,14 14,14,14,14,14,14,14,14,14,14 78,$AC80 14,14,14,14,14,14,14,}14,14 14,14,14,14,14,14,14,14,14,14 14,14 65,$7930 ] OPEN(1,4,0,"D1:BWFONT.FNT") BGET(1,1016,$7C08) CLOS}E(1) POKE(756,124)************** SONG BEGINNEN ****** OPEN(1,4,0,"D1:AGRESSIV.CMC") BGET(1,6,$8996) BGET(1,1429,$8}400) CLOSE(1) OPEN(1,4,0,"D1:AGRESSIV.REP") BGET(1,6,$8996) BGET(1,3521,$8996) CLOSE(1) .TITLEPIC **** SCORE }**** DATA(SIN) [ 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 }5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 }5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 5,6,7,8,9,10,9,8,7,6 ] **** CREDITS ***** C}LR(125,13) DATA($79E2) [ 112,112,112 194,$98B0 0,112,112 7,7,112,112,7,7 112,112,7 135,112,112,82},$9928 65,$79E2 ] **** BILDSCHIRM FREI CREDITS **** CLR(152,8) DATA($98DE) [ 48,50,47,39,50,33,45,26 }0,0,0,0,0,0,0,0,0,0 0,0 45,33,36,0,34,53,52,51,35,40,37,50 0,0,0,0 39,38,56,26 0,0,0,0,0,0,0,0,0,0 0,}0,0,0,0,0 50,37,48,44,33,57,0,15,34,34 0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0 51,38,56,26 0,0,0,0,0,0,0,0,0,0} 0,0,0,0,0,0 34,37,37,52,44,37 ] ANFANG=$9C00 HZAEHL=15 HSCROL=15 POKE(756,124) HEAD=" MILLIGREEN "} HEAD2="(C)FOUNDATION TWO 1998 " SCRL1=" " SCRL2=" " SCR1="..HI TO:ABBUC,SWAT},RAF,VAC,HAP" SCR2="D,RENE,MIRCO,FOX,BITBUSTERS,PA" SCR3="RANOID,ESCAPE,505,MC LASER,FUN" SCR4=",DIRK,MYSTIK BYTES,CREA}TURE XL" SCR5=",SHIUMING,JOE,MIKE,STEFAN,CLAU" SCR6="S,BASTIAN,FROST,SWE,SAGE,LLAMA" SCR7=",MISS STRESS,MARKUS,COBRA,TH}OM" SCR8="AS,MARCSTAR,DHS,CENTEK,RUVEN.." SCRL3=" " SCRL4=" " DLI(DLI}ST) VBI(VBL_CRED) DMA=0 DPL=$79E2 DMA=34 ZAEHLER=0 WHILE CONSOL<>6 IF ZAEHLER=2 ZEILE=VCOUNT AD}D(ZEILE,RTCLK,ZEILE) ZAEHLER=0 WSYNC=RTCLK COLPF2=ZEILE ENDIF ZAEHLER+ WEND **** ALLES AUS}SCHALTEN **** POKE($79E2,65) DPOKE($79E3,$79E2) .DUNKEL DMA=0 DLI(DLILEER) VBI(VBLLEER) CALL($40,0,0,$8999) } OPEN(1,4,0,"D1:MILLI.FNT") BGET(1,1024,$A000) CLOSE(1) POKE(756,160) DPL=$AE00 **** DAS EIGENTLICHE SPIEL ****} GEPOKE=3* CLR(125,10) DATA(KURVE) [ 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 1,1,1,0,1,1,0,1,1,0,1,0,0,1,0,0,1 }0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2 0,2,0,2,0,2,2,0,2,2,0,2,2,2,2,0,2 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 2,2,2,2,2,2},0,2,2,2,2,0,0,2,2,0,2 2,0,2,0,2,0,2,0,0,2,0,0,0,0,0,0,0 0,0,0,0,0,0,1,0,0,1,0,0,1,0,1,1,0 1,1,0,1,1,1,0,1,1,1,1,}1,1,1,1,0,1 1,1,1,1,1 ] DATA($7A00) [ 0,0,192,224,224,0,127,0,0 0,0,28,127,0,240,224,192,0,0 0 0,}0,3,7,7,0,254,0,0 0,0,56,254,0,15,7,3,0,0 0 0,0,0,2,0,0,0,0 0,0,2,1,1,2,0,0 0,2,1,1,1,1,2,0 } 2,1,1,1,1,1,1,2 0,0,0,8,0,0,0,0 0,0,8,4,4,8,0,0 0,8,4,4,4,4,8,0 8,4,4,4,4,4,4,8 0,0,0,1,0,0,0},0 0,0,1,2,2,1,0,0 0,1,2,2,2,2,1,0 1,2,2,2,2,2,2,1 0,0,0,4,0,0,0,0 0,0,4,8,8,4,0,0 0,4,8,8,8,8,4,0 } 4,8,8,8,8,8,8,4 0,0,0,3,5,24,24,160,192,0,0,0 0,0,0,0,0,159,249,0,0,0,0,0 0,0,0,192,160,24,24,5,3,0,0,0 0},0,24,16,16,24,24,8,8,24,0,0 ] ENDLOS=1 ***************** BEGINN NEUES SPIEL WHILE ENDLOS=1 **** DISPLAYLI}ST GAME **** DATA($AE00) [ 112,112,112 78,$9800 14,14,14,14,14,14 14,14,14 78,$9990 14,14,14,14,1}4,14 14,14,14 78,$9B20 14,14,14,14,14,14 14,14,14,142 0,84,$A5A0 84,$A618 68,$A690 68,$A708} 68,$A780 68,$A7F8 68,$A870 68,$A8E8 196,$A960 212,$A9D8 212,$AA50 212,$AAC8 84,$AB40 } 84,$ABB8 84,$AC30 84,$ACA8 0 206,$9940 78,$9918 78,$98F0 78,$98C8 78,$98A0 78,$9878 }78,$9850 78,$9828 78,$9800 65,$AE00 ] OPEN(1,4,0,"D1:MPIC.PIC") BGET(1,1280,$9800) CLOSE(1) BFORM1=1}44 BFORM2=96 EXTRA1=0 EXTRA2=0 BX=0 SINCOUNT=0 BY=110 JOYDELAY=0 BSCROL1=7 BSCROL2=7 BSCROL3=7 BSCROL4=}7 BLINK1=1 BL_TIME=0 BLINK2=1 BL_DAUER=0 LIVES1=0 LIVES2=0 PLADR=$7A00 PLADR1=$7A09 PLADR2=$7A14 PLADR}3=$7A1D BONUS=$7AA8 SCCOUNT=7 SCHRITT=0 HCOL1=140 HCOL2=136 HCOL3=132 HCOL4=0 DPL=$AE00 PMBASE=124 CLR(1}23,4) LAEUFT=0 GLAEUFT=0 B=0 PMCTL=3 SHX=100 **** PLAYER 1 **** RICHT=0 LI_RE=0 MRICHT=0 COL=125 COL2=5}4 PX=70 PY=80 **** PLAYER 2 **** RICHT2=1 LI_RE2=1 MRICHT2=1 GCOL=125 GCOL2=26 GX=150 GY=150 OPEN(1,4,}0,"D1:BACK80.MAP") BGET(1,6,$A5A0) BGET(1,80,$A5A0) BGET(1,80,$A618) BGET(1,80,$A690) BGET(1,80,$A708) BGET(1,80},$A780) BGET(1,80,$A7F8) BGET(1,80,$A870) BGET(1,80,$A8E8) BGET(1,80,$A960) BGET(1,80,$A9D8) BGET(1,80,$AA50) B}GET(1,80,$AAC8) BGET(1,80,$AB40) BGET(1,80,$ABB8) BGET(1,80,$AC30) BGET(1,80,$ACA8) CLOSE(1) MOVEADR=$A5A0 NA}CHADR=$A5F0 ACOUNT=0 REPEAT BMOVE(MOVEADR,NACHADR,40) ADD(MOVEADR,120,MOVEADR) ADD(NACHADR,120,NACHADR) A}COUNT+ UNTIL ACOUNT=16 ************ PLAYER LOESCHEN ***** CLR(123,5) ACOUNT=0 **** BILDSCHIRM AN **** DMA=62 } POKE(752,160) CALL($70,0,$84,$8999) CALL(0,0,0,$8999) CALL(0,0,0,$899C) VBI(VBL) DLI(DLI1) HSCROL=15 DELAY=}0 GAMEOVER=0 WHILE GAMEOVER=0******* JOYSTICK UND PLAYERBEWEGEN *** BLCOUNT+ IF BLCOUNT=255 BLCOUNT=0 } .BLTEST ENDIF JOYDELAY+ IF JOYDELAY=55 JOYDELAY=0 .CONTROL(JOY1) .CONTROL2(JOY2) .LAUF} BX+ TEMP=KURVE(SINCOUNT) IF TEMP=2 BY- ELSE ADD(BY,TEMP,BY) ENDIF SINCOUN}T+ IF SINCOUNT=158 SINCOUNT=0 ENDIF ENDIF******* COLISIONEN ABFRAGEN **** IF PX>216 PX=40} ENDIF IF PX<40 PX=216 ENDIF IF GX>216 GX=40 ENDIF IF GX<40 GX=216 ENDIF } ************ PL1 - RAND ****** IF GY<62 .LOST2 GY=62 ENDIF IF GY>182 .LOST2 GY=1}82 ENDIF ************ PL2 - RAND ****** IF PY<62 .LOST1 PY=62 ENDIF IF PY>182 }Quick-SourcetextD2:BWTXT.TXT ----------------Length: $0002Free : $7769----------------DIES IST EIN TOLLER T^}EXTck-SourcetextD2:BWTXT.TXT ----------------Length: $0002Free : $7769----------------DIES IST EIN TOLLER T\( 2pB@|A | ii eiHHLFhhii`3@@@  Y  Y )`.  @i  I` `h@i@Rf}@@ Y  Y )`.  @i  I` `h@i@Rdfff??3몾몂몂몂몂3 0~ 0~}`@ 80 0 ~~`0 0`~}~x|~~p|~>f8<<<<<8<~vvpp~|lv~}p~|pxv|v||888<~4v|8l||8|~x`x`~<~~<~}0~0 ~ f6|>~~x~|p~>~|f<<<<<8~<8vvxl|~}|p|vxv||~|8<v6>wgn,|l|8|0x|^?wc|>8~~ 0~<~~<~}~x|nf8x8xv||~|8<v6>wgn,|l|8|0x|^?wc|>8~~ 0~<~~<|ۛ00+檻 檻 檻e\e\e\?5Y5Y5Y/}SeUSeUS 0UYUYj?no0 ϪS:US:US;UVUVŪ0 3e_e_e_ 8YYY?}?&&&?; 003;l<<<<}0VVV9y<<<<<<Cu] \{{{m AyxwwwnpA;}?mlwwwc67y$ӀAxwwwܜ<<<<<< *cggg'<<<<}ؓ7 À6eUUUUUUUUUUVY9?jUV8 ,UUff}3l33UYV( 0UeU3J UV,UUVfj?30?eVUVY} ꙕUV*?UUVf30 8j0z }l09?溻k0} 0 0 3}j6lj}j0osUfj}sfmo^jZZj}jjZZj^jjjjj}]jjj\?jZZjY[9lZZfh}UZZUj륥j륥}UkUkjZZjjZZj}jZZjjjjj}jVUjjjjjjj}jjjjjjjjjW}jjWjjjjjjjj}jjf}}jZZjjZZjjj}jjjjjZZj}ZZUZZUj륥j}륥UkUkjZZj}jZZjjZZjjjj}jVUjjj}jjj}jj:}.,8}lX+}XX8},l.9:?}}}}}}}}}֔WW}>X[˹ll}sc\?}h[)WWf5X[[}lljn}}}}0 30} 0 k?}溻l09555 gggggg] \8] \ʂ}zyx?yxmlmlrrrJVVVVVVAxAx}gggggg 0lll9 ,[[[l6}7 À'eUUUUUUUUUUVYؓ?jUV+cUUff3673}3UYVӀUeU3ܜ UV ;?UUVfj?30c ?eVUVYnpy }ꙕUV+UUVf30ml 0j09°; }003;?&&&?3e_e_e_ 8YYY?o0 ϪS:US:US;}UVUVŪ0 SeUSeUS 0UYUYj?ne\e\e\?5Y5Y5Y/ۛ00+檻} 檻 檻翮 ne\e\e\?5Y5Y5Y/ۛ00+檻;.LOST1 PY=182 ENDIF ************ PL1 - PL2 ****** COLREG=POPL COLTEST=0 AND(COLREG,2,COLTEST) } IF COLTEST=2 .LOST1 .LOST2 ENDIF ************ PL3-PL4 ******** COLREG=P2PL COLTEST=0 A}ND(COLREG,8,COLTEST) IF COLTEST=8 .LOST1 .LOST2 ENDIF ************ PL1 - BONUS **** COLREG=M2}PL COLTEST=0 AND(COLREG,5,COLTEST) IF COLTEST>0 BX=0 IF EXTRA1<24 ADD(EXTRA1,8,EXTRA1) }ENDIF ENDIF ************ PL2 - BONUS **** COLREG=M2PL COLTEST=0 AND(COLREG,10,COLTEST) IF C}OLTEST>0 BX=0 IF EXTRA2<24 ADD(EXTRA2,8,EXTRA2) ENDIF ENDIF ************ MISSILE }2 ******* COLREG=M1PL COLTEST=0 AND(COLREG,5,COLTEST) IF COLTEST>0 .LOST1 ENDIF *********** }* MISSILE 1 ******* COLREG=MOPL COLTEST=0 AND(COLREG,10,COLTEST) IF COLTEST>0 .LOST2 ENDIF }HITCLR=13********************** A=0 DELAY+ IF DELAY=10 DELAY=0 IF MRICHT=0 SHX+ ELSE } SHX- ENDIF IF SHX<48 LAEUFT=0 ENDIF IF SHX>208 LAEUFT=0 ENDIF IF }MRICHT2=0 SGX+ ELSE SGX- ENDIF IF SGX<48 GLAEUFT=0 ENDIF IF SGX>208 } GLAEUFT=0 ENDIF ENDIF IF LAEUFT=0 IF TRIG=0 LAEUFT=LI_RE LAEUFT+ MRICHT=0 } SHX=PX ADD(SHX,4,SHX) SHY=PY ADD(SHY,9,SHY) MRICHT=LI_RE ENDIF ENDIF IF G}LAEUFT=0 IF TRIG2=0 GLAEUFT=LI_RE2 GLAEUFT+ MRICHT2=0 SGX=GX ADD(SGX,4,SGX) } SGY=GY ADD(SGY,9,SGY) MRICHT2=LI_RE2 ENDIF ENDIF IF LIVES1=10 SCORE2+ IF SCORE}2=100 SCORE2=0 ENDIF GAMEOVER=1 ENDIF IF LIVES2=10 SCORE1+ IF SCORE1=100 } SCORE1=0 ENDIF GAMEOVER=1 ENDIF WEND DMA=0 VBI(VBLLEER) .DUNKEL CALL($40,0,0,$8999) .}SCORE WHILE ENDLOS=1 WEND ENDLOS=1 WENDENDMAINPROC LAUFBEGIN IF RICHT=0 PX+ ENDIF IF RICHT=1 PX}- ENDIF IF RICHT=2 PY+ ENDIF IF RICHT=3 PY- ENDIF IF RICHT2=0 GX+ ENDIF IF RICHT2}=1 GX- ENDIF IF RICHT2=2 GY+ ENDIF IF RICHT2=3 GY- ENDIF ENDPROCPROC CONTROLINBYTE[ J}OY]BEGIN IF RICHT<2 IF JOY=14 RICHT=3 ENDIF IF JOY=13 RICHT=2 ENDIF ELSE IF JOY=11 } LI_RE=1 RICHT=1 PLADR=$7A14 PLADR1=$7A1D ENDIF IF JOY=7 LI_RE=0 RICHT=0 PLADR=$}7A00 PLADR1=$7A09 ENDIF ENDIFENDPROCPROC CONTROL2INBYTE[ JOY]BEGIN IF RICHT2<2 IF JOY=14 RI}CHT2=3 ENDIF IF JOY=13 RICHT2=2 ENDIF ELSE IF JOY=11 LI_RE2=1 RICHT2=1 PLADR2=$7A14} PLADR3=$7A1D ENDIF IF JOY=7 LI_RE2=0 RICHT2=0 PLADR2=$7A00 PLADR3=$7A09 ENDIF EN}DIFENDPROCINTER VBLBEGIN IPUSH ATRACT=0 CALL(0,0,0,$899C) .MISSILE HCOL1=140 HCOL2=136 HCOL3=132 HCOL4=0} PXPOS=PX ADD(PY,2,PYY) PXXPOS=PX GEPOS=GX ADD(GY,2,GYY) GXXPOS=GX SHOTX=SHX GSHOTX=SGX BONUSX=BX BO}NUSXX=BX PLAYER(124,PY,9,PLADR) PLAYER(125,GY,9,PLADR2) PLAYER(126,PYY,10,PLADR1) PLAYER(127,GYY,10,PLADR3) SCCOUNT}- IF SCCOUNT=255 SCCOUNT=7 BSCROL1- BSCROL2- BSCROL3- BSCROL4- ENDIF IF SCCOUNT=1 BSCROL4- }BSCROL3- BSCROL2- ENDIF IF SCCOUNT=3 BSCROL4- BSCROL3- ENDIF IF SCCOUNT=5 BSCROL4- ENDIF IF BSCRO}300 30!}0300??"}030??#0???,30??#}, ??333<?? 0/$}33:%TEUXU`V%aU ϯ3[YuV_Yue]Yp:3>?Zme[ZmeYm`6%};0XaeXYajXYa`&30XaeXYa`XYa`̼30llmlm30&} ,,,?30|}|}/>? <0 (((,'}||}|};3llmlm%0 hvgmƚgm6;3UZ0(}\fYqs٭qpUV3ë..ˮ: /3UV 0 ʸ,ϥUU0 )}??- ?UU ??5bUUn3 ??)m UUn ??*}?>yl?UUO33?UW? l>oETQ  ?< l>:@2"$ +}X>UNl339V h >2 >337UU?̷,}U\ 8, 0 SwUF,?g `Ȉ,Vp ? :UZ-}8 0N0ʫ80s@l \\;.} ? g Ͼ Y6X0;<fl @/}Y,?? ?; hJ ?ff 3Y,?305UW_`˷0}U UhJ;5UW[\f 30VX,?5UWW\e dJ5V\ VϷ1}<>3 UX,;5U\ ee ɕdJ53Y\ V eX3U^U,35]\ Uɷ2}hJU]Upff53^\Vp: e?3U]Us,U5_\U3&ƙhJ}pf5_\ ̙V e;3}<5}s,e35\s_\k̦Y0f lJ5}pV5\s_\i&Y ;?5}s,ee5\s_\Z0fnJ5ͷ4}}pVL5_\ f%U0 j;?5,U5_\ë Yo2s5p,XVO05_\ j Ul <ì?5s15}U53_\; <0k5pV`5_\&3 ?5Y0 53_\3 ;<k5up i6}5_\ ë ?5usZ/53_\ 32l5up3f05_\ < 30óL5}s,왛5׷7}_\;>M5}pj  5UW_\ ?3F5}p 3;}s,0 9}>;FWU]Up̑ ? :WU]Us,;< fJ%WU^U?   :}?,0<fFð  0 ?<,3} 3 0 p ?<: F}9 3G}23 H}I}J}K}L}M}}391섄,4016 edjfg edjfg edjfg hhhh`aibchhhhh`aibchhhhhhhhhhhh`aibchhhhwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyT}4010wxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyQ}zwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzR}wxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvrstrstrstrstrstrstrstrstrstrstrstrstrstrqklmnoqklS}mnoqklmnoqklmnoqklmnoqklmnoqklmzwxyzuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvuvrstrstrstrstrstrstrstrstrstrstrstrstrstrqklmnoqklz{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~wxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyz{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~wxyzU}wxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyz{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~{|}~wxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzwxyzuvuvuvuvue}4016 edjfg edjfg edjfg hhhh`aibchhhhh`aibchhhhhhhhhhhh`aibchhhhwW}wX}wY}  wZ}              w[}                 t_WW$$$OOOOOOOOfUfUfUfUUfUfUOOOOO&&OO@O@OOOUiAAՏ]}̈00 T 0TP0 P(̨T ̈T00@0̈<  0 @ 0@ 0W^}WWWUUDP̈PP̈PTTT@̈D̈D 00  DD@TDDP̈D_}̈P@PD0 PT 00 D̈D<<DDD00DD0 T00T 00 @00P 00 P`}UWW__}}}UUUYUUUUUUU]UUUUa}着UUUUUUUUU99? b}UUUU[[[[[𰰰UUUUZ[[}0 SHADR=31484 ADD(SHADR,SHY,SHADR) SHDATA=$7A28 ADD(SHDATA,EXTRA1,SHDATA) MUL(LAEUFT,64,ACOUNT)} ADD(SHDATA,ACOUNT,SHDATA) SUB(SHDATA,64,SHDATA) ACOUNT=0 WHILE ACOUNT<8 PEEK(SHADR,A) PEEK(SHDATA},B) OR(A,B,A) POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SHADR) ACOUNT+ WEND ENDIF} ************** MISSILE 2 IF GLAEUFT>0 SHADR=31484 ADD(SHADR,SGY,SHADR) SHDATA=$7A48 ADD(SHDATA,EXTRA2,}SHDATA) MUL(GLAEUFT,64,ACOUNT) ADD(SHDATA,ACOUNT,SHDATA) SUB(SHDATA,64,SHDATA) ACOUNT=0 WHILE ACOUNT<8 } PEEK(SHADR,A) PEEK(SHDATA,B) OR(A,B,A) POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SH}ADR) ACOUNT+ WEND ENDIF ******** BONUS MISSILES SHADR=31487 ADD(SHADR,BY,SHADR) PEEK(SHADR,A) AND(A,1}5,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) OR(A,BFORM1,A) POKE(SHADR,A) ADD(SHADR,1,SHADR)} PEEK(SHADR,A) AND(A,15,A) OR(A,BFORM2,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) POKE(SHA}DR,A) IF BFORM1=144 BFORM1=96 BFORM2=144 ELSE BFORM1=144 BFORM2=96 ENDIFENDPROCPROC BLTESTBEGIN I}F BLINK1>0 IF BLINK1=1 BLINK1=2 COL=0 ELSE BLINK1=1 COL=255 ENDIF BL_}TIME+ IF BL_TIME>20 BL_TIME=0 BLINK1=0 COL=125 ENDIF ENDIF IF BLINK2>0 IF BLINK2=1 BL}INK2=2 GCOL=0 ELSE BLINK2=1 GCOL=255 ENDIF BL_DAUER+ IF BL_DAUER>20 BL}_DAUER=0 BLINK2=0 GCOL=125 ENDIF ENDIFENDPROCINTER VBL_CREDBEGIN ZPUSH ATRACT=0 CALL(0,0,0,$899C)} CHARSET=124 ZAEHLER=0 TEXTCOL=255 TEXTBACK=0 HZAEHL- HSCROL=HZAEHL IF HZAEHL=255 HSCROL=15 HZAEHL=1}5 ADD(ANFANG,4,ANFANG) IF ANFANG=$9D20 ANFANG=$9C00 ENDIF ENDIF DLI(DLIST) ZPULLENDVBIINTER DLIST}BEGIN ZPUSH CHARSET=224 DLI(DLIST2) ZPULLENDDLIINTER DLIST2BEGIN ZPUSH CHARSET=124 ZPULLENDDLIINTER VBL}_SCBEGIN ZPUSH ATRACT=0 HSCOUNT=VBLCOUNT IF SC_DELAY=4 SC_DELAY=0 VBLCOUNT+ IF VBLCOUNT=10 VBLCOUN}T=0 ENDIF ENDIF SC_DELAY+ ZAEHLER=0 ZPULLENDVBIPROC SCOREBEGIN COLBACK=0 CLR(152,8) DATA($79C0) [ } 112,112,112 112,112,112,112 87,$9800 112,23,112,23,112,23,112 22,22 65,$79C0 ] DATA($9806) [ } 48,44,33,57,37,50,0,47,46,37 ] DATA($9836) [ 48,44,33,57,37,50,0,52,55,47 ] DATA($9864) [ 48,50,37,51,51},0,51,52,33,50,52 0,52,47,0,0,0,0,0 0,0,0,0,0,0,0 48,44,33,57,0 33,39,33,41,46 ] .ZAHL(2,10,SCORE1,$9822)} .ZAHL(2,10,SCORE2,$9852) POKE(756,224) VBI(VBL_SC) DPL=$79C0 CLR(123,5) DMA=62 ZAEHLER=0 HSCOUNT=0 VBLCOU}NT=0 SC_DELAY=0 WHILE CONSOL<>6 IF ZAEHLER=2 ZEILE=VCOUNT ADD(ZEILE,RTCLK,ZEILE) ZAEHLER=0 W}SYNC=RTCLK HSCROL=SIN(HSCOUNT) COLPF2=ZEILE HSCOUNT+ ENDIF ZAEHLER+ WEND **** ABDUNKELN ***}* POKE($79C0,65) DPOKE($79C1,$79C0) .DUNKEL POKE(756,160) DMA=0ENDPROCPROC DUNKELBEGIN DPOKE($D016,0) DPOKE}($D018,0) POKE($D01A,0) ZAEHLER=0 WHILE ZAEHLER<100 ZAEHLER+ WENDENDPROCPROC TITLEPICBEGIN .DUNKEL DMA=0} CLR(160,15) OPEN(1,4,0,"D1:MILIGREN.MIC") BGET(1,4880,$9CE0) CLOSE(1) POKE(708,250) POKE(709,246) POKE(710,24}5) POKE(712,0) DPL=$7930 DMA=34 CALL($70,0,$84,$8999) CALL(0,0,0,$8999) CALL(0,0,0,$899C) VBI(TITLE) WHILE} CONSOL<>6 WEND WHILE CONSOL=6 WEND .DUNKEL DMA=0ENDPROCINTER TITLEBEGIN IPUSH ATRACT=0 CALL(0,0,0,$899C}) IPULLENDVBI .ZAHL(4,1000,1998,30244)PROC ZAHLIN BYTE [ STELLEN ] WORD [ TEILER ZAHL SCRADR ]}LOCAL WORD [ B C ]BEGIN C=0 B=0 WHILE STELLEN>0 DIV(ZAHL,TEILER,B) ADD(B,16,C) IF C>25 C=1}6 ENDIF POKE(SCRADR,C) WHILE B>0 SUB(ZAHL,TEILER,ZAHL) SUB(B,1,B) WEND DIV(TEILER,10,TEILER)} ADD(SCRADR,1,SCRADR) STELLEN- WENDENDPROCZAHL,TEILER,ZAHL) SUB(B,1,B) WEND DIV(TEILER,10,TEILER)7) SHDATA=$7A28 ADD(SHDATA,EXTRA1,SHDATA) MUL(LAEUFT,64,ACOUNT) ADD(SHDATA,ACOUNT,SHDATA) SUB(SHDATA,64,SH}DATA) ACOUNT=0 WHILE ACOUNT<8 PEEK(SHADR,A) PEEK(SHDATA,B) OR(A,B,A) POKE(SHADR,A) ADD(}SHDATA,1,SHDATA) ADD(SHADR,1,SHADR) ACOUNT+ WEND ENDIF ************** MISSILE 2 IF GLAEUFT>0 S}HADR=31484 ADD(SHADR,SGY,SHADR) SHDATA=$7A48 ADD(SHDATA,EXTRA2,SHDATA) MUL(GLAEUFT,64,ACOUNT) ADD(SHDATA,}ACOUNT,SHDATA) SUB(SHDATA,64,SHDATA) ACOUNT=0 WHILE ACOUNT<8 PEEK(SHADR,A) PEEK(SHDATA,B) OR(A,}B,A) POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SHADR) ACOUNT+ WEND ENDIF ******** BO}NUS MISSILES SHADR=31487 ADD(SHADR,BY,SHADR) PEEK(SHADR,A) AND(A,15,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(S}HADR,A) AND(A,15,A) OR(A,BFORM1,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) OR(A,BFORM2,A) }POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) POKE(SHADR,A) IF BFORM1=144 BFORM1=96 BFORM2=144} ELSE BFORM1=144 BFORM2=96 ENDIFENDPROCPROC BLTESTBEGIN IF BLINK1>0 IF BLINK1=1 BLINK1=2 CO}L=0 ELSE BLINK1=1 COL=255 ENDIF BL_TIME+ IF BL_TIME>20 BL_TIME=0 BLIN}K1=0 COL=125 ENDIF ENDIF IF BLINK2>0 IF BLINK2=1 BLINK2=2 GCOL=0 ELSE BLINK2=}1 GCOL=255 ENDIF BL_DAUER+ IF BL_DAUER>20 BL_DAUER=0 BLINK2=0 GCOL=125 ENDIF } ENDIFENDPROCINTER VBL_CREDBEGIN ZPUSH CHARSET=160 ZAEHLER=0 TEXTCOL=255 TEXTBACK=0 HZAEHL- HSCROL=HZAEH}L IF HZAEHL=255 HSCROL=15 HZAEHL=15 ADD(ANFANG,4,ANFANG) IF ANFANG=$9D20 ANFANG=$9C00 ENDIF END}IF DLI(DLIST) ZPULLENDVBIINTER DLISTBEGIN ZPUSH CHARSET=224 DLI(DLIST2) ZPULLENDDLIINTER DLIST2BEGIN Z}PUSH CHARSET=160 ZPULLENDDLIINTER VBL_SCBEGIN ZPUSH HSCOUNT=VBLCOUNT IF SC_DELAY=4 SC_DELAY=0 VBLCOUNT+} IF VBLCOUNT=10 VBLCOUNT=0 ENDIF ENDIF SC_DELAY+ ZAEHLER=0 ZPULLENDVBIPROC SCOREBEGIN COLBACK=0 } CLR(152,8) DATA($79C0) [ 112,112,112 112,112,112,112 87,$9800 112,23,112,23,112,23,112 22,22 65},$79C0 ] DATA($9806) [ 48,44,33,57,37,50,0,47,46,37 ] DATA($9836) [ 48,44,33,57,37,50,0,52,55,47 ] D}ATA($9864) [ 48,50,37,51,51,0,51,52,33,50,52 0,52,47,0,0,0,0,0 0,0,0,0,0,0,0 48,44,33,57,0 33,39,33,41,}46 ] DATA($9852) [ 16,17 ] DATA($9822) [ 16,17 ] POKE(756,224) VBI(VBL_SC) DPL=$79C0 CLR(123,5}) DMA=62 ZAEHLER=0 HSCOUNT=0 VBLCOUNT=0 SC_DELAY=0 WHILE CONSOL<>6 IF ZAEHLER=2 ZEILE=VCOUNT ADD}(ZEILE,RTCLK,ZEILE) ZAEHLER=0 WSYNC=RTCLK HSCROL=SIN(HSCOUNT) COLPF2=ZEILE HSCOUNT+ END}IF ZAEHLER+ WEND **** ABDUNKELN **** POKE($79C0,65) DPOKE($79C1,$79C0) DPOKE($D016,0) DPOKE($D018,0) POKE($}D01A,0) ZAEHLER=0 WHILE ZAEHLER<100 ZAEHLER+ WEND POKE(756,160) DMA=0ENDPROC16,0) DPOKE($D018,0) POKE($^A,B) OR(A,B,A) POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SHADR) ACOUNT+ WEND ************** }MISSILE 2 SHADR=27388 ADD(SHADR,SGY,SHADR) SHDATA=$7148 ADD(SHDATA,EXTRA2,SHDATA) MUL(GLAEUFT,64,ACOUNT) ADD(SHD}ATA,ACOUNT,SHDATA) SUB(SHDATA,64,SHDATA) ACOUNT=0 WHILE ACOUNT<8 PEEK(SHADR,A) PEEK(SHDATA,B) OR(A,B,A) } POKE(SHADR,A) ADD(SHDATA,1,SHDATA) ADD(SHADR,1,SHADR) ACOUNT+ WENDENDPROCPROCED BONUSMISBEGIN SHADR=2}7391 ADD(SHADR,BY,SHADR) PEEK(SHADR,A) AND(A,15,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) } OR(A,BFORM1,A) POKE(SHADR,A) ADD(SHADR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) OR(A,BFORM2,A) POKE(SHADR,A) ADD(SHA}DR,1,SHADR) PEEK(SHADR,A) AND(A,15,A) POKE(SHADR,A) IF BFORM1=144 BFORM1=96 BFORM2=144 ELSE BFORM1=144} BFORM2=96 ENDIFENDPROCPROC BLINKTESTBEGIN IF BLINKEN1>0 IF BLINKEN1=1 BLINKEN1=2 COL=0 } ELSE BLINKEN1=1 COL=255 ENDIF BL_DAUER1+ IF BL_DAUER1>20 BL_DAUER1=0 BLINKEN1=0} COL=255 ENDIF ENDIF IF BLINKEN2>0 IF BLINKEN2=1 BLINKEN2=2 GCOL=0 ELSE BLINK}EN2=1 GCOL=155 ENDIF BL_DAUER2+ IF BL_DAUER2>20 BL_DAUER2=0 BLINKEN2=0 GCOL=155 } ENDIF ENDIFENDPROC55 ENDIF BL_DAUER2+ IF BL_DAUER2>20 BL_DAUER2=0 BLINKEN2=0 GCOL=155 ?