@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( 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  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `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.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS 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:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.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!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 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}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 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 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR}  өD` L/ԩi0ԩ 1ԩЩ2ЩЩ Щ"/ԩN" #`/O LN O T}ԍL_ppppppppV~ pp&&&Ai 53!!.$33-" present // "/ CC`YU}ZX ` `EL ` @L ` CC CC @ @L ` @L ` @ @ @ @ @L ` AL @`ԍ/oҙV}ЙЈ 01_"#%b$x/ԩ(@ԩ#`@@UP @@T@@TP@,@-@*3@C@jW}T@s@PUPoP|PP@QPP|@@֨*Z( T ֨ i (@@k?ʪ?@@X}o/گ@A[/[[[ A;A++Ϗ+> > +DAdAY}AA9CBC>>?[}MCVC'aCjC> >;uC~C???CC??CC>𾼼>;>CC=X}|>}||='=lCC<?=|??<CC\}><CC<>>=P=|3</pԩЩoxr$%ԩ$F% Gԩ G} G`st Ga}iiЬ GFtFsLA`l6Z/_//FG   GGԩ"F#` G G G GL_}b}ԩQG;"G#G؍ G`G G G G GL_HHGrG G)G)  GGhh@ @HHGrG ԍ)) c}Ghh@GG ?;m]^܉bVm!3 GG"!!##w?? GG GG 000 GJԠ I ) G )i@G$d}%m$H%"o4:stuvw`sG%G0J1J0J1JJ =0JJ1JGe}Gԥ) 'KIKJ)IwGI  ԍЭGЍiЍЭGЍiЍТGGtGuGssGGvf}GwGss孠GmGG0GIGGL_IȐ GIGGGmGG0GIGGLIȐ GIGGGmGGGIg}GGLIʐ GIGGGmGGGIGGLIʐ GIGGLA` )ʊ`M@ 0p p h} p pNJ V=JNJ AIi}JjKZZZZZZZZj}ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ``a `ԩA$`%`D˩a̩Ba@aAak}Caҙ5a`5a҈ȌҩCaLbCa@aAaL`AaBaBa)*Ba D˩a̱ˍ?aȱˍ=aإiː̠5l}a6a̭?a Ba>ac7a8a=a BaQe9a:a>ad;aʍc*/5 /Ncbc #(#0(rcrc0xcc*/(@*cc@cc*#cc(cc*/55cccQdq}Ydadidqdyddr}yyfddfddsddsddddddWddWddddddsdeW[f eeffe!es)es}1esss9e9esAeAesIeMeslUeUe ]eme  (llfffl]lfffff>`<|fl0fF68of;880p8t}8pf< 8u}0 0 ~~`0 0`fb``f<fffffb`x`bb`x``>b``nf>ff~ff~Zv}Z~ xflppl````bfv~nfb`<F|~Z<ffffff<fffflxpf<l{0000x`x`0x}lx |~ffff;vnoff`f< |v000|000`~``|fff8<z}f<`lxxl8<fff`<|~fff;fff<|lf<|{}~L2~<~~<8x8 @|BԍҍBxݹB01 -@>-@ԩ բ|}B'i(ԙCՙ^Di(Ԑprtx|pԩЩAostuvw }}ЈpЍЩrЍЩtЍЩ|ЍЩBBBB܍"A#A>/LAH! ԍh@BByABABiP~}ZA`AfAlArAABi Ps Pt@Pu`PvPwܢBC^DBP̓BBi(` 'A }B)B`B  BBLA̍ԩBԩ>ԩAРЈl$ }B`(}BBL'A X}BV}BBBHH B 'Ahh}BB}Bɴ'BHH B}BB 'AhhBB}BLvB}Bi}B0LB`BE   $$0?NT`HH""33DDUUffww}pppO N0}A8`(Px@h0X Hp}8`(Px@h0X Hp8`(Px@h0X Hp8`(Px@h0X Hp8`(Px@h0X Hp}8`(Px@h0X Hp !!!!!!!""""""#######$$$$$$%%%%%%&&&&&&&''''''((((((())))))******+++++++,,,,,,-------.}.....//////0000000111111222222233333344444455555556666667777777888888999999:::::::;;;;;;<<<<<<<======`*a ``7L\*a})a!a҈!a҈-˩a`ҩҠ!a҈)aLb)a*a*a)ˍ+aȱˍ,aiː̩ҍҍ'a(a*a) ,a}Nc#aʍ$ac%a&a /˩a̱!a"aҍ̭*a) +ab 'a(a*a)'"a"aɟ"a&aɢ&a}&a$aŐ8$aLbf?a?aSaSa(_ada(-vawa DaaD<aa(aa(-aa DaaD< aa`QQ@QQ/RRc0!R'R@ @RFR>`RfR  @@}RR0 @RR`[SSa0#S)S@ 0@SHS<@ `ShS  @@SS SShZ/@TTa0#T+T@@@ 0@}TJT8P `TjT  @@TT @TTdZ j@UUa00$U/U@@` 0@UNU>L `UnU}  @@UU @UUTh V[@/VVc0"V4Vpppxx@``09@VSV?N@@ `VsV0 }`  @VV@ @VV,tPVV@PTh U Vo@WWc0!W9W`00880p`@@@@@ 0@}WXW?><  `WxW  @@@ @@WW@@@WW@WWhWW@@P} [@.@ XXc!X:X`0 88p`@@@@@ @XYX~ >< `XyX @@ @XX }XX@@XX@XXT@ XX@@P [@.@ YYc!YcY  <8 @@@@@@ > }>>< 0@nY~Y@@ @YY@@YY@@YY@@P [@+@ $Z7Z}0 `@@@@@  FZVZ >>  fZuZ@@ @@ZZ@@ZZ@ZZ@@PVi}@#G 3@ @A eA A A A A -E A  )` AL @ ?@??@T0@1`pppN }N0}AT@ ) )ieȄM` EdFi(`O}E`e Ae Ae Ae A`P8P` A ALB A ALBI` B }B B B A )` )8`eeeeee XBeeeeee8 }88 8JO Ceeei8}ee CLBL CEdFH)7C=?ChJJ=;C`U?0  3@ @A tC C "D XB  -E` )}? )LLCE C C C C A C C C C )` ɠ` ` B0i`D De D Ae} D Ae D Ae D A`ɠ``eeee` 3@ @A mD D C "D -E} DLPD ` )P )`O_?E A C C C C )`PD` DLCeeee`}O XB EP XB E E_ XB E E E` XB E EP E XB }EO E XB E` XB_LXB Ai` Ai`8`(Px@h0X Hp8`(Px@h}0X Hp8`(Px@h0X Hp8`(Px@h0X Hp8`(Px@h0X Hp8`(Px@h}0X Hp !!!!!!!""""""#######$$$$$$%%%%%%&&&&&&&''''''((((((())))))******+++++++,,,,,,-------......//////00000001}11111222222233333344444455555556666667777777888888999999:::::::;;;;;;<<<<<<<======`f `ԩF$`%@`ҩҩ@}a̩EaGaGa?Oa`عGa҈EaLbEaOaOa@LOai˥i̠i@eiAiϩeiРiͩe}ii˥i̭Oa)JOaJJ #`LbGaȱˍFaHaOaJJJ@MaȍNa͍IaύJaKaLaLbOa)JaJaOa)Ka}:LaFaGaHaLaLaɀLaLb98888HHQH888HHQH}88HHHQQHH<8!!#--((8<<<<<[[-88<<<HHQ[Q8QQQQD}DDD8<<<HHQ[<8 <<<<<-/<8(<<<<<<HD<<<H555HDHD<<<HD<<<<<[[5 5}55555555555////-<<<<<<H00DHDDD555((55<<<<HD<<<H555HDHD<<<H}D<<<<<[[5 555555555555////-<<<<<<H00DHDDD555((55<<<-/<((<<<}<<<<<8HHHQQHH<8!!#--((8<<<<<[[-88<<<HHQ[Q8QQQQDDDD}8<<<HHQ[<8 <<<<<-/<8(<<<<<<HD<<<H555HDHD<<<HD<<<<<[[5 5555}55555555////-<<<<<<H00DHDDD555((55<<<<HD<<<H555HDHD<<<HD}<<<<<[[5 555555555555////-<<<<<<H00DHDDD555((55<<<-/<((<<<<<<}<<((!!((nnnn????????nnnnnnnn????????a0a0a0a0H$H$??a0a0s:s:W+W+??H$H}$H$H$????W+W+W+W+@Bԍ@0@1AoԩЩ>/}B *ЩЍ Ѝ Щ Щ΍Щ`HH ԍЈ ԍihh@p0OxBOxBOxBOxBOxBOxBOxBOxBOxBO}xBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOx}BOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxB}OxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxB}OxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBOxBA@""30DDUPffwp `ga `ԩ\$`%}`ҩҩh˩a̩aaXaXabacaeafa`a daga`عXa҈aaLbaagagaL!aga`a`ada }`ada`ae\a]aXabaˍXaȱˍcaXa #`LbȱˍXa|`a0daba ^a_afaXaȱˍXaȘe˅˥i̩Yac}a Za̍[aeaLb\a]aea[a[a°[a`afa_aYaYaYaLb aaaa/2/-t/#/2/-/}%C/2/-/%C/59/oЩԍCB"B#}`HHHCwCC ԍЎТC ԍ )CChhh@ CL_D|}AC24   "$&(* ,. kCC   dLlhTPxpXxt`\   0@P`p}CC 0 |24   0000000000000000000035  !0000000000000000000024  00000000000000}0000000035  000000000000000000000024 0000000000000000000000000000000035 00000000000000000000000000000}00024 000000000000000000000000000000035 000000000000000000000000000000024  0000000000000000000000000035}  0000000000000000000000000024  000000000000000000000000035  000000000000000000000000024 }00000000000000000000000000000000035 00000000000000000000000000000000024   "000000000000000000035  }!#000000000000000000024   "000000000000000000035  !#000000000000000000024  } "$&(* ,. 000000035  !#%')+ -/ 000000024   "$&(*00000000000000035  !#%}')+00000000000000024  00000000000000000000000000035  000000000000000000000000000000000000000000000000000000}0000000000000000000000000000000000000 0 %' 0 9; 0 MO 0 ac 0 uw 0 0 0 0 Ńǃ 0 كۃ 0 0 }-3AGU[io}}̈́ӄᄀL@DԍC @ :@}"@# B vCCP`PF@fF@IPIIIIJIi IIZIJaI}i Щ֍ԩHԩ!ԩ@РZQKKpK` 0AXLbCCC҈CCCCCCC E}E-E`H)hH)Hh``ҩҠC҈CCLBCCLBCCC)LSBC) CC3DCC}JCCDC҈CCLB CCCCCCC BI ACC CCC BI ACC} CCC BI ACC CCC) CD BI ACC CCCLBC0 CI BC0 CI BC0 CI BC0} CCI BI)KI)I`)KK` `K fCBgCB B`QK8KpK`QKiKpK}`QK8KpK`QKidKcpK`QK8TKUpK`QKi_K^pK`QK8ZKZpK`BBBBC'C2 THENSC=1:GOTO12201100 PRINT:PRINT"Wieviel Leerzeichen"1110 INPUT"am Zeilenanfang ";HL1120 PRINT:PRINT" (}Wieviel Text-Zeichen"1130 INPUT"auf jeder Zeile ";I:HR=HL+I-11140 PRINT:PRINT"Wieviel Text-Zeilen"1150 INPUT"auf jeder )}Seite ";VR:VR=VR-31160 PRINT"(E) Endlospapier oder "1170 PRINT"(L) Lose Blaetter (E/L) ";1180 GOSUB210:IFIN=76 THENVL= *}-1:GOTO12201190 IFIN<>69 THEN GOSUB250:GOTO11601200 PRINT:PRINT"Wieviel Leerzeilen"1210 INPUT"am Seitenende ";VL:VR=V +}R+VL1220 MM$="":IFHL>0 THENMM$=LEFT$(S$,HL)1230 GOSUB1380:M$=MM$:AL=VL:IFSC=2 THEN GOSUB13601240 IFLEN(R$)>HR-HL THEN GOSU ,}B18201250 GOSUB1440:IFR$<>"" THENR$=R$+" "1260 R$=R$+D$:GOTO12401270 IFSC=2 THENSR$=M$+SR$:GOSUB350:GOSUB360:GOTO12901280 -} GOSUB120:PRINTM$;SR$;:VE=VE+1:HO=0:GOSUB110:HL=01290 M$=MM$:AL=AL+1:IFAL<=VR THENRETURN1300 IFSC=1 THEN13801310 IFVL>=0 T .}HENFORI=1 TOVL:GOSUB360:NEXTI:GOTO13501320 PRINT"Neues Blatt in Drucker einlegen"1330 PRINT"druecke dann RETURN/ENTER /}"1340 GOSUB210:IFIN<>13 THEN13401350 AL=VL1360 SR$=LEFT$(S$,(HR-HL-LEN(T$))/2)+T$:GOSUB12701370 SR$="":GOSUB1270:AL=VL:RE 0}TURN1380 HO=3:VE=VT:GOSUB1101390 SR$="Weiter:druecke ":GOSUB1501400 GOSUB210:IFIN<>13 THEN14001410 GOSUB100 1}:AL=VL:SR$=T$1420 PRINTLEFT$(S$,(HT-LEN(SR$))/2-3);:GOSUB1501430 PRINT:PRINT:RETURN1440 READD$1450 IFD$="" THEN14401460 2}IFLEFT$(D$,1)="." THEN15301470 IFLEFT$(D$,1)<>">" THEN14901480 D$=LEFT$(S$,23-LEN(R$))+MID$(D$,2):RETURN1490 IFLEFT$(D$,1) 3}<>"!" THENRETURN1500 IFD$="!" THEND$="":GOTO15201510 D$=MID$(D$,2)1520 GOSUB1760:GOTO14501530 IFD$<>".E" THEN15801540 J= 4}1:GOSUB1760:T$="E N D E"1550 SR$="":GOSUB1270:GOSUB1270:SR$=T$:GOSUB1270:T$=""1560 SR$="":GOSUB1270:IFAL<>VL THEN15601570 5}GOTO9501580 DD$=MID$(D$,2,1):D$=MID$(D$,3)1590 IFDD$<>"R" THEN16401600 IFSC=2 THENRETURN1610 IFLEN(R$)+6+LEN(D$)>=HR-HL T 6}HENSR$=R$:GOSUB1270:R$=""1620 PRINTM$;R$;:SR$=D$:GOSUB150:M$=""1630 HL=HL+LEN(R$)+LEN(D$)+6:R$="":GOTO14401640 IFDD$<>"M" 7}THEN16701650 I=VAL(D$):MM$="":IFI+HL=0 THEN14401660 MM$=LEFT$(S$,I+HL):GOTO14401670 IFDD$="P" THENJ=VAL(D$):GOSUB1760:GOSU 8}B1780:GOTO14401680 IFDD$="T" THENT$=D$:J=10:GOSUB1760:GOSUB1780:GOTO16001690 IFDD$="Q" THENR$=R$+CHR$(34)+D$:GOTO14401700 9}IFDD$<>"F" THEN17301710 J=VAL(D$):GOSUB17601720 J=J-1:IFJ>-1 THENSR$="":GOSUB1270:GOTO17201730 IFDD$<>"C" THEN17501740 SR :}$=LEFT$(S$,(HR-HL-LEN(D$))/2)+D$:GOSUB12701750 GOTO14401760 GOSUB1820:SR$=R$:GOSUB1270:R$="":J=J-11770 RETURN1780 IF(SC=1 ;})OR(AL+J>VR)THEN18001790 SR$="":GOSUB1270:GOSUB1270:RETURN1800 IFAL<>VL THENSR$="":GOSUB1270:GOTO18001810 RETURN1820 K=HR <}-HL+1-LEN(M$)1830 IFLEN(R$)<=K THENRETURN1840 IFMID$(R$,K,1)=" " THEN18701850 K=K-1:IFK>0 THEN18401860 SR$="":GOTO188018 =}70 SR$=LEFT$(R$,K-1):R$=MID$(R$,K+1)1880 GOSUB1270:GOTO18201890 REM1900 REM UEBERSETZTE VERSION1910 REM1920 REM COMPUTER >}-BULLETIN NO.40 (11/89)1930 REM STICHTING BASICODE, EINDHOVEN1940 REM25000 DATA"Programmieren in BASICODE (8)"25010 DATA" ?}.RSignalton - Subroutine # 250"25020 DATA"!!Diese Subroutine gibt ein akustisches Signal"25030 DATA"(entspricht ASCII 7 - B @}EL). Damit kann - sofern"25040 DATA"erforderlich - die Aufmerksamkeit auf einen"25050 DATA"bestimmten Schritt im Programm g A}elenkt werden."25060 DATA"!Allerdings ist das Signal nur von kurzer Dauer."25070 DATA"Oft ist es notwendig, das Signal anda B}uern zu"25080 DATA"lassen, um dann den Programmlauf nach"25090 DATA"Betaetigen einer Taste verzweigen oder enden"25100 DAT C}A"zu lassen."25110 DATA".P0"25120 DATA".RZufallszahlen - Subroutine # 260"25130 DATA"!!Hiermit wird der Zufallszahlengener D}ator"25140 DATA"des Computers aufgerufen; in RV werden dann"25150 DATA"Pseudozufallszahlen im Bereich","!! 0 <= RV < 1"251 E}60 DATA"!!zurueckgegeben. In der Regel werden nur"25170 DATA"ganzzahlige Werte benoetigt, die durch Rechnung"25180 DATA"gew F}onnen werden koennen."25190 DATA".P0"25200 DATA".RFreier Arbeitsspeicher","!"25210 DATA".R - Subroutine 270"25220 DA G}TA"!!Man kann davon ausgehen, dass BASICODE-"25230 DATA"Programme eine Laenge von max. 18 KByte haben"25240 DATA"koennen, i H}n Einzelfaellen auch mehr. Infolge der"25250 DATA"Uebertragung der einzelnen Zeichen und der"25260 DATA"rechnerinternen Umw I}andlung in 'Token' ist die"25270 DATA"im Computer gespeicherte Programmlaenge kuerzer."25280 DATA"Im Computer ist ein freie J}r Arbeitsspeicher"25290 DATA"von mind. 16 KByte erforderlich.",".P0"25300 DATA"Der nach Laden des Bascoders freie Speicherp K}latz"25310 DATA"(in Bytes) kann im Direkt-Modus mit"25320 DATA"!! GOSUB 270:PRINT FR"25330 DATA"!!abgefragt werden. Die Wi L}ederholung nach dem"25340 DATA"Laden des Programms und die Bildung der"25350 DATA"Differenz ergibt die computer- spezifisch M}e"25360 DATA"Programmlaenge (in Bytes)."25370 DATA".P0"25380 DATA".RVariablen SR und SR$"25390 DATA"!!In BASICODE-3-Progr N}ammen und -Subroutinen"25400 DATA"kommen den Variablen SR und SR$ besondere"25410 DATA"Aufgaben zu:"25420 DATA"!! - Wandel O}n einer numerischen in eine"25430 DATA"! Stringvariable,"25440 DATA"! - Formatieren der Ausgabe numerischer"25450 DATA"! P} Daten,"25460 DATA"! - Wandeln von Klein- in Grossbuch-"25470 DATA"! staben,"25480 DATA"! - Ausgabe ueber den Drucker, Q}"25490 DATA"! - Schreiben eines sequentiellen Files"25500 DATA"! auf Cassette oder Diskette,"25510 DATA"! - Textausgabe R}im grafischen Betrieb."25520 DATA"!!Die freie Verwendung dieser Namen in einem"25530 DATA"Programm ist nicht erlaubt."2554 S}0 DATA".P0"25550 DATA".RTypwandlung - Subroutine # 300"25560 DATA"!!Die Subroutine # 300 entspricht der in BASIC"25570 DAT T}A"vorhandenen Funktion STR$(x), mit der numerische"25580 DATA"in Stringvariable gewandelt werden koennen."25590 DATA"Damit U}werden die Leerraeume vor und hinter"25600 DATA"numerischen Daten unterdrueckt:"25610 DATA"!! A$=STR$(A) wird ersetzt durch V}:"25620 DATA"!! SR=A:GOSUB 300:A$=SR$"25630 DATA".P0"25640 DATA".RFormatieren numerischer Daten","!"25650 DATA".R W} - Subroutine # 310"25660 DATA"!!Zahlen werden in BASICODE - je nach Groesse"25670 DATA"und Computer - mit 6 bzw. 9 Stell X}en oder in"25680 DATA"wissenschaftlicher Notation ('E-Format')"25690 DATA"angezeigt. Manche Computer (PC's) erlauben die"2 Y}5700 DATA"Darstellung in 'doppelter' Genauigkeit (bis zu"25710 DATA"18 gueltige Ziffern)."25720 DATA"!Die Subroutine # 310 Z}aehnelt der 'PRINT USING'"25730 DATA"- Anweisung mancher BASIC-Dialekte, die jedoch"25740 DATA"vielfaeltiger eingesetzt wer [}den kann als die"25750 DATA"Subroutine 310. In BASICODE-3 ist nur das"25760 DATA"Formatieren der Ausgabe numerischer Werte" \}25770 DATA"- ueber Bildschirm oder Drucker - moeglich."25780 DATA".P0"25790 DATA"Die formatierte Ausgabe des Wertes der"2 ]}5800 DATA"numerischen Variablen A erfolgt ueber die"25810 DATA"Variablen SR$, CT und CN. Dabei bedeuten:"25820 DATA"!! SR ^}numerische Variable, deren Wert"25830 DATA"! in SR$ formatiert dargestellt"25840 DATA"! werden soll,"25850 DATA"!! _} CT Anzahl der Zeichen, die in SR$"25860 DATA"! enthalten sind (einschl. Dezimal-"25870 DATA"! punkt und Vorzeiche `}n),"25880 DATA"!! CN Anzahl der Nachkommastellen."25890 DATA"!!Diese Variablen sind vor dem Aufruf der"25900 DATA"Subrout a}ine # 310 zu belegen:"25910 DATA".P0"25920 DATA"Die Zeichenkette SR$ kann maximal nur neun"25930 DATA"Ziffern enthalten, d b}.h. dass CT begrenzt ist:"25940 DATA"!! 1 - Vorzeichen,"25950 DATA"! + vk - Anzahl der Vorkommastellen,"25960 DATA"! c} + 1 - Dezimalpunkt,"25970 DATA"! + CN - Anzahl der Nachkommastellen,"25980 DATA"! ---------------------------------" d}25990 DATA"! CT - Anzahl der Zeichen"26000 DATA"!!In Abhaengigkeit von der Groesse der"26010 DATA"darzustellenden Zahl g e}ilt:"26020 DATA"!! vk + CN <= 9 (ohne fuehrende Null"26030 DATA"! falls SR < 1)",".P0"26040 DATA"Mit der Subr f}outine # 310 ist es nicht moeglich,"26050 DATA"Zahlen im wissenschaftl. Format darzustellen."26060 DATA"!Kann die Zahl nich q}B%DOS SYSB*)DUP SYSBSGRDEMO COMBa$KURS8 BC3BNKURS9 BC3B-LINDWURMBC3B QUICKDOSTBSB`SLYSPRITTBSBTRIAD t im vorausbestimmten Format"26070 DATA"angezeigt werden, enthaelt SR$ Sterne ('*')."26080 DATA"Ggf. wird die Zahl auf CN S r}tellen gerundet. Die"26090 DATA"Werte der Variablen CT, CN und SR werden mit"26100 DATA"dem Aufruf der Subroutine nicht ver s}aendert."26110 DATA"!!Beim Programmieren sind die Werte fuer CT"26120 DATA"und CN sorgfaeltig zu bestimmen, z.B.:"26130 DA t}TA"!! - Ganze Zahlen (-1E8 ... +1E8):"26140 DATA"! CT=11"26150 DATA"!! - SR < 1 (Vorzeichen, fuehrende Null,"26160 DATA" u}! Dezimalpunkt, neun Nachkommastellen):"26170 DATA"! CT=12, CN=9",".P0"26180 DATA"Der Variablen CT kann ein Wert bis zu v} 20"26190 DATA"zugewiesen werden; dies fuehrt zu einer"26200 DATA"Positionierung der Ausgabe in der Zeile. Besser"26210 DA w}TA"ist es, die Subroutine # 110 zu benutzen."26220 DATA".P0"26230 DATA".RKlein- -> Grossbuchstaben","!"26240 DATA".R x} - Subroutine # 330"26250 DATA"!!Dieses Unterprogramm aendert alle in der"26260 DATA"Zeichenkette SR$ vorhandenen Kleinbuc y}hstaben"26270 DATA"in Grossbuchstaben, indem der ASCII-Wert der"26280 DATA"Zeichen im Bereich 96 ... 128 um 32 vermindert" z}26290 DATA"wird. Aus ASCII 97 ('a') wird ASCII 65 ('A')."26300 DATA"Da das Alphabet die ASCII-Werte 97 ... 122"26310 DATA"u {}mfasst, werden auch die Sonderzeichen im"26320 DATA"Bereich 123 ... 126 gewandelt."26330 DATA"!!Die Zeichen der urspruengli |}chen Zeichenkette"26340 DATA"werden nicht geaendert."26350 DATA".P0"26360 DATA".RAusgabe ueber den Drucker","!"26370 DATA }}".R - Subroutinen # 350, 360","!"26380 DATA"!!Grundsaetzlich kann davon ausgegangen werden,"26390 DATA"dass neben der Ausga ~}be ueber den Bildschirm auch"26400 DATA"ein Ausdruck auf Papier (Erlaeuterungen,Tabellen"26410 DATA" usw.) sinnvoll ist. Da }s Programm soll also die"26420 DATA"Wahl unter beiden Moeglichkeiten lassen."26430 DATA".P0"26440 DATA"Der Drucker wird ue }ber die Subroutinen # 350"26450 DATA"bzw. # 360 - und nur ueber diese - angesprochen."26460 DATA"Die Anweisung 'GOSUB 350' }entspricht der"26470 DATA"Anweisung 'PRINT SR$;' - bei einer Ausgabe ueber"26480 DATA"den Bildschirm."26490 DATA"!Vorher i }st der Inhalt der auszugebenden"26500 DATA"Variablen der Variablen SR$ zuzuweisen. Dies"26510 DATA"geschieht fuer"26520 DA }TA"!! Zeichenkettenvariable (z.B. A$):"26530 DATA"!! SR$=A$:GOSUB 350 oder"26540 DATA"! SR$='abcde':GOSUB 350"2655 }0 DATA"!! numerische Variable (z.B. A):"26560 DATA"!! SR=A:GOSUB 300 (oder GOSUB 310)"26570 DATA"! (Wandlung in Str }ingvariable SR$)"26580 DATA"! GOSUB 350"26590 DATA".P0"26600 DATA"Der Ausdruck erfolgt ohne Wagenruecklauf und"26610 }DATA"Zeilenvorschub; die Druckzeile wird nicht"26620 DATA"abgeschlossen. Die bewirkt die Subroutine # 360;"26630 DATA"mit d }ieser Anweisung ist jede Anweisungsfolge"26640 DATA"zum Ausdruck einer Zeile zu beenden."26650 DATA"!!Wird die Anweisung 'G }OSUB 360' allein benutzt,"26660 DATA"erfolgt der Ausdruck einer Leerzeile (dies"26670 DATA"entspricht 'PRINT' bei einer Aus }gabe ueber den"26680 DATA"Bildschirm)."26690 DATA".P10","Das war das","!!"26700 DATA".C****************************"26710 } DATA".C* *"26720 DATA".C* BASICODE-3 Journal *"26730 DATA".C* Nummer 11 *"2 }6740 DATA".C* 11. Juli 1990 *"26750 DATA".C* *"26760 DATA".C*************************** }*",".E"30000 REM30010 REM Grundlagen von BASICODE30020 REM -- Teil 8 --32000 REM -------------------------32010 RE }M FRIEDRICH DORMEIER32020 REM32030 REM D-1000 BERLIN 3932040 REM32050 REM C64/C128 - 2/199032060 REM ------------------- }------32070 REM32080 REM Erstausstrahlung: DS-Kultur32090 REM-spezial 900711 P1000 A=500:GOTO20:REM BASICODE-3 Journal 121010 HT=HO:VT=VE:S$="":FORI=1 TOHT:S$=S$+" ":NEXTI1020 HL=0:HR=HT:VL=2:VR=VT-2:}R$="":READT$1030 GOSUB1410:HO=(HT-LEN(SR$)-6)/2:VE=0:GOSUB1101040 GOSUB150:PRINT:PRINT:PRINT1050 PRINT"Ausdruck ueber"106}0 PRINT:PRINT" 1 den Bildschirm,"1070 PRINT" 2 den Drucker"1080 PRINT:PRINT"Welche Nummer ?";:GOSUB2101090 SC=IN-48:}PRINTSC:IFSC<>2 THENSC=1:GOTO12201100 PRINT:PRINT"Wieviel Leerzeichen"1110 INPUT"am Zeilenanfang ";HL1120 PRINT:PRINT"W}ieviel Text-Zeichen"1130 INPUT"auf jeder Zeile ";I:HR=HL+I-11140 PRINT:PRINT"Wieviel Text-Zeilen"1150 INPUT"auf jeder S}eite ";VR:VR=VR-31160 PRINT"(E) Endlospapier oder "1170 PRINT"(L) Lose Blaetter (E/L) ";1180 GOSUB210:IFIN=76 THENVL=-}1:GOTO12201190 IFIN<>69 THEN GOSUB250:GOTO11601200 PRINT:PRINT"Wieviel Leerzeilen"1210 INPUT"am Seitenende ";VL:VR=VR}+VL1220 MM$="":IFHL>0 THENMM$=LEFT$(S$,HL)1230 GOSUB1380:M$=MM$:AL=VL:IFSC=2 THEN GOSUB13601240 IFLEN(R$)>HR-HL THEN GOSUB}18201250 GOSUB1440:IFR$<>"" THENR$=R$+" "1260 R$=R$+D$:GOTO12401270 IFSC=2 THENSR$=M$+SR$:GOSUB350:GOSUB360:GOTO12901280 }GOSUB120:PRINTM$;SR$;:VE=VE+1:HO=0:GOSUB110:HL=01290 M$=MM$:AL=AL+1:IFAL<=VR THENRETURN1300 IFSC=1 THEN13801310 IFVL>=0 TH}ENFORI=1 TOVL:GOSUB360:NEXTI:GOTO13501320 PRINT"Neues Blatt in Drucker einlegen"1330 PRINT"druecke dann RETURN/ENTER"}1340 GOSUB210:IFIN<>13 THEN13401350 AL=VL1360 SR$=LEFT$(S$,(HR-HL-LEN(T$))/2)+T$:GOSUB12701370 SR$="":GOSUB1270:AL=VL:RET}URN1380 HO=3:VE=VT:GOSUB1101390 SR$="Weiter:druecke ":GOSUB1501400 GOSUB210:IFIN<>13 THEN14001410 GOSUB100:}AL=VL:SR$=T$1420 PRINTLEFT$(S$,(HT-LEN(SR$))/2-3);:GOSUB1501430 PRINT:PRINT:RETURN1440 READD$1450 IFD$="" THEN14401460 I}FLEFT$(D$,1)="." THEN15301470 IFLEFT$(D$,1)<>">" THEN14901480 D$=LEFT$(S$,23-LEN(R$))+MID$(D$,2):RETURN1490 IFLEFT$(D$,1)<}>"!" THENRETURN1500 IFD$="!" THEND$="":GOTO15201510 D$=MID$(D$,2)1520 GOSUB1760:GOTO14501530 IFD$<>".E" THEN15801540 J=1}:GOSUB1760:T$="E N D E"1550 SR$="":GOSUB1270:GOSUB1270:SR$=T$:GOSUB1270:T$=""1560 SR$="":GOSUB1270:IFAL<>VL THEN15601570 G}OTO9501580 DD$=MID$(D$,2,1):D$=MID$(D$,3)1590 IFDD$<>"R" THEN16401600 IFSC=2 THENRETURN1610 IFLEN(R$)+6+LEN(D$)>=HR-HL TH}ENSR$=R$:GOSUB1270:R$=""1620 PRINTM$;R$;:SR$=D$:GOSUB150:M$=""1630 HL=HL+LEN(R$)+LEN(D$)+6:R$="":GOTO14401640 IFDD$<>"M" T}HEN16701650 I=VAL(D$):MM$="":IFI+HL=0 THEN14401660 MM$=LEFT$(S$,I+HL):GOTO14401670 IFDD$="P" THENJ=VAL(D$):GOSUB1760:GOSUB}1780:GOTO14401680 IFDD$="T" THENT$=D$:J=10:GOSUB1760:GOSUB1780:GOTO16001690 IFDD$="Q" THENR$=R$+CHR$(34)+D$:GOTO14401700 I}FDD$<>"F" THEN17301710 J=VAL(D$):GOSUB17601720 J=J-1:IFJ>-1 THENSR$="":GOSUB1270:GOTO17201730 IFDD$<>"C" THEN17501740 SR$}=LEFT$(S$,(HR-HL-LEN(D$))/2)+D$:GOSUB12701750 GOTO14401760 GOSUB1820:SR$=R$:GOSUB1270:R$="":J=J-11770 RETURN1780 IF(SC=1)}OR(AL+J>VR)THEN18001790 SR$="":GOSUB1270:GOSUB1270:RETURN1800 IFAL<>VL THENSR$="":GOSUB1270:GOTO18001810 RETURN1820 K=HR-}HL+1-LEN(M$)1830 IFLEN(R$)<=K THENRETURN1840 IFMID$(R$,K,1)=" " THEN18701850 K=K-1:IFK>0 THEN18401860 SR$="":GOTO1880187}0 SR$=LEFT$(R$,K-1):R$=MID$(R$,K+1)1880 GOSUB1270:GOTO18201890 REM1900 REM UEBERSETZTE VERSION1910 REM1920 REM COMPUTER-}BULLETIN NO.40 (11/89)1930 REM STICHTING BASICODE, EINDHOVEN1940 REM25000 DATA"Programmieren in BASICODE (9)"25010 DATA"B}ASICODE-3 erlaubt es, Datenfiles auf externen"25020 DATA"Speichern (Cassette oder Diskette) anzulegen,"25030 DATA"zu schrei}ben und zu lesen. Das beschraenkt sich"25040 DATA"jedoch auf sequentielle Files. Relative Files"25050 DATA"werden von den e}inzelnen Computern in zu"25060 DATA"unterschiedlicher Form verwaltet."25070 DATA"!!Damit ist es moeglich, Datenfiles zwisch}en"25080 DATA"verschiedenen Computern - im BASICODE-Format -"25090 DATA"auszutauschen."25100 DATA"!!Die File-Verwaltung s}ieht vor:"25110 DATA"!! - Eroeffnen eines Files,"25120 DATA"! - Schreiben bzw. Lesen,"25130 DATA"! - Schliessen des Files,}"25140 DATA"! - Fehlerabfrage."25150 DATA".P0"25160 DATA".REroeffnen eines Files","!"25170 DATA".R - Subroutine # 500"}25180 DATA"!!Mit der Eroeffnung eines Files ist dessen Name"25190 DATA"in der Variablen NF$ und das angesprochene"25200 DAT}A"Speichermedium (Cassette, Diskette oder"25210 DATA"Microdrive) in NF festzulegen."25220 DATA"Der Filename (NF$) kann maxi}mal sieben Zeichen"25230 DATA"umfassen. Die Variable NF enthaelt den Code, der"25240 DATA"das Speichermedium festlegt und b}estimmt ob das"25250 DATA"File zum Schreiben oder Lesen eroeffnet wird."25260 DATA"!!Die Wirkung des der Variablen NF zuzuw}eisenden"25270 DATA"Codes wird im Einzelnen durch das"25280 DATA"Uebersetzungsprogramm bestimmt.",".P0"25290 DATA"Grundsae}tzlich gilt fuer die Zuweisung an NF:"25300 DATA"!!Lesen Schreiben Speichermedium"25310 DATA"!-----------------------------}------"25320 DATA"! 0 1 BASICODE-Cassette"25330 DATA"! 2 3 Computerspezifisch,"25340 DATA"! } Cassette / Diskette"25350 DATA"! 4,6 5,7 Diskette"25360 DATA"!!Um die Austauschbarkeit sicherzustellen,"2537}0 DATA"empfiehlt es sich, Datenbestaende im BASICODE-"25380 DATA"Format abzulegen."25390 DATA"!!Bei Verwendung der Codeziff}ern 2, 4, 6 bzw."25400 DATA"3, 5, 7 ist zu beachten, dass es"25410 DATA"computertypische Unterschiede gibt.",".P0"25420 DA}TA"Zuordnung fuer C64 und ZX Spectrum:"25430 DATA"!! n ZX Spectrum CBM C64"25440 DATA"!-------------------------}-------------"25450 DATA"! 0,1 BASICODE-Cassette"25460 DATA"!! 2,3 ) ! CBM-Cassette"25470 DATA}"! 4,5 )( Microdrive/Disk ! Diskette"25480 DATA"! 6,7 ) ! Diskette"25490 DATA".P0"25500 DATA"Mit der folg}enden Programmzeile wird ein"25510 DATA"Datenfile (zum Schreiben oder Lesen) eroeffnet:"25520 DATA"!! nnnn NF=n:NF$='name':}GOSUB 500"25530 DATA"!!Mit Abfrage der Variablen IN kann der Status,"25540 DATA"d.h. das Auftreten eines Fehlers (vergl. we}iter"25550 DATA"unten) festgestellt werden.",".P0"25560 DATA".RSchliessen eines Files","!"25570 DATA".R - Subroutine # }580"25580 DATA"!!Mit diesem Unterprogramm wird das mit NF=n"25590 DATA"geoeffnete File geschlossen. Es genuegt"25600 DATA"}!! nnnn GOSUB 580"25610 DATA"!!ohne dass NF=n vorher explizit angegeben wird."25620 DATA"!!Sollen zur Anlage eines Files me}hrere Speicher"25630 DATA"angesprochen werden (z.B. BASICODE-Cassette und"25640 DATA"Diskette), so ist das erste File zu sc}hliessen"25650 DATA"bevor das zweite eroeffnet wird."25660 DATA"!(Zur Fehlerabfrage siehe w.u.)",".P0"25670 DATA".RSchreib}en und Lesen eines Files","!"25680 DATA".R - Subroutinen # 560 und # 540"25690 DATA"!!Zum Schreiben eines Datenfiles dient} die"25700 DATA"Subroutine # 560. Der Inhalt von SR$ wird in das"25710 DATA"File - gekennzeichnet durch NF - geschrieben."}25720 DATA"Numerische Werte sind"25730 DATA"ueber 'GOSUB 300' oder 'GOSUB 310' in die"25740 DATA"Stringvariable SR$ zu wand}eln. Strings sind an"25750 DATA"SR$ zu uebergeben."25760 DATA"!!Die Schreibroutine hat folgende Form:"25770 DATA"!! n}nnn SR=A:GOSUB 300 (oder 310)"25780 DATA"! nnnn GOSUB 560"25790 DATA"!! oder nnnn SR$=A$:GOSUB 560"25800 DATA".P0"25}810 DATA"Das Lesen eines Files (gekennzeichnet durch NF)"25820 DATA"erfolgt ueber die Subroutine # 540. Der gelesene"25830 }DATA"Wert wird der Variablen IN$ zugewiesen, auch"25840 DATA"hier ist bei numerischen Werten und"25850 DATA"anschliessenden} arithmetischen Operationen eine"25860 DATA"Typwandlung ueber VAL(IN$) durchzufuehren."25870 DATA"!!So gilt fuer das Lesen }eines Files:"25880 DATA"!! nnnn GOSUB 540:A$=IN$"25890 DATA"!! oder nnnn GOSUB 540:A=VAL(IN$)"25900 DATA"!!Die Variab}len A$ bzw. A koennen dann im"25910 DATA"Programm weiter verwendet werden. Auch hier ist"25920 DATA"die Fehlerabfrage sinnv}oll."25930 DATA".P0"25940 DATA".RStatus- bzw. Fehlerabfrage"25950 DATA"!!Bei jedem Zugriff auf externe Speicher wird"2596}0 DATA"der Variablen IN ein Wert zugewiesen, der"25970 DATA"zeigt, ob er fehlerfrei ablief. Vom Inhalt der"25980 DATA"Varia}blen IN koennen dann weitere Handlungen"25990 DATA"abhaengig gemacht werden."26000 DATA"!! IN Bedeutung"26010 DATA"! ---}----------------------------------"26020 DATA"! 0 Operation fehlerfrei (o.k)"26030 DATA"! -1 Operation nicht ausgefueh}rt"26040 DATA"! (Fehler !)"26050 DATA"!! 1 EOF (End of File),"26060 DATA"! nach dem Lesen des letzten Daten-"}26070 DATA"! elements (IN$='leer')"26080 DATA".P0"26090 DATA"!!Anmerkungen:"26100 DATA"!!1. In Verbindung mit dem An}sprechen externer"26110 DATA"Speicher werden u.U. die untersten Zeilen des"26120 DATA"Bildschirms fuer Benutzerhinweise (pr}ompts)"26130 DATA"benoetigt; diese sind deshalb freizuhalten."26140 DATA"!!2. Im grafischen Betrieb sollen die Routinen"26}150 DATA"zur Fileverwaltung nicht angesprochen werden."26160 DATA"Der Computer ist ueber 'GOSUB 100' in den"26170 DATA"Text}betrieb zu setzen."26180 DATA".P10","Das war das","!!"26190 DATA".C****************************"26200 DATA".C* } *"26210 DATA".C* BASICODE-3 Journal *"26220 DATA".C* Nummer 12 *"26230 DATA".C* 25}. Juli 1990 *"26240 DATA".C* *"26250 DATA".C****************************",".E"30000 REM300}10 REM Grundlagen von BASICODE30020 REM -- Teil 9 --32000 REM ---------------------------32010 REM FRIEDRICH DORMEIE}R32020 REM32030 REM D-1000 BERLIN 3932040 REM32050 REM C64/C128 - 3/199032060 REM ---------------------------32070 REM}32080 REM Erstausstrahlung: DS-Kultur32090 REM-spezial 900725?1000 A=1000:GOTO20:REM #### LINDWURM ####1010 DIMG(1000):HH=HO:VH=VE:PR=01020 X=0:M=INT(HH/2):N=INT(VH/2):E=M:F=N1030 P=}1:L=0:Q=1:Z=01040 FORI=0 TOHH1050 VE=0:HO=I:GOSUB110:PRINT"O";1060 VE=2:HO=I:GOSUB110:PRINT"O";1070 VE=VH-1:HO=I:GOSUB110}:PRINT"O";1080 VE=VH-3:HO=I:GOSUB110:PRINT"O";1090 NEXTI1100 FORI=0 TOVH-11110 HO=0:VE=I:GOSUB110:PRINT"O";1120 HO=2:VE=}I:GOSUB110:PRINT"O";1130 HO=HH:VE=I:GOSUB110:PRINT"O";1140 HO=HH-2:VE=I:GOSUB110:PRINT"O";1150 NEXTI1160 HO=INT(HH/2-7):V}E=INT(VH/2):GOSUB1101170 SR$="LINDWURM":GOSUB1501180 SD=1000:GOSUB450:GOSUB1001190 REM ## AUFBAU DER GIFTPILZE ##1200 FE=}INT((HH+1)*(VH+1)/50)1210 FORI=1 TOFE1220 GOSUB260:HO=INT((HH-1)*RV)+11230 GOSUB260:VE=INT((VH-2)*RV)+11240 GOSUB110:PRIN}T"#";1250 NEXTI1260 REM #### WANDAUFBAU ####1270 FORI=0 TOHH1280 VE=0:HO=I:GOSUB110:PRINT"-";1290 VE=VH-1:HO=I:GOSUB110:}PRINT"-";1300 NEXTI1310 FORI=0 TOVH-11320 HO=0:VE=I:GOSUB110:PRINT"!";1330 HO=HH:VE=I:GOSUB110:PRINT"!";1340 NEXTI1350 }REM ### AUFBAU DER PILZE ###1360 FE=INT((HH+1)*(VH+1)/50):TA=01370 FORI=1 TOFE1380 GOSUB260:HO=INT((HH-1)*RV)+11390 GOSU}B260:VE=INT((VH-2)*RV)+11400 GOSUB220:IF(IN<>32)THEN13801410 GOSUB110:PRINT"*";1420 NEXTI1430 REM #### LINDWURM ####1}440 HO=M:VE=N:GOSUB110:PRINT"O";1450 SD=2:SV=15:SP=30:GOSUB4001460 IF(((P-1)/FE)=INT((P-1)/FE))AND(Q=0)THENQ=1:GOTO1360147}0 Z=Z+1:GOSUB200:IF(IN<28)OR(IN>31)THENIN=TA1480 TA=IN:IFIN=0 THEN14701490 ON(IN-27)GOTO1500,1580,1660,17401500 HO=M-1:VE=}N:GOSUB2201510 IFIN=79 THEN GOSUB1920:GOTO1440:REM "o"1520 IFIN=33 THEN GOSUB1960:GOTO1440:REM "!"1530 IFIN=35 THEN GOSUB2}000:REM "#"1540 IFIN=42 THENP=P+1:Q=0:GOSUB250:REM "*"1550 HO=M:VE=N:GOSUB110:PRINT"o";1560 M=M-1:G(X)=1:GOSUB1830:REM SCH}WANZENDE1570 GOTO14401580 HO=M+1:VE=N:GOSUB2201590 IFIN=79 THEN GOSUB1920:GOTO1440:REM "o"1600 IFIN=33 THEN GOSUB1960:GOT}O1440:REM "!"1610 IFIN=35 THEN GOSUB2000:REM "#"1620 IFIN=42 THENP=P+1:Q=0:GOSUB250:REM "*"1630 HO=M:VE=N:GOSUB110:PRINT"o}";1640 M=M+1:G(X)=2:GOSUB1830:REM SCHWANZENDE1650 GOTO14401660 HO=M:VE=N+1:GOSUB2201670 IFIN=79 THEN GOSUB1920:GOTO1440:R}EM "o"1680 IFIN=45 THEN GOSUB1960:GOTO1440:REM "-"1690 IFIN=35 THEN GOSUB2000:REM "#"1700 IFIN=42 THENP=P+1:Q=0:GOSUB250:R}EM "*"1710 HO=M:VE=N:GOSUB110:PRINT"o";1720 N=N+1:G(X)=3:GOSUB1830:REM SCHWANZENDE1730 GOTO14401740 HO=M:VE=N-1:GOSUB220}1750 IFIN=79 THEN GOSUB1920:GOTO1440:REM "o"1760 IFIN=45 THEN GOSUB1960:GOTO1440:REM "-"1770 IFIN=35 THEN GOSUB2000:REM "#"}1780 IFIN=42 THENP=P+1:Q=0:GOSUB250:REM "*"1790 HO=M:VE=N:GOSUB110:PRINT"o";1800 N=N-1:G(X)=4:GOSUB1830:REM SCHWANZENDE18}10 GOTO14401820 REM #### SCHWANZENDE ####1830 Y=X-P:IFY<0 THENY=Y+10001840 IFG(Y)=1 THENE=E-11850 IFG(Y)=2 THENE=E+11}860 IFG(Y)=3 THENF=F+11870 IFG(Y)=4 THENF=F-11880 G(Y)=01890 HO=E:VE=F:GOSUB110:PRINT" ";1900 X=X+1:IFX=1000 THENX=01910} RETURN1920 GOSUB2050:HO=0:VE=VH-1:GOSUB1101930 PRINT"SIE BISSEN SICH IN DEN SCHWANZ";:SD=40:GOSUB4501940 GOSUB110:PRINT"!}-----------------------------";1950 RETURN1960 GOSUB2050:HO=0:VE=VH-1:GOSUB1101970 PRINT"SIE LIEFEN GEGEN DIE WAND";:SD=40}:GOSUB4501980 GOSUB110:PRINT"!-------------------------";1990 RETURN2000 GOSUB2050:HO=0:VE=VH-1:GOSUB1102010 PRINT"SIE FR}ASSEN GIFT";:SD=40:GOSUB4502020 GOSUB110:PRINT"!---------------------------";2030 RETURN2040 REM #### LEBENABZUG ####20}50 GOSUB2202060 GOSUB110:PRINT"X";:GOSUB2502070 GOSUB110:PRINT" ";:GOSUB110:PRINT"X";:GOSUB2502080 GOSUB110:PRINTCHR$(IN);}2090 SD=4:SV=152100 SP=67:GOSUB4002110 SP=64:GOSUB4002120 SP=60:GOSUB4002130 L=L+1:IFL=5 THEN21702140 TA=02150 RETURN}2160 REM #### AUSWERTUNG ####2170 GOSUB100:HO=HH/2-5:VE=0:GOSUB1102180 SR$="AUSWERTUNG":GOSUB1502190 PP=P-INT(Z/200)2200 }VE=VH/2:HO=0:GOSUB1102210 PRINT" SIE ERREICHTEN ";PP;" PUNKTE"2220 PRINT2230 IFPP<=PR THENPRINT" Record";PR2240 IFPP>PR} THENPR=PP:PRINT" Neuer Rekord ";PR2250 PRINT:PRINT2260 PRINT" WOLLEN SIE NOCHEINMAL":PRINT2270 PRINT" SPIELEN (J/N)?"};2280 GOSUB2102290 IFIN=78 THEN23102300 GOSUB100:GOTO10202310 GOTO95030000 REM **********************30010 REM * KURZBE}SCHHREIBUNG: *30020 REM * *30030 REM * "*" = 1 PUNKT *30040 REM * "#" = 1 LEBEN WEG *30050 REM *} "o" = 1 LEBEN WEG *30060 REM * "-" = 1 LEBEN WEG *30070 REM * "!" = 1 LEBEN WEG *30080 REM * ZEIT=PUNKTEABZUG *3009}0 REM **********************30100 REM * PROGRAMMDETAILS: *30110 REM * ANPASSUNG DER *30120 REM * GESCHWINDIGKEIT } *30130 REM * AN EIGENEN RECHNER *30140 REM * IN ZEILE 1450 *30150 REM * SD ERHOEHEN ODER *30160 REM * ZEILE 1450 }LOESCHEN*30170 REM * ANZAHL DER LEBEN *30180 REM * IN ZEILE 2130 *30190 REM * FESTGELEGT *30200 REM ******}****************32000 REM **********************32010 REM * DER LINDWURM *32020 REM **********************32030 REM} * SPIELIDEE: *32040 REM * LINDI AUS *32050 REM * SPIELBOX 4 ZUM *32060 REM * KC-compact *32}070 REM **********************32080 REM * AUTOR: *32090 REM * Thomas Schaefer *32100 REM * H.-Heine-Str.42d} *32110 REM * Perleberg *32120 REM * 2910 *32130 REM **********************32140 REM * ERSTELLT }AUF *32150 REM * MRB - Z 1 0 1 3 *32160 REM * FERTIGGESTELLT AM *32170 REM * 25.06.1990 *32180 REM * fu}er *32190 REM * Rundfunk der DDR *32200 REM **********************32210 REM32220 REM Erstausstrahlung: DS }-Kultur32230 REM-spezial 900725!)*  FLNFLBCFNTXTYFEBRE@ @@"@ } @P @  @H @@ F(@d A` }_G;@,;@,;@,;@,;@,;@@,S6-@_6- + AP( }AR@2-<2(( 㩠2 APF-@P1'(}ӠҠà1 APZ-@d0&(̮砠0 APn1@1@}@D:*.*x$-@d$@'"@6-@"'6-@-%@&(} AP" 6-B:,"@" A 36-6-@'6-@36- 6.=:,6.=:,} 6-@:,6-@:, -:(>:%A(,"(>:%A(,06-&@H: AP3)++&@H,$@,%+&@H},"3 A*"@ 6-%@*6-6@1"@I*"@W%6-@16-@ 6-%@6}-%@ A=AR'-@3@+=AR@" )! A,6-@}6-%@61!@6-@$16-&@%@@-@J- 1% AP#"@2}- AT67%@,.>:,^$ -%(>:%A(,$ APh r-@|51%@% A}P+"@25 A 67%@,.>:,,-%@%"(>:%A(,, AP >->(}$ >-@>($ >-@>($} -@@9/(RUN>:@4,D1:.>:@4,9 AP5-@}@( --@2@5( N0@@@/-AAd@K APN}-@& -%%( AP  Ap-@&%-%@%%(% AP} & A 0) +AR) AP:AdAUD(-@@((FEHLERMELDUNG!}N7-@@(( 76-F:A,X*(*( Es ist der Fehler Nummer b( aufgetreten !l}*( (*( v-F:Ad,AU*AdAU-% A06-F:@,!A}'6-&A(@B7t$ D:AUTORUN.BASMR//FRAGINAME1NAME2FELDPUINDLISUEBERSCHRIFANPOWAHLNAMEAUFBASPIEENDGLOCKEWAHLHILFSSTAR }NAMENZSWRPUNPUNKTAPPUZUUUPVOVVVENDE@   AA=O@&!}B @# Ag A U P@@P@@@PF)GJyM4W"}AC[EH !@"@#@$@%@&d'P#}(@V)*FS+,@-A.A/01234[ A1AU$}g6-@[;@,;@,;@,9@<@,9@,;@,g6-@&+@%@%}(--6-F:A`,%F:Aa,$AV%@2&@@h<+-%@%@'@+ F+-%@&}%@#'@+ P+-%@Q%@'@+ Z%@Y@ed%@`F:A`,n'}%@aF:Aa,xKA Ax'A@$9A@$KA@SNAR@'@(}9@<(N-@//(' //(')} //(' //('| | | | | | | | //('*} ӠӠ//('| | | | | | | | ԠŠ//(' +}̠//('| | | | | | | | ҠŠ//(' Ԡà//('| | | | ,}| | | | Ԡ22(* //('| | | | | | | | //(-}' ӠӠ//('| | | | | | | | //('.} "//('| | | | | | | | ,@@@6??Y@#'/} @??Y@1' J6 @6Y@@@ 0} 2 JoysticksT-@9@F^ ",/h rEE260,307,261,308,261,308,262,309,262,310,263,311,261}5,313,267,315|P;@ ,H@@@HY@P6-@2}6-@P-@OOAA A0A@APA`ApAA16-AX3}6-%@1-@I6-&@ @6-@A@ARYAR@P4}Y@PYAR@P%b%@w@@@M?5}$ !6-%@!b&@@@02"A 6-% Ap(A2 A@:6}L -@6@0bB@@L@D,@%/AQ%N   X A7}b6.Ӡ̠٠ӠРҠɠԠ$l6.㩠$v6.ӠǠ$6.Ů򮲵8}$6.ϭ$6.$6.򠸭魠$6.9}$6.$TOF:B2y,"@PA`F:B2y,"@&6-%@)A5"@:}A6-DAV@@`@E"BY@@@ 2 Joysticks EAB"@;}?Y@@@ Ein Joystick und TastaturBAD"@AY@@@ Nur Tastatur DA<}+F:B2y,"@$6-@(P+A S-@E2@ $+@&,@@OM?@S =}AdAUQ T*O4@>1-@@"#-@3-(1 HS@@>}@9YAd@#SYAd@1R',Ag@F'/A@F\G5Y@@@?}Name Spieler 1: G,A@fQpTzOF:B2y,@PAQTO1F:@}Ad,"@*AdAU.P1AT@@@%6.Y,4/Q2AT2AE@@A}.6-%@"@+6-&@.Av 4~6-&@%"16-@4AUYA %$@@@B} c6-&@fap A PsAvA4F:Ad,"@*AdAU.P1a4A@@@@=YC}A %$@@@@a 67,.QTO@--@@--@4%D}@%$&(>:@:7,,%A(," Ap& .O@@@OY@@@Name Spieler 2: E} 8"6.6.ABS,Ag@F'/A@F56-%@GAdAUS6-LZ"F}@6-@-@@ZY@@ VO-@3YAa%$@&G}OYA%$@&`   Aj AtT~O@+-@+-H}@6-P:@5$H:,&@,68<,-6-!6@6-@A/+-$@%@%$I}@%@/(9  @@'@9,A@$6-d:@,$@@="J}#YAD@@&@:YAD@@=A((Y@@@Den Anfang macht',Ag@F'/A@FK}@6-@6-@'6-@36-@;@,@ *-@4@!"*(L}@(AC@@@1,Ag@FC/A@F(Q2T<OF@@M}!"-6-@7 A@:A@6.YPM2"*R:,"@)"*4*< A0J6-%@MAZN}M2"*R:,"@)"*4+< A0J6-&@MAdM2"@*R:@,"@)"@*4-O}< A0J6-&@MAnM2"@*R:@,"@)"@*4=< A0J6-%@MAx/("@*T:@P},")4 ,\/A/("*T:,")4 ,\/AQd6-#-@]2Q}$'@%@$+@&,@@a da9 6-@A*!@66-9A9 R}6-@A*!@66-9AS@)-@S1$@%@%$@%@S}>+-$@%@%$@%@:(>:%A(,> $T]@@@8<,"T}@QA,68,-8,%8<,,6-Aa%@%$' 8,!A)8, 6@$\'A YY%@U}H8, YHY%@>:e:O:8,,'@,%Av,">7Y%@>:^:O:8,,'@,$@%AvV},;\>A,78, @0Y%@>:Av%8,,4\7A6l8, A;Y%@>:e:8,'@,%Av,W}lY%@>:^:8,'@,$@%Av,@ \ AJ8, AYT66Y%@>:e:+8,&A,'X}@%Av,,^E>Y%@>:^:+8,&A,'@,$@%Av,B\EAh]rN5Y@@@Letzter ZY}ug: NYA@@8<,|>"6-@@*6--A>68<,-@rr"*8Z}<,%8@<,%8@<,%8@<,%8@<,%8@<,%8@<,"A6-@QArr"[}@*8<,%8<@,%8<@,%8<@,%8<@,%8<@,%8<@,"A6-@Q\}A@*-@4@!"*(@(A?)-$@%@$@%@]}1(?6-%@QTO>@@@>Y@ Y SPRI+-@@^}+-@ ",&@/&@   &,,16,22,27,30,34,35,89,94,97,102,105,1110++16,22_},26,27,34,35,91,92,96,97,105,111:,,19,23,27,31,34,35,91,92,96,100,104,108D++19,23,31,32,35,36,90,91,95,96,104,108N++`}22,24,31,32,35,36,90,91,95,96,103,105X++24,24,28,31,35,39,90,91,94,99,103,103bQlTvOK-AP=2a}@'@%@GM?K U-A@@56-@&'@ E2U2b}@2%@@ "a@@"@*8,"8@,'6-@*A$8c},!8@,!6.$A,,Y@@ Zuege: _Y@`@@%@+"@MY@d}@@ Y6-@\Q_A66Y@#9@'-@e}@ 9@@%%($$(|  %%(| f} |$$(|  %%(| Hiermit wird dem Spieler |$$(|  %%g}(| |*$$(| SLY SPRITE-MASTERS 4%%(| |>$$(| verh}liehen! H%%(| |R$$(| \%%(| Die Spielleitung i}|f$$(| p6-@@(*( der Titel:66-@zQTO60Y0)T:j},")T:@,"3%6AQTO9AR'@9-11((k}򠲠11((11((| Bei SLY SPRITE handelt es sil}ch um |11((| eine Mischung aus Gluecks- und |11((| Strategiespiel. Nach dem Druecken |11((| der Stm}art-Taste und Eingabe der | 11((| Namen wird das Spielfeld nebst | 11((| Info-Fenster aufgebaut. n} | 11((| Das Spielfeld besteht aus 49 Fel- |$ 11((| dern, die der Computer mit Zahlen |. 11((| zwischen +2o}0 und -15 fuellt. Im |8 11((| Info-Fenster stehen die Punkte und |B 11((| die Namen. |p}L 11((| Die beiden Spieler koennen per |V 11((| Pfeil-Tasten oder Joystickbewegung |` 11((| einen Cursor uebq}er das Spielfeld |j 11((| bewegen. Spieler 1 kann den Cursor |t 11((| nur waagerecht bewegen, Spieler 2 |~ 11r}((| nur senkrecht. Der Spieler, der an | 11((| der Reihe ist, bewegt nun den Cur- | 11((| sor ueber die aktuells}e Reihe, bis | 11((| er an einer Zahl angelangt ist, | 11(( 00('t}Š ) Y4 A$A)- 11((u} 11(( 11((| die ihm passt. Drueckt er nun den | 11((| Feuerknopf odv}er die Space Bar, so | 11((| wird der dort stehende Wert seinem | 11((| Punktekonto gutgeschrieben oder |w} 11((| abgezogen und das Feld geloescht. | 11((| Jeder Spieler ist natuerlich be- | 11((| mueht, die hoechstx}en Werte abzu- | 11((| sahnen. Doch da faengt das tak- |( 11((| tische Moment an. Nimmt man ein- |2 11(y}(| fach nur die hoechste Zahl, so |< 11((| gibt man seinem Gegner vielleicht |F 11((| die Moeglichkeit, eine z}noch hoe- |P 11((| here Zahl zu bekommen. Nimmt man |Z 11((| sich jedoch eine andere, so muss |d 11((| e{}r sich vielleicht eine negative |n 11((| Zahl gutschreiben. Das Spiel ist |x 11((| zuende, wenn ein Spieler nur|} noch | 11((| leere Felder in seiner Reihe hat. | 11((| Sieger ist derjenige, der am Ende | 11((| die me}}isten Punkte hat. | 11(( 00('쿠ʯΩ~}  6.Y4JPA  4N%A A'@D:SLYSPRIT.TBSQ`HHFFFG  M  M L`͠  M  M L7`G ۯct"}@)tdttttuuhwiwjw~wyyyyzD|E|H|}}}a~b~c~'(8"}*+,.rhh`HHHuγujwjwcLb ccLbɿc dL dLbɁcLbɅcLbɹ MccLb"} MccLbɕMccMccLbɈBcc dLd 5 E M E M = LbɭTccк 5"} "# E M E E M E c = Lbݣc LZbcc c Lb!c c"}cLbcLbcLb$ctc 8LbvcɁc hLbuк tLbtwctcc$cLnccLnc"}ccLnccLOc Ictctc 8ttc 8ttc u tLOchc tit0 i"}tihhhh`  %#9+8350Р " #ԭԭԩ"}@ԩөЩ"ԩ@҅  X d d fL dHH 8 5  HMEh E i 34 E "}姅 E } E E E  E "# E c E ͬ L#dc c"}c ? ` = hh`HHHcc 5 u E 䧅姅 E } E L e = ? UpfI"}fSq>Vq?WqTqUq[q@^qA_q\q]q tq Ionn cn x K `o ac"}tq IoLfݩtq Io.riwyE|}(+=zI2zdJzLzK u w z I| e~ "}ѡnҡn cn( cL~f `LSe `hhh`HHH ۯ 5 u E fg E Lf = 78"}9:;<c c c Lfc Uppc g h^i-c cIcLgh qqqL`gh c"}Ji qqq l^nc&^ncc LfccIcLg x  E ) E hhh`HHH "}cnn cnSVqTWqSq0TqUq[q^q_q@\q]qcqkq ch tq Io x p4 j< "}`o ۯp q iLVhJJJhGohHo nhh qcLh ahh q խhhGo nLlh4 j "}Gotq n Iohhh`HHc ϡnСn cn suJi iKi i cL_i t^i `^i4 jci LHi"}4 jhh`_iii0j}jj*khkk.riiwiyic~ty u w LviL i.riiw=z"}zz Qa)z ytz u LiL i.rjiw'jE|tE| z LjL i.rbjiw"}kj}tjc~t} u I| LGjL i.rjiwjj(t(# .r u "}e~  LjL i.r!kiwDIJL Qa)K +t8 u L kL i.rVkiw"}_kt u M L;kL i.rkiwkc~kt u LkL i"}.rkiwkc~k+t+ u  LkL iHHHbn^nCnCnDnLlCnCnCn]n"}En q LIlLIl ]n]nCnڭ]n^nLl^nLl) ]n)Ll^nLl^nL=nLlCncbn7"}:ЪSq,TqUqVqWq[qH\q]q^q_qcqkqLm^nLmSq4TqUqSVqTWq[q@\q"}]q^q_qc cqkqLmbn[cq0dqeqfqgqc kqLlqmqͬnqάoqcHc i"} hcLmcq0dqeqfqgq tq Io x Cn )L2nGo_nCn8MGoGoEnJJJHo nCnč`nčanan"}`n_nLm tq Iohhh`0 8(@ (08@ @ 0HH 5 nnȩP E M E n"}nnnȩP E M E = hh`HHGoIfHo q8JgKh q8LiiDE E "}Li'L E FG E gig E hh`H 7rsququq0 pLSoh`HHH Qa)oo Qa)oootqoiuq po"}iuq po o qHqHqH q qqqqqhqhqh qtqoiuq poiuq phhh`HHHuq p0=p"}ppȩptqp Qa)@ E hhh`HHH qi ѡqҡqiSq[qcqk"}qhhh`8ПӮXП8<П栌X<П8xПXxП3579ˮoqsuӂ "} @ 3Ϡ `  Fť @F3`F @3`$4s@Ȯ0L߬HH.rL)r Qam"}͙͛ Qa͝d/r0r-rL&r-r L&r8D JJJJJJ( 8"}` JJJJJ( -r #hh`HHH Qa)irI r r Qa)@Lerr Qa) Qa)rrr"}rrmrr㭿rЭrЭrЭrhhh`ȄLs=uv_w%5xyPySzPf{{P|}P~5~"}PiPgPԂVPPP@@@  "}  @@ @ ^NHtDtGHtIEJL h`O,BMB COtL"}t,D MDOLxtLmtɀ LtNmtɷNtt0't0 LutLutLutt"0LutLutt0 LutLut tt"}.J/K tLytNytI @ #IPLi@dHHtuͱuL9uuu"}uDttyuGHtyuIJLMN 4 jhh`O,BMB COΰuLu,D MDOLuJLyu ɈL"}Nyu O BOLuNJ>J?K IPLi HhwiwLvjw"}jwLvhwD Qa)ELvJ Qa)-)L-vI QaiɈDL;vGHLqv)LZvGH QaI"}}wLM Qa)NGɈ NLvN NN kwjwh`O,BhwMB COL\w,D MDOL%w~w wL%w"}KLymwiLwɈ逝LNynw L"wN~w JJL;wJJJ)J΋JϋK }wIPLilwjwL"}HLt LLLwLLNt NNLwNNh`Hy͆yL3xyΉyL3xDI QaiɈ"}DLwGHJLN Qa)iOP Qa)L$xM yyyh`O,BMB CO·yLy,D MDOLxO,E?L"}8iLM(LMN}J}J J0LxNLxN8NMLML}JiLxɈ醝LKi)"}KJK IPLi_~Ni`~ }LiIO,EΈyΆyyc~c~LyKL~yKy͆y Έyya~L#y4 j"}IIIOMEO,EΈyL~yyLHzDzGHzI Qa)@ JLzNzM h`O,BMB COz"}LPz,D MDOL8zK wL8zLyz zLLz8K)KLyNyzɴ8K)KLzNJjJkK IPLiI"}fKLzKK0M4 jKIJcz+izLzNz Qa)z y8)z yL"}B HH|H|Ld{D|E|Ld{D|D QaiɈDL {GHILJ Qa)M Qa)iNO Qa)@"}LX{P G|H|h`O,BMB COD|L{,D MDOL{NmF|NKLKL}MɈ ɌL{LJi)J"}JK Li_~Ni`~ }IPLiIE|LA|KKL |LA|hwiwE|LA|jw u4 jL|LH"}}ͼ}L|}ν}L|}}}DEFGH Qaɸ\I Qa)@ JL Qa)@L|M Qa)i N "}h`O,BMB COλ}L},D MDOL}LiɈ鄝LN}JɸJJL}N LiNi A"} #KKL}b~c~ a~ KLi_~Ni `~ }IPLiIμ}L}JO,A4 jLHa~"}Ia~b~c~>_~Ɉ73b~DEF_~GH`~IEJL h`O,BMB COb~L\~,D MDOLS~Nmd~N"}ʰ O BOL\~ IPLiHL~L~D Qai~?L~GHI Qa)@ JL"}MO Qa)iN h`O,BMB COL,D MDOL|L/N8O BOLNZJ[KLK Q"}a)}J)JJLyɀٝLNɼ iNL|yɲL7VJWK IPLiIL7K@L+"}KLN8N%  4 jLO,A4 jL@H'(Lg))Lg*)' D Qai"}ɄBL7GIJHLMON h`O,BMB CO'L,D MDOLЀKLyɄLNyɺİ"} Qa)}Ki)KLNL LJIJJlJmK IPLiI.rLH8"} DIGHJI Qa)@ JLLMKN h`O,BMB CO8L݁,D MDOLŁKLy9Ɉ|L i|LN"}y:ʐLNJJK IPLiINKL5KJ3iLLINJJ8)K +i)"}K + 4 jLhCHͤL҂ΥL҂ D Qa)J GH Qaɻ]I Qa)@ JL"}M Qa)iOP Qa)L̂N h`O,BMB COΣLS,D MDOL;JLiɈL8LiLLM"}LN}KNɻKKJJK IPLiIΤLK1KJL%J4 jLO,A04 j"}LHLL D Qai~?L׃GHI Qa)@ JL Qa)MN h`O,BM"}B COL,D MDOL}KLy~LNyɽLcɳ Qa)i}K)KL8NJi)JJK "}Li_~Ni `~ }IPLiI9Ki)JO,A4 jLa~c~ c~LLH*+"}L,,L*-, DXEYFGH QaɲYI Qa)@ JL Qa)M Qa)iON h`O"},BMB CO*L,D MDOLLiɈ逝LKKLLKN}Jɲ JJLՅN IPLiI+L'J "}O,A4 jL>>>>h  p p p=|=|+ \\\__: 80<<"} 0555, h" _-\\|,?+ WW_+  "}UW <|ppVj /__/0<+ WW +<0 "} UU  ||Pj ,|\-\_ +_W W+?"} WU pp|<@  +=|=| p p p08: __\\\"} 0<< ,555<B 8:?@?@=P5P5xT T ^=~?"}<UW_@@g PP>=T=T>"}0UU0 <?@@?< 3 5x5P=P?@?@:8<?=~ ^ TT"}_WU@@N֊F~k PPP(((  "} @@@ (P@ (P@ (P@f&@` dsR P( ( "}@ @P@P(C PPP(((   @@@   (P@ (P@"} (P@'Jf&@` d5N P( ( @ @P@P(֋bz\ !@_"}__@P=W=W=WP<<<UUU<<<|||[! "}!<<?@5PP\|<<<< TTW_UUU@@p"}<<Z# !<<> ><<0<<0 0 0 <"}***< ] !<< :><<<<+"}<< **ގ 2* *+// *(O@@@  *J/ "}ʀPP@@P R (@TPPT<*<<*< <<@PT"}T -* *+// *!@O@  *J/ ʀ#PS@P@@ R "}HTPTP@<*<<*<R<W T* */**"}*+ * *  B 0UPUPUW5UWUTU"}TUPUP@UTUT=i=UU UUUUUUjUTUT@PUUZi|UU|UUpUU@UU@Z@UUPTU@U"}@֚_U_U\UPUPPU@U@TҠ̠ $PU?:?TU@>????:UP"}?@UT ;\?3<0"}30?? ? ?3??<;^???03?0"} ? ?3?0?? ;Z0?3?3 0"}< ? 0????30?< ?όE/ *UPUP "}***UT????UT UUU@??U(PP<<"}<<<@@\+J $ L??????=_TTT ??WUUU "}U@U@U@*10|PPP* < $ L??00??=_TTT \P0000"}WUUUWT 3 3 U@U@U@@10  |PPP5p@6<< L?"}?????=_TT \P@<??WUUWT<U@"}U@??<<?10|PP5p@pP ** **   "} PlĘDz <<((((( ??@PxC <<"}<<@ p=|{g ,<0\PPP_0"}3<<(<<< 5: 3<< p@@γ>C=|"} {e 0_0C p=|Z𠹱 ' U"} ?<hjh<?<<Z<ZZ<<<VVVg"}* +/>/>  π π**"} */* g* *:+ *./  +..;*ʰ."} ;  ?./:;*g*  0#} , 80 0 4 8, 0 , 0803 `0# @ #}  ,8 e@@@PPPe<<<<30<#} 00< e@A@@@@PP@П82UUUUUUUUUUUUU#}UUUUUUUUUUUUU3UUUUUUUUUUUUUUUUUUUUUUUHe<???T$<#}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<3 UUUUUU@T@TPPPPT@T@UUUUUTUTUPUPU#}PUPUTUTUUUUT@T@PPPP@T@TUUUUUU@   *** #} ***  wm裆$#}P 0TTu]}@}}@U}UPUUUPUUUPUUTUTTTTWPW@ **** #}(* ((PUU_UWUUU=UUU|=U|=|=|=p |_UUU_UUU_UUU_UUU_UUU_UUU_UUU_UUU_# }UU_=_|=|=|?>ꪫ`F>?U# }U;00U P(????UUUUUU# }PKWcFA<72-(dP_K#+}ZFUFPAUFZK_KdP(2<F2<FP<FPZP#,}MJGFC@=<9632/,)2( A7 P< _K n }    s s s s#-}ZPF<d7 Z- P F 2<F}Ps/DK#.}KKKKKKKKKKK27AFPU_dns_dPUUF27#/} ~ ~ ~ ~dKȯ}dKddZnPxF<2<#0}FPxZndd}dxbs`n^i\dZ_XZVUTPRKP#1}FNAL<J7Hȏ   x n d Z P ȏ   ܏ #2}ҏ Ȍ   ȯ-Cn1L Wү </(#3}2222222222222ȯï#4}}xsn#5}}xsnid_Zxsnid_ZUPKFd_Z#6}UPKFA<72PKFA<72-(#<72-(##7} ȯ<2(ZPFxnd7P8#8}77ꊨƅ c Ltxԍԍ҅`ơƣLcpppN #9}N'N0N07#:}A1 lc ҍch@HHH M hhh`HHH ʎ ii#;} eij (Lw (j (L (m im iLt 0LD hhh`3>>>#<}>N֊F~֋bzގr j \plĘ ؚ^NH(v h`Hv h`HHHr s #=}n o p q )l jj)?8i L j w m i(ieil 0q eiL o i#>} k mi ȱ07M mj k v n 01 t t L I1k p 0w L@ iimo iL #?}r s t )t hhh` l 6'j07`@6GjPW` ( P x !@!h!!!!"0"X""""#@}" #H#p####$8$`$$$$%(%P%x%%%%&@&h&&&&'0'X''''' (H(p(((()8)`))))*(*P*x****+@+h++++,0,X,,,#A},, -H-p----.8.`..../(/P/x/0(0P0x00001@1h1111202X22222 3H3p3333484`44445(5P5x55556@6h666#B}6707X77777 8H8p8888989`9999:(:P:x::::;@;h;;;;<08>#C}`HH 3c$4#D}672 02336L 46:2 0336L hh`Hcccc@@@26"3~4 6h`#E}HH=7L_7==:Ly: 346=2 0336Lhh`HHH54 m #F} i(i5 ȱ)63L2j)xm53AM Aȭ2 )xm5AM A55Лhhh`$6#G}?33333? ??00????333??00??000?33???33?33??33?H vq a T `  M  x L h#H}`HHHG hhh`2( HHHG0G J DJDI#I}LIL)hhh`k HHHFFGL7 O,B,D,@PL,A IO,@ O,B,CL  #J}M  M GGFL7 HIIIIHL^ ͬ L ,  ͬ ML1M#K}FL^hhh`L^Z#Nkގek(i< ĘxP Ę;C蠅Ӯà#L}ΠҮ̠ӠҮàΘύĠîŠҠĘРΠ栅#M}Š̠Р頠栌î      լ砠#N}ఢƠɠ栠ϨՠГҠ砠蠠ʠƮɠ҄ϠР􀠥֠#O}үӠ堤Ơϥ̈́HHHI rgrht Lvt  whhh`HHHI rLLM#P}miNmܐFGL O,AI r0ˬL#Q}MNJKyimܐ,"L#R} *  t   LO,AL,@GHI rrhlI rr O @#S}O`hhh`HHL2HHt ͬ mLVmi,/ȭ#T} E hh`HHcLc7m78m89i9 hh` (aqkoHHHL HHHt #U} ͬ mL0mi,Ltȑ E LJK#V}LMȑNO-Et E  ͬ  L hhh`Z#H#W}HHO,@LM@OI :s4 j9s !8s  7s O BOLE AOL83sLMM8N5sN6sO7sP#X}IOLOPOMA BOLiO sJsK IPhhh`HLiNi  Qa)8 Qa)8#Y} Qa)i #!h`@HHH + iȹ hhh`HHH͠L ,#Z} MLLPK  M  M Π͟L ΡLj}0L}#[}}͞,$͛͜ L )Lj ͬ La,Lj  ͬ #\}MLMLjhhh`HHHLHHH ͬ mLmi,-#]}ȑ E Lk****)ȑI E #^} ͬ  L hhh` Wy_u@6H@01 @#_}_u0 w<<?? 0HMPMOMNNOPh`ZS9H ҍa ҍbh`LLhhLB#`}  H hLL 0 LB  ȹ LB̅L9#a}EFGhHhh) JQJJJL.J)LHHEFG(l#.#b}2J-97>EjNWbՑ]mAʽLLLL#c}LLLLL8#d}iLuuiLeeLLLL0LLL5I#e}L5IбLL8eL8iL#f}eeLOOOOOOOOOOĠǠӠ٠٠ϠŠ;.ȹ.ȹ LiȄ#g}.ȹLN L ȹ...ɠɰ芙.L ȽE!.X..Y..ȹ).ȹ) #h}LN .3v9 76 ȹ3! !nL  !oL ȹ3 `ȹ3I ȹ3I };!`LN (2