NNNNNNJp NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNN\O`  @`! #@%`')+/1 35`79;=?A CE`GIKMOQ S@U`WY[]_a c@e`moq s@u`wy{} @` @ ` ` @ ` @ ` ǀ ɠ ` ׀ ٠  @`/@`!Aa  !Aa!!#A%a')+-/1!3A5a79;=O`  @`! #@%`')+/1 35`79;=?A CE`GIKMOQ S@U`WY[]_a c@e`moq s@u`wy{} @` @ ` ` @ ` @ ` ǀ ɠ ` ׀ ٠  @`/@`!Aa  !Aa!!#A%a')+-/1!3A5a79;=ROXXOR mSIGMA jKILLER 1_2DESKTOP INF jJ:EXPLODE PRG kJ:+pISOLA PRG oJ:kKNIFFEL PRG sJ: LEES DITmt <IA213 m;. m.. ROXXOR PRG DJ:ҤSOURCE s-BLITTER INF VJ:i`*O*m <"ҍA.A// Bg?<JNA &MN5N60<<3xNhvNOOP ><3xNhORIGIN ^PS0  R0  DP OFFSET BASE OUTPUT INPUT  ERRORHANDLER "VOC-LINK 8UDP J NEXT-LINK VUP ><3xNhh END-TRACE<<rAh*<+p<3hChJFg E""TI<``~SP@,=><3xNhSP!<FMh><3xNhUP@=+p><3xNhUP!0@7Fp><3xNh  FORTHSTART @- ><3xNh,0RP@X, =><3xNhLPRP!t<FKh><3xNhhl>R ;><3xNhR> =><3xNh R@ =><3xNh RDROPTM><3xNh EXIT >(G><3xNh UNNEST >(G><3xNh  ?EXIT6J^g>(G><3xNh( ,EXECUTEZ><3xNh NPERFORMX fC@ <Ahp=><3xNhJ zC! <Ah0><3xNh CTOGGLEr @<Ah(><3xNh !<Ah><3xNh 2@ <Ah(((><3xNh 2! F<Ah><3xNh:>LC@j ^p=><3xNh^bLC! ^0><3xNh|L@  ^H=><3xNhL!  ^0@H><3xNhLCMOVE 0 ^"^J@gS@Q><3xNhL2@ ^-><3xNh L2!: ^ ><3xNh.2LN+! f ^"P ><3xNhX\+! <AhTHTNDTN><3xNhx|DROP TN><3xNhSWAP  H@,><3xNhDUP=><3xNh?DUP JVg=><3xNhOVER =.><3xNhROT8240<==><3xNh,0NIPZ<><3xNhNRUNDERt H@,=><3xNhfj-ROT 402<==><3xNhPICK B0@=6><3xNhROLL   -ROLL   2SWAP, ",-><3xNh"2DUP L-><3xNh>B2OVERf-.><3xNhX\2DROPXN><3xNhtx+0V><3xNhOR 0V><3xNhAND0V><3xNhXOR0V><3xNhNOT FV><3xNh- 0V><3xNh  NEGATE 4DV><3xNh $ (DNEGATE PD><3xNh @ DD+ h і><3xNh \ `D- ><3xNh v zD* "$&HC(HDH@ABH@-><3xNh  1+ RV><3xNh  2+ TV><3xNh  3+ VV><3xNh  4+ XV><3xNh (\V><3xNh $ 1- @SV><3xNh 4 82- XUV><3xNh L P4- pYV><3xNh d hON   OFF  TRUE =<><3xNh | FALSE =<><3xNh  1 =<><3xNh  2 =<><3xNh  3 =<><3xNh  4 *=<><3xNh  $"-1  <3xNh 8 NLITERALZ T<><3xNh bBV><3xNh  f0< JVk` 0= JVg` < 0Vn` U< 0Vb` UWITHIN6r < < > 0Vmt` 0> JVn``l 0<> *JVfL`X "U> >02@b4`@ 6= T0Vg `, ND0=  bD=  N f h rD< 6J ~ XXb  J^g=VTN><3xNh  MINJ  MAXJ  UMAX J  UMIN J <  EXTEND   DABS  ~ N ABS ~ 2 6 6(DO  H b(?DO  ~ H tBOUNDS  ENDLOOP \M><3xNh ! (LOOP RUe<-Ih><3xNh ! ̆(+LOOP 02UQAk<-Ih><3xNh " I$0m=><3xNh"J@0-m=><3xNh6#:BRANCH d><3xNhT#X?BRANCHJ^gTL><3xNhp$t>MARK $>RESOLVE  $<3xNh&IF Z~ &0THEN  < &DELSE  Zb &ZBEGIN &xWHILE  Z~ T* T R~ b&REPEAT  Zb&UNTIL Z~'DO Z h '?DOZ | ' LOOP  Z Z '+LOOP Z Z ':LEAVE  V(VUM*z0-><3xNh,(r*0=><3xNh(M*  ~ 2 ~ 2x~ N(2* ><3xNh(2/ ><3xNhN (division overflow _26HjDD@i0HBJj JBgS@CDB==N*UM/MOD b0"iHA-><3xNh *VM/MOD0$a><3xNhx*|/MOD 04Ha|><3xNh+/04H2AjaX<><3xNhi(=><3xNh+MOD04H2AjaTN><3xNhiHB=><3xNh,*/MOD,4*/ <X,JU/MOD `,ZUD/MOD  ``-nCMOVE0<Ah<ChJ@gS@Q><3xNh0-CMOVE> 0<@Ah<@ChJ@gS@!Q><3xNh.MOVE J ~.PLACE6 .COUNTD<AhB@RV=><3xNh/:FILL j02<AhJAgSAQ><3xNh\/`ERASE h0,<+p<3hAh<+pTsh><3xNh0C, <+p<3hAh0<+pRsh><3xNh1HERE <+p=3h><3xNh1ALLOT$<+p0sh><3xNh1PAD TB1TIB savesystem roxxor.prgrgg2z>IN2BLK2SPAN 2TIB2QUERY TP4t  3/STRING 6 ==><3xNh844SKIP n02RA<AhSAg fRH``4dSCAN 02RA<AhSAg gRH``f am zn NuCtfVINuRIQNu6CAPITAL2a<><3xNh`6 CAPITALIZE <AhB@g SaQ><3xNh7 (WORDJBA08<Ah46+ÐCn7D`.R@S@gfR`"HR@S@g gRHRA`JAgRHˑ7H<+p<3hAh<SAkQ ><3xNh<9@EVEN  9LOADFILE L9SOURCE ~ -|;t9WORD H9PARSE>  ( 9&NAME (:XSTATE:nEASCII( v~ p:|,"  T". "$:"LIT rB:(" :"Z;(."B3P;." Z;A( T).;B.(  T).3P;.A\*N *N;BB\\ ;;^\NEEDS `"X~F;pHEX T;DECIMAL T BV><3xNh<DIGIT? <+p03h20k  k k_j<=<><3xNh= ACCUMULATE p02.4.<+p63hHABA҂Ҁ-A><3xNh= CONVERT B~b > B  >B~   T, R T. R T&~ T  T$~ T  TH~ T  T%~  ANDPL~ ~ N6 4  R4 BNUMBER?& B  6nx T-~ nx~ nx 2n x ~  n xbBHNUMBER R (? ~ CLAST CHIDE ~ V CREVEAL ~ V C$RECURSIVE.~ rCB IMMEDIATE T@TClRESTRICT  TTD CLEARSTACK <+p<3h FMh><3xNhJDHALLOT   6 ~ ~ 2   DHEAP  TDHEAP?$  $$ .; (_TG=><3xNhE4DOES>Z~ TNZhF?HEADF|4 FALIGN "FHALIGN $ FWARNING4 "hX~(exists 2GBLK@ G:MAKEVIEW $KLGLCREATE X ` T ( invalid name " ~ F T Tb. ~TG=><3xNh|H^NFA? 4<Ah<fBf><3xNhAhTCh@R@2AA@@ g<3hBf“= ><3xNh I>NAMED~J n~bXB TIJNAME>z T ~I>BODY I.NAME~<~|B T3Pb???(JCREATE:h  $ J:~; Ix><3xNhFJ; Z$.J4CONSTANT h~=3x><3xNh0JJ 2CONSTANTh~NhKpVARIABLE h "K 2VARIABLEh ("KUALLOT P T <( Userarea fullPPKUSER hP P ~0+pr3xA=><3xNhlKALIASh T ~ T"b T TzL 4VP !d!Rcd!RL jCURRENT!RL CONTEXT p  p L ALSO  p T (6Vocabulary stack full  p L TOSS  p~ T pM VOCABULARY h  DD~Nh M!FORTH!<M!HONLY !l4b4b!V~Nh p  M!Z ONLYFORTH!b!P !N! DEFINITIONS   VRN!ORDER h"! T ( !N!WORDS 2 ~2 (bz T ~  T~ > T@~ 2Bf><3xNh 0P!(FIND"j<Ah<Ch@( f2R@"D<gAh2shAfEh& TTtTBBoIf``&<gAhEh& "DfSk f`<=<><3xNh"\R"`FIND   V R~ Vr"h~X" p <~  VbX R"'`" (Haeh?R#<[COMPILE]#@R#T[']#@ pR#j NULLSTRING? ~X<3xIhTL><3xNh"S#z >INTERPRET #$T#NOTFOUND $#T# NO.EXTENSIONS(6Haeh?T# INTERPRET#%`"~ ~X#( compile only#4R ~##%`"~ ~X###4R~ ~ p p###U#A[ T$$#v U$] T$D$#v  (crashV$DEFERh T$~>3x<3xNhV$(IS  T# R T# R( not deferredV$BIS #@$v~ Z$' T ( tight stack.~<~b n1 (Dictionary fullW%$?STACK %<+p03h"@ AbN%H03h "Ak ><3xNh#N ( Stack emptyX%.STATUS$_X%PUSH %X&(LOAD ~+T& & +f& & & +T%$X&$LOAD  &,Y&f+LOAD&nY&xTHRU   h "&n Y&+THRU  h "& Y&C-->  %Y&RDEPTH V Y&DEPTH v~ compiling okZ&(QUIT%3B$'bZ':'QUIT$'BZ'VQUIT r$'^Z'd STANDARDI/O Td (Z'|'ABORT $Z'ABORT'''l['SCR['R# ['(ERROR '(B3P(2~'''l['ڇ(ABORT"~2p~2p[(ABORT" Z([(LERROR" Z(6\(d -TRAILING(0g<Ah  V @fB@=><3xNh%](|BL ^ ](SPACE(36](SPACES  |( B V^(HOLD  ((^(<# ((^)#> (( ^)&SIGN  ~ T-)^)>#x6 T  ~ T T0)^)X#S )\J h~_)D.Rr ())6)F),6  (3P_).R  6)_)U.R )_)D.  )(_). )_)U.  )`* .S   T |"* `*C/L^@`*HL/S^`*TLIST 'Scr '*Dr ;**Z h$3B" )('-"*N*N(3P 3Ba*`PAUSE*><3xNh(a*LOCK  R~~*ba*UNLOCK * T _U"H7Ip0<<<(Mh<Kh<Ih><3xNh*b+ISFILE  b+JFROMFILE Lb+ZPREV b+lB/BUF^hfhNuc+~(CORE? +0.2<+psh<++vAhaf TNPH<3xNh+FAhaf20+v7H+v`e+R/W$Ef+BACKUP  & ~J  ~.& & ' &   +( write error  Tf,EMPTYBUF    ,r& & ' T +( read error+t~  R~+x*,  J   +x+ +t~ & ~g,fFULL?+t ~ & g-"CORE?+ h-D(BUFFER+,,bh-X(BLOCK +,,,bh-rISFILE@-<+p=3h ><3xNh+h-BUFFER --bh-BLOCK--|i-UPDATE  T+t &i- SAVE-BUFFERS +x*-~, b+x+ i- EMPTY-BUFFERS+x*+t~ ,rb+x+ i.FLUSH...+f-|--L~+t,r-*~.-6.^ T D-. <J ~$ f | T fJ.h b |J.h f .j.NCOPY  .j.CONVEY    (Nein !.k/ LIMIT^k/6FIRSTk/D ALLOTBUFFER/L + 4+ 2/L/L,r+t+tk/R FREEBUFFER /L/>+  ~./L, +t/L ~b/L+/Lk/ ALL-BUFFERS/L/`/L R~ T r <$D~\ n >   ~.<~ 0~ 0~  z bbm/REMOVE ~4<~  <b  ~ bXbD~ n0b  ~(J ~  VbbD0 h J" ~ T!R" T J  ~ T!R b0n0 CUSTOM-REMOVE$K01801z1$  o1CLEAR1o1(FORGET<( is symbol0$1o1FORGET #@ T^ ( protectedR<~b n1o1EMPTY T^1 TlPp24SAVE 1D n V ~ Tp2VBYE.V2<;3 T  R T R~ p2STOP?3~22 p2?CR3*N <~3Bh ~Nhpq2OUTPUT:~Nhq3EMIT 3q3.CR 3q3<TYPE 3q3HDEL3q3VPAGE 3q3bAT 3 q3pAT?3 q3|ROW3q3COL3Xh ~Nhpq3INPUT: ~Nhq3KEY3q3KEY? 3q3DECODE 3q3EXPECT 3rSEAL  T!br4$ONLY !br42%FORTH!Pr4>%WORDS!r4J$ALSO r4V+DEFINITIONS!D V n ~ +t/>/L/s4 'COLD$Ф T4r443j7`!3B T(XB3P3B4s4'RESTART $ T'B$'`;4 Th2 T$''N ( Bus Error !N (Adress Error !\ON (Illegal Instruction !\ON (Division by 0 !Mt4COLD 5 I4~>< <3pPMh\F7Fp>< <3pPKhB|@ fB?< NA'@5\<<5Ah!<<5,Ah! <<5JAh!<<5lAh!<<+Ah!><3xNh-v5RESTART60I4`jx6$BCONSTAT 6H0??<NMXO=><3xNh6 x6:BCOSTAT6p0??<NMXO=><3xNh6`x6dBCONIN 60??<NMXO2=><3xNh6x6BCONOUT60???<NM\O><3xNh6y6#BS^y6#CR^ y6#LF^ y6#ESC ^y7CON!  6y7CURON77 Te7y7&CUROFF 77 Tf7y7>WRAP 77 Tv7y7XCURLEFT77 TD7 9y7pCURRITE77 TC7 9y7STKEY?  6Fy7GETKEY 7~ 6b y7STKEY7.*7~7H7J7z3J  2r3P(3v >  >J  2 ( 33P3v {7STDECODE  TM~ ~7  TK~~7z > TR~ ~8> T ~6~ ~8 T~J ~7 86~736  3vJ36 R~  |8|STEXPECT 7 7 ~ 34b(|9dKEYBOARD 37789p^P}9STEMIT  T6 9*}9STCR 677799 99}9STDEL67(67 T9}:STPAGE 77 TE79 }:"STAT 77 TY7 T 7 T 799}:@STAT?99 T ~:xSTTYPE :6<JCg$k9SCAh/ ??<?<NM\ORF&_QN*~:DISPLAY3"99:: :,:H::/+5?< NA\OBgNA7H::B/BLK^;(BLK/DRV __;"BLK/DRV;.;;6DRIVE T;R>DRIVE  T ;jDRV?  T;DRVINIT;DRV0  ;Z;DRV1  ;Z;RWABS;/ 0<Ah2TA?+;??</??<NM&_=><3xNh6<?+;?< NMXO=><3xNh<<6?+;?<NMXO0@0=><3xNh<2;STR/W(no file  T; <~*beyond capacityX<~<4;.;;@ ~  b T ;v (not enough Parameters=?<<Ah/?<<3xNh??<>NAXO=><3xNh=:=X0B4<Ah//??<@NA =><3xNh=T< SAVESYSTEM 2^.V(B (missing filename = ( no device T`  T  T   =V ( write error=< ( close error=DOS!2>F ( Dos-Error #00>L ?DISKABORT  ~>Zh~Nh?( FILENAMELEN^?R?^FILENAME ?R?vFILESIZE ?R? FILEHANDLE ?R?FILENO ?R!?B/FCB^#?HANDLE -??LSEEK???/?<BNA -><3xNh=?POSITION  ? 4 @ POSITION? 6 ? ~?6 @* (FILEREAD@^0B4<Ah//??<?NA =><3xNh@ @P*(FILEWRITE =V @ (OPENFILE@?<<Ah/?<=NAPO=><3xNh@ @DTAMUSIC2.DAT'/n{ FMUSIC2.DAT @SETDTA A<Ah/?<NA\O><3xNh@ A*(CLOSEFILE =< A.+(CREATEFILE= A@SEARCH0A^?<Ah/?<NNAPO=><3xNhA* AR SEARCHNEXT A?<ONATO=><3xNhA| A(MAKEDIR A2<9<Ah/?NA\O=><3xNhA A(SETDIRA2<;` ASETDRIVE A??<NAXO><3xNhA AGETDRIVE B ?<NATO=><3xNhB BGETDIR BD?<Ah/?<GNAPO=><3xNhB4B8 (CAPACITY?J ~;`~ Br  T$;x@JB~?rB~ ;B@\ ~ B=V ~ Bf SCAN-NAME T  C.FILE ~ DIRECT !  VRC6.FCB ? )? T) (C> (?C3PC`!FILES +T+f^CPATHES D:;FORTH\;A:;;CPATHES?3B (CB3PCSETPATHC C$ T;CBC CC WORKSPACEA:MUSIC2.DAT*D8J??lD8A\ D8J D8s8^ T;lJJ T;X D, (SEARCHFILEDCBDDDD|~ D8  T; ~XD SEARCHFILE D4 T?6@ TE66?DE(OPEN?~@AE(ED@?6?>$CAPACITY -~ EZBr;@ERFILER/W ~HLIST  (H*hH(PATH `B ~C R~ T; R~ C DF 4J V R~ - VH~ (not in direct modeH>OPEN HEZ HCLOSEHGzHASSIGN H-FDHHMAKE HFDEIUSE`"~H~~XG#@XHIMAKEFILE G#@XIITFROM +T& II|LOADFROM +T& +f& I&nHIINCLUDE IIEOF-?@66? xIFILES T*.*BFIFILES"  T T"BF-??@?6-?; f6D-;J(hJ?=V?6; ~H( Disk vollJ*I(MOREE | "J@ JrMORE HEZJzH`BDJMAKEDIRJA?6JDIR`B ~$BJ BB?63B ( TA36:C3PDA?6h~NhAJA: KKB: KK&C: KK2D: K^ 4~ ?KH K>(VIEW 4KHbF~J? R~E(C!KpREMOVE?<~J <  +TKX~ C+fKX~+f F~K~GzbF0-+f+T+f"KCONVEY  <J LE > LE > ( wrong range!/L" FORTH_83.SCR GFORTH_83.SCR Ln FILEINT.SCRGLFILEINT.SCR( L STARTUP.SCRGLSTARTUP.SCR L ASSEMBLE.SCR GLASSEMBLE.SCRL M ASSEMBLER!<^x^x>0END-CODE  V Md>CODES M"M NONRELOCATEMMh~NhMXMMMMMM M ~MMMMMSIZE 0@N.B  TN N.W  T0@N N&.L  T)N V~NhN NRNRNRNR0N  T) RNr~ T@ T h T"V V~Nh TN:D0 ^ND1 ^ND2 ^ND3 ^ND4 ^ND5 ^ OD6 ^ OD7 ^O A0 ^HO,A1 ^IO8A2 ^JODA3 ^KOPA4 ^LO\A5 ^ MOhA6 ^ NOtA7 ^OO)NO)+ NO-) N OD) NhO(DI) NO#) ^OL#)^OPCD) ^O(PCDI) ^O#^ V~NhP P P 8P ?P P P"PP* (needs Data-RegisterP R(needs Adress-RegisterOSP ^ NPRP ^ MPIP ^LPFP ^K PDI)ON  PPCDI)ON O RP RNr TO2O RO R~2N N P TP~ TNjP&N P T QN~ PPMbQN~0PPQr ~r  b Qrb QrQr~,Qr  R~ Mb MQr TV~NhQzP"NbMNrMQ PORIQ RANDI Q R SUBI Q R.ADDI Q R<EORI Q  RJCMPI Q V~NhNbM RXANDI>SRRj< RxEORI>SRRj < RORI>SR Rj<V~NhQzP"P TNbMQ RADDQ RP RSUBQ RQV~NhP>P4NfMQ\ RADDA R SCMPA R SLEARA S"SUBA RV~NhP*~<P*~ T b  TPP TNbMb0P" T T T8 T@ TMQ\ S.ASLS@ SASRS@ SLSLS@ SLSRS@ SROXL S@ SROXR S@ SROLS@ TRORS@V~NhQzP*~PP4 Tb P" TMQQ\ TBTST T" TXBCHG T"@ TfBCLR T" TtBSET T"#@ h "X  T T`V~NhM  < T ~ P&MbM TBRAT` TBSRTa TBHITb UBLSTc U BCCTd UBCSTe U$BNETf U0BEQTg U<BVCTh UHBVSTi UTBPLTj U`BMITk UlBGETl UxBLTTm UBGTTn UBLETo T TPV~NhPMM M UDXIT UP UDBRA UQ UDBHI UR UDBLS US UDBCC UT VDBCS UU VDBNE UV V$DBEQ UW V2DBVC UX V@DBVS UY VNDBPL UZ V\DBMI U[ VjDBGE U\ VxDBLT U] VDBGT U^ VDBLE U_ T TPV~NhP4MQ\ VSETVP VSNOVQ VSHIVR VSLSVS VSCCVT WSCSVU W SNEVV WSEQVW W$SVCVX W0SVSVY W<SPLVZ WHSMIV[ WTSGEV\ W`SLTV] WlSGTV^ WxSLEV_WMOVE Qz TP4NnMQ\QWMOVEQPHPP& TpMWMOVE>USP PfP TN`MWMOVE QzP" THNMMQX MOVEM< QzP" TLNMMQX.MOVEPP*~PP TbP6P TNMXPLMOVE TP" T MXCMPM PP TNbMXEXGP*~P*~ T@b TbP*~ Tb THPP>MXEXTPHP THNMYSWAP PHP TH@MY2STOP  TNrMYLTRAP  T TN@MY`LINK PfP TNPMY|UNLK PfP TNXMYEORQzP"P>Nb TMQYCMPPH TP>P4NbMQ\V~NhP>PP~ TMYABCD YZSBCD YV~NhP>PP~ TNbMZADDX Z0ZTSUBX Z0V~NhP*~PP4NbMQ\bQzP"P> TNbMQZbADDZtZSUBZtZANDZtZOR ZtV~NhPHP>P4MQ\ZCHKZAZDIVU Z[DIVS Z[MULU Z["MULS ZV~NhP4MQ\[0JSR[BN[RJMP[BN[^MOVE>CCR [BD[jMOVESR[BF[NBCD [BH[PEA[BH@[TAS[BJV~NhP4NbMQ\[CLR[B[NOT[F[NEG[D[NEGX [@[TST[JV~NhM\ RESET\Np\&NOP\Nq\4RTE\Ns\@RTS\Nu\LTRAPV\Nv\XRTR\Nw\fTHEN M  M\rIF MM V\ELSE  T`\\z\BEGINM\UNTILMM M >M\AGAIN T`\\WHILE\\REPEAT \\z]DO M]LOOP U],0= ^f]<0<>^g]H0< ^j]T0>=^k]`<^l]l>= ^m]v<= ^n]>^o]CC ^e]CS ^d]REG) N & N@ PP]NEXT N,POO&WO&]OWO][dMbb]R#)N &  ~N,POWO]N,POM M ~ TM  M 2 ]PCREL) ^( ( out of rangeO^R;C: ^[XMp$MN ASSEMBLERMZN,^CODE h V^^;CODE Z^$.^^>LABEL hx (M n$ ($B T~Nhv~ p^LABELM MM^^_> DIVERSES.SCR GM(DIVERSES.SCR( _Z>ABSADDR  > f _.BLK  4 R~3BH Blk *2 _ABORT( ~ 4 ( !T VBJr _CPUSHV r$_ `BELL  T7 `>BLANK(h`R STRINGS.SCRG_lSTRINGS.SCR0 `dCAPS  `-TEXT`<Ch0fBV><3xNhBbS@<AhVB@ !H=><3xNh` am zn Nua<Ch0fBV><3xNh`S@<AhaaVBA a!a=><3xNha `COMPARE`~ab` aTSEARCH    ` ~~.Ja^ ~   >b   atDELETE    ~J(h aINSERT 6  6 b$SUM  bH$ADD bPBbP bVC>0" B >r  b0>C"  X 2 >  b,0" T". "$  bB0" v~ZbZ  bb LINE_A.SCR G`tLINE_A.SCR c GRAPHICS !<3xNhaPe RECTANGLEeZa1zd60n1@,0n1@*1^(1^&<:Ch!I.1z21z241z81z:1z<1z>><3xNheH eL SHOW_MOUSE ea&"hBi3|"hB ><3xNhe e HIDE_MOUSE f ><3xNhe e FORM_MOUSE f&a"h<Ah22222p"Q ><3xNhf@ fGET_RESfv?<NNTO=><3xNhfXfZdP (  (Y-Wert zu grofZdP ( (X-Wert zu gro fjCHECKfJzf ><3xNhfNf fRELATIVE g0z2z ==><3xNhf gSETg67^d27^d$><3xNhg* g.DRAW d"d0*e gL CLIP_WINDOWd ccccx gfBOXg8:>^6::^aN1C&1D(1E*1D,a81E&1D(1E*1G,a"1C&1G(1E*1G,a 1C&1D(1C*1G,><3xNhgHg+SPRITEh20<Eh<AhH Lx><3xNhhh -SPRITEhL<EhH Lx><3xNhh<h@ PUT_PIXELhxa| zf"h2"h 3^2><3xNhhfhj GET_PIXELhaF z0"h 3^2=><3xNhhhPOLYGONha1z6<:Ch!I.1zn21z41zx81z:1z~<1z>"h3V0@U@:6<x"h 262f Ae6Ad8J@gU@`2PUE2PXE* E1C(RCCf><3xNhhcV ALLOCATE.SCR Gc0ALLOCATE.SCRi~MALLOC i/?<HNA\O,NJ ( No more RAMiMFREEi/?<INA\O=N( mfree Error!i ROXXOR.SCR GiROXXOR.SCR j RO_SP.SCRGj(RO_SP.SCRx jNS_MA^jS_DATA ^JjSAVERALLOT B T2j(cuts the dictionaryP T@ (kills returjSPRITE:h T h ("  T h" T"  T"  j'SP1 .nn.kJ'LER k'SP2 .j j.k'WE1 lL'WE2 l'FK1 5U@5 l'FK2  *j*  mN'R ppp m'O ppp m'EPF ||88>p>p nL'X q;qn'MAU .Q@஠ઠ஠Q@.n'VIC oL RANDOM.SCR Gj\RANDOM.SCR o(RANDOMo?<NNTO=><3xNhizoRANDOM ooRANDOMIZ  T T h p p SOUND.SCRGoSOUND.SCR< p>SOUND# p~/?< NN\O><3xNhoprHOL_WERT  p SOUNDBEFEHL: h~Nhp >  h" > pFEIN_1 ppGROB_1 pqFEIN_2 pqGROB_2 pq FEIN_3 pq0GROB_3 pq@RAUSCH pqPMULTIpq`LAUT_1 pqnLAUT_2 p q~LAUT_3 p q PERIODE_1p q PERIODE_2p qHLL p qEFFEKT pqLNGEpqSOUND: h~Nh_p|qAUS Tqh qr ^T0q r ^T1q     (r:^T2q ( < r`^T3q ( <   r^T4q  (  < P r MULAD.SCRGpLMULAD.SCR rSOUND# s/?< NN\O><3xNhps MUSIKGrMUSIC2.DAT s.MUSIK: hs6-??@\"~Nh _ss^MELODIEs   n     ?     z n    5 ?  z    n     ?     z n    5 ?  z        W   5 k           k       W   5 k           k   n     ?     z n    5 ?  z    n     ?     z n    5 ?  z         +          y +          W   5 k           k   n     ?     z n    5 ?  z                  O        n         ?  v    ^  z n  i   v  5 ?    z      n      ?     z n    5 ?  z      n         ?  v    ^  z n  i   v  5 ?    z    @  n     ?     z n    5 ?  z           W    5 k                k         W     5 k            k     n         ?  v    ^  z n  i   v  5 ?    z      n      ?     z n      5 ?   z   i        +     }        y +     v       W   5 k      v         k     n      ?       z n     5 ?    z                  O     n ?  n    ?                 n ?  n    ?        5  W  z         W   5 k           k       W   5 k           k   n     ?     z n    5 ?  z    n     ?     z n    5 ?  z         +          y +          W   5 k           k   n     ?     z n    5 ?  z    n  sWERYMOV ^4XMOV ^HHE ^ AMAX ^7BMAX ^FELD ALLOT MODULO ȇlFELD_ADR vFELD@FELD!P1 ALLOT P2 ALLOT DIR_1DIR_23Z1#Z2#DIREKT (SPRITESkmlVlkTloF#LER ^b#FK^p#WE1 ^|#WE2 ^#SP1 ^#SP2 ^#MAU ^E1 E2 EMAX ^E1_SAV ALLOT 4E2_SAV ALLOT @PUNKTE_1 PUNKTE_2 PMAX ^MAXR ^ RASTER ALLOT #RASTERSPEED SP_SCALE ^(#MAUERN*AB@ :AB!v POLD@  (@jOLD!  (V~>OLD @6INIT  Ȏ jj" T֑V T֑ T V T 葆GLOBAL 4  LINEMASK!c e. OVERWRITE d@N EXORWRITE d@fWHITE c~BLACK cWISCHddrZ T TeX Z_HAUPT Tޒ: (  ( g4ڇ T Tg T  T g4ڇ T  T g Z_KOPF  : g4 T T(g T g4 T T(g T (g4 T T g 8FELD_WEG ZڇeXڇ >XYȇ PUT_AB j*h PUT_XY j*h PUT_IT vJPړ ++  (Z_ROXJm T T.Jm T .Jn T Ȕ.Jn T .Jm T T.m @WARTE | T h  REVERS 77 Tp7 NORMAL 77 Tq7 XTYPE̒ :Br33P T T T 6 Tdde  e Z_SCHRIFT 3vMIN......ENERGIE......MAX T63vMAX......ENERGIE......MIN T T H XZ_ENGhJJhJnT  ThnTJ Tq    Th Z_ALLES֓BdDIR@  (r2 SET֑r r ֑@ @ HOLD_WEG֑rڔ r"ڔ tNEW_POS~֑葚"֑@.J֑V "@.JVNPF_R ^MPF_L ^KREAKT7Ζ~ ~  T TA~  TS~ RNDV WHL_ZAHL\ Tz T<bWHL_POS n TxXn TxX EXPLOSIONrr@ h$\ TF hn:Je MTYPEBX TO  T 3vSAG_WAS ~ KOLLISION - KEIN SIEGER ~BEIDE OHNE ENERGIE ~LINKS WURDE ZERSTRT ~LINKS OHNE ENERGIE (~RECHTS WURDE ZERSTRT T~RECHTS OHNE ENERGIEZ_PUNKTE  (~& h" T  T ToT  (~& h T" T   ToT  SAG_GRUND& R~  R~  T'rWHL_LER  ppJ ~RASTER@ RASTER!J vFLICKER h2"掮v R~"" p~mbmV $BUMrkޑ@kޑ@ TДnENERGIE+ rfڏ ENERGIE-  > ؏ > ؏KOL_2~֚tt ș~ v~"Ԛ j~ t (~ KOL_1~֚tt ș~ v~Ț j~ ֚t ~ BKOLL ~Jb PRF_ENG ڏ h~֚tt ~  ~֚t ~  ~t T~  Z_MAUERN 4 |Jp >pJ J  Jȇ ȏ  ȇ ȏ r& FIRST_ENGnT T ThnTJ T ThhJJhJ|.LOG ZABONG SOFTWRS PRSENTIERT T LOGO  T TH T T T h T"H s.SPEED ̑ T36*CR>> 3B3B3 T3vJCR>3B3 3vf.MEN T T3vDAS MEN - BITTE WHLENRR1 AUF INS GEFECHTR2 ANLEITUNGR 3 TEMPO: 4R4 INFO ZU DIESEM SPIELRR0 ZURCK INS DESKTOP|WEILEڑ$: SPEED_BOUND T  ؑR.ENDEڐ R~."LINKS IST DER SIEGER DIESES SPIELSb*#RECHTS IST DER SIEGER DIESES SPIELS`F T蔤s T GLCKWUNSCH DEM GEWINNER T#(xEINS ƖNr TДN 47 ~ Tp Α.7~ʛ~~ .BbRUNDE!MAN MGE MIT DEN SPIELEN BEGINNEN Tp&ڐ Rڐ R~Ꞁ|TASTE7~.ANL1  3vlHBEIDE SPIELER STEUERN IHRE FAHRZEUGE (DIE ERDNSSE) MIT NUR ZWEI TASTEN.lBDABEI BENUTZT DER LINKE SPIELER DIE TASTEN A UND S, DER RECHTE DIEl>PFEIL-LINKS UND -RECHTS-TASTEN. DIE FAHRZEUGE DREHEN SICH BEIMlDRCKEN JEWEILS UM 90 GRAD.l?ZIEL DES SPIELES IST ES, DAS GEGNERISCHE FAHRZEUG ZU ZERSTREN.lADAZU ZIEHEN BEIDE FAHRZEUGE EINE ENERGIESPUR HINTER SICH HER, DIElKKEINER VON BEIDEN BERHREN DARF. AUSSERDEM VERBRAUCHEN DIE BEIDEN FAHRZEUGEl@ENERGIE, DIE SIE AN DEN ENERGIERASTERN (DEN BLINKKAROS) AUFLADENl>MSSEN. DIE SPUREN BEGINNEN AUCH ERST, WENN BEREITS EIN RASTERlBERHRT WURDE.l6DIE HINDERNISSE DRFEN NATRLICH NICHT GERAMMT WERDEN.l.INF   3vl2DIESES SPIEL WURDE MIT volksFORTH'83 PROGRAMMIERT.ll hol_wert 1- 0 swap DO I 1- roll c, -1 +LOOP ; -->\ Soundbefehle in DoSound $00 1 Soundbefehl: Fein_1 $01 1 Soundbefehl: Grob_1 $02 1 Soundbefehl: Fein_2 $03 1 Soundbefehl: Grob_2 $04 1 Soundbefehl: Fein_3 $05 1 Soundbefehl: Grob_3 $06 1 Soundbefehl: Rausch $07 1 Soundbefehl: Multi $08 1 Soundbefehl: Laut_1 $09 1 Soundbefehl: Laut_2 $0A 1 Soundbefehl: Laut_3 $0B 1 Soundbefehl: Periode_1 $0C 1 Soundbefehl: Periode_2 $0D 1 Soundbefehl: Hll -->\ Soundbefehle Seite 2 $81 3 Soundbefehl: Effekt $FF 1 Soundbefehl: Lnge : Sound: ( -- ) Create Does> >absaddr sound# ; : Aus ( -- ) %11111111 multi 0 lnge ; -->\ Sound Sound: ^t0 %11111110 multi 3 grob_1 18 fein_1 15 laut_1 8 hll 4 lnge aus Sound: ^t1 %11111000 multi 14 grob_1 18 fein_1 11 laut_1 13 grob_2 18 fein_2 14 laut_2 15 grob_3 18 fein_3 14 laut_3 5 hll 40 lnge aus -->\ Tne Sound: ^t2 %11101000 multi 2 grob_1 18 fein_1 11 laut_1 1 grob_2 40 fein_2 11 laut_2 1 grob_3 60 fein_3 11 laut_3 5 hll 1 lnge aus Sound: ^t3 %11100000 multi 1 grob_1 18 fein_1 11 laut_1 2 grob_2 40 fein_2 4 laut_2 3 grob_3 60 fein_3 11 laut_3 220 rausch 2 hll 10 lnge aus Sound: ^t4 %11110000 multi 10 grob_1 18 fein_1 8 laut_1 11 grob_2 40 fein_2 15 laut_2 12 grob_3 60 fein_3 8 laut_3 80 rausch 2 hll 5 lnge aus \ Spriteroutinen fr RoxxoR Danke an die Macher von volksForth fr die Grundroutinen. Ein paar schnelle Routinen findet man brigens in SPRITES.SCR \ Loadscreen ZaBong '88 Onlyforth \needs Graphics Include LINE_A.SCR Onlyforth Graphics also cr .( Die Sprites werden geladen... ) cr 2 15 thru \ Sprites ZaBong '88 &16 Constant s_ma &74 Constant s_data Create saver s_data allot : Sprite: Create 5 0 DO 4 I - roll , LOOP &16 0 DO &31 I 2* - roll &31 I 2* - roll , , LOOP ; %0010111010000000 %1111111111100000 \ ZaBong '88%0110111011000000 %1111111111100000 %1110111011100000 %1111111111100000 %0000000000000000 %1111111111100000 %1110111011100000 %1111111111100000 %1110111011100000 %1111111111100000 %1110111011100000 %1111111111100000 %0000000000000000 %1111111111100000 %1110111011100000 %1111111111100000 %0110111011000000 %1111111111100000 %0010111010000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'sp1 %0010111010000000 %1111111111100000 \ ZaBong '88%0110101011000000 %1111111111100000 %1110101011100000 %1111111111100000 %0000010000000000 %1111111111100000 %1110101011100000 %1111111111100000 %1001010100100000 %1111111111100000 %1110101011100000 %1111111111100000 %0000010000000000 %1111111111100000 %1110101011100000 %1111111111100000 %0110101011000000 %1111111111100000 %0010111010000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'sp2 %1111111111100000 %1111111111100000 \ ZaBong '88%1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 0 1 Sprite: 'ler %0000000000000000 %11111111111000 \ ZaBong '88%0000000000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000111000000000 %1111111111100000 %0001101100000000 %1111111111100000 %0001000100000000 %1111111111100000 %0001101100000000 %1111111111100000 %0000111000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'we1 %0000000000000000 %1111111111100000 \ ZaBong '88%0000000000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000111000000000 %1111111111100000 %0001111100000000 %1111111111100000 %0001111100000000 %1111111111100000 %0001111100000000 %1111111111100000 %0000111000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'we2 %0000000000000000 %1111111111100000 \ ZaBong '88%0000010000000000 %1111111111100000 %0000111000000000 %1111111111100000 %0001010100000000 %1111111111100000 %0011010110000000 %1111111111100000 %0101010101000000 %1111111111100000 %0011010110000000 %1111111111100000 %0001010100000000 %1111111111100000 %0000111000000000 %1111111111100000 %0000010000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'fk1 %0000000000000000 %1111111111100000 \ ZaBong '88%0000010000000000 %1111111111100000 %0000101000000000 %1111111111100000 %0001000100000000 %1111111111100000 %0010010010000000 %1111111111100000 %0110111011000000 %1111111111100000 %0010010010000000 %1111111111100000 %0001000100000000 %1111111111100000 %0000101000000000 %1111111111100000 %0000010000000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'fk2 %1110011111000000 %1111111111111000 \ ZaBong '88%1110011111100000 %1111111111111000 %1110011111110000 %1111111111111000 %1110000000000000 %1111111111111000 %1110000001110000 %1111111111111000 %1110000001110000 %1111111111111000 %1110000001110000 %1111111111111000 %1110000000000000 %1111111111111000 %1110011111110000 %1111111111111000 %1110011111100000 %1111111111111000 %1110000000000000 %1111111111111000 %1110001110000000 %1111111111111000 %1110001110000000 %1111111111111000 %1110000111000000 %1111111111111000 %1110000011100000 %1111111111111000 %0000000000000000 %1111111111111000 0 0 0 1 0 Sprite: 'R %0111111111000000 %1111111111110000 \ ZaBong '88%1111111111100000 %1111111111110000 %1110011111110000 %1111111111110000 %0000000000000000 %1111111111110000 %1110000001110000 %1111111111110000 %1110000001110000 %1111111111110000 %1110000001110000 %1111111111110000 %0000000000000000 %1111111111110000 %1110011111110000 %1111111111110000 %0111111111100000 %1111111111110000 %0000000000000000 %1111111111110000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'O %0000000000000000 %0000000000000000 \ ZaBong '88%0111111111111100 %1111111111111110 %0111111111111100 %1111111111111110 %0000000000000000 %0000000000000000 %0011100000111000 %0111110001111100 %0001110001110000 %0011111011111000 %0001110001110000 %0011111011111000 %0000111011100000 %0001111111110000 %0000000000000000 %0000000000000000 %0000011111000000 %0000111111100000 %0000011111000000 %0000111111100000 %0000001110000000 %0000011111000000 %0000001110000000 %0000011111000000 %0000000100000000 %0000001110000000 %0000000000000000 %0000000100000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'epf %1110000011100000 %1111111111100000 \ ZaBong '88%0111000111000000 %1111111111100000 %0011101110000000 %1111111111100000 %0000000000000000 %1111111111100000 %0000111000000000 %1111111111100000 %0001111100000000 %1111111111100000 %0000000000000000 %1111111111100000 %0111000111000000 %1111111111100000 %1110000011100000 %1111111111100000 %0000000000000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'X %0000111000000000 %1111111111100000 \ ZaBong '88%0001110100000000 %1111111111100000 %0011110010000000 %1111111111100000 %0111100001000000 %1111111111100000 %1011101010100000 %1111111111100000 %1111100100100000 %1111111111100000 %1101101010100000 %1111111111100000 %0111100101000000 %1111111111100000 %0011101010000000 %1111111111100000 %0001110100000000 %1111111111100000 %0000111000000000 %1111111111100000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'mau %1111100000000000 %0000000000000000 \ ZaBong '88%0000000000000000 %0000000000000000 %1111100000000000 %0000000000000000 %0000000000000000 %0000000000000000 %1111100000000000 %0000000000000000 %0000000000000000 %0000000000000000 %1111100000000000 %0000000000000000 %0000000000000000 %0000000000000000 %1111100000000000 %0000000000000000 %0000000000000000 %0000000000000000 %1111100000000000 %0000000000000000 %0000000000000000 %0000000000000000 %1111100000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 %0000000000000000 0 0 0 1 0 Sprite: 'vic \ Roxxor - ein Actionspiel fr zwei War eigentlich nur eine Nachmittagsspielerei. Wem's gefllt... Spenden werden gerne genommen. ZaBong Sorry fr den miserablen Code - war in nur drei Tagen fertig. Karsten Konrad Detzelstr. 33 6670 St. Ingbert \ Roxxor - ein Actionspiel fr zwei Onlyforth \needs 'ler Include Roxsprit.scr \needs random Include Random.scr \needs ^t0 Include Roxsound.scr \needs melodie : melodie ; \ die Melodie war unauffindbar Graphics Also \needs wer : wer ; forget wer : wer ; 2 31 thru \ Deklaration 52 Constant ymov 18 Constant xmov 11 Constant hhe 55 Constant amax 30 Constant bmax Create feld amax bmax * allot : modulo ( a b -- a b ) bmax mod swap amax mod swap ; : feld_adr ( a b -- ) modulo amax * + feld + ; : feld@ ( a b -- w ) feld_adr c@ ; : feld! ( a b w -- ) >r feld_adr r> swap c! ; \ Deklaration Create p1 8 allot Create p2 8 allot Variable dir_1 Variable dir_2 \ Richtungen Variable z1# Variable z2# \ Sprite# (zeichnen?) Create direkt 1 , 0 , 0 , 1 , -1 , 0 , 0 , -1 , Create sprites 'ler , 'fk1 , 'we1 , 'we2 , 'sp1 , 'sp2 , 'mau , 0 Constant #ler 1 Constant #fk 2 Constant #we1 3 Constant #we2 4 Constant #sp1 5 Constant #sp2 6 Constant #mau \ Deklaration Variable e1 Variable e2 190 Constant emax Create e1_sav s_data allot Create e2_sav s_data allot Variable punkte_1 Variable punkte_2 5 Constant pmax \ Deklaration 10 Constant maxr Create raster maxr 2* allot Variable #raster 5 #raster ! Variable speed 5 speed ! 40 Constant sp_scale Variable #mauern 5 #mauern ! \ Feldverarbeitung : ab@ ( adr -- a b ) dup @ swap 2+ @ ; : ab! ( a b adr -- a b ) >r modulo r@ 2+ ! r> ! ; : old@ ( adr -- ) 4 + ab@ ; : old! ( a b adr -- ) 4 + ab! ; : >old ( adr -- ) dup ab@ rot old! ; \ Initialisierung der Variablen : init ( -- ) 0 dir_1 ! 2 dir_2 ! emax e1 ! emax e2 ! #ler z1# ! #ler z2# ! 7 bmax 2/ p1 ab! 6 bmax 2/ p1 old! amax 7 - bmax 2/ p2 ab! amax 6 - bmax 2/ p2 old! ; : global ( -- ) #mauern off punkte_1 off punkte_2 off ; \ allgemeine Grafikbefehle : linemask! ( 16b -- ) linemask ! 0 0 0 0 line ; : overwrite ( -- ) 0 wr_mode ! ; : exorwrite ( -- ) 2 wr_mode ! ; : white ( -- ) 0 plane1 ! ; : black ( -- ) 1 plane1 ! ; : wisch ( -- ) black fullpattern pattern ! overwrite 0 0 639 399 rectangle ; \ Begrenzungen : z_haupt ( -- ) black %1011101111011110 linemask! xmov 4 - ymov 4 - set amax hhe * 7 + bmax hhe * 7 + box xmov 6 - ymov 6 - set amax hhe * 11 + bmax hhe * 11 + box ; : z_kopf ( -- ) white -1 linemask! 0 0 set 210 40 box 429 0 set 210 40 box 213 4 set 213 32 box ; \ Lschen des Spielfeldes, Sprites setzen : feld_weg ( -- ) black overwrite xmov ymov amax hhe * bmax hhe * rectangle feld amax bmax * erase ; : >xy ( a b -- x y ) hhe * ymov + swap hhe * xmov + swap ; : put_ab ( a b def_block -- ) saver 2swap >xy +sprite ; : put_xy ( x y def_block -- ) saver 2swap +sprite ; : put_it ( a b # -- ) >r modulo 2dup r@ 2* sprites + @ put_ab r> feld! ; \ Zeichnen des Titels : ++ ( x y x+ y+ -- x y ) -rot -rot + -rot + swap ; : z_rox ( x y -- ) 2dup 'R put_xy 15 5 ++ 2dup 'O put_xy 14 1 ++ 2dup 'X put_xy 14 0 ++ 2dup 'X put_xy 14 -1 ++ 2dup 'O put_xy 15 -5 ++ 'R put_xy ; : warte ( n -- ) 0 ?DO 10 0 DO LOOP LOOP ; \ Spezialausgabe : revers ( -- ) #esc con! Ascii p con! ; : normal ( -- ) #esc con! Ascii q con! ; : xtype ( adr -- ) revers black -1 linemask! count under >r >r at? r> r> type &8 * dup >r swap &16 * &12 + rot &8 * r> + over 2over 2over line 2 - -rot swap 2 - line normal ; \ Noch was fr den Kopf ZaBong '88 : z_schrift ( -- ) 1 1 at " MIN......ENERGIE......MAX" xtype 1 54 at " MAX......ENERGIE......MIN" xtype 278 12 z_rox ; : z_eng ( -- ) e1_sav -sprite e2_sav -sprite 'epf e1_sav e1 @ 3 + 6 +sprite 'epf e2_sav 625 e2 @ - 3 - 6 +sprite ; : z_alles ( -- ) init feld_weg z_haupt z_kopf z_schrift z_eng ; \ Richtung ansprechen : dir@ ( adr -- x+ y+ ) dup @ 4 mod under swap ! 2* 2* direkt + dup @ swap 2+ @ ; \ Zeichnen der Spielfigur : set ( -- ) p1 old@ #sp1 put_it p2 old@ #sp2 put_it p1 ab@ #sp1 put_it p2 ab@ #sp2 put_it ; : old_weg ( -- ) p1 old@ z1# @ put_it p2 old@ z2# @ put_it ; : new_pos ( -- i1 i2 ) old_weg p1 >old p2 >old dir_1 dir@ p1 ab@ ++ 2dup feld@ -rot p1 ab! dir_2 dir@ p2 ab@ ++ 2dup feld@ -rot p2 ab! set ; \ Antwort auf Tastaturkommandos &19712 Constant pf_r &19200 Constant pf_l : reakt ( -- ) getkey pf_l case? IF -1 dir_2 +! exit THEN pf_r case? IF 1 dir_2 +! exit THEN $FF and capital Ascii A case? IF -1 dir_1 +! exit THEN Ascii S case? IF 1 dir_1 +! exit THEN drop ; \ Explosion Variable rnd : whl_zahl ( -- ) rnd dup @ &31421 * &6972 + over ! @ ; : whl_pos ( -- ) whl_zahl &640 um* nip whl_zahl &400 um* nip ; : explosion ( x y -- ) exorwrite ^t1 2 0 DO dup rnd ! 70 0 DO whl_zahl linemask! 2dup whl_pos line LOOP LOOP 2drop ; \ Zeigen des Grundes und Punktzeiger : mtype ( adr -- ) dup count nip 79 swap - 2/ 12 swap at xtype ; : sag_was ( n -- ) 0 case? IF " KOLLISION - KEIN SIEGER" mtype exit THEN 1 case? IF " BEIDE OHNE ENERGIE" mtype exit THEN 2 case? IF " LINKS WURDE ZERSTRT" mtype exit THEN 3 case? IF " LINKS OHNE ENERGIE" mtype exit THEN 4 case? IF " RECHTS WURDE ZERSTRT" mtype exit THEN 5 case? IF " RECHTS OHNE ENERGIE" mtype exit THEN drop ; \ Punktzeiger : z_punkte ( -- ) punkte_1 @ 0<> IF punkte_1 @ 0 DO I 10 * 220 + 14 'vic put_xy LOOP THEN punkte_2 @ 0<> IF punkte_2 @ 0 DO 415 I 10 * - 14 'vic put_xy LOOP THEN ; : sag_grund ( n -- ) feld_weg dup sag_was 2/ dup 1 = IF 1 punkte_2 +! THEN 2 = IF 1 punkte_1 +! THEN z_punkte 10000 warte ; \ Anzeigen der Energieraster : whl_ler ( -- a b ) 0 0 BEGIN 2drop amax random bmax random 2dup feld@ 0= UNTIL ; : raster@ ( n -- a b ) 2* raster + dup c@ swap 1+ c@ ; : raster! ( a b n -- ) 2* raster + >r 2dup r@ 1+ c! r> c! #fk feld! ; : flicker ( -- ) #raster @ 0 DO I raster@ feld@ #fk = not IF whl_ler I raster! THEN I raster@ 2 random IF 'fk1 ELSE 'fk2 THEN put_ab LOOP ; \ Bumm, Energie+ : bum ( adr -- ) dup dup old@ 'ler put_ab ab@ 'ler put_ab ab@ >xy explosion 2000 warte ; : energie+ ( adr -- ) ^t2 dup @ emax 2/ 2/ + emax min swap ! ; : energie- ( -- ) e1 @ 1- 0 max e1 ! e2 @ 1- 0 max e2 ! z_eng ; \ Reagieren auf Untergrund : kol_2 ( g2 -- fl ) #sp1 case? IF p1 bum p2 bum 0 sag_grund false exit THEN #fk case? IF #we2 z2# ! e2 energie+ true exit THEN #ler case? IF true exit THEN drop p2 bum 4 sag_grund false ; : kol_1 ( g1 -- fl ) #sp2 case? IF p1 bum p2 bum 0 sag_grund false exit THEN #fk case? IF #we1 z1# ! e1 energie+ true exit THEN #ler case? IF true exit THEN drop p1 bum 2 sag_grund false ; : koll ( g2 g1 -- fl ) kol_2 IF kol_1 ELSE drop false THEN ; \ Energietest, Mauern einzeichnen : prf_eng ( -- fl ) e1 @ e2 @ d0= IF p1 bum p2 bum 1 sag_grund false exit THEN e1 @ 0= IF p1 bum 3 sag_grund false exit THEN e2 @ 0= IF p2 bum 5 sag_grund false exit THEN true ; : z_mauern ( -- ) #mauern @ 2/ 0 ?DO amax 2/ random bmax 2/ 1- random 2dup #mau put_it 2dup bmax swap - #mau put_it 2dup swap amax swap - swap #mau put_it bmax swap - swap amax swap - swap #mau put_it LOOP ^t0 ; \ Logo : first_eng 'epf e1_sav 5 5 +sprite 'epf e2_sav 5 5 +sprite e1_sav -sprite e2_sav -sprite ; : .log wisch " ZABONG SOFTWRS PRSENTIERT" mtype 3000 warte ; : logo ( -- ) first_eng .log wisch 278 190 z_rox 4000 warte 12 190 DO 278 I z_rox -1 +LOOP z_alles melodie ; \ Das Hauptmenue : .speed ( -- ) revers speed @ &16 + emit normal ; : cr>> ( -- ) cr cr at? 28 + at ; : cr> ( -- ) cr at? 3 + at ; : .men ( -- ) 6 28 at " DAS MEN - BITTE WHLEN" xtype cr>> cr>> " 1 AUF INS GEFECHT" xtype cr>> " 2 ANLEITUNG" xtype cr>> " 3 TEMPO: " xtype .speed cr>> " 4 INFO ZU DIESEM SPIEL" xtype cr>> cr>> " 0 ZURCK INS DESKTOP" xtype ; \ Tempo auswerten : weile ( -- ) speed @ sp_scale * warte ; : speed_bound ( -- ) speed @ &10 mod 1 max speed ! ; : .ende ( -- ) feld_weg punkte_1 @ pmax = IF " LINKS IST DER SIEGER DIESES SPIELS" mtype ELSE " RECHTS IST DER SIEGER DIESES SPIELS" mtype THEN bell 1000 warte melodie 5000 warte feld_weg " GLCKWUNSCH DEM GEWINNER" mtype 9000 warte ; \ ein einzelnes Spiel : eins ( -- ) feld_weg init z_eng set ^t3 2000 warte set z_mauern 1 #mauern +! BEGIN getkey 0= UNTIL 15 random 1+ #raster ! BEGIN flicker getkey UNTIL BEGIN energie- prf_eng WHILE new_pos koll WHILE flicker reakt weile REPEAT ; \ eine Spielrunde : runde ( -- ) global wisch init z_alles " MAN MGE MIT DEN SPIELEN BEGINNEN" mtype 6000 warte BEGIN eins punkte_1 @ pmax = punkte_2 @ pmax = or UNTIL .ende feld_weg ; : taste BEGIN getkey UNTIL ; \ zeig die Anleitung : .anl1 feld_weg 3 0 at cr> " BEIDE SPIELER STEUERN IHRE FAHRZEUGE (DIE ERDNSSE) MIT NUR ZWEI TASTEN." xtype cr> " DABEI BENUTZT DER LINKE SPIELER DIE TASTEN A UND S, DER RECHTE DIE" xtype cr> " PFEIL-LINKS UND -RECHTS-TASTEN. DIE FAHRZEUGE DREHEN SICH BEIM" xtype cr> " DRCKEN JEWEILS UM 90 GRAD." xtype cr> " ZIEL DES SPIELES IST ES, DAS GEGNERISCHE FAHRZEUG ZU ZERSTREN." xtype cr> " DAZU ZIEHEN BEIDE FAHRZEUGE EINE ENERGIESPUR HINTER SICH HER, DIE" xtype cr> " KEINER VON BEIDEN BERHREN DARF. AUSSERDEM VERBRAUCHEN DIE BEIDEN FAHRZEUGE" xtype cr> " ENERGIE, DIE SIE AN DEN ENERGIERASTERN (DEN BLINKKAROS) AUFLADEN" xtype cr> " MSSEN. DIE SPUREN BEGINNEN AUCH ERST, WENN BEREITS EIN RASTER" xtype cr> " BERHRT WURDE." xtype cr> " DIE HINDERNISSE DRFEN NATRLICH NICHT GERAMMT WERDEN." xtype cr> ; \ zeig die Infos : .inf ( -- ) feld_weg 3 0 at cr> " DIESES SPIEL WURDE MIT volksFORTH'83 PROGRAMMIERT." xtype cr> cr> " PROGRAMM, GRAFIK UND (NAJA) IDEE STAMMEN VON KARSTEN KONRAD," xtype cr> cr> " DIE MUSIK WURDE IRGENDWO IN DER PUBLIC DOMAIN GEKLAUT." xtype ; : .anl2 cr> " EINE SPIELRUNDE GEHT SOLANGE, BIS EINER DER SPIELER MEHR ALS FNF" xtype cr> " PUNKTE GEMACHT HAT. DIE PUNKTE WERDEN ALS BALKEN GANZ OBEN GEZEIGT." xtype ; \ Men und Ende : men Ascii 0 case? IF bye THEN Ascii 1 case? IF runde exit THEN Ascii 2 case? IF .anl1 .anl2 taste feld_weg exit THEN Ascii 3 case? IF 1 speed +! speed_bound .men exit THEN Ascii 4 case? IF .inf taste feld_weg exit THEN drop ; : gogo ( -- ) logo BEGIN .men 0 BEGIN drop getkey dup UNTIL $FF and men REPEAT ; ' gogo Is 'cold save \ Randomizer ZaBong '87 Aufruf der XBIOS-Funktion. random liefert einen Wert von 0 bis up-1. \ Randomizer ZaBong '88 \needs Code include Assembler.scr Onlyforth Code (random ( -- 16b ) &17 # A7 -) move &14 trap 2 A7 addq D0 SP -) move Next end-code : random ( [up -- 16b ) (random swap mod ; Liebe Blitter-Tosbesitzer, ihr habt es wahrscheinlich schon gemerkt: Rotrex luft nicht mit eurem Superchip bzw. Betriebssystem zusammen. Das liegt nicht daran, da ich euch beneide oder einen sonstwie gearteten Ha auf Leute mit Blitter habe. Ich mute, um die Mauswerte schn manipulieren zu knnen, auf zwei nicht dokumentierte Adressen zurckgreifen, die leider im Blittertos nicht mehr dort liegen, wo sie im alten Tos sind. Ich kann auf diese Adres- sen nicht verzichten, da sonst die Zeiger im Spiel stndig hngen- bleiben wrden, was sehr unschn wre. Es soll da zwar eine Mglichkeit unter Gem geben, die Mauszeiger zu verndern, aber leider scheinen die entsprechenden Routinen im volks- Forth'83 zu fehlen. Wer wei einen Weg zu einem All-Tos-Update? Meine Adresse: Karsten Konrad Detzelstr. 33 6670 St.Ingbert P.S.: Suche gute X32-Melodien als Untermalung fr weitere Spielchen. Belohnung nicht ausgeschlossen. . j.. SIGMA SCR ZJ:k}SIGMA PRG aJ:@LIESMICHTXT dJ: SIGMA OBJ gJ:* 33333333333333333333333333333333333333333333333333733333333333333333333333333333333333333333333333333?333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333733333333333333333333333333333333333333333333333333?333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333?33333333333333333333333333333333333337333373333??33333333333333?3333?3?3??33333?3?333333333333333333333333333333?3733333?7333333733337??3333?333333?33333?3?333?3333333333?3333333733333333333333?3333333?333333333??3333?33333373333333333373333333?3333333?333333?33333333333?33333333?3?333333333333333?3333333?333333337333333333333333?33?3333??33333?3333337333337333?333333?33333?333??7?333333333333?33?77333333333333?333373?3333337333377333?77333333?33333?333??373?33333333333333333??33337373733333333333333333?3?33333?33733?33333?333333733333333333733333?373733333?333333?33333333333?333333?33333?3333333333333333333333??3333733333733333333333333333333333?33333?333333?33333?333333733333733333?3333733333?333333?3333??3?33333?3333333333333333?3733333733333333333333333?333333?33333?3333337333337??3333733333?333333?3333?3?3??33333?3333333333333333?33?333337333333333333333333333333333333333?33333?333333733333333333333333333333333333333333333333333333333?333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333733333333333333333333333333333333333333333333333333?333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333733333333333333333333333333333333333333333333333333?7A7]0t8t8}_ܗ_޿uu]uwudC:PYt=0C=8u_]޿uuw_}wA=aÍusݘw8 0a݌0 a8Ì8; u}}]uu_}__}wg}u_t0?d07uc 00c?V0 uwu]uwu}?}w}w?5u C uC?|CݗC ?Ì Aaaqqn qq n1nO뻾뮻na`ǿ{`{nKn .1qn n n1 ;ͮ!.v뮻q\? h?!6 nqo! .qo뻺i[?^I;_n_aj sjڿ;>as?a?K뻺. ^__,.; 6밻1 n,6 nqoǿo 0no`@Q` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNpHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALN&Hz2?< NA\pdAxr0XQ)K\NN"$<JrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr NJ9lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNuHnh 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNnpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N:?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NLJFkSFk&aQNL`Ha"FFaQL8N 6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N <JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu&(*NNNJ@jD@vqapvN<)@p `H@)@prtNJAHplrtNJB 2pN:pN.papaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNJpapap9@p`pvN,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu*pmrtA)HA)HNJpNvHHPN64 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@Nv"2)IN*(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNu2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNfAH@B pNvA NuApNvN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpNv _0HpNvp"_0HqN p"_0HqN E ұeHHQ0)Nv$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuN@VHNu(* 0(iN$E 4R`Q$D 4R`QˈN DN ENu2p <0N`QNuH&NրNjNuHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuHRp` HRpJQfpN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@/ l\N NL"2` NqR YEjrd0` SjN$_N<20VHN YQf "_Nq*eNnNh*< NqbІSGfN$_N8JBf 8N 8N YQf "_&Nq*eNnNh*<&NqbֆSGfN" KC`e N`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNu0,p2,rR@RANuS@SA9@p9ArNu9@pNJ4, 6fprta0,2,NuA4, 6f9@9Ap rt`"p`tdbDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNuak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuNp`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZN)H,Bl0NuE+000 l,N0l0oN NuaNHP l,"X42,0Rl0Bd1 _g !g &g, \g2N`Rl01` _NJ@fp NN _N N pR@RABd 1\fRA9A0 _/N"@cԒ@H/N Np?N _Np%NLNH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g N`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@N~L8"aC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0`JEf@RAN`E[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRN`$W "0d`Rl0`p Jojp-`Sl0Nu?<NNTUfN.nHxN)Sorry, Programm |luft nur in High-Res...HPNschniefr"_ NAN$N+|(|pC퀰N|prNp r N BgBg?< ?< A0" NJNprNp r NVBgBg?< ?< A6" NJHx p C퀶~N~pNpNprN <"<NVA=N pINfHPN SIGMA.OBJ4r"_NpN/p"NRC$NpNrN/N8HPA "_NpJBgp$gA9*N BN"| Trainings oder | Spielmodus ? HPN Train|Spielr"_ N+@d -dSgN1BN! Schwierigkeitsgrad | auswhlen: HPNLeicht|Schwer|Freir"_ N+@< - -DN(H <r$<L8NNh+@\ -DRA\N>/-X -\C퀶~N(NJBfN3 -XN(&<x*<NNh? -\N(&<x*<NNh?A6"NhN4, -XN(&<x*<NNh? -\N(&<x*<NNh?A0"Nh/-X/-\/-X -\C퀶~N(pJBgpF$VHC퀶~NjpNNl`NqNl`NqA8N -dUgN4 -t+|Dp ADN>/-@/-DtC퀶~NjNl`NqNqNl`NqNqHxN$** SPIELENDE **| Noch eine Partie ? HPN JA | NEIN r"_ N+@` -`UgN7Bt;B4-NJBg0A:N N -dSgN7Npr;N4NTrainingsmodusNN7Npr;N4N Level : 4N###4N -hN(NNNpr;N4N Umdrehungen: N###4N -+|Dp ADN>/-@ -DC퀶~N(pJBgpF$fN9RTNl`NqNqNl`NqNqNpNpNpNHx@HxBBBBHxHxA>N prN <"<NVpNpNpNHxHxBBHxHx7HxHxA>N p7"<N <"<qNPHxHxBBHxHxHxHxPA>N <"<N <|"<qNPHxHxBBHxHxHxHxCA>N prN <W"<NVpNpNp-"<N <"<gNPN\pNpNpN <"<N <r"<gNP?<?<A$"NhNzNpNpNprNpNpNpNHxHxBBHxHx7HxHxA?N p-"<N <"<qNPHxHxBBHxHxHxHxPA?N <"<N <|"<qNPHxHxBBHxHxHxHxCA?N p r N <W"<NVHx@HxBBBBHxHxA?N NN\+|@p A@N>+|Dp ADN>/-@ -DC퀶~N(NJBfN

<r$<N&<x*<NNh+@H <r$<N&<x*<NNh+@L+mH@ -HTA@N>+mLD -LTADN>/-@/-D/-@ -DC퀶~N(pJBgpF$VHC퀶~NjNl`NqNqNl`NqNqNl`2NqNA=N ANh&<x*<NJBfN=A*NNN SIGMA.SCRNNJBfN>jpINfHPN SIGMA.SCRr"_Np"<}NRC*NpNrA 0N>HxN$Sorry, |kann Titelbild |nicht laden.HPNTja4r"_ NAN$A 0NN A퀠Nv A퀜Nv A퀘Nv A퀔Nv A퀐Nv A퀌Nv A퀈Nv A퀄NvA퀤NtA +@ -"- A0 -T"- @0 -X"- @0 -\"- @0 -P"- @0 - "- @0 - "- @0 -"- @0pINzN A퀠Nv A퀜Nv A퀘Nv A퀔Nv A퀐Nv A퀌Nv A퀈Nv A퀄NvA퀤NtA +@ -"- A0 -T"- @0 -X"- @0 -\"- @0 -P"- @0 - "- @0 - "- @0 -"- @0pJNzNN.l^`b." P 4^ *DlLPBFBF:PPX(.N Willkommen beim Logikspiel: S I G M A Stellen Sie sich folgendes vor: Der Computer nimmt ein Feld, das aus 32x32 Kstchen besteht, her und invertiert nun wahllos jeweils 3x3 Kstchen groe Felder des Spielfeldes. Invertieren bedeutet, da Kstchen, die vorher schwarz waren, nun wei werden und solche, die schon wei sind, wieder zu Schwarzen werden. Der Computer fhrt nun eine Reihe von "Invertierungen" durch (je nach Schwierigkeitsgrad) und sie mssen versuchen, das ganze Spielfeld wieder in den Ursprungszustand (alle Felder sind schwarz) zurckzuverwandeln. Dazu klicken Sie jeweils ein Kstchen an und schon wird dieses inklusive der Umgebenden (insgesamt 9 Kstchen) invertiert. So schwierig dieses Spielprinzip in Worte zu fassen ist, so packend ist es, wenn man es erst einmal verstanden hat. Und da Probieren nun mal ber Studieren geht wird es am Besten sein, wenn Sie gleich einmal ein Probe- spiel wagen. TRAININGSMODUS: Wenn Sie SIGMA im Trainingsmodus spielen, dauert die Partie solange, bis Sie es geschafft haben, ein ganzes Feld zurckzuverwandeln. Dabei knnen Sie folgende Schwierigkeitsgrade whlen: LEICHT: 25 Umdrehungen SCHWER: 40 Umdrehungen (fr Profis ein Kinderspiel) FREI: ...es erscheint eine Alertbox, die es erlaubt, die Anzahl der Umdrehungen frei einzustellen: +10 : bewirkt Erhhung der Umdrehungszahl um 10 -10 : bewirkt Erniedrigung - " - OKAY: beendet die Einstellung & startet das Spiel Die Anzahl der Umdrehungen kann zwischen 10 und 990 frei gewhlt werden. SPIELMODUS: Hier Spielen Sie mehrere Levels durch, bis Ihr Vorrat an Leben erschpft ist. Mit jedem Level erhht sich die Zahl der Umdrehungen. Wenn Sie mehr Zge brauchen, als der Computer, wird Ihnen fr jeden zustzlichen Zug ein Leben abgezogen. (Wie gemein!) Dafr erhalten Sie nach jedem vollstndigen Level soviele Bonusleben, wie Sie weniger Umdrehungen als der Computer bentigt haben (plus 1). Wer also in den leichten Levels fleiig Bonusleben sammelt, hat zweifellos bessere Chancen, auch in den hheren Levels zu bestehen. (Wieviele Level es gibt, wird nicht verraten, aber es sind eine ganze Menge...) STEUERUNG: Linker Mausklick lst Invertier-Vorgang aus. Rechter Mausklick beendet ein Spiel vorzeitig bzw. lt auch Neubeginn zu. ************************************************************************ SIGMA ist ein Programm von: I M A G I X S O F T W A R E Gebhard Dunst Uferstrae 88 5026 Salzburg A U S T R I A *********************************************************************** Diese Programm ist frei kopierbar...kein Wiederverkauf ! Wem das Spiel gefllt, der mge an den Autor DM 20.-/S 140 schicken; Auerdem gibt's dann noch eine Disk mit PD Spielen gratis. u0?0|0<0<8?<<<0<<00 <<0 ? ?! ?! ? 0?00?0 ?<?& 0ag&g`0g0Cag>g g0??< > 0 8><>??? ? ?? >? <8>0 ?|???@>?C?Ca?@a?@!!   p0p0 <x. .. KILLER LST 4J:YIKILLER DAT 8J:KILLER PRG :J:RKILLER TXT @J:z' ' KILLER.PRG Version 1.2 16.Juni 1989 ' ' geschrieben von: Uwe Mller ' Humboldtstr.29 ' 4000 Dsseldorf 1 ' ' ************************************************************************ ' ' Variablenliste mit Erluterungen: ' --------------------------------- ' a$ geretteter Bildschirminhalt bei ffnen eines Fensters ' m$ Ausgabetext einer Alertbox ' var% angewhlter Button einer Alertbox ' feld1!() ' feld2!() ' x%,y% relative Feldkoordinaten ' kx%,ky% Koordinaten der bei Spielerstart angeklickten Felder ' nx%,ny% Koordinaten der Nachbarfelder des Feldes x,y ' zn% Anzahl der 'bewohnten' Nachbarfelder des Feldes x,y ' xalt%,yalt% Koordinaten des alten Killerfeldes ' xneu%,yneu% " " neuen " ' checkvar% Prfvariable: legaler Killerzug -> 1, Spieler verloren -> 2; ' gen_counter% Anzahl der Zellengenerationen (Wachstumsdurchlufe) ' cellcounter% " " lebenden Zellen ' zeit% bisher bentigte Gesamtbedenkzeit des Spielers ' gesamtzellen% Gesamtzahl aller bisher vernichteten Zellen ' high_score% Nomen est omen ' counter% Anzahl der Startzellen ' wertung% W.~ des gerade beendeten Spieles ' ' *************************************************************************** ' IF XBIOS(4)<>2 THEN m$=" Dieses Programm luft nur | mit Monochrom-Monitor." ALERT 3,m$,1,"Sch....!",var% END ENDIF CLEAR DIM feld1!(19,19) DIM feld2!(19,19) IF EXIST("KILLER.DAT")=-1 THEN ! Existiert die Highscore-Datei? OPEN "I",#1,"KILLER.DAT" ! Ja, erffne Lesezugriff auf sie. INPUT #1,high_score% ! Schreibe ihren Inhalt in die Variable CLOSE #1 ! high_score%. ENDIF ' ' Felddarstellung ' DEFFILL ,2,4 ! Fllmuster mittelgrau. PBOX 0,0,640,400 ! Bildschirm "fllen". DEFFILL ,0,1 ! Fllmuster wei. PBOX 15,15,385,385 ! ueren Rahmen zeichnen. BOX 18,18,382,382 BOX 19,19,381,381 x%=1 ! Eigentliche Spielfelder zeichnen. REPEAT y%=1 REPEAT BOX x%*20,y%*20,x%*20+20,y%*20+20 INC y% UNTIL y%>18 INC x% UNTIL x%>18 PBOX 410,21,600,90 ! Menboxen zeichnen. BOX 412,23,598,88 BOX 413,24,597,87 PBOX 460,117,560,152 PBOX 460,165,560,200 PBOX 460,213,560,248 PBOX 460,261,560,296 PBOX 460,309,560,344 PRINT AT(62,9);"Info"; PRINT AT(62,12);"Hilfe"; PRINT AT(60,15);"Edit game"; PRINT AT(61,18);"New game"; PRINT AT(62,21);"Quit"; GOSUB info ' ' warmstart: ! Sprungmarke nach 'New game'. CLR gen_counter%,gesamtzellen%,zeit% ARRAYFILL feld2!(),0 ! Feld 2 wird genullt. xalt%=18 ! x-Koordinate des Killers yalt%=18 ! y- " " " GOSUB computerstart GOSUB zeichnen DO ! Endlosschleife wird einmal pro Generation durchlaufen. t=TIMER ! Zeitnahme fr High score. hauptschleife: DO ! Diese Endlosschleife fragt alle Mausereignisse ab, checkvar%=0 ! wenn der Killer am Zug ist. IF MOUSEK=1 THEN ! linke Maustaste? xneu%=MOUSEX\20 ! Umrechnen der Mauskoordinaten auf yneu%=MOUSEY\20 ! Felderkoordinaten. IF MOUSEX>460 AND MOUSEX<560 THEN ! Menboxen? (als da wren:..) IF MOUSEY>117 AND MOUSEY<152 THEN ! Infobox GOSUB info GOTO hauptschleife ENDIF IF MOUSEY>165 AND MOUSEY<200 THEN ! Hilfebox GOSUB help GOTO hauptschleife ENDIF IF MOUSEY>213 AND MOUSEY<248 THEN ! Edit-game-Box GOSUB spielerstart GOTO hauptschleife ENDIF IF MOUSEY>261 AND MOUSEY<296 THEN ! New-game-Box GOTO warmstart ENDIF IF MOUSEY>309 AND MOUSEY<344 THEN ! Quit-Box ALERT 2,"Wirklich?",2," Ja | Nein ",var% IF var%=1 THEN GOSUB schluss ENDIF ENDIF ENDIF IF xneu%=0 OR xneu%>18 THEN ! Klick auerhalb von Spielfeld und Boxen? GOTO hauptschleife ! Ja, Schleife neu beginnen. ENDIF IF yneu%=0 OR yneu%>18 THEN ! dto. ? GOTO hauptschleife ENDIF IF xneu%=xalt%+2 AND yneu%=yalt%+1 THEN ! Und jetzt: GOSUB killerzug(xneu%,yneu%) ! Abfrage aller legalen ENDIF ! Killerzge. IF xneu%=xalt%+2 AND yneu%=yalt%-1 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF xneu%=xalt%+1 AND yneu%=yalt%+2 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF xneu%=xalt%+1 AND yneu%=yalt%-2 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF xneu%=xalt%-1 AND yneu%=yalt%+2 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF xneu%=xalt%-1 AND yneu%=yalt%-2 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF xneu%=xalt%-2 AND yneu%=yalt%+1 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF xneu%=xalt%-2 AND yneu%=yalt%-1 THEN GOSUB killerzug(xneu%,yneu%) ENDIF IF feld2!(xneu%,yneu%)=0 AND checkvar%=1 THEN ! War das neue Killerfeld GOTO weiter ! unbewohnt (und war es ENDIF ! ein legaler Killerzug)? ENDIF LOOP weiter: ! Ja! : Zellen sind mit Wachstum dran. ADD zeit%,(TIMER-t)\200 ! Killerbedenkzeit wird gestoppt. xalt%=xneu% ! xneu,yneu ist jetzt das neue Killerfeld yalt%=yneu% SWAP feld1!(),feld2!() ! Die briggebliebenen Zellen werden nach Feld 1 GOSUB verloren ! geschrieben. IF checkvar%=2 THEN ! Hatte der Spieler verloren? GOTO warmstart ENDIF GOSUB wachstum ! Die neuen Zellen werden erzeugt GOSUB zeichnen ! und auf dem Bildschirm ausgegeben. IF cellcounter%=0 THEN ! Ist keine Zelle mehr brig? GOSUB gewonnen ! Dann hat der Spieler gewonnen. GOTO warmstart ENDIF LOOP ! Und die neue Generation beginnt wieder mit ' ! dem Killer am Zug. ' ' *************************************************************************** ' Prozedurensammlung: ' PROCEDURE computerstart ! Erzeugung der Startzellen per Zufallszahl. DO counter%=0 ! Der Zhler fr die Startzellen. x%=8 ! In die mittleren sechzehn Felder von Feld 2 REPEAT ! wird mit der Zufallsfunktion entweder eine 0 y%=8 ! (Feld unbewohnt) oder eine -1 (Zelle entstan- REPEAT ! den) geschrieben. feld2!(x%,y%)=RANDOM(-2) ! Nmlich hier. IF feld2!(x%,y%)=-1 THEN ! Zelle entstanden? INC counter% ! Ja, also erhhe Zhler. ENDIF INC y% UNTIL y%=12 INC x% UNTIL x%=12 EXIT IF counter%=7 ! Wurde bei diesem Durchlauf die Sollzahl von LOOP ! 7 Startzellen erzeugt, dann abbrechen, sonst RETURN ! weiterschleifen. ' ' PROCEDURE ende PAUSE 50 m$="Du hast verloren! |Willst du Rache?" ALERT 1,m$,1," Klaro | Nee ",var% IF var%=2 THEN GOSUB schluss ELSE INC checkvar% ENDIF RETURN ' ' PROCEDURE gewonnen GOSUB statistik ALERT 3,"Glckwunsch!|Alle Zellen sind vernichtet. |Noch ein Spiel?",1," ja | nein ",var% IF var%=2 THEN GOSUB schluss ENDIF PUT 45,25,a$ RETURN ' ' PROCEDURE help GET 395,20,633,390,a$ ! Bildschirminhalt in a$ einlesen. DEFFILL ,0,1 ! Fllmuster wei. PBOX 395,20,633,390 ! Und Fenster ffnen. BOX 397,22,631,388 BOX 398,23,630,387 PRINT AT(52,3);"Ziel des Spieles ist, mit "; PRINT AT(52,4);"dem Killer (der schwarze "; PRINT AT(52,5);"Kreis in der unteren Ecke) "; PRINT AT(52,6);"alle Zellen zu vernichten. "; PRINT AT(52,7);"Diese wachsen immer dann, "; PRINT AT(52,8);"wenn der Killer auf ein un-"; PRINT AT(52,9);"bewohntes Feld zieht. "; PRINT AT(52,10);"Der Killer zieht wie ein "; PRINT AT(52,11);"Springer im Schachspiel, "; PRINT AT(52,12);"also zwei Felder vertikal "; PRINT AT(52,13);"und eins horizontal oder "; PRINT AT(52,14);"umgekehrt. Man klickt ein- "; PRINT AT(52,15);"fach das Zielfeld an - das "; PRINT AT(52,16);"Programm prft dabei auf "; PRINT AT(52,17);"Legalitt und ignoriert "; PRINT AT(52,18);"falsche Zge. "; PRINT AT(52,19);"Aber Vorsicht! Wenn die "; PRINT AT(52,20);"Zellen ber den Rand hinaus"; PRINT AT(52,21);"wachsen, hat man verloren. "; PRINT AT(52,22);"Es erfolgt dann eine Mel- "; PRINT AT(52,23);"dung per Alertbox. "; PRINT AT(52,24);" (Weiter mit Mausklick)"; PAUSE 20 REPEAT UNTIL MOUSEK<>0 ! Warte bis Maustaste. PUT 395,20,a$ ! Bildschirm restaurieren. PAUSE 20 RETURN ' ' PROCEDURE info GET 70,70,330,330,a$ ! Bildschirm retten. DEFFILL ,0,1 ! Fllmuster wei. PBOX 70,70,330,330 ! Fenster auf. BOX 72,72,328,328 BOX 73,73,327,327 BOX 90,90,310,130 DEFTEXT 1,5,0,20 ! Text gro, kursiv, fett. TEXT 110,118,180,"KILLER" DEFTEXT 1,16,0,13 ! Text normal, outlined TEXT 140,160,"Version 1.2" DEFTEXT 1,0,0,6 ! Texthhe 8 TEXT 144,180," 16.6.1989" TEXT 87,260,"geschrieben in GfA-Basic 2.0" TEXT 87,273,230,"Das Programm ist Public Domain!" PRINT AT(12,13);" Uwe Mller"; PRINT AT(12,14);" Humboldtstr.29"; PRINT AT(12,15);" 4000 Dsseldorf 1"; PRINT AT(12,19);"High score: ";high_score%; DEFTEXT 1,0,0,4 TEXT 87,320,"(Weiter mit Maustaste)" REPEAT UNTIL MOUSEK<>0 ! Warte auf Maustaste PUT 70,70,a$ ! Bildschirm restaurieren PAUSE 20 RETURN ' ' PROCEDURE killerzug(xneu%,yneu%) feld2!(xalt%,yalt%)=0 ! Zelle auf altem Killerfeld lschen. INC checkvar% ! Prfvariable (fr legalen Zug) setzen. DEFFILL ,0,1 ! Fllmuster wei. PBOX xalt%*20,yalt%*20,xalt%*20+20,yalt%*20+20 ! Altes und neues Killerfeld PBOX xneu%*20,yneu%*20,xneu%*20+20,yneu%*20+20 ! auf Bildschirm lschen. DEFFILL ,2,8 ! Fllmuster schwarz. PCIRCLE xneu%*20+10,yneu%*20+10,9 ! Killer neu zeichnen. xalt%=xneu% ! Schon fr den nchsten Zug wird das yalt%=yneu% ! neue Killerfeld zum alten. IF feld2!(xneu%,yneu%)=-1 THEN ! War neues Killerfeld v. Zelle bewohnt? INC gesamtzellen% ! Erhhe Gesamtzahl vernichteter Zellen. DEC cellcounter% ! Erniedrige Zhler lebender Zellen. PRINT AT(55,5);cellcounter%;" lebende Zellen "; ENDIF RETURN ' ' PROCEDURE probe(kx%,ky%) ! Prft auf Legalitt der vom Spieler IF (kx%\20)>7 AND (kx%\20)<12 THEN ! gesetzten Startzellen bei "Edit game". IF (ky%\20)>7 AND (ky%\20)<12 THEN DEFFILL ,2,7 ! Fllmuster dunkelgrau. FILL (kx%\20)*20+5,(ky%\20)*20+5 ! Zelle auf Bildschirm zeichnen... feld2!(kx%\20,ky%\20)=-1 ! ...und in Array eintragen. PAUSE 10 ! Um 'langsame' Mausklicks auszugleichen. INC counter% ! Zellenzhler erhhen. ENDIF ENDIF RETURN ' ' PROCEDURE schluss IF high_score%>0 THEN ! Die Highscore-Datei 'KILLER.DAT' wird natr- OPEN "o",#1,"KILLER.DAT" ! lich nur geschrieben bzw. neu eingerichtet, PRINT #1,high_score% ! wenn auch ein Highscore vorliegt. CLOSE #1 ENDIF END RETURN ' ' PROCEDURE spielerstart CLR gesamtzellen%,gen_counter%,zeit% ! Erstmal alles auf Null setzen, ARRAYFILL feld2!(),0 ! alle Zellen lschen, xalt%=18 ! Killer auf Anfangsfeld setzen, yalt%=18 GOSUB zeichnen ! ...und alles auf Bildschirm ausgeben. x%=8 ! Die Feldmarkierungen, in die die REPEAT ! Startzellen vom Spieler hineingesetzt y%=8 ! werden sollen, werden gezeichnet. REPEAT BOX x%*20+2,y%*20+2,x%*20+18,y%*20+18 INC y% UNTIL y%>11 INC x% UNTIL x%>11 GET 395,20,633,390,a$ ! Retten des Bildschirmes DEFFILL ,0,1 ! Fllmuster wei PBOX 395,20,633,390 ! und das Fenster fr die Erklrung zeichnen. BOX 397,22,631,388 BOX 398,23,630,387 PRINT AT(52,3);"Normalerweise werden bei "; PRINT AT(52,4);"Spielstart vom Computer ge-"; PRINT AT(52,5);"nau sieben Zellen per Zu- "; PRINT AT(52,6);"fallszahl erzeugt. "; PRINT AT(52,7);"Mit dieser Option kann nun "; PRINT AT(52,8);"der Spieler die Startzellen"; PRINT AT(52,9);"selber setzen. Dazu klickt "; PRINT AT(52,10);"er einfach mit der Maus in "; PRINT AT(52,11);"die markierten Felder. Es "; PRINT AT(52,12);"mssen auch nicht unbedingt"; PRINT AT(52,13);"sieben Zellen sein - der "; PRINT AT(52,14);"Spieler hat freie Auswahl. "; PRINT AT(52,15);"Allerdings wird nur bei "; PRINT AT(52,16);"genau sieben Startzellen "; PRINT AT(52,17);"die Spielwertung als High- "; PRINT AT(52,18);"score bernommen, so da "; PRINT AT(52,19);"dieser vergleichbar bleibt."; PRINT AT(52,21);"Die Eingabe wird mit rech- "; PRINT AT(52,22);"tem Mausklick abgeschlos- "; PRINT AT(52,23);"sen. "; counter%=0 DO IF MOUSEK=1 THEN ! Wurde eine Startzelle gesetzt... GOSUB probe(MOUSEX,MOUSEY) ! ...prfen, ob sie in ein legales Feld ENDIF ! gesetzt wurde. EXIT IF MOUSEK=2 ! Abbrechen nach rechter Maustaste. LOOP PUT 395,20,a$ ! Bildschirm restaurieren. CLR gen_counter% ! Generationenzhler nullen. GOSUB zeichnen ! Bildschirmausgabe. RETURN ' ' PROCEDURE statistik wertung%=(600*gesamtzellen%)^2\(zeit%^2*gen_counter%) GET 45,25,350,135,a$ DEFFILL ,0,1 PBOX 45,25,350,135 BOX 47,27,348,133 BOX 48,28,347,132 PRINT AT(8,3);"Insgesamt vernichtete Zellen: ";USING "####",gesamtzellen%; PRINT AT(8,4);"Bentigte Zeit in Sekunden: ";USING "####",zeit%; PRINT AT(8,5);"Vernichtete Zellen/Minute: ";USING "####",60*gesamtzellen%\zeit%; PRINT AT(8,7);"Erreichte Spielwertung: ";USING "######",wertung%; PRINT AT(8,8);"Bisheriger High score: ";USING "######",high_score% IF counter%=7 THEN IF high_score%y%+1 INC nx% UNTIL nx%>x%+1 IF feld1!(x%,y%)=-1 THEN ! Neue Zellgeneration. DEC zn% ! s.o. feld2!(x%,y%)=(018 INC x% UNTIL x%>18 DEFFILL ,2,8 PCIRCLE xalt%*20+10,yalt%*20+10,9 INC gen_counter% PRINT AT(55,3);gen_counter%;". Generation " PRINT AT(55,5);cellcounter%;" lebende Zellen " RETURN 130951 `R"RJKO` EfvM" m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HN^Hx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALNzHz6?< NA\pdAxr0XQ)K\NNN~ JrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr N89lNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN\pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N(?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|p  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</N:JFkSFk&aQN:`Ha"FFaQL8N6.pJgtBnpNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<N⼀Hnjr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuNNNNJjtNupN&NAXJ@jNNuN J@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu&(*N`NNvN*)@p `H@)@prtN8AHplrtN8B 2pN(pNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtN8papap9@p`pvN*v`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtN8Al 2l 4HVNuAl 2l 4L VA0000000000prtN89Cp rtN8Av` Av `Avl 2l 4)lVHNA VB0BP9|p tN8Al 2l 4HPrtpgN8aBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNu?<NNT$g4<rЀ[Nu@((?<NN.?<NNX@LvA HA HNuNup9@HA)A,N FN @e024E$ Bb5B5A6CC5CK5CAB008:Dk`Ek\00<,>,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HN8pN"HHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N""2)IN(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNur|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N82(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N"$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%Nua NuN IHPg"B  g &gN&JBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`H&NրNjNuHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuHRp` HRpJQfpN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@/ l\N NL"2` NqR YEjrd0` SjN$_N20VHN YQf "_Nq*eNN*< NqbІSGfN$_N8JBf 8N 8N YQf "_&Nq*eNN*<&NqbֆSGfNp"X4g S`"QNu<g|NN^d2QjNu @  "002Nu" KC`e N`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNuPj0,lf$J,nk l*fp?Nxp Nx9|nNpA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`N>NBll?<?<?<NM\NVHQN&g ! ge l*g l*gpNNu<,*?Hj\F FfN|`H FfNt`9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNxLNu0,^2,`NXzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(N>ldeS@f lbfSl`9Ab9FdNupapqr`p`p`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NX"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZN)H,Bl0NuE+000 l,N 0l0oNNuaNrHP l,"X42,0Rl0Bd1 _g !g &g, \g2Nx`Rl01` _N J@fp NxNx _N& NpR@RABd 1\fRA9A0 _/N "@cԒ@H/N N0p?Nx _N&p%NxLNH l,"X42,0Rl0Bd1 _g,vxz| +g. -g( *g $g" #g Nx`Rl01`` `RCRABd1 _fRA` #g $g *g ,g ^gB +gZ -gT .fRxRDRABdH1 #g ^g +g. -g( _f&RA`RERABd1 ^g +g -f2ALH@NlL8"aC " Lx2DE A,b -fEt1BQt1$0000QE[JEft Q0JgE\J"f0J"ff JFj-Sg$E[JEgRE\JEg vJ*g RCJ*f~ g~*Jf`9I0`JEf@RANNE[JEg*ÒEA, gSAR`Ô l,HQ?HjSl0 l,"X0Rl0gL _g0 ,g .g +g( -g $_HRNx`$W "0d`Rl0`p Jojp-`Sl0Nu?<NNTUfN'N@3 Dieses Programm luft nur | mit Monochrom-Monitor.C`NhHxHm`N4Sch....!r"_ N&+@NNHxpC~NHxpC~NN4 KILLER.DATNN&<x*<N,JBfN(pINHPN4 KILLER.DATr"_NnpNNVNLInfoNTp r>NVNZHilfe4NTprNVNLQuitA;NZBBBtANf+|+|A4NZAO8NZNANBNSgN3NN&<x*<NN+@NN&<x*<NN+@NN&<x*<NvpJBgp/NN&<x*< N|pJBgp$fN.VNN&<x*<NvpJBgp/NN&<x*<N|pJBgp$fN,A;NZN+NN&<x*<NvpJBgp/NN&<x*<N|pJBgp$fN,A6zNZN+NN&<x*<NvpJBgp/NN&<x*<N|pJBgp$fN-^ABNZN+NN&<x*<NvpJBgp/NN&<x*<N|pJBgp$fN-N+JNN&<x*<NvpJBgp/NN&<x*<N|pJBgp$fN.VHxN@ Wirklich?HPN@ Ja | Nein 4r"_ N&+@ -SgN.VAB@NZ -NzN,pJBgp/ -N&<x*<NvpJBgp$fN.N+ -NzN,pJBgp/ -N&<x*<NvpJBgp$fN.N+ -NH -N&<x*<NL8N,pJBgp/ -NH -N&<x*<NL8N,pJBgp$fN/z/-/-A=NZ -NH -N&<x*<NL8N,pJBgp/ -NH -NH <r$<L8NL8N,pJBgp$fN0/-/-A=NZ -NH -N&<x*<NL8N,pJBgp/ -NH -N&<x*<NL8N,pJBgp$fN0/-/-A=NZ -NH -N&<x*<NL8N,pJBgp/ -NH -NH <r$<L8NL8N,pJBgp$fN1./-/-A=NZ -NH -NH <r$<L8NL8N,pJBgp/ -NH -N&<x*<NL8N,pJBgp$fN1/-/-A=NZ -NH -NH <r$<L8NL8N,pJBgp/ -NH -NH <r$<L8NL8N,pJBgp$fN2^/-/-A=NZ -NH -NH <r$<L8NL8N,pJBgp/ -NH -N&<x*<NL8N,pJBgp$fN2/-/-A=NZ -NH -NH <r$<L8NL8N,pJBgp/ -NH -NH <r$<L8NL8N,pJBgp$fN3/-/-A=NZ/- -C~NNzN,pJBgp/ -N&<x*<N,pJBgp$fN3N3` <Ѝ/NNHANVL8N&<x*<NN _ѐ+m+mCANAJNZ -UgN4bN+JAM@NZAO8NZ -JgN4A5NZN+J`NB+|~+|/-~/- <r$<N8JBC~N/-~ -C~NN&<x*<N,JBfN5 RR - fR~ -~ f| -_WHgN5D`ZNNp2NN@#Du hast verloren! |Willst du Rache?4C`NhHxHm`N@ Klaro | Nee 4r"_ N&+@ -UgN5AB@NZN5RNNAH>NZHxN4:Glckwunsch!|Alle Zellen sind vernichtet. |Noch ein Spiel?HPN@ ja | nein *r"_ N&+@ -UgN6`AB@NZ?<-?<Af"NNN?<?<?<y?<Af" NpN pNp"<NL <"<yNp"<NL <"<wN^p"<NL <"<vN^NTpr4NVNZZiel des Spieles ist, mit 4NTpr4NVNZdem Killer (der schwarze 4NTpr4NVNZKreis in der unteren Ecke) 4NTpr4NVNZalle Zellen zu vernichten. 4NTpr4NVNZDiese wachsen immer dann, 4NTpr4NVNZwenn der Killer auf ein un-4NTp r4NVNZbewohntes Feld zieht. 4NTp r4NVNZDer Killer zieht wie ein 4NTp r4NVNZSpringer im Schachspiel, 4NTp r4NVNZalso zwei Felder vertikal 4NTp r4NVNZund eins horizontal oder 4NTpr4NVNZumgekehrt. Man klickt ein- 4NTpr4NVNZfach das Zielfeld an - das 4NTpr4NVNZProgramm prft dabei auf 4NTpr4NVNZLegalitt und ignoriert 4NTpr4NVNZfalsche Zge. 4NTpr4NVNZAber Vorsicht! Wenn die 4NTpr4NVNZZellen ber den Rand hinaus4NTpr4NVNZwachsen, hat man verloren. 4NTpr4NVNZEs erfolgt dann eine Mel- 4NTpr4NVNZdung per Alertbox. 4NTpr4NVNZ (Weiter mit Mausklick)4pNNJg?<?<Af"NpNNN?<F?<F?<J?<JAf" NpN pNpFrFNL <J"<JNpHrHNL <H"<HN^pIrINL <G"<GN^pZrZNL <"<6N^pNpNpNpNPpvrnNLN4KILLER"<NpNpNpNp NP <"<NLN@ Version 1.24NpNpNpNpNP <"<NLN4 16.6.1989N <rWNLN4geschrieben in GfA-Basic 2.0N <rWNLN@Das Programm ist Public Domain!"<NNTp r NVNZ Uwe MllerNTpr NVNZ Humboldtstr.294NTpr NVNL 4000 Dsseldorf 1NTpr NVNL High score: -NpNpNpNpNP <@rWNLN4(Weiter mit Maustaste)NNJg?<F?<FAf"NpNNN A퀞N A퀚N/-/-tC~NRpN pN -N&<x*<NN/ -N&<x*<NN"NL -N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"N -N&<x*<NN/ -N&<x*<NN"NL -N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NpN pN -N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NLp N+m+m/- -C~NN&<x*<N,JBfN@BRSNTpr7NV -NNL lebende Zellen NN A퀲N A퀮N -N&<x*<N&<x*<NvpJBgp/ -N&<x*<N&<x*<N|pJBgp$fNB8 -N&<x*<N&<x*<NvpJBgp/ -N&<x*<N&<x*<N|pJBgp$fNB8pN pN -N&<x*<N&<x*<N&<x*<NN/ -N&<x*<N&<x*<N&<x*<NN"N -N&<x*<NN/ -N&<x*<NN/tC~Np NRNN -JfNBpoNHPN4 KILLER.DATr"_NnpN< -NNrpNNNNBBBtANf+|+|AO8NZ+|~+| -~N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NL -~N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"N^R - o R~ -~ o?<?<?<y?<Af" NpN pNp"<NL <"<yNp"<NL <"<wN^p"<NL <"<vN^NTpr4NVNZNormalerweise werden bei 4NTpr4NVNZSpielstart vom Computer ge-4NTpr4NVNZnau sieben Zellen per Zu- 4NTpr4NVNZfallszahl erzeugt. 4NTpr4NVNZMit dieser Option kann nun 4NTpr4NVNZder Spieler die Startzellen4NTp r4NVNZselber setzen. Dazu klickt 4NTp r4NVNZer einfach mit der Maus in 4NTp r4NVNZdie markierten Felder. Es 4NTp r4NVNZmssen auch nicht unbedingt4NTp r4NVNZsieben Zellen sein - der 4NTpr4NVNZSpieler hat freie Auswahl. 4NTpr4NVNZAllerdings wird nur bei 4NTpr4NVNZgenau sieben Startzellen 4NTpr4NVNZdie Spielwertung als High- 4NTpr4NVNZscore bernommen, so da 4NTpr4NVNZdieser vergleichbar bleibt.4NTpr4NVNZDie Eingabe wird mit rech- 4NTpr4NVNZtem Mausklick abgeschlos- 4NTpr4NVNZsen. 4BNSgNHN/N/A@JNZNUWHgNH`?<?<Af"NBAO8NZNN -N&<x*< N&<x*<NH -N&<x*<NH -NL8NL8NN+@?<-?<?<^?<Af" NpN pNpr-NL <"<^Npr/NL <"<\N^pr0NL <"<[N^NTprNVNLInsgesamt vernichtete Zellen: N4####N -NNNNTprNVNLBentigte Zeit in Sekunden: N4####N -NNNNTprNVNLVernichtete Zellen/Minute: N4####N -N&<x*<NH -NL8NNNNTprNVNLErreichte Spielwertung: N4######N -NNNNTprNVNLBisheriger High score: N4######N -NNN4 -_gNJ -ΰmNJ+mڀNN+|Hx -C~NN&<x*<N,pJBgp/Hx -RC~NN&<x*<N,pJBgp$fNK|A5LNZNM8Hx -C~NN&<x*<N,pJBgp/Hx -RC~NN&<x*<N,pJBgp$fNKA5LNZNM8R - f -UgNL"NM8+|~/-~pC~NN&<x*<N,pJBgp/ -~R/pC~NN&<x*<N,pJBgp$fNLA5LNZNM8/-~pC~NN&<x*<N,pJBgp/ -~R/pC~NN&<x*<N,pJBgp$fNM&A5LNZNM8R~ -~ fNN+|~+|B -~NH <r$<L8NN+@ -NH <r$<L8NN+@/- -C~NN&<x*<N,JBfNMRR -NH -N&<x*<NL8N|JBgR -NH -~N&<x*<NL8N|JBg4/-~ -C~NN&<x*<N,JBfNNS/-~/- -NzNvpJBgp/ -N&<x*<N|pJBgp$VHC~NNN/-~/- -S^HC~NR - fHR~ -~ f./-/-tC~NNNB+|~+|/-~ -C~NN&<x*<N,JBfNPdpN pN -~N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NL -~N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NRNQpN pN -~N&<x*<NN/ -N&<x*<NN"NL -~N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NR - o R~ -~ opN pN -N&<x*<N&<x*<NN/ -N&<x*<N&<x*<NN"NLp NRNTpr7NV -NNZ . Generation 4NrNTpr7NV -NNZ lebende Zellen %NrNN'0 "R R R RRDJFz~Xb  t8| xvp8 p v n ^ KILLER PRG ~~~~~~~~~~~~~ Der Killer ist Public-Domain, er darf also frei kopiert und weiter- gegeben werden unter der Bedingung, da es im ganzen Ordner geschieht. Das Programm ist eine Abwandlung des bekannten Life-Spieles, das ein Zellenwachstum unter bestimmten Bedingungen simuliert. Es ist in kompiliertem GFA-Basic 2.02 geschrieben und rein maus- gesteuert. Es luft allerdings (vorerst) nur auf dem Monochrom-Monitor. Zum Ordner 'KILLER.1_2' gehren folgende Dateien: - KILLER.PRG (das Programm) - KILLER.DAT (High-score-Datei) - KILLER.LST (der kommentierte Quelltext im ASCII-Format) - KILLER.TXT (diese Datei) Zum Spielanfang befinden sich in der Mitte des Feldes sieben Zellen. Diese werden entweder vom Computer zufllig erzeugt oder knnen vom Spieler gesetzt werden. (Die Entscheidung darber wird ber eine Alertbox abgefragt). Wenn der Spieler die Startzellen setzt, kann er auch mit weniger als sieben beginnen, indem er einfach eine schon ge- setzte Zelle nochmals anklickt. Diese Zellen vermehren sich nach einem festgelegten Algorithmus. Der Spieler hat nun die Aufgabe, alle Zellen zu vernichten. Dies geschieht mit dem Killer - auf dem Spielfeld durch einen schwarzen Kreis dargestellt. Der Spielablauf ist nun folgender: Zu Beginn des Spieles werden wie oben beschrieben die sieben Start- zellen in der Mitte des Spielfeldes gesetzt. Der Killer befindet sich in der rechten unteren Ecke des Spielfeldes. Nun mu der Killer einen Zug machen. Er zieht dabei wie der Springer im Schachspiel, also zwei Felder horizontal und eins vertikal oder zwei Felder vertikal und eins horizontal. Fr die Ausfhrung des Zuges klickt man einfach mit der linken Maus- taste das Zielfeld an - das Programm prft dabei auf Legalitt des Zuges und ignoriert einen falschen Zug. Trifft der Killer auf ein Feld mit einer lebenden Zelle, so wird diese vernichtet und der Killer darf einen weiteren Zug machen. Zieht der Killer auf ein unbewohntes Feld, so ist er mit seinem Durch- gang fertig und die nchste Generation der Zellen wchst heran. (Die Wachstumsgesetze werde ich weiter unten erlutern). Ziel des Spieles ist einerseits, alle Zellen zu vernichten, (dann hat der Spieler gewonnen) und andererseits, zu verhindern, da eine Zelle jenseits des Spielfeldrandes geboren wrde. Passiert dies, hat der Spie- ler verloren. Die Schwierigkeit des Spieles besteht erstmal darin, mit dem Killer berhaupt in die Mitte zu kommen, wie man noch sehen wird. Da der Killer beim "Wandern" ber unbewohnte Felder ja nur jeweils einen Zug machen darf, bentigt er zumindest vier Durchgnge, bis er die ersten Zellen erreicht. In dieser Zeit haben sich natrlich die Zellen schon krftig vermehrt und man hat einiges zu tun, um den Wildwuchs einzudmmen. Hierbei kann es dann passieren, da sich die Zellengebilde aufspalten und selbstndig weiterwuchern. Also - viel Spa. Etwas ber die Grundlagen: 'Life' ist mittlerweile ein recht populres Computerspiel und fr den ST schon auf einigen PD-Disketten erhltlich. Es geht zurck auf den Mathematiker J.H.Conway, der es 1968 in Cambridge erfand. Es handelt sich dabei um Zellengebilde, die auf einem zweidimensio- nalen Spielfeld nach bestimmten Gesetzen entstehen, leben und auch wieder sterben. Dieses Wachstum geschieht dabei nicht gleichmig, sondern in Schben - in Generationen. Vier Parameter sind es dabei, die ber das Entstehen oder berleben der Zelle entscheiden: 1.Mindestzahl von (lebenden) Zellennachbarn, damit eine Zelle berlebt 2.Hchstzahl von Nachbarn, damit eine Zelle berlebt 3.Mindestzahl von Nachbarn, damit eine Zelle entsteht 4.Hchstzahl von Nachbarn, damit eine Zelle entsteht Die Bezeichnungen, die man in diesem Zusammenhang liest, (z.B. Life 2-3-3-3) stellen nichts weiter als diese Parameter dar. Man sieht also, das Wohl und Wehe einer einzelnen Zelle hngt allein von der Zahl ihrer Nachbarn ab. Das Feld, auf dem die Zellen wachsen, ist theoretisch unendlich gro und kann sogar dreidimensional sein. (Hierfr gibt es ebenfalls schon Programme). Grenzen setzt dabei nur die Rechengeschwindigkeit und die Bildschirmdarstellung. Da man die Wachstumsparameter verndern kann, hat man eine Unzahl Variationsmglichkeiten, mit deren Hilfe man sogar bestimmte natur- wissenschaftliche Vorgnge simuliert. Wer noch mehr ber diese 'zellulren Automaten' wissen will, besorge sich am besten die c't 2/1989, die auch mir als Quelle diente. Die Wachstumsparameter im 'KILLER PRG' sind 1-3-2-8, d.h. man hat schon gewonnen, wenn nur noch eine Zelle berlebt hat, weil diese ohne Nachbarn sterben mu. Speziellen Dank an dieser Stelle an Karl-Heinz Koch, Ahlerstedt, der die Idee zu diesem Spiel hatte und es zuerst in GW-Basic fr MS-DOS schrieb, auerdem an Frank Ostrowski fr sein tolles Basic. Zuletzt die schon fast obligatorische Bitte. Wem das Programm gefllt und oft damit spielt, schicke mir doch eine kleine Anerkennung. Da wohl die meisten kein Geld zu verschenken haben, sendet doch einfach eine Diskette mit euren PD-Favoriten an Uwe Mller Humboldtstr.29 4000 Dsseldorf 1 Vielen Dank and have a lot of fun! #a000000 #b000000 #c7770007000600070055200505552220770557075055507703111103 #d #E 98 13 #W 00 00 0C 01 1D 0F 08 A:\*.*@ #W 00 00 0D 08 2A 0B 00 @ #W 00 00 0E 09 2A 0B 00 @ #W 00 00 0F 0A 2A 0B 00 @ #M 00 00 00 FF A PD 255@ @ #M 00 01 00 FF B MAXON@ @ #T 00 03 02 FF PAPIERKORB@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.PRG@ @ #G 03 FF *.APP@ @ #F 03 04 *.TOS@ @ #P 03 04 *.TTP@ @ `oBSD` Efv*oMh m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHz2?< NA\pdAxr0XQ)K\NNNJrBjNuHz?<&NN\NCAp$L Qp Nx9lrBlJpNNxpMNx9@pdAr 0Q0tr N9lNNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A d,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu|pmrtA)HA)HNpNpHHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@Np"2)IN|(* 9AJA)H@@[000][ˈNL Evz`* [g" ]g |g QSz` zQSpQ][ɈNL Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NxHNu@9@JpNNxr|<NL @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| NA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuN8$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN6 _0HpN6E ұeHHQ0)Np$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNu2p <0N`QNuH&NրNjNuHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuHRp` HRpJQfpNNq Y QfdЀЀ 0NuNNNq Y Qfd ЀЀNuNN*$_& Y Qfdփփ!8NNNN$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@/ l\Nt NL"2` NqR YEjrd0` SjN$_N.ЀЀ 0N YQf "_Nq*eNN*< NqbІSGfN$_Nlփփ!8N YQf "_&Nq*eNN*<&NqbֆSGfN @  "Nu~$_N.ЀЀЈNp"X4g S`"QNu,N`"QjNu" KC`e N`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4NxP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNbHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlerLA JpBQA/)H )l gBlJpNxB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nxp>L8Np)@JphNxLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nx"F QNu _b@gGHpp 0f NuGNpZ @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNt"l`]d6&|0NuN"l`]epZNC ҳfHP0(N$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)Np$_$RR@H`2QNu$Y 0P1@Hg R@@%NuN$l` epZN,jJj `BffAgb Jj 2$NuJjNuN A0NZA4JNZA5NZA9>NZA4NZBpNHHPNv Start |Info|Ausr"_ N+@N -N~N8PG@3 -NWfNbNb?<NNT+@R -RNH -RU]HNL8NZN+@V -RNH -RS]HNL8NZN+@Z -VN&<x*<N@H <r$<L8NZN+@^ -VN&<x*<N@H <r$<L8NZN+@b -ZN&<x*<N@H <r$<L8NZN+@f -ZN&<x*<N@H <r$<L8NZN+@j -ZN&<x*<N@N+@npCNrpCNrpCNrHx -ZN&<x*<N@H <r$<L8NZNCN&Hx -ZN&<x*<N@H <r$<L8NZNCN&Hxp CN&HxpCN&Hx -VNvNNCN&HxpCN&HxpCNNvNNhNCN&HxpCNNvNNhH -ZN&<x*<N@L8NZ&<x*<N^NCN&HxpCNNvNNhH <r$<L8NZNCN&pNDpN^prNnpNpNpNpNpN pCNNV <N/pF"<N <N/pF"<NNNb <N"<N <N"<N?<wBg?<NN\?<E?<?<NN\BgBg _N4NNNbNJnN4,p N^`NJnN4Bp N^`NNb -RUgN4l?<Bg?<NN\N5 -RSgN4?<fBg?<NN\?<?<?<NN\?<?<?<NN\Bg?<?<NN\N5?<fBg?<NN\Bg?<?<NN\?<?<?<NN\?<@?<?<NN\?<?<?<NN\?<p?<?<NN\Bg?<?<NN\?<?<?<NN\?<D?<?<NN\?<v?<?<NN\?<p?< ?<NN\?<g?< ?<NN\?<E?< ?<NN\?<P?<?<NN\?<@?< ?<NN\?<0?< ?<NN\NNb -VN&<x*<N@N+@r -ZN&<x*<N@N+@v -bNH -rNvNL8NZN+@z -jNH -vNvNL8NZN+@~ -zNH -VN&<x*<N@L8N^N+@ -^Nv+@ -~NH -ZN&<x*<N@L8N^N+@ -fNv+@ -VN&<x*<N@N+@ -ZN&<x*<N@N+@ -VN&<x*<N@N+@ -ZN&<x*<N@N+@ -ЭNv+@ -ЭNv+@ -zNH -VN&<x*<N@L8NZ&<x*<N^N+@ -ZN&<x*<N@N+@ -VN&<x*<N@N+@+m~ -^NH -NL8NZH -NL8NZN+@+m~+m -fNH -~NL8NZH -NL8NZH <r$<L8NZN+@+m+mƀ -RSVHN&<x*<NZN+@pCNrpCNrHxpC~NtHxpC~NtHxpC~NtpCNrpCNrNNbAN:ANANANANANN E X P L O D E %C NN( p u b l i c d o m a i n )CNA NLNvNN+@ANLNvNN+@ -NH -NL8NN+@ -bNH -NL8NZH -VN&<x*<N@L8NZN+@ -bNH -NL8N^H -VN&<x*<N@L8N^N+@?<@?<?<NN\BA>NZB -ZN&<x*<N@H <r$<L8NZN/ -NH -NL8NZ&<x*<N^N/ -ZN&<x*<N@&<x*<N^N/A HPHxHxHxHxA@NZ -bNH <r$<L8NZH -VN&<x*<N@L8NZN/Hxv -VN&<x*<N@&<x*<N^N/HxA HPHxHxHxHxA@NZpN?- -ZN&<x*<N@N??- -ZN&<x*<N@N?~N2pN -ZU]HN&<x*<N^NNpNpNpN pCNNV -bNH -NL8NZ&<x*<N^N/ -ZN&<x*<N@N"NRA NpNpNpN pCNNVHx8HmA>JNZHxN V: 2.O Rudolf Tiemann 4HPA>JNZHxN Tel.: O6733-62O5 4HPA>JNZHxN Donnersbergstr. 14 4HPA>JNZHxN18.O5.89 D 65O9 Gau-Odernheim4HPA>JNZpNpNNNb"_AN> AN -bNHANLNvNL8NZN/ -NH -ZNL8N@N"NRANNNb ANN -JgN>prNR -f"-^NdN? prNR -n"-^Nd -nrNR -f"-^Nd -RUgN?FpNpNpNN?r -RSgN?fpNpNN?rpNpN -JgN?prNR -^NH <r$<L8NZN/ -fNH <r$<L8NZN"NN@prNR -^NH <r$<L8NZN/ -nNH <r$<L8NZN"N -nTNvrNR -^NH <r$<L8NZN/ -fNH <r$<L8NZN"NpNpNNNb AN A N AN AN"_AN> AN AN AN ANANANANAN -RSWHN&<x*<NZN+@ -SmNA -JgNA -ZNvNH -NL8N@N+@NA <Ѝ/ -ZDNvN _N,ANLNH -CNNL8N@N+@ -SmNBv -JgNBZ -NH -VN&<x*<N@H -NL8N@L8N^N+@NBv <Ѝ/ -VDNvN _N, -SmNB -JgNB -jNH -NvNL8NZH <r$<L8NZN+@NB <Ѝ/ -ZDNvN _N, -SmNCr -JgNCD -bNH -NvNL8NZN+@NCr <Ѝ/ -VDNvN _N, <Ѝ/p _Nv -NH -NvNNhL8N^HANLNH -CNNL8N@vNNhL8NZH -VNL8N^N+@ -NH -NvNL8N^NhH -CNNL8N^N+@ - NzNpJBgp/ -ZN&<x*<NpJBgp/ - NzNpJBgp$fND - NNpN -"-NR -ЭNv/ -ЭNv"NpNpNNE -"-NR -ЭNv/ -ЭNv"N -NzNpJBgp/ -RNzNNpJBgp/ -NzNpJBgp$fNFF -NNpNpN -ЭNv/ -TNv"NR -NH -NL8N^H -NL8NZN/ -NH -NL8N^H <r$<L8NZN"NpNpN -RJWHN&<x*<N^NNNF -ЭNv/ -TNv"NR -NH -NL8N^H -NL8NZN/ -NH -NL8N^H <r$<L8NZN"N -NpNpN -CNNV -"-NRA"-NpNpNpN pCNNVpNNNbA"NA&NA*NA.NA2NA6NA:NA>NABNAFN -VN&<x*<N@N+@" -bNH -"NL8NZH <r$<L8NZN+@& -bNH -"NL8N^&<x*<N^N+@* -ZN&<x*<N@N+@. -ZN&<x*<N@N+@2 -bNH -"NL8NZH <r$<L8NZN+@6 -bNH -"NL8N^&<x*<N^N+@: -ZN&<x*<N@N+@> ->NH -ZNvNL8N^N+@B?<E?<?<NN\BA>NZ -&NH <r$<L8NZN/ -.NH <r$<L8NZN"NR -*TNv/ -2TNv"NBF -FUmNJRFNv -."-&NR -2"-*N -F~N8JMNH +@J +@N +@R -RNzNpJBgp/ -J6^HpJBgp/ -J:]HpJBgp/ -N>^HpJBgp/ -NB]HpJBgp$glA4NZ` NNbHxNEXPLODE?HPA>JNZHxN ist ein 'Zwei-Personen-Spiel'.HPA>JNZHx(NvJeder Spieler ( BLAU und ROT )HPA>JNZHx2Nv$ darf abwechselnd ein Feld besetzen,HPA>JNZHxJNZHxFNv ist oder war.HPA>JNZHxPNv" Eckfelder fassen nur einen Knopf,HPA>JNZHxZNRandfelder fassen zwei Knpfe,HPA>JNZHxdN und die anderen fassen drei.4HPA>JNZHxnNvSobald in ein Feld mehr KnpfeHPA>JNZHxxNv gelangen als dieses fat,HPA>JNZHxN explodiert es.sHPA>JNZHxNv Dadurch werden die NachbarfelderHPA>JNZHxNv erobert - gleichgltig,HPA>JNZHxNv wem sie zuvor gehrten.HPA>JNZ/-6/-> -:6Nv/BNvweiterHPHxHxHxHx A@NZNNbHxN Wer keine Knpfe mehr hat,HPA>JNZHxNv hat das Spiel verloren.HPA>JNZHx&NAlle FunktionenoHPA>JNZHx0Nwerden mit der Maus gesteuert4HPA>JNZHx:Nv und sind so selbstverstndlich,HPA>JNZHxDNv" da es keiner Erklrungen bedarf.HPA>JNZHxNNDas Programm luft innHPA>JNZHxXN allen Auflsungen.HPA>JNZHxbNDas Programm ist in GfA-BASIC.HPA>JNZHxlNvgeschrieben und compiliertHPA>JNZHxvNund darf (mu) und sollHPA>JNZHxNvkostenlos weitergegeben werdenHPA>JNZHxN ( public domain ). HPA>JNZHxN Viel Spa!nHPA>JNZHxN Der Autor4HPA>JNZHxNist HPA>JNZ/-6/-> -:6Nv/BN O K HPHxHxHxHx A@NZNNbBm -RJgNQ ?<3?<?<NN\NQ* -RSgNQ*?<?<?<NN\pANpANpANBVBZ+|^+|b+|fHmA "_N>JBfNQA`NZNQANTpNpNpN < N -^SgNQ?-?-A"N?-?-A$"NNR?-?-A*"N?-?-A0"NNH +@J +@N +@R -RJo -RSgNT$ -J^HpJBgp/ -J]HpJBgp/ -N^HpJBgp/ -NANNpJBgp$fNT -JNH -NL8NZH -NL8NNhN+@j -NNH -NL8NZH -NL8NNhN+@ -JNH -jNH -NL8N@H -NL8N^L8NpJBgp/ -NNH -NH -NL8N@H -NL8N^L8NpJBgp$fNT/-j -C~NbfNT -^~N8VX[ -^JnNTAbC^  "RfNvNTVATNZ4-N&<x*<NNJBfNTVB^ -^JfV4-NzNNJBfNTATNZ4-N&<x*<NNJBgpNpNNNNbAN ?-?-A6"N?-?-A<"NNH +@J +@N +@R -RSf -N^HpJBgp/ -NNH -NH -NL8N^L8NpJBgp$fNV -J^HpJBgp/ -JNH -NH -NL8N^L8NpJBgp$fNV -JNH -NH -NL8N^L8NJBfNVt;BNV -JnNVt;Bt;B4-NJBg?-?-AB"N?-?-AH"NNNb/-j/-AZrNZAXNZBBjAXNZRjNv -j[oRNv -[oBnBBj -jNzNNpJBgp/ -jN&<x*<NNpJBgpN&<x*<N^H -NzNNpJBgp/ -N&<x*<NNpJBgpNL8N^N+@r/-j -C~NrnNWxRnNvRjNv -j[o(RNv -[o -ZN&<x*<NpJBgp/ -fN&<x*<NpJBgp$fNWBnB^ -nJfzNNb -jNzNNpJBgp/ -jN&<x*<NNpJBgpN&<x*<N^H -NzNNpJBgp/ -N&<x*<NNpJBgpNL8N^N+@r/-j -C~NrnNY?<?<pr _NVpN^pNpNN -jJnNY>AYNZ -jNH <r$<L8NZN//-AZrNZ -j[mNYnAYNZ -jRNv//-AZrNZ -JnNYAYNZ/-j -NH <r$<L8NZN/AZrNZ -[mNYAYNZ/-j -RNv/AZrNZNNb/-j -C~N @SNv -jCN? -CN?/-j -C~NCN"N/-j -C~NJgNZjSVNvNNb AzN AvN/-v -zC~NJnN[ /-v -zC~N//-v -zC~N"_N/-v -zC~N @RNvRVNvSZNv/-v/-zpC~N\N[Z/-v -zC~NJgN[BRVNv/-v/-zpC~N\/-v -zC~N @RNv -vCN? -zCN?/-v -zC~NCN"NNNb/-j/-A_NZA]>NZBBjA]>NZRjNv -j[oRNv -[oBnBBj -jNzNNpJBgp/ -jN&<x*<NNpJBgpN&<x*<N^H -NzNNpJBgp/ -N&<x*<NNpJBgpNL8N^N+@r/-j -C~NrnN\RnNvRjNv -j[o(RNv -[o -VNzNNpJBgp/ -fN&<x*<NpJBgp$fN],BnB^ -nJfNNb -jNzNNpJBgp/ -jN&<x*<NNpJBgpN&<x*<N^H -NzNNpJBgp/ -N&<x*<NNpJBgpNL8N^N+@r/-j -C~NrnN_&?<?<pr _NVpN^pNpNN -jJnN^xA_.NZ -jNH <r$<L8NZN//-A_NZ -j[mN^A_.NZ -jRNv//-A_NZ -JnN^A_.NZ/-j -NH <r$<L8NZN/A_NZ -[mN_&A_.NZ/-j -RNv/A_NZNNb/-j -C~N @SNv -jCN? -CN?/-j -C~NCN"N/-j -C~NJgN_SZNvNNb AzN AvN/-v -zC~NJnN`F/-v -zC~N//-v -zC~N"_N/-v -zC~N @RNvRZNvSVNv/-v/-zpC~N\N`/-v -zC~NJgN`|RZNv/-v/-zpC~N\/-v -zC~N @RNv -vCN? -zCN?/-v -zC~NCN"NNNbAjNANBA>NZ/-z/-~/-r/-vA HPHxHxBBA@NZB~+mB+mj -"-jNR -jЭNv/ -ЭNv"Nd/- -jCN& pNpNNjL -NpN -f"-NR -"-N -f"-NR -"-N -"-NR -"-N -"-NR -"-N?-?-?-?- -CN" NpNpN -f"-NR -"-N -f"-NR -"-N -"-NR -"-N -"-NR -"-N?-?-?-?- -CN" N+| <Ѝ/ - _ѐNv <Ѝ/ - _ѐNv -ЭNv+@ -Nv+@ -ЭNv+@ -RUgNkpNpNNk -NpN -f"-NR -"-N -f"-NR -"-N -"-NR -"-N -"-NR -"-N -"-NR -"-N?-?-?-?- -CN" NpNpN -f"-NR -"-N -f"-NR -"-N -"-NR -"-N -"-NR -"-N -"-NR -"-N?-?-?-?- -CN" N+| <Ѝ/ - _ѐNv <Ѝ/ - _ѐNv -ЭNv+@ -Nv+@ -ЭNv+@ -RUgNmpNpNNm -NpN -f"-NR -"-N -f"-NR -"-N -"-NR -"-N -"-NR -"-N -"-NR -"-N -"-NR -"-N?-?-?-?- -CN" NpNpN -f"-NR -"-N -f"-NR -"-N -"-NR -"-N -"-NR -"-N -"-NR -"-N -"-NR -"-N?-?-?-?- -CN" NpNpNpNNNb/ @8B ¨666668b0ZP*J*0ZL|,*64:6$84440&6..>:.&468,*40.4*"6>f 2*Tn (&Z: T x666|>j l666|>j,22 26,\`g.R` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNFHz2?< NA\pdAxr0XQ)K\NN<488DtzJrBjNuHz?<&NN\NCAp$L Qp N9lrBlJpNNpMN9@pdAr 0Q0tr N,9lNNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNuHnJ 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNPpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|d  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</N.JFkSFk&aQN.`Ha"FFaQL8N6.dJgtBndNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A d,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu.pmrtA)HA)HN,pNHHPN:4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N"2)IN.a: @Jg,Af*EJ, ,F G"P0(1|J#HJ@NHD"NupJf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehlerA JpBQA/)H )l gBlJpNB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Np>L8Np)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu _b@gGHpp 0f NuGNpZ @"l`Yd&-KNN*"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN*"l`QepZNC ҳfHP0(N$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)N$_$RR@H`2QNu$Y 0P1@Hg R@@%NuN*$l` epZNN A0NZA5NZA6NZNNNAN+|xpAxN,+||pA|N,/-x/-| -xN &<x*<NH -@N L8NH -HN L8NNJCJ~N/-x/-| -|N &<x*<NH -DN L8NH -LN L8NNJCP~NNZ`JNqNZ`.NqAeZNZAeNZAf6NZAfNZNNHmA "_NJBfN6A6NZN6 ANA6fNZBpNHPNStart| Info |Ausr"_ N~+@ -~N8H|? -Wf~NNNJnN6|pN`NN <Nt"<NBgBg _NNNA퀄NAxNA|NA퀈NA퀌NA<NrN:AVNZ -C\NPN H -xN L8NNJ+@ -CbNPN H -|N L8NNJ+@/-x -|Ct~NNjzNpJBgp/ -N &<x*<NpJBgp/ -N &<x*<NpJBgp$fNSBm6NSt;B64-6Nj&<x*<NpJBgp/4-4Nj&<x*<NpJBgp$g4-4NjzNJBfNV -C\NP+@ -CbNP+@/-/-tCt~N/- -CJ~N?/- -CP~N?A6"Nl/- -xC\N/- -|CbN -C\NP/ -CbNP/tCt~N/-x -|CJ~N?/-x -|CP~N? -C8Nr"NlpNpN,AVNZt;B6/-x -|Ct~NNjzNJBfNTBm6NTt;B64-6Nj&<x*<NpJBgp/4-4Nj&<x*<NpJBgp$gn/-x/-|tCt~N/-x -|CJ~NЭTNv//-x -|CP~NЭ\Nv/AXNZB+|pA퀌N,+|pAN, -C\NPЭNv/ -CbNPЭNvCt~NNj&<x*<NJBfNURNvNZ`NqNqNZ`NqNq -JgNV t;B4 -CVN8 @RNvNNBxB|NH +@ +@ +@ -N &<x*<NpJBgp/ -h^HpJBgp/ -l]HpJBgp/ -p^HpJBgp/ -t]HpJBgp$fNX+|pAN, -N H/-pCJ~NN L8NpJBgp/ -N H/-pCJ~NN H -PN L8NL8NpJBgp$fNW\+mxNZ`rNq+|pAN, -N HHx -CP~NN L8NpJBgp/ -N HHx -CP~NN H -XN L8NL8NpJBgp$fNX+m|NZ`nNqNX, -UgNX,AQNZ4-4Nj&<x*<NpJBgp/ -xN zNpJBgp/ -|N zNpJBgp$gNN A|N AxNpN+mT+m\ -xNv/ -|Nv"N -xЭNv/ -|ЭNv"N*?< -N vN &<x*<NNNJ?pr _N4pNSNvSNv -Jlv?<Bg _NNNN\pC\NP/pCbNPCJ~N?pC\NP/pCbNPCP~N?A6"NlpC\NP/pCbNP/A[NZ/- -CJ~N?/- -CP~N?pC8Nr"NlpC\NP/pCbNP/tCt~NHx - C\NHx -CbNpC\NP/pCbNP/tCt~NpC\NP/pCbNP/A[NZ/- /-tCt~N/- -CJ~NЭTNv//- -CP~NЭ\Nv/AXNZB+|pA퀌N,+|pAN,pC\NPЭNv/pCbNPЭNvCt~NNj&<x*<NJBfN[XRNvNZ`NqNqNZ`NqNq -JgN[t;B4pCVN8 @RNvNzNN A|N AxNpAnN`B+|pA퀌N,+|pAN, -N zNpJBgp/ -N zNpJBgp$fN\ -xЭNv/ -|ЭNvCt~NNj&<x*<NJBfN\RNv/-BB -xN H -N L8N&<x*<NH -|N L8NH -N L8NNJCh~NNZ`NqNZ`NqBBB -Ch~NB -CnN+|pCnNPAN,B/-BpCh~NN &<x*<NNNJ+@/-BpCh~NN H -N &<x*<NL8NNJ+@+|pA퀌N,+|pAN, -N zNpJBgp/ -N zNpJBgp$fN_* -ЭNv/ -ЭNvCt~NNj&<x*<NJBfN_* -N H -N L8NH -xN L8NpJBgp/ -N H -N L8NH -|N L8NpJBgp$fN_*RNv/-/-B -N H -N L8N&<x*<NH -N L8NH -N L8NNJCh~NNZ`NqNZ`rNqB/-B -Ch~N/- -RNvCnNNZ`Nq -SnNb +|pCnNPAN,+| B/-pCh~NA N,B/-/- pCh~NN &<x*<NNNJ+@/-/- pCh~NN H -N &<x*<NL8NNJ+@+|pA퀌N,+|pAN, -N zNpJBgp/ -N zNpJBgp$fNa -ЭNv/ -ЭNvCt~NNj&<x*<NJBfNa -N H -N L8NH -xN L8NpJBgp/ -N H -N L8NH -|N L8NpJBgp$fNa -CnN8 @RNvRNv/-/- /- -N H -N L8N&<x*<NH -N L8NH -N L8NNJCh~NNZ`zNqNZ`^NqB/-/- -Ch~NNZ`NqNZ`~Nq -UnNdr+|pCnNPAN,+| B/-pCh~NA N,+|$B/- - Ch~NA$N,B/-/- -$Ch~NN &<x*<NNNJ+@/-/- -$Ch~NN H -N &<x*<NL8NNJ+@+|pA퀌N,+|pAN, -N zNpJBgp/ -N zNpJBgp$fNd@ -ЭNv/ -ЭNvCt~NNj&<x*<NJBfNd@ -N H -N L8NH -xN L8NpJBgp/ -N H -N L8NH -|N L8NpJBgp$fNd@ -CnN8 @RNvNZ`NqNZ`NqNZ`4NqNZ`NqNZ`NqpCnNP+@+|(+|pCnNPAN, -CnNPlNd -CnNP+@+m(NZ`NqNq/-(BpCh~NN &<x*<NNNJ+@ /-(BpCh~NN H - N &<x*<NL8NNJ+@NNA,NANA0NB N +@,+| -,AN,N +@0Hm* -0N~"_NC*NNZ`NqNqNNA,NANA0N)| N +@,+| -,AN,N +@0Hm0 -0N~"_NC0NNZ`NqNqNNA,NANA0N)| N +@,+| -,AN,N +@0HxpC>NrHP -0N~"_NC>NNZ`NqNqNNA,NANA0N)| N +@,+| -,AN,N +@0HxpC>NrHP -0N~"_NC>NNZ`NqNqNN37 1 1 0 0 15 2016 2016 4080 4080 7224 7224 6168 6168 6168 6168 6168 6168 3120 3120 1632 1632 1632 1632 3120 3120 6168 6168 12300 12300 24582 24582 24582 24582 32766 32766 32766 3276637 1 1 0 0 15 2016 2016 4080 4080 8184 8184 8184 8184 8184 8184 8184 8184 4080 4080 2016 2016 2016 2016 4080 4080 8184 8184 16380 16380 32766 32766 32766 32766 32766 32766 32766 3276637 7 6 1 0 1 0 30750 30750 30750 30750 31134 31710 32766 32766 32766 32766 32766 32382 31806 30750 0 0 0 12300 12300 12300 12300 12300 12684 13260 14316 15996 15420 14364 12300 0 037 7 7 1 0 1 2016 4080 8184 16380 16380 16376 16368 8176 4088 4092 8188 16380 16380 8184 4080 2016 0 960 2016 3696 3120 3072 3584 1984 992 112 48 3120 3696 2016 960 00 > $ @ jr,v 0\>PV8 (:$ l0 |(ΔRx(@@~@~D@~`UH` Efv*oM m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHN(ALNHHz2?< NA\pdAxr0XQ)K\NNN JrBjNuHz?<&NN\NLCAp$L Qp N89lrBlJpNN8pMN89@pdAr 0Q0tr N9lNNupealp`NuaN,Hz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@Nv?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N\6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N\<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A d,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu.pmrtA)HA)HNpNtHHPN:4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@Nt"2)IN.@9@JpNN8r|<N\ @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| NA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprN2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNFN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpNF _0HpNFE ұeHHQ0)Nt$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNWHNu Ihd"*N$E8*$R`"QˈN\ ENu(* 0(iN$E 4R`Q$D 4R`QˈN\ DN\ ENu2p <0N`QNur ,* N\& ( EN\ C"Sj|Ac$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@/ l\Nd NL"2` NqR YEjrd0` SjN$_NЀЀ 0N YQf "_Nq*eNN*< NqbІSGfN$_N\փփ!8N YQf "_&Nq*eNN*<&NqbֆSGfN @  "Nu~$_NЀЀЈNp"X4g S`"QNu,N`"QjNu @  "002Nu" KC`e N`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNup`pJ@gHzZ?<&NN\NuB?< NA\Av ACLElp"Jg X\QC"C!/:@?< NA\NuLH!NuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A6@ Ni LHL|1R/:?< NApdK`HaJLxNNu)H9@Jp4N8P'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8NZ  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNN"HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(N Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GfA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GfA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler A JpBQA/)H )l gBlJpN8B Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8N8p>L8Np)@JphN8LtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N8"F QNu _b@gGHpp 0f NuGNpZ @"l`Yd&-KNN"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`p"l`Qd&&| NuN"l`QepZNt"l`]d6&|0NuN"l`]epZNC ҳfHP0(N$W$RR@H`2Q"H _$l` dd" $X&0BP6Y&|Hg R@@%E ҳeHQ0)Nt$_$RR@H`2QNu$Y 0P1@Hg R@@%NuN$l` epZN,jJj `BffAgb Jj 2$NuJjNuN A.NNZA-NZA0NZNN"N"A1 NZAMNZHxHxHxHxHxN123HPAXNZ+mRN -N~N8s|aF -NWfNN"AVN <N/pF"<N <N/pF"<N?<NNT+@V -VS]HN&<x*<N N+@Z -VU]HN&<x*<N N+@^ -ZNd&<x*<NH <r$<L8NN+@b -ZNd&<x*<NH <r$<L8NN+@f -^Nd&<x*<NH <r$<L8NN+@j -ZЀNv+@n -^ЀNv+@r -^Nd&<x*<NN+@v -^UgN/?<Bg?<NN\N06?<fBg?<NN\Bg?<?<NN\?<?<?<NN\?<E?<?<NN\pNjpN pN&prN6pNpNpN -^Nd&<x*<NH <r$<L8NNNpNpNpNvNN"ARxNZ <N"<N -^SgN1?<wBg?<NN\?<?<?<NN\?<P?<?<NN\NN"AzNA~NA퀂NA퀆N -ZNd&<x*<NN+@ -ZNd&<x*<NN+@ -^Nd&<x*<NN+@ -^Nd&<x*<NN+@ -ZNd&<x*<NN+@ -ZNd&<x*<NN+@ -^Nd&<x*<NN+@ -^Nd&<x*<NN+@+| -CNb -CNb -C Nb -C&Nb -C,Nb+| -CNb -C2Nb -C8Nb -C>Nb -CDNbHxNStartCN:HxNInfoCN:HxNAusCN: -bNdH <r$<L8NN+@~+| -oN44/- -Nd&<x*<NH -~NdL8N NC2N/- -C2NN/- -C>NNdH -^Nd&<x*<NL8N NCDNRNv`+| -CNb -CJNb -CPNb -CVNb -C\NbHxNWEITERCN:HxNA U SCN: -bNdH <r$<L8NN+@~+| -oN5/- -Nd&<x*<NH -~NdL8N NCJN/- -CJN -^Nd&<x*<NN+@B -^Nd&<x*<NN+@F -^Nd&<x*<NN+@J -^Nd&<x*<NN+@N -ZNd&<x*<NN+@R -ZNd&<x*<NN+@V -^Nd&<x*<N&<x*<N N+@Z -^Nd&<x*<NN+@^ -^Nd&<x*<NN+@bpCNbpCNbpCNbpCNbpCNbpCNbpCNb -ZUgNKFBNComputerCN:HxN 1.SpielerCN:HxN 2.SpielerCN:HxN 3.spielerCN:NKBNComp.CN:HxN1.Sp.CN:HxN2.Sp.CN:HxN3.Sp.CN: -ZNd&<x*<NN+@ -ZNd&<x*<NN+@ -ZNd&<x*<NH <r$<L8NH -NdL8NN+@~+| -WoNM /- -NdH -NdL8NH -~NdL8N NCN/- -CNЭNvCN/- -CNЭNvCN/-pCN/- -^Nd&<x*<NNCNRNv`6 -ZNd&<x*<NN+@f -ZNd&<x*<NN+@j -ZNd&<x*<NN+@n -jfNv+@rBm+|vNN"AN:AzNA~NA큂NA큆NA큊NN K N I F F E L NC NNp u b l i c d o m a i n4CNA N\NdvNN+@AN\NdvNN+@ -NdH -NdL8NN+@ -bNdH -NdL8NH -ZNd&<x*<NL8NN+@z -bNdH -NdL8N H -ZNd&<x*<NL8N N+@~ -^UmNO?<E?<?<NN\AS4NZHx -^Nd&<x*<NH <r$<L8NN/ -nNdNzH -~NdL8N H -zNdL8NN/ -^Nd&<x*<N&<x*<N N/HxBpnN6HPp N6HPAUNZ?-| -^Nd&<x*<NN??- -^Nd&<x*<NN?~N6pNpNpNp N -bNv/ -^Nd&<x*<NN"NA NpNpNpN -^Nd&<x*<NH <r$<L8NNNHx8HmARNZHx -^Nd&<x*<NN/ -ZNd&<x*<N&<x*<N N/ -^Nd&<x*<NN/HxBpnN6HPp N6HPAUNZHxN V: 1.2 Rudolf Tiemann HPARNZHxN Tel.: O6733-62O5 4HPARNZHxN Donnersbergstr. 144HPARNZHxN09.04.89 65O9 Gau-Odernheim4HPARNZ?-?-?-?-A" NNNN"NJnNRp NN`NJnNRp NN`NN""_AN> AN -bNdHAN\NdvNL8N&<x*<N N/ -NdH -^NdL8NN"NANNN"HmA "_NNJBfNSNprN -j"-fNZ -^UgNSpNpNpNNSpNpN -r"-nN -fnNv/ -jrNv"NZpNpNANNSANNN""_A$N>NprN -v"-fNZ -vrN -j"-fNZ -^UgNTFpNpNpNNTRpNpN -r"-nN -fnNv/ -vrNv"NZHm$Nleer"_NNJBfNTpNpN -vЭrNv"-nN -fnNv/ -jrNv"NZpNpNNN" A큖N A큒N A큎N AzN -"-zN -"-NZ -^UgNULpNpNpNNUXpNpN -zЭnNv/ -ЭrNv"N -nNv/ -rNv"NZpNpNNN""_AN>"_A*N> A큦N A큢N A퀆N A큞N AN A큚NA큪NA큮NA큲NAN\NdvNN+@ -JmNVP <Ѝ/ -^DNvNd _N -JmNVz <Ѝ/ -^DNvNd _N -JmNV -bNdH -NdvNL8NN+@ -NdH -NdvNL8N H -NdvNL8NN&<x*<N N+@ -NdH -NdvNL8N H -^Nd&<x*<NL8N NN+@ -"-N -ЭNv/ -ЭNv"NZHm*piN6"_NNJBfNWpNv -NpN -ЭnNv/ -ЭrNv"N -NdH -NdL8N H -nNdL8NN/ -NdH -NdL8N H -rNdL8NN"NZ -N -NHm*piN6"_NNJBfNXrpNv -"-NANpNpNpNvpNpNNN""_A0N> AN AN A큾N A큺N A큶NANAN ANAN+mց+m΁A]rNZ+m -oNY -CN/ -C&N/ -C N/ -C,N/B/- -CNHPA_NZRNv`ARxNZBRNH +@ +@ +@+m€ -oN] -NdH -CNNdL8NJpJBgp/ -NdH -C NNdL8NDpJBgp/ -NdH -C&NNdL8NJpJBgp/ -NdH -C,NNdL8NDpJBgp$fN\b -VHpJBgp/4-NzNpJBgp$fN[2 -CN/ -C&N/ -C N/ -C,N/Hx/- -CNHPA_NZ+mt;B -Nd&<x*<NpJBgp/ -WHpJBgp$fN\\+m΁+mR+mR -ְWHpJBgp/4-N&<x*<NpJBgp/Hm0 -NdNB"_NNdzNpJBgp$fN\\ -CN/ -C&N/ -C N/ -C,N/B/- -CNHPA_NZBBm+mN] -WHpJBgp/4-N&<x*<NpJBgp$fN] -CN/ -C&N/ -C N/ -C,N/B/- -CNHPA_NZBBmRNv` -RNdzNDpJBgp/Hm0 -RNdNB"_NNdzNDpJBgp$gLA]rNZARxNZNN" -SgN]CANCA2NC A8NC&A>NC,ADNN^ -UgN^CANCAJNC APNC&AVNC,A\NN^ -WgN^bCANCAbNC AhNC&AnNC,AtNN^ -YgN^CANCAzNC A타NC&A탆NC,A탌NN^ -[gN^CANCA탒NC A탘NC&A탞NC,A탤NNN""_AN> AN AN A큖N A큒N A큎N AzNANA큚NANAN\NdvNN+@ -zNdH -NdL8N vNH -NdL8NN&<x*<N N+@ -NdH -NdL8N vNH -^Nd&<x*<NL8N NN+@ -갭WHpJBgp/ -NdzNbpJBgp$fN` -^UgN`pNpNpNN`pNpNN`pNpN -"-zN -"-NZpNpN -SgN`pNv -zЭnNv/ -ЭrNv"N -nNv/ -rNv"NZ -SgNa$pNv -"-NANpNvNN"ANANANANA큮NAN -^UmNa?<@?<?<NN\ -bNdH <r$<L8NH -ZNd&<x*<NL8NN+@ -bNd&<x*<N H -ZNd&<x*<NL8N N+@ -^Nd&<x*<NN+@ -^Nd&<x*<NN+@ -bNdH <r$<L8NN+@B -[mNcNRNvAS4NZ -򐭀nNv/ -rNv"N -ЭnNv/ -ЭrNv"NZ -"-N -"-NZ -~N8cVfilpB -RUgNc@+|ARxNZ`RNN"HxNKniffel4HPARNZHxNist ein Spiel mit fnf Wrfeln.4HPARNZHx(N!Das Wrfeln besorgt der Computer.4HPARNZHx2N"Es knnen 1 bis 3 Spieler spielen.HPARNZHx ,HPARNZHx2Nwas noch gebraucht wird.HPARNZHxN6NRNv`NN"+| -[oN, -C탼NJgN$/- <r$<N&<x*<N NC탶NRNv`NN"+|: -:[mN -:RNv+@ -[oN -C탶NNdH -:C탶NNdL8NDJBfN -C탶N/ -:C탶N"_N -C탼N/ -:C탼N"_NRNv`tR:Nv`PNN"+| -[oN -C탼NJnNT?- -CN? -C탼NCN"NlN?- -CN? -C탶NCN"NlRNv`v -6WmNpC탒N/pC탞N/pC탘N/pC탤N/B4-pJBgp/Hm -6NdNB"_NHPA_NZN^pC탒N/pC탞N/pC탘N/pC탤N/Hx4-pJBgp/Hmp3N6"_NHPA_NZNN"A>NABNBmpC탶N+@>+|B+| -[oN ->NdH -C탶NNdL8N2gNRBNvRNv` -B[gN Hx - C~NJnN|+|6A{VNZpC탒N/pC탞N/pC탘N/pC탤N/Hx4-pJBgp/NWurf 3HPA_NZN Hx - C~NJmN +|6AtNZt;BpC탒N/pC탞N/pC탘N/pC탤N/Hx4-pJBgp/NWurf 3HPA_NZNN"pANpANB2BFBJBNBRBVBZANZANZANZAFNZANZANZANZA8NZNN"+| -[oN> -C탶NCN @RNv <2Ѝ/ -C탶N _ѐNv -C탶N/ - C~NJmN4 -C탶NCN/ -C탶N _ѐNvRNv`f+| -]oNJ -CNNdzNDpJBgp//- - C~NNdzNJpJBgp$fN - NdH -CNNd&<x*<NH -ZNdL8NL8N N/ -C탰N"N -CNNdNBN -CN~N8R`RNv`NN"RFNvNN" -JJgNz+mJN+mNNN"+mRNN"+mVNN"Hx - C~NJmNHx -2CNNN"Hx - C~NJmN> -RNdzNDpJBgp/ -VNdzNDpJBgp$fN>Hx -2CNNN"Hx - C~NJmN -VJnNHx -2CNNN"Hx - C~NJmN -RNdzNDpJBgp/ -JNdzNDpJBgp$fNHx p CNCNNN"pCNNdzNDpJBgp/pCNNdzNDpJBgp$fN,pCNNdzNDpJBgp/pCNNdzNDpJBgp$fN+|ZpCNNdzNDpJBgp/pCNNdzNDpJBgp$fN+|ZpCNNdzNDpJBgp/pCNNdzNDpJBgp$fN,+|Z -ZNdzNDpJBgp/Hx - C~NNdzNJpJBgp$fNHx p CNCNNN"Hx - C~NJmN0 -FNd&<x*<NpJBgp/pCNNdzNpJBgp/pCNNdzNpJBgp$fN0Hx p CNCNNN"A^N+| - oN -CNJnNR^Nv - gN"p CNSmNp CNNd&<x*<NJpJBgp/p CNNd&<x*<NDpJBgp$fN -C탰N"-NN NN - gNpp CNSmNj -C탰N"-NN 4NN -C탰N"-NN 4NRNv` -^NdzNpJBgp/ -6Nd&<x*<NpJBgp/Hx - C~NNdzNJpJBgp$fN` -2 nNBpC탰N"-NN NN`pC탰N"-NN NNN" -6WmNANZ -*JnN -*NNNN$gARxNZ -6WgN -bJgNANZ/-bANZNN"BbpA탼N -VJnNZ+| -[oNT -C탶NҰVgNL/- -C탶NC탼NRNv`NHx - C~NJmNTp CNJnN+| bNN -JNdzNDpJBgp/ -NNdzNDpJBgp$fNN+| -[oNN -C탶NҰJWHpJBgp/ -C탶NҰNWHpJBgp$fNF/- -C탶NC탼NRNv`N -RJnN/-R - C~NNdzNJpJBgp/Hx - C~NNdzNJpJBgp/ -RNd&<x*<NDpJBgp/Hx - C~NNdzNJpJBgp/Hx - C~NNdzNJpJBgp$fN|+| -[oN| -C탶NҰRgNt/- -C탶NC탼NRNv`Np CNJnN+| bN -ZNdzNDpJBgp/Hx - C~NNdzNJpJBgp/Hx - C~NNdzNJpJBgp$fNHx - C~NRnN>+| bN+mZf -fVNv+@j+mf.+| -Nd&<x*<NhpJBgp/ -.j_HpJBgp$fN -C탶NҰ.gN/- -C탶NC탼NR.NvRNv`~NBn -RNdzNDpJBgp//-R - C~NNdzNJpJBgp$fN@+mRnNT -NNdzNDpJBgp//-N - C~NNdzNJpJBgp$fN+mNnNT -JNdzNDpJBgp//-J - C~NNdzNJpJBgp$fN+mJnNTHx - C~NJmNT+| -[oNT -C탶NYnNL/- -C탶NC탼NBnRNv` -nJnN+| -[oN -C탶NҰngN/- -C탶NC탼NRNv` -bJgNANZN+|6+mbrNN"+| -[oNx -C탼NJnNB?- -CN? -C탶NCN"NlNn?- -CN? -C탶NCN"NlRNv`vNN"+| -bNdzNpJBgp/ -Nd&<x*<NDpJBgp$fN4 -CNNdzNDpJBgp//- - C~NNdzNJpJBgp$fN*+mbN0SNv`V -bJgNBv+| -]oN -CNҰv^HpJBgp//- - C~NNdzNJpJBgp$fN+mvRNv`+mvb+| -bNdzNpJBgp/ -Nd&<x*<NJpJBgp$fN -Nd&<x*<N2pJBgp/ -CNNdzNDpJBgp//- - C~NNdzNJpJBgp$fN+mbRNv`6+mbrNN"BmBfARxNZNH +@ +@ +@ -ڰ"^HpJBgp/ -ڰ&]HpJBgp/ -ް:^HpJBgp/ -ްN]HpJBgp$fN -ް>mN -NdH -2NdL8NH -.NdL8N\N+@zN0 -ްB^HpJBgp/ -ްF]HpJBgp$fN -NdH -6NdL8NH -.NdL8N\N+@zN0 -ްJnN+|zN04-N&<x*<NpJBgp/ -fNdzNDpJBgp/ -fNd&<x*<N2pJBgp$fN, -fC탪N/ -fC탰N"N -fCNN - CN/ -fC탰N"NN NHx - C~NSmN$ - CN/pC탰N"NN NBfBmBz -zfVHpJBgp/ -zNdzNDpJBgp/ -zNd&<x*<NJpJBgp$fN4-N&<x*<NpJBgp/ -fNdzNDpJBgp/ -fNd&<x*<N2pJBgp$fN -fC탪N/ -fC탰N"N -fCNN - CN/ -fC탰N"NN NHx - C~NSmN - CN/pC탰N"NN NBm/-z - C~NNdzNJpJBgp/ -zNd&<x*<N2pJBgp$fN - CN/ -zC탰N"NpN6HPN 4HP -zCNNdNB"_NHPp"_NX"_NN -zNd&<x*<NJpJBgp/Hx - C~NNd&<x*<NJpJBgp$fN< - CN/pC탰N"NpN6HPN 4HPHx - C~NNdH -zCNNdL8N NB"_NHPp"_NX"_NNpNv -zC탪N/ -zC탰N"N -zCNNpNv -zC탪N/ -zC탰N"N -zCNNt;BpNv+mzf -NdzNDpJBgp/ -zNdzNDpJBgp//-z - C~NNdzNJpJBgp$fN/-zANZ+|6t;B -fC탪N/ -fC탰N"N -fCNN - CN/ -fC탰N"Np N6NHx - C~NSmN - CN/pC탰N"NN NBmNv"lARxNZN4-N&<x*<NpJBgp/ -fNdzNDpJBgp/ -fNd&<x*<N2pJBgp$fN -fC탪N/ -fC탰N"N -fCNN - CN/ -fC탰N"NN NHx - C~NSmN - CN/pC탰N"NN NBfBzBm -Jo -6Nd&<x*<NJpJBgp/4-NzNpJBgp$fN -ڰ^HpJBgp/ -ڰ]HpJBgp/ -ް^HpJBgp/ -ް]HpJBgp$fN~Bz+| -[oN\ -NdH -CNNdL8NJpJBgp/ -NdH -CNNdL8NDpJBgp$fNR+mzRNv`~ -zJnNx/-zANZN -ڰ^HpJBgp/ -ڰ]HpJBgp$fNt;B -NdHpC탒NNdL8NJpJBgp/ -NdHpC탘NNdL8NDpJBgp/ -NdHpC탞NNdL8NJpJBgp/ -NdHpC탤NNdL8NDpJBgp$fNAHNt;BANZ4-NzNJBfNAHN4-N&<x*<NpJBgp/4-N&<x*<NpJBgp$gNN" A퀲N -C탼NJnNf/-pC탼N?- -CN? -C탶NCN"NlN/- -C탶NC탼N?- -CN? -C탶NCN"NlNN" A:N/-:/- -:CNC~NL/- - C~N/ -:CN _ѐNv -:Nd&<x*<NJpJBgp/Hx - C~NNd&<x*<NJpJBgp$fNHx - C~N/ -:CN _ѐNvHx - C~N ?nNANZN HP/- - C~NNdNB"_NHPp"_NXCBN - CN/pC탰N"NABN -rJnNN HP/-: - C~NNdNB"_NHPp"_NXC4-N&<x*<NJBfN./-/-/-/-ATNZB+| -&RNv+@N>+|+|+|+|"AxNZHx/-/-/-/-"N78HPAXNZ -R_gNt;BNl -RNd&<x*<NpJBgp/4-NzNpJBgp$fNl -NdH <r$<L8NN+@& -&JnNd -&Nd&<x*<N&<x*<N&<x*<N N+@*NhB*BmBNN"+| -oN, -Nd&<x*<N&<x*<N H -^NdL8NN+@ -ZNd&<x*<NN"-NN HP -NdNB"_NHPp"_NXNpCN"-NN HP/-pC~NNdNB"_NHPp"_NXN -SnNpCN"-NN HP/-pC~NNdNB"_NHPp"_NXN -UnN"pCN"-NN HP/-pC~NNdNB"_NHPp"_NXNRNv`VBpC~N//-pC~N _ѐNvpCN/pC탰N"NN HPBpC~NNdNB"_NHPp"_NXN -SnN*BpC~N//-pC~N _ѐNvpCN/pC탰N"NN HPBpC~NNdNB"_NHPp"_NXN -UnNBpC~N//-pC~N _ѐNvpCN/pC탰N"NN HPBpC~NNdNB"_NHPp"_NXNNN"A~NA킂NA킆NA킊NA킎NA킒NA킖NA킚NA킞NA킢NA킦NA킪NA킮NA킲NA킶NA킺NpNpCNbpCNb -NdvNN+@~ -NdvNN+@ -ZNd&<x*<NN+@ -^Nd&<x*<NN+@ -ZNdNz&<x*<N N+@ -^NdNz&<x*<N N+@ -^Nd&<x*<NH <r$<L8NN+@ -Nv+@ -ЭNv+@ -Nv+@ -ЭNv+@/-/-/-/-ATNZ+| -Nd&<x*<N&<x*<N H -ZNdL8NN+@ -Э~Nv+@ -ЭNv+@ -"-N -"-NT -"-N -"-N,?-?-?-?- -CN" NNpNpN -"-N -"-N,?-?-?-?- -CN" NN+| -Nd&<x*<N&<x*<N H -ZNdL8NN+@ -Э~Nv+@ -ЭNv+@ -Nv+@ -ЭNv+@pNpN -"-N -"-NT -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NNpNpN -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NN+| -Nd&<x*<N&<x*<N H -ZNdL8NN+@ -Э~Nv+@ -ЭNv+@ -Nv+@ -ЭNv+@pNpN -"-N -"-NT -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NNpNpN -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NN+| -Nd&<x*<N&<x*<N H -ZNdL8NN+@ -Э~Nv+@ -ЭNv+@ -Nv+@ -ЭNv+@pNpN -"-N -"-NT -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NNpNpN -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NN+| -Nd&<x*<N&<x*<N H -ZNdL8NN+@ -Э~Nv+@ -ЭNv+@ -Nv+@ -ЭNv+@pNpN -"-N -"-NT -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NNpNpN -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NN+| -Nd&<x*<N&<x*<N H -ZNdL8NN+@ -Э~Nv+@ -ЭNv+@ -Nv+@ -ЭNv+@pNpN -"-N -"-NT -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NNpNpN -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N, -"-N -"-N,?-?-?-?- -CN" NNpNpNpNt;BNN"-  *,xt> |2>nr 66666&NVR**ʮR88TTRDRd BBBB>Lf* b*6886<><4<68,:>(@.6.2&:*<:2622(::0>::>0>844,,(*6<:2,<:26"88884(D:::$48.8<4468&$ `&HV "Z,L84P@LH44PX,888Jh0l\THD0<||d r^ H XN JR R`DZ6r2D^ ZL,Z `B "\HP. F4:44:dFNNP:l@^((&4(&:F&&pd.L H H 2. ,2P Nbv,>6>lzlzd @ lzff 6~@Fvv, (R$"&( F8L,Xچd ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 EC Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (winter 1990) al zo'n vier honderd disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De Stichting ST geeft ook een speciale PD catalogus disk uit. ************** Deze public domain disk is geproduceerd en gedistribueerd door: Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productie fouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productie nummer. ************************************************************************