@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREIE SEKT.  G) *Gȩ GȽG GȌ*jj >G}J,}Λ "dJ\|DOS SYSRAMDISK COM/}B}B}-}CDOS SYS} C C*(> C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSLADEN NUR MIT MEM.SAV MOEGLICH.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VJ8 B V  @  /DE `E:D8:DUP.SYSPROGRAMM-SPEICHERUNG FEHLERHAFT!DOS DENNOC&}H LADEN? >J/N B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISKETTEN BETRIEBSSYSTEM II VERS. COPYRIGHT 1985 ATARI CORP.A. DISK-INHALT I. FORMATIERENB. ZUM STECKMOD*}UL J. DISK KOPIEREN C. DATEI KOPIEREN K. BINAER SAVED. LOESCHE DATEI L. BINAER LOADE. NAMEN AENDERN M. START BEI ADR+}.F. DATEI SICHERN N. MEM.SAV ANLEGENG. DAT. FREIGEBEN O. DAT. KOPIERENH. DOS SCHREIBEN P. FORMATIEREN ӛL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }DOS 2.0s EINLEGEN -> Y, x -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLBITTE .}WAEHLEN, -> MENUE! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%INHALT [SUCHBEGRIFF,AUSGABEGER.]?[# 0 0 &|D3" 1L!KEINE DISKDATEIN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0JЛ 1 ;#L" ;#L! BL1->J ZUM LOESCHEN... LOESCHE DAT.NAME2}KOPIE-VON, AUF?DAS KANN ICH NICHT737 FREIE SEKT. KOPIERE---D1:DISKFIX.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!KEINE 'WILD CARD6}S' IM ZIEL-DATEINAMEN 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!FORMATFEHLER!WELCHE DATEI LADEN? ) 0 ?}0#B 1L!SICHERN DAT.-NAME?) 0 0$B 1L!FREIGEBEN DAT.-NAME?DUP DISK-ORIGINAL,ZIEL STAT?PROGRAMM-SPEICHER BE@}NUTZEN? (J/N)ACHTUNG: MEM.SAV WIRD DANN INAKTIV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)BEIDE DISKETTEN EINLEGEN, Ԯ^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` ZU WENIG RAM! ORIGINAL EINLEGEN, ZIEL DISKETTE EINLEGEN, E}`  `8 rL1`-* 1P* 1 y0J`hhL!UEBERTRAGE DATEI:...?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Jj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DOS.SYS ALS ZIEL VERBOJ}TEN! 0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-DAT.NL}AME,START,ENDE(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`BITTE NUR 1 ZEICHEN ,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} ZU LANG! B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2EINGABE ZU LANGUNGUELTIGE HQ}EXADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENduR} XADEZ. PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1D1 - D8 ANGEBENduLvLT}   D  Lt  D:COM "   D:EDI   `1 D:EXT 0 z1 L U}s  / 01@ԩb \"/ D   l C+ELw䭥 zV}  L! L!  Lt  Ll˅ͅυѩ ̩؅Ω8Щҩԍԩx˅͑˥ υёϥW}ԩө"/@X`pppBA RR1uick3hell6ompilerditorosRR ` >JKBDE V` >X}BHIDELb > BLbhhii eiHHLFhhiiY}HHLfLbhhii eiHHLFhhii!Aԍԩx˩̩ͩAΠˑө"/@X @ % & 3'U' `"詰 [}ꩰ쩠FE "' }"INCLUDE " }"INTER }"BYTE ; }"WORD j }"ARRAY x }"PROC }"IN }"OU \}T ! }"LOCAL ! }"MAIN ( }"OLD  "L' "Le 栥L# "Le  "[L'" "] !LQ "hhLi ]}LC iLC L# 8ɛL# 8ɛei ɛiiȥȩȑ ^}i iLe @ "Le "Le "Le (,=ɛHh褆ڄ)R !ȥȭ)ȭ* _}i i+ ei餔, 8ɛ 8L!`( 8ɛ L#Ȣ 9<) 8ɛ ȄLS! L# `}L#=Ȣ 9<)<*+`)*+` "[L# "]# 8 ɛL:"iiL," "Le ̩ a}˨˙FE `hh̥i˥i̠ L"ȱˍ"ȱˍ"e˅ͥiHH ņL"`L` D# l# # b}ɛ* L"ei` S@5򥄅 ?L# @gEiiL"l(E @0` c}`L#&(ɛ`8 &(`ɠɨɫP` L#!L#"L##L#$L#fw$W& d}TUf \$T˩$̥ɟ&8˥̠0 `8 d& CELs "LL-/L$L???? e} fJJJJ$ f)$ `%rrorin-!).ontxit0123456789ABCDEFU%W&TO \$O \$ EL f}6$ALRs  j @LPSՠ'. $'%$' S@$' ?捓%獔%󩏅% 3@ g}8AiiA 3@󩕅% 3@ S@L$APnotherfilexitaveun.OBJ/RW0 h}%1X&Y&W&&("/`ppppB&ppA%QRRRRRRRRR1uick #ompiler6RRRRRRRRRREZRRRRRRc by2aindorf3of i}tRRRRRRRRC3ource j}T '08 0^&U' @'`D1:ABCDEFGH.EXTD1:ABCDEFGH.OBJ S@ k}' ? @gE`쩠>FP 3' " }"MAIN 'L'hh @j ".- l}?LH- ,( O(l k7L-/Lq+ 'ȥL-/ 8L#< <ɀ<.<<i˭ @ L-/ r} [69L# <> < * ɛL4L#,LE4,LE4,ȱ<=>,-`-`-`-` J= }˽K= 4`˅憠L6 ; L6 <Ć` 6=ͽ7=Π`( 8ɛL#Ȅ͍Ȣ͝< } 8 7, 8ɛL#L4`攤, 8ɛL#Ȅ 8͍Ȣ͝< 7 }, 8ǠL#`( 8ɛ <` 8 8)-1L#2 << << ?h7-9 }+<8&L#87 M7 &L# <` }< <`= ɛLm7LH8 8 8 8$8 m(8" <" `L#< }<<<L7< << << <<˭<̱" ɛ -:0:2A [ a{ L# ; Z;9 }<<<<` 9<{9 ~9`L# <{9 <|9 <}9 <9<<`-ȱ!ȱ$L: : }˩:̈䄆 o:)eȱei˥i来L: L#IIii $0< }<<<`LL:0 :80 ``0:L:`ȊHݖ$ hL:&L: }(2<FPZd,X  pX@(#' N0u@P`ꆆR; !,0=<> ɛ R; }`˩̥ɟ ȱ ;˩ ;L#`rR;R;VL;J)iȱ˝< }<ȱ˝<ȱ˝<<<i<>Q>>>>>!>$>)>V>k>v>|>> }>>>>>A+AUAAAAAAAAB'B.BCBXBlBBBBBBBBBCCCCC!C7CMCZCBB# }#$"*A%" ! } -)MImi.Nn #" ( }˩̩˅ȱ˅1ȱ˅ȱ˅РϪȱϑ )L#i˥iL>8 } w??S ? S@1 w?(L# @? @A S@?L$?? _@D1:RUNTIME.OBJ `8 w?ą? 3@ }A 3@ S@L$ ` ?JKBDE V` ?BHIDE V` ?BHIDE } V` ? BHIDE V` ? B V`hhii eiHHL?hh }iiHHL?hh@Hȱ <@hieiHH` S@ _@ E `eiHHL?hh ^ 2L!pB/ B4OG!B6BW A 1uick%ditor6c 2aindorf3oft%dit}!reyousureyn )/%rrorpressakey }%dit "lockdefined$irectoryofdrive}b!c   ! T" #+8˥ @# $L!!8L!i 8i `Q}uick-Sourcetext ----------------Length: $ Free : $ ----------------/0 1X4Y}ǍǍ/ \ԩRW " "/`4567` 8 88镍}@ #8  O #` # #`JJJJ0#8ȭ)0#8`0123456789ABCDEF " ͩ4 #` 8 }Lk#i@ɛE ˅̅ͅ΅Șe˅˥i̥i(ͥi* #LX#L# ]LX#\͎}i(ͥi #`(`  % K%LH$ #%F$$%G$L $ %Lp$ }$k$$l$ L$ ) $L6,L$(`i&ͥiΥi˥i̥mϥiХ8ϥ B.-`} i@L$8 `~{F,,,,,,*&C&% }  --.,,t++++@+*#()A*m'(&&%%`%3ave,oad-er}ge&ind* 0+ 1 9 %8 3! #+`I` 8-* + )_Y #+`Ls 8-* !+ 0D1:*.* L(o˩! @#T}U 0 &#Ɉ#L( & T L% 0 #+L& 8-8˩/ @# ` #+``8} cY* + ˭̩ͩΠˑͥi˥i̥iͥiΥۥ`` *} L&`8ͩΩ˩̥8ϥ B.˥̩ͩΩυб͑˥i˥i̥iͥiΥiϥi}Хɭ m  m ` 8-[%  ( #+` #+ * (  -˥ @#˥̠ ( -?}0L'L'8L'e˅˥i +` -` 8-L' 8- 0L% 88 } i ) #+L( #+ * 8@ԩ  -00S˩8̱L(e˅˥i̥88}ii m00 0` 0ύ* + #+`@ * +  ɛ7<~" }(9@B`8 L))ʩ L))`` 8 L))L) 0Q% D 8 0} i ) #+L( + *@ԩ  -0L( 0R8#Ɉ#0(i )i8  i2  i  0 |+}` 0V%  ( #+` #+ *@ԩ  -0L( 0h * M0#Ɉ(e )e  0L$* 8F }iiL*8` `i ` 8-* + )_Y #+` ! #+8` W* + `}* + `ɛLD+8m(`  8-`  8-8`  8- 8F˭ ̠i˥}iL+˅̅ . `H - ˥ @#h`H - ˥ @#h`   8-`}Lp$ 8- .` `mͥiΥ8˥ {,`i(ϥi .`   $ $` `}80m˥i̥iͥi {,`8```8`` 8-` 8- .` 8-}` 8- .` `L-c8˥̥mͥiέ ϭ  . 8   `` @i L-8@}` ɰ Ɉ`8 ˭ ̥8ͥΥ8ϥ B. m  i L-ɛL.Șei`˥}̠ɛL*.Șe˅i` s.͑˥8˥̥8ͥޥ .`.`.` s.͑˥}i˥i̥iͥiޥ .`H ԩЩЩ.h@H  ԩЩЩǍ.h@Ǎ.G!(} I  G!MLb^;: EOL^H: Home^N: Textend^U/D: Page up/down^X/V: Delete/Join lines^B/E: Block sta}rt/end^C: Copy Block^F: Find ^R: Repeat find^L/S: Load/Save^M: Merge^I: Directory ^A: New DriveESC: G}raphicmode ` %0JKBDE V` %0BHIDE V` %0 BHIDE V` %0 B} V`hhii eiHHL-0hhiiHHLM0.ew$rive}}ADL3& JKB DE V( BHIDE V( BHID}E V B V   UVT}ȱ8} ) )      \}ԌHHHhhhІ @HHH @hhh )P )P , }1 9 %8 3!`}A!AENLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxA}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` A} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BII}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PD}EHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C } C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`}L)D ` ```߰`` %`))Ţ𲥢0``))}ŢLD0```) eeFf&LD D {D JE `} D C JE ``00!`IIiiLEIIii``E`II}ii`UVT E`UVT E`HH`HH"`ʼnLSFň}LSF`mm mm 88888 ͭ`}iiii8 ͭ```hhȱȱȄLF }GȩLF GLFeiHH`HH`hh> BoHB(HIoDHE V #LF }GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅ}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`} d'hhiiȱȱȱ m}m iiHH E````}`)II") JI ƲLIɟ沭II)@II)JI ƳLIɿ泭II}`#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMM}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMM}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`F}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeX}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MM}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMM}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)}`ԍԍ`"ԩ@ԩ` ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)Quick-SourcetextD:GRAPH.LIB ----------------Length: $0E85Free : $68E6---------------- *Standart Graphics} Library*(c) RAINDORF SOFT 5/89** GRAPHICS ***schaltet Grafik(GR) einPROC GRAPHICSINBYTE[GR]LOCALBYTE[FKT,BE}TR]BEGIN ANDB(GR,15,FKT) IF GR>47 BETR=44 ELSE IF GR>31 BETR=60 ELSE IF GR>15} BETR=12 ELSE BETR=28 ENDIF ENDIF ENDIF CLOSE(6) OPEN(6,BETR,FKT,"S:"})ENDPROC** FRAME ***zeichnet RechteckPROC FRAMEINWORD[X1,Y1,X2,Y2]BEGIN PLOT(X1,Y1) DRAW(X2,Y1) DRAW(X2},Y2) DRAW(X1,Y2) DRAW(X1,Y1)ENDPROC** BOX ***zeichnet ausgefuelltes RechteckPROC BOXINWORD[X1,Y1,X2,Y2]LOC}ALWORD[H]BEGIN IF Y1>Y2 H=Y1 Y1=Y2 Y2=H ENDIF REPEAT PLOT(X1,Y1) DRAW(X2,Y1) } ADD(Y1,1,Y1) UNTIL Y1>Y2ENDPROC** CIRCLE ***zeichnet KreisPROC CIRCLEINWORD[X0,Y0,R]LOCALBYTE[FLAG]BEG}IN FLAG=0 .CIRC(X0,Y0,R,FLAG)ENDPROC** DISC ***zeichet ausgefuelletn KreisPROC DISCINWORD[X0,Y0,R]LOCALBY}TE[FLAG]BEGIN FLAG=1 .CIRC(X0,Y0,R,FLAG)ENDPROC** **PROC CIRCINWORD[X0,Y0,R]BYTE[FLAG]LOCALBYTE[}GM,HALF]WORD[X,Y,X1,Y1,X2,Y2,X3,Y3H,MX,MY]BEGIN SIGN PEEK(87,GM) AND(GM,15,GM) MX=79 MY=47 HALF=0 } IF GM>13 MX=159 MY=191 HALF=1 ELSE IF GM=8 MX=319 MY=191 ELSE IF GM<8 } MX=159 MY=95 ELSE IF GM>8 MX=79 MY=191 HALF=2 ENDIF } ENDIF ENDIF ENDIF X=0 Y=R H=Y LSRW(H) REPEAT IF H<0 ADD(H,R,H) SUB(Y,1,Y}) ENDIF X3=X Y3=Y IF HALF>0 ASRW(X3) ASRW(Y3) IF HALF=2 ASRW(X3) } ASRW(Y3) ENDIF ENDIF ADD(X0,X3,X1) ADD(Y0,Y,Y1) SUB(X0,X3,X2) SUB(Y0,Y,Y2) } IF X1>MX X1=MX ENDIF IF X2<0 X2=0 ENDIF IF Y1>MY Y1=MY ENDIF IF} Y2<0 Y2=0 ENDIF PLOT(X1,Y1) IF FLAG=1 DRAW(X2,Y1) ELSE PLOT(X2,Y1) E}NDIF PLOT(X1,Y2) IF FLAG=1 DRAW(X2,Y2) ELSE PLOT(X2,Y2) ENDIF ADD(X0,Y3,X1) } ADD(Y0,X,Y1) SUB(X0,Y3,X2) IF X1>MX X1=MX ENDIF IF X2<0 X2=0 ENDIF I}F Y1>MY Y1=MY ENDIF PLOT(X1,Y1) IF FLAG=1 DRAW(X2,Y1) ELSE PLOT(X2,Y1) } ENDIF SUB(Y0,X,Y2) IF Y2<0 Y2=0 ENDIF PLOT(X1,Y2) IF FLAG=1 DRAW(X2,Y2) } ELSE PLOT(X2,Y2) ENDIF SUB(H,1,H) SUB(H,X,H) ADD(X,1,X) UNTIL X>YENDPROC** FILL ***}Fuellt BildschirmbereichPROC FILLINWORD[X]BYTE[Y]WORD[XMIN]BYTE[YMIN]WORD[XMAX]BYTE[YMAX]LOCALW}ORD[MX]BYTE[MY,W,P,FL,FR]ARRAY[XP(127)YP(127)]BEGINUNSIGNP=0W=0-380FL=0FR=0WHILE X>XMIN SUB(X,1,X) P}OS(X,Y) LOCATE(W) IF W<>0 ADD(X,1,X) JUMP(379) ENDIFWEND-379MX=XMY=YREPEAT IF Y>YMIN Y- POS(X},Y) LOCATE(W) IF W=0 IF FL=0 XP(P)=X YP(P)=Y P+ P+ FL=1 ENDIF ELSE } FL=0 ENDIF Y+ ENDIF IF Y0SUB(X,1,X)PLOT(MX,MY)DRAW(X,Y)IF P<>0 REPEAT P- P- X=XP(P) Y=YP(P) POS}(X,Y) LOCATE(W) UNTIL W=0 JUMP(380)ENDIFENDPROCF P<>0 REPEAT P- P- X=XP(P) Y=YP(P) POS@Quick-SourcetextD:MATH.LIB ----------------Length: $090BFree : $6E60----------------*Standart Mathematic!} Library*(c) RAINDORF SOFT 5/89 & 1/90** IFP ***Wandelt Word in FloatPROC IFPINWORD[INT=212]OUTARRAY[FERG(6)!}=212]BEGIN CALL(0,0,0,55722)ENDPROC** FPI ***Wandelt Float in WordPROC FPIINARRAY[FR0(6)=212]OUTWORD[BYT! }E=212]BEGIN CALL(0,0,0,55762)ENDPROC** AFP ***Wandelt ASCII in FloatPROC AFPINARRAY[BUFF(127)=1408]OUTARRA! }Y[FR0(6)=212]LOCALWORD[INBUFF=243]BYTE[CIX=242]BEGIN INBUFF=1408 CIX=0 CALL(0,0,0,55296)ENDPROC** ! }DFP ***Wandelt Float-Daten in FloatPROC DFPINBYTE[A,B,C,D,E,F]OUTARRAY[FP(6)]BEGIN FP(0)=A FP(1)=B FP(! }2)=C FP(3)=D FP(4)=E FP(5)=F FP(6)=0ENDPROC** FASC ***Wandelt Float in ASCIIPROC FASCINARRAY[FR0(6)=21! }2]OUTARRAY[LBUFF(127)=1408]LOCALBYTE[Q,I]BEGIN CALL (0,0,0,55526) I=0 REPEAT Q=LBUFF(I) I+ U!}NTIL Q>127 I- SUB(Q,128,Q) LBUFF(I)=Q I+ LBUFF(I)=0ENDPROC** FADD ***Addiert 2 FloatPROC FADDINARRAY!}[FR0(6)=212,FR1(6)=224]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,55910)ENDPROC** FSUB ***Subtrahiert 2 FloatPRO!}C FSUBINARRAY[FR0(6)=212,FR1(6)=224]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,55904)ENDPROC** FMUL ***Multipli!}ziert 2 FloatPROC FMULINARRAY[FR0(6)=212,FR1(6)=224]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,56027)ENDPROC**!} FDIV ***Dividiert 2 FloatPROC FDIVINARRAY[FR0(6)=212,FR1(6)=224]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,56104!})ENDPROC** FCMP ***Stellt fest ob Float<0, F=0 oder F>0PROC FCMPINARRAY[F(6)]OUTBYTE[E]LOCALBYTE[I,H]B!}EGIN E=F(0) AND(E,128,E) IF E<>0 E=0 JUMP(382) ENDIF I=0 E=1 REPEAT H=F(I) IF H0 E=2 ENDIF I+ UNTIL I=6-382ENDPROC** FPRT ***Printet FloatPROC FPRTINARRAY[FR(6)]LOCA!}LARRAY[Z(17),H(2)]BYTE[Q,I]BEGIN .FASC(FR,Z) Q=FR(0) AND(Q,128,Q) IF Q=128 ?("-"); ENDIF Q=Z(!}0) IF Q=45 I=1 ELSE I=0 ENDIF IF Q=46 ?("0"); ENDIF Q=FR(0) IF Q<>0 REPEAT !}Q=Z(I) I+ UNTIL Q<>48 I- ENDIF REPEAT Q=Z(I) IF Q<>0 H(0)=Q H(1)=0 ?(H); !} I+ ENDIF UNTIL Q=0ENDPROC I- ENDIF REPEAT Q=Z(I) IF Q<>0 H(0)=Q H(1)=0 ?(H); 'Quick-SourcetextD:NUMERIC.LIB ----------------Length: $0ED1Free : $689A----------------*Standart Numeric Li%}brary*(c) RAINDORF SOFT 5/89 *benoetigt MATH.LIB** EXP ***Berechnet EXP(Float)PROC EXPINARRAY[FR0(6)=212]OUT%}ARRAY[FERG(6)=212]BEGIN CALL(0,0,0,56768)ENDPROC** EXP10 ***Berechnet 10^FloatPROC EXP10INARRAY[FR0(6)=212%}]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,56780)ENDPROC** LOG ***Berechnet LN(Float)PROC LOGINARRAY[FR0(6)=2%}12]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,57037)ENDPROC** LOG10 ***Berechnet LOG(Float)PROC LOG10INARRAY[%}FR0(6)=212]OUTARRAY[FERG(6)=212]BEGIN CALL(0,0,0,57041)ENDPROC** SQR ***Berechnet WURZEL(Float)PROC SQRINA% }RRAY[A(6)]OUTARRAY[XN1(6)]LOCALBYTE[E]ARRAY[XN(6),FERG(6),F5(6)F0(6),F1(6)]BEGIN .DFP(63,80,0,0,0,0,F5)%!} XN=A E=XN(0) AND(E,127,E) A(0)=E IF E>=64 SUB(E,64,E) LSRB(E) ADD(E,64,E) ELSE IF%"} E<63 SUB(64,E,E) LSRB(E) SUB(64,E,E) ENDIF ENDIF XN(0)=E REPEAT F0=A %#}F1=XN .FDIV(F0,F1,FERG) .FADD(FERG,F1,FERG) .FMUL(FERG,F5,XN1) .FSUB(XN,XN1,FERG) .FCMP(FERG,E)%$} XN=XN1 UNTIL E=1ENDPROC** SIN ***Berechnet SIN(Float) im BogenmassPROC SININARRAY[X(6)]OUTARRAY[Y(6%%})]LOCALBYTE[FLAG,FLAG1]ARRAY[PI(6),PID2(6),PIM2(6),A2(6),A4(6)X^2(6),ONE(6)]BEGIN .DFP(64,1,0,0,0,0,ONE) .D%&}FP(-65,22,96,80,0,0,A2) .DFP(62,118,16,0,0,0,A4) .DFP(64,3,20,21,-110,101,PI) .DFP(64,1,87,7,-106,50,PID2) .DFP(6%'}4,6,40,49,-123,48,PIM2) FLAG=0 .FCMP(X,FLAG1) IF FLAG1=0 FLAG=128 FLAG1=X(0) AND(FLAG1,127,FLAG1)%(} X(0)=FLAG1 ENDIF .FSUB(X,PIM2,X^2) .FCMP(X^2,FLAG1) WHILE FLAG1<>0 X=X^2 .FSUB(X,PIM2,X^2) %)} .FCMP(X^2,FLAG1) WEND .FSUB(X,PI,X^2) .FCMP(X^2,FLAG1) IF FLAG1=2 EOR(FLAG,-128,FLAG) .FSUB(X,PI,X%*}) ENDIF .FSUB(X,PID2,X^2) .FCMP(X^2,FLAG1) IF FLAG1=2 .FSUB(PID2,X^2,X) ENDIF .FMUL(X,X,X^2) %+}.FMUL(X^2,A4,Y) .FADD(Y,A2,Y) .FMUL(Y,X^2,Y) .FADD(Y,ONE,Y) .FMUL(Y,X,Y) FLAG1=Y(0) EOR(FLAG1,FLAG,FLAG1)%,} Y(0)=FLAG1ENDPROC** COS ***Berechnet COS(Float)PROC COSINARRAY[X(6)]OUTARRAY[Y(6)]LOCALARRAY[PID2(6)%-}]BEGIN SIGN .DFP(64,1,87,7,-106,50,PID2) .FADD(X,PID2,X) .SIN(X,Y)ENDPROC** ATN ***Berechnet Arcustangens v%.}on FloatPROC ATNINARRAY[X(6)]OUTARRAY[S(6)]LOCALBYTE[E,F]ARRAY[PI(6),PID2(6),PIM2(6),TWO(6)ONE(6),X1(6)%/}YY(6),YF(6),T(6),I(6)EPS(6),STR(10)]BEGIN .DFP(64,1,0,0,0,0,ONE) .DFP(64,2,0,0,0,0,TWO) .DFP(64,1,87,7,-106,50,PI%0}D2) .DFP(62,80,0,0,0,0,EPS) X1=X E=X1(0) AND(E,127,E) X1(0)=E .FSUB(X1,ONE,X1) .FCMP(X1,F) IF F=0 %1} I=ONE S=X YF=X .FMUL(X,X,YY)-383 REPEAT .FADD(I,TWO,I) .FMUL(YF,YY,YF) %2} E=YF(0) EOR(E,128,E) YF(0)=E .FDIV(YF,I,T) .FADD(S,T,S) X1=T E=X1(0) %3} AND(E,127,E) X1(0)=E .FSUB(EPS,X1,X1) .FCMP(X1,F) UNTIL F=2 ELSE .%4}FADD(X,ONE,X1) .FCMP(X1,F) IF F<2 I=ONE .FDIV(ONE,X,YF) E=YF(0) EOR(E,128,E)%5} YF(0)=E X1=PID2 E=X1(0) EOR(E,128,E) X1(0)=E .FADD(X1,YF,S) .F%6}MUL(YF,YF,YY) JUMP(383) ELSE I=ONE .FDIV(ONE,X,YF) E=YF(0) EOR(E,128,E) %7} YF(0)=E .FADD(PID2,YF,S) .FMUL(YF,YF,YY) JUMP(383) ENDIF ENDIFENDPROC** ABS **%8}*Berechnet ABS(Float)PROC ABSINARRAY[X(6)]OUTARRAY[Y(6)]LOCALBYTE[Q]BEGIN Q=X(0) AND(Q,127,Q) X(0)=Q%9} Y=XENDPROCloat)PROC ABSINARRAY[X(6)]OUTARRAY[Y(6)]LOCALBYTE[Q]BEGIN Q=X(0) AND(Q,127,Q) X(0)=Q$8<<  B JKIHiDiELV`L8 8 BLV`Lx);}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`H)<}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0IC)=}9D9L8})ӈ@9ӭ@`> L :::: :Lr:::IEL[::i:iIIL[:`:i::i)?}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8)@} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9)A}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  )B} L;D8:; :9 :Y;L=LADENDENDPROCPROC LADEBEGIN AD=25000 EF=0 REPEAT Z=40 IF EF=0-Q} REPEAT BGET(1,1,24900) X=T(0) IF X=255 EF=1 X=155 ENDIF POKE(AD,X) AD-R}D(AD,1,AD) Z- UNTIL X=155 ADD(AD,Z,AD) ELSE POKE(AD,155) ADD(AD,40,AD) ENDIF UNTIL AD>=LA-S}DENDENDPROCPROC PRIBEGIN IF D=0 D=1 DATA(24900) [ 27,83,1 ] ELSE D=0 DATA(24900) [ -T} 27,83,0 ] ENDIF BPUT(5,3,24900) .HEAD AD=25000 TA=9 Z=0 REPEAT AD1=AD REPEAT PEEK(AD1,X) -U} IF X<>155 BPUT(5,1,1791) ELSE BPUT(5,1,1790) ENDIF ADD(AD1,1,AD1) UNTIL X=155 -V}ADD(AD,SPAL,AD1) REPEAT PEEK(AD1,X) BPUT(5,1,1791) ADD(AD1,1,AD1) UNTIL X=155 Z+ ADD(AD,40,AD-W}) UNTIL Z=SL TA=12 BPUT(5,1,1790)ENDPROCPROC HEADBEGIN DATA(24900) [ 27,97,49 ] BPUT(5,3,24900) LPT ("-X}Listing von ",FILE," Seite "); LPT (SEI,"am ",DATE," um ",TIME); LPT (" Uhr"); DATA(24900) [ 155,27,97,48,155,0 ]-Y} BPUT(5,6,24900)ENDPROC; LPT (SEI,"am ",DATE," um ",TIME); LPT (" Uhr"); DATA(24900) [ 155,27,97,48,155,0 ],Quick-SourcetextD1:SUNRISE.QIK ----------------Length: $041BFree : $7350----------------*Kleines Grafikdemo "1[}SUNRISE"INCLUDE[D:GRAPH.LIB]BYTE[COL2=53271,BACKGR=53274,SYNC=54282DMA=559,HIMMEL=712I,WIESE,Y]WORD[DL=560ADR1\},X]MAIN.GRAPHICS (31) ;Grafik 15+16DMA=0 ;Bildschirm ausSETCOL(1,14,14) ;Farben setzenSETCOL(2,3,10)WIESE=1]}210HIMMEL=128ADD(DL,108,ADR) ;DLI-Befehl in POKE(ADR,142) ;Displaylist eintragenDLI(HORIZONT) ;DLI einschaltenDMA=341^} ;Bildschirm anCOLOR(2) ;Sonne zeichen.DISC(60,142,40)CUT(40,103,200,183,30000) ;und aus-* 1_} ;schneidenCOLOR(3).FRAME(4,8,155,184) ;Rahmen zeichnen .FILL(2,2,0,0,159,191)X=40Y=102I=0REPEAT PASTE(0,1`}X,Y,30000) ;Sonne auf den ADD(X,2,X) ;Bildschirm kopieren Y- ;Position der Sonne Y- ;aendern1a} I+ IF I=5 WIESE+ ;...es wird heller HIMMEL+ I=0 ENDIFUNTIL Y=26ENDMAININTER HORIZONTBEGIN PUS1b}H ;CPU-Register retten REGA(SYNC) ;Synchronisieren BACKGR=WIESE ;Farben aendern COL2=WIESE PULL 1c} ;Register holenENDDLIretten REGA(SYNC) ;Synchronisieren BACKGR=WIESE ;Farben aendern COL2=WIESE PULL 0AYLBALAlLCLDLDLpELELFLFLELFL&JLLLGLHLHLILaIL$IL@ILMhh8ȱȱȱL]AȱLxA5e}eiHH`hh+@LALBLHBLBLBLA BeiHH`LAȱȱ` A5f} \B 1CLAȱȱȱ` B \B 1CLAȱȱ` /B B 1CLA0`- BII5g}ii`0`- BIi`ȱ BLBLAȱȱȱ BLBLA HH`PD5q}B%DOS SYSB*)DUP SYSbSAUTORUN SYSbFZCOM b%EDI bEXT bRUNTIME OBJbGRAPH LIBbMATH LIBb NUMERIC LIBB :RAMDISK COMBCLIST QIKB ZSUNRISE QIKB2dLIST OBJB BCD QIKB SIN QIKBDEMO QIKB V20DEMO QIKEHI B V`PJK#DCEB V`P: P B V`' C C腕 C Cd C C 5r} C C C B``朥i0 B``$0 &LC8啅喅&&(Ffƚ`5s}L)D ` ```߰`` %`))Ţ𲥢0``))5t}ŢLD0```) eeFf&LD D {D JE `5u} D C JE ``00!`IIiiLEIIii``E`II5v}ii`UVT E`UVT E`HH`HH"`ʼnLSFň5w}LSF`mm mm 88888 ͭ`5x}iiii8 ͭ```hhȱȱȄLF 5y}GȩLF GLFeiHH`HH`hh> BoH`B(HIoDHE V #LF 5z}GgHȭhHLF GgHLFȱȱȱȄoHɛġLFȱȱȄ G` LG-Ȅ5{}0:LGgHhH80KHLH {DmgHgHmhHhHīLG`gHIgHhHIhHgHigHhHihH`5|} d'hhiiȱȱȱ m5}}m iiHH E````5~}`%JӍ"J)J"J) J%#J I"J)@J"J)J$J# ILI"J)0 J#JLI"J)!J$J%J 5}%J#J`#J"J)0M J ɟ`Ʋ`$J%J"J)M!J@ ɿ`Ƴ`MMMM5}MM JMM 6KMMM 6KM8MiMM8MiMM)Mii IKMM KmMiΙMM5}M8MMMiiȑȭMȭM`M͑MMMMMM͐M*M͏M MMMMMMMM`F5}fFfFf`M K K̔MmMii(iMM͕M K`MM`MM`M( KeX5}eYmMi`Fejf`M`M(*(`MM MMMM 6KMM)5}MMȱMȱMȱMiiM|MMmMmM8)MMMM 6KiM L` KM8MM5}MMM nMjnM 0MMM-M M̡MϥmMii(iMM͕MС`8M`nMMMM5}`M/ ̣MM`-MMIM`-MMIM`M-MM%MIM`?5}?FN *NFNJJJJ ҮFN) ݥ 懭) 6N` ԍ ԱJJJJ ҍ ԍ Ա) ݥ 懭)5}`ԍԍ`"ԩ@ԩ`5}A8d/8 i:222 5}1 L!ERROR- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALI5}D HEXADECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`Yj =P 5Q S5} A LP B V  A (E: JKB DE V 5} AQIK-Print Afuer formatierte Quick-Listings A AFilename *A ADatum *A AUhrzeit5} *A  B V` AAusdruck in Draft(0) oder LQ(1) *A AEinzel(0) oder Endlos(1) *ALQ5}Pz LQU8|H   JKB DE5} VDa BHIDE VDaLRDa 5}BHIDE V B V A (P: JKB DE V䭁LS5} -ADa@xL&S -ADa@xDa BHIDE V -ADaMSlR0D,5}Da BHIDE V` T T ULS B V 5} B V` ASeite ami 'L1Tmi5}i(i Aɀ L,T`a(LUDa 5}BHIDE VDaL@Uii΃ɛLTm5}iLUi(i Aɀ LT`LU -ADaSLU -ADa5}SDa BHIDE V "Xa 5}LV BHIDE VLW BHI5}DE V䭈iiɛLaVmm BH5}IDE V䭈iiɛL/Wi(i A LUV 5} BHIDE V` -ADaa1Da BHIDE5} V AListing von  Seite  Aam   um   A Uhr -ADaa0Da 5}BHIDE V`P Aam   um   A Uhr -ADaa0Da 4%Quick-SourcetextD1:BCD.QIK ----------------Length: $03F9Free : $7372----------------* Library-Demo:BCD-U9}mwandlung* Liest eine Zahl ein und wandelt* sie in Fliesskomma. Danach werden* die 6 Bytes aus denen die Zahl* intern bes9}teht ausgegeben.* Gibt man diese Werte bei .DFP() an,* so kann man schnell einer Fliess-* kommazahl einen bestimmten Wert9}* geben.INCLUDE[D:MATH.LIB]BYTE[I,A,B0,B1,B2,B3,B4,B5]ARRAY[F1(6),F2(6),Z1(20)]MAIN CLOSE(6) ;Edit9}or oeffnen OPEN(6,12,0,"E:")REPEAT ? PRINT("ZAHL ? "); ;Zahl einlesen INPUT(Z1) .AFP(Z1,F1) ;in Fliessko9}. umwandeln I=0 UNSIGN ?("Bytedarstellung:") REPEAT A=F1(I) ;die einzelnen Bytes der ?(A) ;zeig9}en I+ UNTIL I=6 ?("der Zahl:") .FPRT(F1) ;Zahl ausgeben ? B0=F1(0) ;die Bytes der Zahl B1=F1(19}) ;in BYTE-Variablen B2=F1(2) ;uebertragen B3=F1(3) B4=F1(4) B5=F1(5) .DFP(B0,B1,B2,B3,B4,B5,F2) ;die* 9} ;Bytes zu F2 zusammensetzen .FPRT(F2) ;Zum Vergleich Printen ?UNTIL 1=0 ;EndlosschleifeENDMAIN) ;die* 8tQuick-SourcetextD1:SIN.QIK ----------------Length: $043BFree : $7330----------------* Library-Demo: SINU=}S* Berechnet den Sinus von -7 bis 13* mit Routinen aus der NUMERIC und* MATH Library und zeichnet ihn mit* der GRAPH Libr=}aryINCLUDE[D:MATH.LIB ;alle LibrariesD:NUMERIC.LIB ;ladenD:GRAPH.LIB]WORD[I,K]ARRAY[F1(6),F16(6),F7(6) ;Arr=}ays als Fliess-F13(6),F40(6) ;kommavariablen]MAIN SIGN .GRAPHICS(8) ;Hochaufloesende* G=}rafik .AFP("0.0625",F16) ;1/16 in F16 .AFP("1",F1) ;1 in F1 .AFP("-7",F7) ;-7 in F7 .AFP("40",F40) =} ;40 in F40* schreiben COLOR(1) ;Punktfarbe waehlen SETCOL(1,0,0) ;Farbwerte setzen =}SETCOL(2,0,10) I=0 ;Schleifenvariable setzen REPEAT .SIN(F7,F13) ;Sinus von F7 in* F13 =}schreiben .FMUL(F13,F40,F13) ;mal 40 .FADD(F13,F40,F13) ;plus 40 .FPI(F13,K) ;Fliesskommazahl F13* =} in Integervariable K PLOT(I,K) ;und dann Plotten .FADD(F7,F16,F7) ;F7 plus F16 ADD(I,1,I) ;I u=}m 1 erhoehen UNTIL I>318 ;AbbruchbedingungENDMAINn Plotten .FADD(F7,F16,F7) ;F7 plus F16 ADD(I,1,I) ;I u<9Quick-SourcetextD1:DEMO.QIK ----------------Length: $0D56Free : $6A15----------------*QUICK-DEMOPROGRAMMA}*(C) 1989 BY RAINDORF SOFTBYTE[DMA=559WSYNC=54282,PMBASE=54279,GRAC=53277HPOS1=53248,HPOS2=53249,PCOL1=704CURS=752,PCA}OL2=705,BCOL=712,TIMER=20COLBK=53274X,Y,FLAG,CZAE,FARBE]WORD[DPL=560,BS=88PL,PDAT,PDAT1,Z,Z1]MAIN*Vorzeichen auA}sUNSIGN**Displaylist mit DLI*in Speicher kopieren*DATA (24576)[112,112,112,199,32768,112,6,2,2,2,215,15,15,15,15,1A}5,15,15,15,15,15,1515,15,15,15,15,15,15,15,15,15,15,1515,15,15,15,15,15,15,15,15,15,15,1515,15,15,15,15,15,15,15,15,15,15,A}1515,15,15,15,15,15,15,15,15,15,15,1565,24576]DMA=0 *Bildschirm ausDPL=24576 *DPL-Zeiger setzenBS=32768 A} *BildschirmanfangCLR (128,11) *Speicher loeschenSETCOL (4,0,0) *Farben setzenSETCOL (2,10,4)CURS=1 *CursoA}r ausDMA=34 *Bildschirm anPOS (0,0) *Und nun Printen...PRINT(" quick demo ")PRINT("Quickprogramme weA}rden in ");PRINT("MASCHINEN-")PRINT("SPRACHE uebersetzt").PAUSE(150) *Unterprogramm "PAUSE"POS (0,1) *wieder PrinA}tenPRINT("Deswegen ist ein DLI kein ");PRINT("Problem ")PRINT(" ")**Playerdaten kopierenA}*DATA (25600)[*PLAYERDATEN7,31,63,63,63,63,63,31,156,24,96,60192,240,54,127,255,255,246,240,224192,96,48,307,31,63,A}63,63,63,63,31,153,6,15,0192,240,54,127,255,255,246,240,224192,192,96,1207,31,63,63,63,63,63,31,151,1,6,7192,240,54,127A},255,255,246,240,224192,96,120,0]PMBASE=112 *Playeranfang setzenGRAC=3 *Player anschaltenPCOL1=120 *PlayeA}rfarbenPCOL2=120PL=29696 DLI(DISP) *Unterpr. "DISP" als DLIDMA=34.PAUSE(150)POS(0,1)PRINT("Auch ein VBI z.B. A}fuer eine ");PRINT("Playerbewe-")PRINT("gung ist ganz einfach")X=48 *Position setzenY=100PDAT=25600PDAT1=25613A}FLAG=0DMA=62 *Bildschirm mit PlayerVBI(GNOM) *Unterpr. "GNOM" als VBI.PAUSE(150)POS(0,1)PRINT("Und das HauptA}programm kann ");PRINT("sich dabei ")PRINT("noch mit Grafiken beschaefti");PRINT("gen ")POKE (87,8) *Grafik 8BS=3296A}8 *BildschirmanfangFARBE=1**Muster zeichnen*REPEAT Z=0 Z1=319 COLOR(FARBE) REPEAT PLOT (Z,0) A} DRAW (Z1,59) ADD (Z,6,Z) SUB (Z1,6,Z1) UNTIL Z>=319 FARBE+UNTIL FARBE=255ENDMAIN**DLI*INTER DISA}PBEGIN PUSH *CPU Register retten IPUSH *Interne Reg. retten CZAE=224 REPEAT REGA(WSYNC) *SynchroniA}sieren COLBK=CZAE *Farbe hochzaehlen CZAE+ CZAE+UNTIL CZAE=240 IPULL *Alle Register zurueck PULLENDDLA}I**VBI*INTER GNOMLOCAL:BYTE[HX]BEGIN IPUSH X+ *Playerposition aendern Y+ IF X>=170 X=48A} Y=100 ENDIF ADD (PDAT,26,PDAT) *Playerform ADD (PDAT1,26,PDAT1) *aendern FLAG+ IF FLAG=3 FLAG=0 A} *Anfangs-Form PDAT=25600 PDAT1=25613 ENDIF CLR(116,2) *Player loeschen**Player1 in Playerbereich koA}pieren* PLAYER (116,Y,13,PDAT)**Player2 in Playerbereich kopieren* PLAYER (117,Y,13,PDAT1)**Horizontale Position A}setzen* HPOS1=X ADD (X,8,HX) HPOS2=HX BCOL+ IPULLENDVBI**Unterprogramm "PAUSE"**Zur Demonstration des IA}NLINE*PROC PAUSEINBYTE[WAIT]LOCALBYTE[ LDA=165 *Maschinencodes definierenCMP=205BNE=208]BEGINTIMER=0**DiA}rekt Maschinensprache einbinden*In QUICK ginge es aber auch:*REPEAT*UNTIL TIMER=WAIT*INLINE[LDA,TIMER,CMP,WAIT,BNE,249A}Quick-SourcetextD1:V20DEMO.QIK ----------------Length: $03E5Free : $7386----------------*QUICK Compiler V2.0 E}Demo*(c) 1990 by RAINDORF SOFT*Auf dieser Disk befindet sich der neue*Compiler V2.0*Beim Compilieren von V1.6 ProgrammenE}*muss deshalb eventuell der Befehl*OLD*als erster Befehl ins Listing*eingefuegt werden*Dieses Demo zeigt die neuen BefeE}hle*der Version 2.0BYTE[BY]WORD[WO,ADR=208]ARRAY[STR(20)]MAIN VADR(BY) ?("Die Varaiable BY befindet siE}ch") ?("an der Stelle ",ADR,"im Speicher") ? VADR(WO) ?("Die Varaiable WO befindet sich") ?("an der Stelle ",ADR,"iE}m Speicher") ? VADR(STR) ?("Die Varaiable STR befindet sich") ?("an der Stelle ",ADR,"im Speicher") ? WO=1234 E}BY=/WO ?("Die Variable WO ist ",WO) ?("Ihr Highbyte ist ",BY) ? DATA(STR) [ 1,2,3,4,5,6,7,8,9,$A,$B,$C,$D,$E,15,E}0 ] ?("Man kann ganz leicht beliebige") ?("Werte in Variablen schreiben.") ?("Denn bei DATA kann man jetzt") ?("einE}e Variable als Adresse") ?("angeben.") ?("In STR steht jetzt z.B.:") ?(STR) ?ENDMAINATA kann man jetzt") ?("einD` {]ENDPROCnsprache einbinden*In QUICK ginge es aber auch:*REPEAT*UNTIL TIMER=WAIT*INLINE[LDA,TIMER,CMP,WAIT,BNE,249@ /