@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  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} 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.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8: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 ALLOWED697 FREE SECTORS COPYING---D8:COPY32.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- 144ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u)6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<T}11111{!!\]_\ED!EOHI B V`}   U} TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (pV}%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5RW}Ţtd.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$X}LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأY}$ ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(Z}0000000--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"[}H$HHl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( \}) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eee]}eӦee褢%ƚƜ`88夅奅8^}夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 _}*څۅ܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈`}0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0a}ǠF0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠb}"("!""" "L**""""""&О"("!""c}" "L**""""""&О"("!""" "L**d}""""""&О"("!""" "L**""""e}""&О"("!""" "L**""""""&Оdf}"("!""" "L**""""""&ОL-6"e"g}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"h}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօi}ׅ؅`` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUj}ȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`Ik}))83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L-l}-E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8m}م٘؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥n}؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱o}ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽp}׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - Mq} 1. &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ)r} 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$s})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1.t} #/ &F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G u} 1.Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍv}֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥ew}Պi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&x}&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3y}}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢z}0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ{}⅊0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30|}  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` }}O#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B~} V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ `} `@X a Ӆʢ ʎD  _ɠ %` ɩHH `өL: g% D}:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝E}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L} KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhh}h`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ԝ`} UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LH} éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL } ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ }Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠI}HEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih L}©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!}``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFf}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א& } eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]&} 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&f}fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ }ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢ}ԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐ}=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤ} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 n} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heם}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤ} ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% }L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0}eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e}新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ}iȅȩȩ Lfإ  4  \ +] ¥򄟄}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 } &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ }L 9:枢0 O L :H9Hhh tLHH`h}hLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % }+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO}NEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- }DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/0}1 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐͭ}ͭ@ABC\=>[<+:е<,&%rvnnxc<\}-78s_XV+@D&0d*"'2GJh N}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 } 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" } 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ }L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅ}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ }, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L.}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰}#)iiLɠL4űI&`048ץğ=ȱȄ }`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ}`,,L L PQ 8,L ȱI ѝߠȱ`ԩ},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g }0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOT}RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  <} L L + e +e`e`&&&&&&eee` &}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= } ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ } `  M 8*` 兙 󥐅i祣L{ &L}  0 & L ȑ & L; # )ȱ L })ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] } L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] h0 EXEC TITLE1 RESTORE 10000:CHSET=(PEEK(106)-8)*256:FOR I=0 TO 1023:READ A:POKE CHSET+I,A:NEXT I5 ZX=%0:ZF=%0:PMG=$A000:P0= }PMG+$0200:P1=PMG+$0280:P2=PMG+$0300:P3=PMG+$0380:POTYS=10:POTYK=906 POTYL=-1:POTYR=-1:POTYLX=60:POTYLRX=120:SPORTX=-2:SPORTW }AIT=-1:PALI=0:KOLIZ=07 SKURA=$1F:ILEPALI=4:LICZPALI=ILEPALI:ZALICZX=0:ZALICZY=0:CHUJ=248 NIEJEBAJL=0:NIEJEBAJR=0:ZYDZIA=41 }0 GRAPHICS %2:EXEC INITPMG:POKE 711,SKURA:POKE 82,0:POKE 752,1:POKE 756,CHSET/25620 EXEC DZ:NIEJEBAJL=NIEJEBAJL-1:NIEJEBAJR= }NIEJEBAJR-125 EXEC DUPASMIERDZI30 IF STICK(0)=7 THEN EXEC ZR40 IF STICK(0)=11 THEN EXEC ZL60 EXEC STARTPOTY:EXEC STARTPOT }YR:EXEC KAPPOTY:EXEC KAPPOTYR:EXEC SPORTOWIEC:EXEC STOPPOTY998 GOTO 20999 GOTO 9991000 PROC DZ1005 IF ZYDZIA>=4:POSITIO }N ZX,4:PRINT #6;CHR$(65+ZF):ELSE :POSITION ZX,4:PRINT #6;" ":ENDIF 1006 IF ZYDZIA>=3:POSITION ZX+1,4:PRINT #6;CHR$(67+ZF): }ELSE :POSITION ZX+1,4:PRINT #6;" ":ENDIF 1007 IF ZYDZIA>=2:POSITION ZX,5:PRINT #6;CHR$(69+ZF):ELSE :POSITION ZX,5:PRINT #6 };" ":ENDIF 1008 IF ZYDZIA>=1:POSITION ZX+1,5:PRINT #6;CHR$(71+ZF):ELSE :POSITION ZX+1,5:PRINT #6;" ":ENDIF 1016 POSITIO }N ZX,6:PRINT #6;CHR$(73);CHR$(74)1017 POSITION ZX,7:PRINT #6;CHR$(75+64+64+64);CHR$(76+64+64+64)1018 POSITION ZX,8:PRIN }T #6;CHR$(75+64+64+64);CHR$(76+64+64+64)1019 POSITION ZX,9:PRINT #6;CHR$(77+64+64+64);CHR$(78+64+64+64)1020 ZF=NOT ZF1 }030 ENDPROC 1100 PROC ZR:IF ZX=18 THEN ENDPROC 1110 FOR I=4 TO 9:POSITION ZX,I:PRINT #6;" ":NEXT I1115 ZX=ZX+%11120 ENDPR }OC 1200 PROC ZL:IF ZX=0 THEN ENDPROC 1210 FOR I=4 TO 9:POSITION ZX+1,I:PRINT #6;" ":NEXT I1215 ZX=ZX-%11220 ENDPROC 1300 } PROC INITPMG1305 FOR I=PMG+$0200 TO PMG+$0400:POKE I,%0:NEXT I1306 POKE 704,208:POKE 54279,$A000/$0100:POKE 559,46:POK }E 53277,2:POKE 53248,1201307 POKE 705,$95:POKE 53249,POTYLX:POKE 706,$63:POKE 53250,140:POKE 707,$89:POKE 53251,01308 R }ESTORE 1351:FOR I=%0 TO 14:READ A:POKE P3+I+81,A:NEXT I1349 ENDPROC 1350 DATA 8,8,24,24,60,126,62,241351 DATA 132,34,8,98, }149,153,9,88,16,22,25,16,32,56,1241400 PROC KAPPOTY1401 IF POTYL=1010 THEN POTYL=-1:POKE 53251,0:ENDPROC 1402 IF POTYL>= }1000 THEN POTYL=POTYL+1:ENDPROC 1410 IF POTYL<>-11412 -MOVE P1+POTYL-2,P1+POTYL,10:POTYL=POTYL+21420 ENDIF 1425 IF POTY }L=POTYK THEN POKE 53251,POTYLX:EXEC OTRZYJPOTL:POTYL=10001499 ENDPROC 1500 PROC INITPOTY1510 IF POTYL<>-1 THEN RESTORE 1 }340:FOR I=%0 TO 7:READ A:POKE I+P1+POTYL,A:NEXT I1520 IF POTYR<>-1 THEN RESTORE 1340:FOR I=%0 TO 7:READ A:POKE I+P2+POTYR, }A:NEXT I1599 ENDPROC 1600 PROC OTRZYJPOTL:FOR I=%0 TO 7:POKE P1+POTYL+I,%0:NEXT I:ENDPROC 1601 PROC OTRZYJPOTR:FOR I=%0 TO } 7:POKE P2+POTYR+I,%0:NEXT I:ENDPROC 1700 PROC SPORTOWIEC1705 IF SPORTX=-2 THEN EXEC POKASPORTOWCA:ENDPROC 1710 SPORTWAI }T=SPORTWAIT-%1:IF SPORTWAIT<=%0 THEN EXEC ZNIKSPORTOWCA:ENDPROC 1799 ENDPROC 1800 PROC POKASPORTOWCA1805 SPORTX=RAND(19) }:SPORTWAIT=RAND(20)+51810 POSITION SPORTX,0:PRINT #6;CHR$(79+64);CHR$(80+64)1820 POSITION SPORTX,1:PRINT #6;CHR$(81+64) };CHR$(82+64)1899 ENDPROC 1900 PROC ZNIKSPORTOWCA1903 IF PALI=1 THEN ENDPROC 1905 POSITION SPORTX,0:PRINT #6;" "1910 P }OSITION SPORTX,1:PRINT #6;" ":SPORTX=-21915 SKURA=$1F:POKE 711,SKURA1999 ENDPROC 2000 PROC STARTPOTY2002 IF PALI=1 THE }N LICZPALI=LICZPALI-12003 IF LICZPALI<=0 THEN LICZPALI=ILEPALI:SKURA=SKURA-1:POKE 711,SKURA2004 IF SKURA=$10 THEN SKURA }=$1F:EXEC ZALICZSPORTOWCA2005 IF POTYL=-1 AND RAND(CHUJ)=22007 EXEC KOLIZUJ2010 IF KOLIZ AND ZYDZIA>0 THEN POTYL }=POTYS:POTYLX=SPORTX*8+48:POKE 53249,POTYLX:PALI=%1:EXEC INITPOTY2050 ENDIF 2099 ENDPROC 2100 PROC STOPPOTY2103 EXEC }KOLIZUJ2105 IF KOLIZ THEN ENDPROC 2110 PALI=%02199 ENDPROC 2200 PROC KOLIZUJ2205 IF ABS(SPORTX-ZX)<=%1:KOLIZ=%1:ELSE } :KOLIZ=%0:ENDIF 2299 ENDPROC 2300 PROC KAPPOTYR2301 IF POTYR=1010 THEN POTYR=-1:POKE 53251,%0:ENDPROC 2302 IF POTYR>=1 }000 THEN POTYR=POTYR+%1:ENDPROC 2310 IF POTYR<>-12312 -MOVE P2+POTYR-%2,P2+POTYR,10:POTYR=POTYR+%22320 ENDIF 2325 IF PO }TYR=POTYK THEN POKE 53251,POTYRX:EXEC OTRZYJPOTR:POTYR=10002399 ENDPROC 2400 PROC STARTPOTYR2405 IF POTYR=-1 AND RAND(CH }UJ)=%22407 EXEC KOLIZUJ2410 IF KOLIZ AND ZYDZIA>0 THEN POTYR=POTYS:POTYRX=SPORTX*8+56:POKE 53250,POTYRX:PALI=%1:EXE }C INITPOTY2450 ENDIF 2499 ENDPROC 2500 PROC ZALICZSPORTOWCA2501 POKE 656,ZALICZY:POKE 657,ZALICZX:PRINT CHR$(20);"43< }";2505 ZALICZX=ZALICZX+52510 IF ZALICZX=40 THEN ZALICZX=0:ZALICZY=ZALICZY+12513 PALI=02515 EXEC ZNIKSPORTOWCA259 }9 ENDPROC 2600 PROC DUPASMIERDZI2601 IF PEEK($D005)=%1 THEN EXEC JEBLOL2603 IF PEEK($D006)=%1 THEN EXEC JEBLOR2698 }POKE $D01E,62699 ENDPROC 2700 PROC JEBLOL2701 NIEJEBAJL=NIEJEBAJL-12705 IF NIEJEBAJL<=0 THEN ZYDZIA=ZYDZIA-1:NIEJEBAJ }L=60:EXEC ZMARZOGIEN2799 ENDPROC 2800 PROC JEBLOR2801 NIEJEBAJR=NIEJEBAJR-12805 IF NIEJEBAJR<=0 THEN ZYDZIA=ZYDZIA-1: }NIEJEBAJR=60:EXEC ZMARZOGIEN2899 ENDPROC 3000 PROC ZMARZOGIEN3002 IF ZX>03005 POSITION ZX-1,4:PRINT #6;" ";3006 } POSITION ZX-1,5:PRINT #6;" ";3007 ELSE 3008 POSITION ZX,4:PRINT #6;" ";3009 POSITION ZX,5:PRINT #6;" "; }3010 ENDIF 3011 ENDPROC 10000 REM .OO DATA FONT OO.10010 DATA 0,0,0,0,0,0,0,010020 DATA 0,24,24,24,24,0,24,010030 DATA } 0,102,102,102,0,0,0,010040 DATA 0,102,255,102,102,255,102,010050 DATA 24,62,96,60,6,124,24,010060 DATA 0,102,108,24,48,10 }2,70,010070 DATA 28,54,28,56,111,102,59,010080 DATA 0,24,24,24,0,0,0,010090 DATA 0,14,28,24,24,28,14,010100 DATA 0,112,56 },24,24,56,112,010110 DATA 0,102,60,255,60,102,0,010120 DATA 15,10,10,10,10,10,10,1010130 DATA 240,80,80,80,80,80,80,80101 }40 DATA 10,10,10,10,15,7,3,110150 DATA 240,224,240,224,240,224,192,12810160 DATA 3,66,33,48,208,31,0,010170 DATA 224,160,1 }92,128,131,250,143,13010180 DATA 3,4,8,8,8,56,0,010190 DATA 227,176,136,132,4,4,3,010200 DATA 96,32,32,32,32,255,0,010210 } DATA 3,1,1,1,241,31,0,010220 DATA 0,126,96,124,6,102,60,010230 DATA 0,60,96,124,102,102,60,010240 DATA 0,126,6,12,24,48,4 }8,010250 DATA 0,60,102,60,102,102,60,010260 DATA 0,60,102,62,6,12,56,010270 DATA 0,0,24,24,0,24,24,010280 DATA 0,0,24,24, }0,24,24,4810290 DATA 0,0,7,56,64,252,7,010300 DATA 0,0,126,0,0,126,0,010310 DATA 96,48,24,12,24,48,96,010320 DATA 0,60,10 }2,12,24,0,24,010330 DATA 0,60,102,110,110,96,62,010340 DATA 0,3,101,20,22,23,30,1610350 DATA 4,19,38,28,12,62,37,3810360 }DATA 8,170,142,28,136,218,72,1210370 DATA 2,64,48,140,86,90,64,12410380 DATA 6,24,27,27,43,74,103,4410390 DATA 13,11,55,44 },44,44,57,2210400 DATA 16,216,12,164,244,92,36,12810410 DATA 32,248,216,208,108,12,76,5410420 DATA 0,255,196,213,192,245,2 }41,12710430 DATA 0,255,71,87,7,95,31,25410440 DATA 0,0,0,0,0,0,0,010450 DATA 0,0,0,0,0,0,0,010460 DATA 0,0,0,0,0,0,0,010 }470 DATA 0,0,0,0,0,0,0,010480 DATA 0,60,102,102,102,102,60,010490 DATA 0,124,102,102,124,96,96,010500 DATA 0,60,102,102,10 }2,108,54,010510 DATA 0,124,102,102,124,108,102,010520 DATA 0,60,96,60,6,6,60,010530 DATA 0,126,24,24,24,24,24,010540 DATA } 0,102,102,102,102,102,126,010550 DATA 0,102,102,102,102,60,24,010560 DATA 0,99,99,107,127,119,99,010570 DATA 0,102,102,60 },60,102,102,010580 DATA 0,102,102,60,24,24,24,010590 DATA 0,126,12,24,48,96,126,010600 DATA 0,30,24,24,24,24,30,010610 DA }TA 0,64,96,48,24,12,6,010620 DATA 0,120,24,24,24,24,120,010630 DATA 0,8,28,54,99,0,0,010640 DATA 0,0,0,0,0,0,255,010650 D }ATA 0,54,127,127,62,28,8,010660 DATA 24,24,24,31,31,24,24,2410670 DATA 3,3,3,3,3,3,3,310680 DATA 24,24,24,248,248,0,0,010 }690 DATA 24,24,24,248,248,24,24,2410700 DATA 0,0,0,248,248,24,24,2410710 DATA 3,7,14,28,56,112,224,19210720 DATA 192,224,1 !}12,56,28,14,7,310730 DATA 1,3,7,15,31,63,127,25510740 DATA 0,0,0,0,15,15,15,1510750 DATA 128,192,224,240,248,252,254,2551 "}0760 DATA 15,15,15,15,0,0,0,010770 DATA 240,240,240,240,0,0,0,010780 DATA 255,255,0,0,0,0,0,010790 DATA 0,0,0,0,0,0,255,25 #}510800 DATA 0,0,0,0,240,240,240,24010810 DATA 0,28,28,119,119,8,28,010820 DATA 0,0,0,31,31,24,24,2410830 DATA 0,0,0,255,2 $}55,0,0,010840 DATA 24,24,24,255,255,24,24,2410850 DATA 60,126,207,239,255,207,110,6010860 DATA 0,0,0,0,255,255,255,255108 %}70 DATA 192,192,192,192,192,192,192,19210880 DATA 0,0,0,255,255,24,24,2410890 DATA 24,24,24,255,255,0,0,010900 DATA 240,24 &}0,240,240,240,240,240,24010910 DATA 24,24,24,31,31,0,0,010920 DATA 120,96,120,96,126,24,30,010930 DATA 0,24,60,126,24,24,2 '}4,010940 DATA 0,24,24,24,126,60,24,010950 DATA 0,24,48,126,48,24,0,010960 DATA 0,24,12,126,12,24,0,010970 DATA 0,24,60,12 (}6,126,60,24,010980 DATA 0,0,60,6,62,102,62,010990 DATA 0,96,96,124,102,102,124,011000 DATA 0,0,60,96,96,96,60,011010 DATA )} 0,6,6,62,102,102,62,011020 DATA 0,0,60,102,126,96,60,011030 DATA 0,14,24,62,24,24,24,011040 DATA 0,0,62,102,102,62,6,124 *}11050 DATA 0,96,96,124,102,102,102,011060 DATA 0,24,0,56,24,24,60,011070 DATA 0,6,0,6,6,6,6,6011080 DATA 0,96,96,108,120,1 +}08,102,011090 DATA 0,56,24,24,24,24,60,011100 DATA 0,0,102,127,127,107,99,011110 DATA 0,0,124,102,102,102,102,011120 DATA ,} 0,0,60,102,102,102,60,011130 DATA 0,0,124,102,102,124,96,9611140 DATA 0,0,62,102,102,62,6,611150 DATA 0,0,124,102,96,96,9 -}6,011160 DATA 0,0,62,96,60,6,124,011170 DATA 0,24,126,24,24,24,14,011180 DATA 0,0,102,102,102,102,62,011190 DATA 0,0,102, .}102,102,60,24,011200 DATA 0,0,99,107,127,62,54,011210 DATA 0,0,102,60,24,60,102,011220 DATA 0,0,102,102,102,62,12,1201123 /}0 DATA 0,0,126,12,24,48,126,011240 DATA 0,24,60,126,126,24,60,011250 DATA 24,24,24,24,24,24,24,2411260 DATA 0,126,120,124, 0}110,102,6,011270 DATA 8,24,56,120,56,24,8,011280 DATA 16,24,28,30,28,24,16,012000 PROC TITLE12005 GRAPHICS 2:POKE 752,0 1}12010 PRINT #6;"ZWEGLAJ OLIMPIJCZYKA '"12011 PRINT #612012 PRINT #6;"BY MGR INZ. RAFAL"12013 PRINT #6;"MSX BY MI 2}KER"12014 PRINT #6;"KOMPILAT BY SIKOR"12020 PRINT " PRESS FIRE (CZYLI OGIEN)"12025 PRINT " BO TU SIE ZWEGLA 3} OGNIEM..."12030 IF STRIG(0)=1 THEN GOTO 1203012099 ENDPROC ESS FIRE (CZYLI OGIEN)"12025 PRINT " BO TU SIE ZWEGLA Alm} WCHUOPOLLLRODWARGARGGENSTOSMASZMASGDZIMASMASADSTOLESRSZCZCHSECHFAJCIPYHHYH5} @6}7} !q6-6-'6-AS36-@9@,T-@c68,-g q 8}B'g\ #B.6-+F:A,&@,$AVB-A#F"N%R \ A1  +@AR@9}90@@@K@e0@@0@@@  AV'AV:}2(2 ' Odnajdz wszystkie czensci piwa++(# aby zostac bohaterem ery burzy @p( A 2 ;}@3-@@92@f@@[2@@h@@}2@A @<}@-@A 4;-@327 ; 5$< - @ $F=} - @$P""? GENSTOSC:REM GRANIE ODTONTZ6-R:,@wd"@ A@n"@>} A`x"@ A"@ A A02 1!"@u)"A/6-&@2?}$#AD*AQ# A$2 1!"@u)"A/6-%@2$#AD*AQ# A@}$2 1!"@u)"A/6-&@2$#AD*AQ# A$2 1!"@u)"A}A/6-%@2$#AD*AQ# A$ @X`(Ҡ٠١>(A game for B}GRAWITACJA zlotX(of the year 2023 roku"( ("(Code: mgr inz. Rafal-(-("Gfx (chars of czesci piwa): Alex_D*C}(*(Gfx (chars of others): tez mgr.((Sfx: i tu tez mgr)()(Gfx (chars of bohater): Alex_D( ( (( WDD}US Š T:,"@A8$#"@  A0# @K @`6-%@% A/ @pE}=-@A K @#"@ A@# @K @`6-%@% AP/ @p=-@F}A K @#" A# @"K @`6-&@% A/ @p=-@A K @G},#" Ap# @6K @`6-&@% Ap/ @p=-@A K @@RYSOWANH}IE LASU 'K'J-@O:,%@TK6-H:,$@16-H:,$@ K6-P:H:,$@,^! 1I}@2! A@h -r("@ @K( A| @k  A`$KASOJ}WANIE LASUK-@+-@ 1-@ @ D H K$CALY LAS PRAWO;6-%@6K}-' A 1 @p; A $CALY LAS LEWO;6-&@6-@' A 1 @p; A L}$CALY LAS W GORE;6-&@6-@ ' A 1 @p; A $CALY LAS W DU;6-%@M}6-' A 1 @p; A &$0//FOR U=0 TO 7:PRINT MASZ(U);",";:NEXT U:?: ADO6-H:N},$@16-H:,$@ 91E@2O AI%"H:,$@P!%@%$N - @>:,O}XD6-#-@28,"@@6-%@D Y"@ BbD6-#-@P}28,"@@6-%@D c"@ Bg6-P:H:,$@,l8, Av6Q}-%@%A($-6-&AD @Q-? "PODNOSZE ";A68,-@ A$1-@R}( 1? "POSIADASZ: ";@6-#-@28,"@@6-%@ #6-#-S}@_8,"@( & B46-%@>( \a@"*@_( "@T} B$'0,0,0,0,0,0,0,0'0,24,24,24,24,0,24,0'0,102,102,102,0,0,0,0'24,36,60,24,126,90,24,36'U}24,62,96,60,6,124,24,0'0,102,108,24,48,102,70,0'28,54,28,56,111,102,59,0'0,24,24,24,0,0,0,0'0,14,28,24,2V}4,28,14,0'0,112,56,24,24,56,112,0'0,102,60,255,60,102,0,0'0,24,24,126,24,24,0,0'0,0,0,0,0,24,24,48'0W},0,0,126,0,0,0,0'0,0,0,0,0,24,24,0'0,6,12,24,48,96,64,0 ' 0,60,60,82,133,161,137,126!' 66,164,168,80,42,85,14X}9,10"'0,131,39,139,39,133,5,7#'28,42,85,107,127,85,42,28$'0,66,126,66,98,118,126,60%'##248,168,0,237,133,237,16Y}9,237&' 24,24,24,60,126,122,118,60''0,10,45,19,47,23,39,7('0,60,102,60,102,102,60,0)'0,60,102,62,6,12,56,0*'Z}0,0,24,24,0,24,24,0+'0,0,24,24,0,24,24,48,'6,12,24,48,24,12,6,0-'0,0,126,0,0,126,0,0.'96,48,24,12,24,48,96,[}0/'0,60,102,12,24,0,24,00'0,60,102,110,110,96,62,01'0,24,60,102,102,126,102,02'!!0,124,102,124,102,102,124,03'\}0,60,102,96,96,102,60,04'!!0,120,108,102,102,108,120,05'0,126,96,124,96,96,126,06'0,126,96,124,96,96,96,07'0]},62,96,96,110,102,62,08'!!0,102,102,126,102,102,102,09'0,126,24,24,24,24,126,0:'0,6,6,6,6,102,60,0;'!!0,102,108,1^}20,120,108,102,0<'0,96,96,96,96,96,126,0='0,99,119,127,107,99,99,0>'!!0,102,118,126,126,110,102,0?'0,60,102,102_},102,102,60,0@'0,124,102,102,124,96,96,0A'0,60,102,102,102,108,54,0B'!!0,124,102,102,124,108,102,0C'0,60,96,60,`}6,6,60,0D'0,126,24,24,24,24,24,0E'!!0,102,102,102,102,102,126,0F'0,102,102,102,102,60,24,0G'0,99,99,107,127,119a},99,0H'0,102,102,60,60,102,102,0I'0,102,102,60,24,24,24,0J'0,126,12,24,48,96,126,0K'0,30,24,24,24,24,30,0L'b}0,64,96,48,24,12,6,0M'0,120,24,24,24,24,120,0N'0,8,28,54,99,0,0,0O'0,0,0,0,0,0,255,0P'0,54,127,127,62,28,8,c}0Q'24,24,24,31,31,24,24,24R'3,3,3,3,3,3,3,3S'24,24,24,248,248,0,0,0T'24,24,24,248,248,24,24,24U'0,0,0,248d},248,24,24,24V'3,7,14,28,56,112,224,192W'192,224,112,56,28,14,7,3X'1,3,7,15,31,63,127,255Y'0,0,0,0,15,15,15,1e}5Z'%%128,192,224,240,248,252,254,255['15,15,15,15,0,0,0,0\'240,240,240,240,0,0,0,0]'255,255,0,0,0,0,0,0^'0,f}0,0,0,0,0,255,255_'0,0,0,0,240,240,240,240`'0,28,28,119,119,8,28,0a'0,0,0,31,31,24,24,24b'0,0,0,255,255,0,0,0g}c'24,24,24,255,255,24,24,24d'0,0,60,126,126,126,60,0e'0,0,0,0,255,255,255,255f'%%192,192,192,192,192,192,192,19q}B%DOS SYSB*)DUP SYSBSAUTORUN SYSBPDUPA LSTBA4AUTORUN BASBMAGIC OBJBPCOMPILERCOMBXRUNTIME COM@SPIELE TUR VPUTGET TUR _TURBOIO BAS+iDIGILOO BASPMMOVE TURIRONIA BAS'DUPA LST2g'0,0,0,255,255,24,24,24h'24,24,24,255,255,0,0,0i'%%240,240,240,240,240,240,240,240j'24,24,24,31,31,0,0,0k'r}120,96,120,96,126,24,30,0l'0,24,60,126,24,24,24,0m'0,24,24,24,126,60,24,0n'0,24,48,126,48,24,0,0o'0,24,12,12s}6,12,24,0,0p'0,24,60,126,126,60,24,0q'0,0,60,6,62,102,62,0r'0,96,96,124,102,102,124,0s'0,0,60,96,96,96,60,0tt}'0,6,6,62,102,102,62,0u'0,0,60,102,126,96,60,0v'0,14,24,62,24,24,24,0w'0,0,62,102,102,62,6,124x'0,96,96,12u}4,102,102,102,0y'0,24,0,56,24,24,60,0z'0,6,0,6,6,6,6,60{'0,96,96,108,120,108,102,0|'0,56,24,24,24,24,60,0}'v}0,0,102,127,127,107,99,0~'0,0,124,102,102,102,102,0'0,0,60,102,102,102,60,0'0,0,124,102,102,124,96,96'0,w}0,62,102,102,62,6,6'0,0,124,102,96,96,96,0'0,0,62,96,60,6,124,0'0,24,126,24,24,24,14,0'0,0,102,102,102,10x}2,62,0'0,0,102,102,102,60,24,0'0,0,99,107,127,62,54,0'0,0,102,60,24,60,102,0'0,0,102,102,102,62,12,120'y}0,0,126,12,24,48,126,0'0,24,60,126,126,24,60,0'24,24,24,24,24,24,24,24'0,126,120,124,110,102,6,0'8,24,z}56,120,56,24,8,0'16,24,28,30,28,24,16,0 Nt A -2(@BRAWOD(@gdyz[(@{} t(@ !N B0u " ( SLOD 1u "@ ( PROMILE 2u "@|} ( GAZ 3u "@ ( CHMIEL 4u "@ ( WODA 5u "@ ( GLUTAMINIAN6u "@}} ( EKSTRAKT 7u "@ ( PIANA 8u$&#(PLEASE WAIT, DECRUNCHING...&$ H:AUTORUN.BASx)"BP>N-@%@(-->RN/<6-?:<Bi`,!M@/=(T:,WN6-P:F:A},'@,\N @)!BPfNt-@%@( 3-@G-@%@Q( cB}2yt6-?:<Bi`,pN:-@%@!(---->% 7B2H:$\vw6-@6-@-@}B68,-@V-@@g68,-&@k w6-@fv #B`zvM-@@1")6}7<,.>:,- M@@K:v +@A1A CAUA}i-@x68,-68,-@ v--@@(")67<,.>:,- vjj104,173,11,212},109,11,212,109,11,212,109,11,212,101,20,141,23,208,229,20,229,20,141,22,208,173,132,2v208,228,96vdd104,104,104,170,1}04,104,157,66,3,104,157,69,3,104,157,68,3,104,157,73,3,104,157,72,3,76,86,228v< 6-C:,6-B`$6-B`r06-BX@}<6-B`v-A7P:@$H:,%@,I,@@0q/AY$H:,@h$H:,}2A&@@ v5AR@5( Magic Painterv&&( Copyright 19}84 by vR-(% Ralf Fischer and Harald ManseicherR( Press Trigger to startvg-@(68,-&@}968,-%@= R68,-@g68,-v,@@p'/@@9,@w@pK}/@w@u]/@s@o,@@p/@@u/@@v%2AU@@}G2@AT@@i2@AS@@{B7h@6-?:C:,,w-@32}7 IA@[AP@RmAQA8ARAATw6}-F:A,&@$&BBy46-$AVL-%A%A@X\ h6-@zA@AY}@FwzB2w@'B2H;-@?"Q%A%%U gA@z8,8,20,99,2}0,8,8$w`6-@+-Bb@Bb@?-@G%K Y6-%@] `$ D:MAGIC.BAS99,2yp{HH шjnjn**H34h`hh```HH шj.j.hh`ЊJJ}m33m44&&&&&&3eύ34eЍ4&&&&3eύ34eЍ4`` +HH) )mhh}ҍ3э4 p`п`hhhhhҠэ4ҍ3 ͍3̍4 p`͍ͮ3̍4 p~} ~ | pҮ~Uȩ~ ~ 6 *Ү~}` LފL8 L LX~ p`͍3̍4`ihЭ*)hhx; KU l  }`LL jLx VLx jL VLɟ `Lc `_i ʈ}`hh׌h֌`ӌԌ Όȅ```׌Ԍ``hhԌhӌ`֌׌LΌhhhhhaam}imi`HH Խ ԍhh@Hލ ԍh@0=H  ԍh@hhhhaamO>><s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<11111}{UUUU *U@PTUTP@U* 0b1<=?<GD0EHI B} V`}   Turbo BASIC XL                }                                 }Version 1.1 (C) 1985 Frank Ostrowski0} ! @} RLl LwD1:*.*P:E: VH) h(`h}h@,lHH HHHHHHӍl"H HHl !`GHFHJ*K+\`* ` ӥԤ`pp@F]!B}A8!452"/"!3)#8,#ompilerc &rank/strowski` a$%Ȏ$!%!xөˍ } e` e`@X ` ~   ʎDL ՠԢӱԙӹ`֝DEIH}B V0ZڝDa۝E8օܥׅݥܝHݝI V02Ӡڑڑ0 BLVl `= X}ixD!YiE!80!1T  T \L/ 䥐 LZ Keine FehlerProgrammlaenge = 8o"} Bytes GL# ĩ 䛛Bitte eine Taste dr cken L# ĩjB JKD E 0٩̍` !}0` StoppedLL '!`HHBHI ąhh`旽`L5 ' '0 ' å}ȥȥȥ ,© ĥŔHȱhL`Ԅթօׅآ&եeօ֥eׅץe؅` ٥ ¥ ¥} ¥`HJJJJ h) 0HHH hhh`  F¥ =¥HJJJJ Fh) !`:eileO™!BHIԝD}E L¥ Kein Basic-ProgrammLڥ۰ 'ܥݰ- ' ' ? ' ' ' ' ' 'iڐ۰`o}"ܙݙ `ŭJ++i2R|+\Ng\+++c|dHyks}|cc.t++i+`bfzvR+++++C|"u }Speicher vollLei8eieiee褩%Ʀƨ}` B 0`H I/O Error - h L ' 'Ȧ䖐Ȅ !Å}Թ"Å ť æّ`l Aƛƛ HiH Eh h L1ɭHisHL&Š Őƅڽ'}ş`Ɯ ŅԽŅ L]ť<.ڈX"k87 9;?੃ 驏 饞7<:ƛƛșڥșڄLP H }0.) ` &Ơ & H H` HIH hۆ `e (iLǽǽǽǽǽ"}"țILFFȕ ȦǛǦǦǛǛǡǛǛǦǛǛǛǛǛǛǛǰǰǰǰǡǡǡ#ǡǦǽǛǽțǛljȉȉȉ#} ,(""(2000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(0000}000--**2*(22(2222222FL驃 ǩFL驃 驗 LFLj ǩL驀,}ɏɓ ɕ LǩLjȩ 驗Lj FL驃 驟 jȩL`FƠƠ 驉 jȩL驫,,ee}H 馜Ɯڹۅh LǠ EL1ɠ Eũ L1ɘH Ǥh8f@iiz (iLHLhhLm}ؙěƛLȊȹؙěƛL8 ː#H Integer <0 oder >65535hԅթإԙإՙLȩ ƛgɻbɯ\[ɖX}ɁSɌOɎKɔGɚXɜWɘ9ɀ<ɂNɃVɄYɈ\ɉcɊɋ-ɍɆɓ ɇoɅL;ě`ɃLLLˢ,,Ƀ}LLL^LȹF ɗUЮ,L-ɩLLLɹɅ IL-ɹɅ積 ILȊ8$יL}șؘHؙěƛh`Lɩ,,LȹɃ ˈiإԙLʹV W Zл,,ة}L-I#HɠA6'؅չ؅ԢIL-ɹؙěƛLLɹ(iL-ɩL-ɘHȹ؅ȹ؅ *!h`'} hhՠ L HH` 䅤 ř 轊轊) ½  nicht compilierbar`  ***} MUELL ***LLISENTECONNELOASAV4CSAV5CLOA7ERROS*URENUVDEWDUMXTRACTOKEN  :, ,Lhh}ՠ LHH`H QJSBh` L Compiler FehlerL%ɂɸɠؠL}ěAت0װ)? Խչ L婢 ȹ )? !ěп`8P,,,,ȹ؅ȹ؅}4@.f"g6hLiOj26FɀQɁJTPq,p,o,r,C,BL!sv@ ԩt,u,yH }6hL!x,wH Lm楂ń兰!0$iԐń児ߩ àԈ 8 驠 (  ;}?L!F 橠L6ȹ؅ȹ؅ ذ А,  ,LL6hhH hLU L 8 驠 ( ȹ}؅ȹ؅Hi⢆ àhL!U,,, 詄,L6 ,),I 驪 驘 驨 驊L} !"#$%&'()*/012346=>ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_5789:kl†,-+ ÈƇ.}L>}!.8NQ 驠,,$ ȹL L 颺,,ԩ 6詤L6 橱L6멢Ⱦ 6<,L!m,nH ȹ }hL!, L=,,,,,  QJSA`ު 阆٦` Ausdruck zu komplexLHH }àّٙhh`ئ`, 魁I& L= zȤɉ  L L XL L= }L- p L奝` LLL L꥝ 줗  Hdqr p> +HT V=,Ɂ%؅ԭ؅ՠ} ȱԪ 6+ L L $0 L 饙3 ` F HL L驅L驕,H zh ~} ɉ` E)  ذА جL- LL E2 ذ'#А ج -L2멄L} LL Zahl>255` zȩ LL!,,,H B LhL  hi  ` E멑 zȩ 륝 z L'L E LL}魁 H ,L L魁 LL #L餗 H , L HH 1hh`$,%H E LhL,H E멑 } ~ LhLLé,H hȥȥ`8Ƌ` `iȥi`H h DO fehlt` REPE}AT fehlt` WHILE fehlt` ,H hгȱȱLLL,H pɄ 񩄠  L婥 hL饀HH }ĩ  hh`ԥՠ8԰ձ ĩ L{ h L  Ħ {` zȤؠ }馕䔰 'LB` Ħ {`:LȱHeȱih` h ` IF fehlt` 2 H 饝}٢ æّ` E멑 t$0= L&L ŤH L phH t Lh 6(() 驰 6 ĩL } Ƭ*L FOR fehlt` + 饝` p L, 饝`-,J,.H h,KH hH 饝h` B L}/ 0L E L1L 쭁2,6,4H hHi 饝h` p ة9,:;LH 렌 =h,8H } = 렊 = hL魁6=,TH! H h?7 驠 L L H HI} Hۅ` L魁?L@,A,B,C,D,E,F,GH p LhL 렌 =I,HH 레 = 렊 =L pɄƛ L ĥ}b:j3L_L,N(' zȥ7ج ٥`P,R(/ ٥` ON.GOTO/GOSUB expLƛ }1LL LƚƚƚWL } Turbo BASIC XL Compiler Version 1.1 ===================================Welches Programm soll} compiliert werden? Geben Sie zuerst die Laufwerksnummer zwischen 1 und 8 ein, und w hlen das Programm dann mit den Pfe}iltasten , ,  und . Dann RETURN dr cken.Control D = R ckkehr zum DOSControl R = Reboot )LL}19卣 H $!h)!! ĩBD EJK  '0$ '  'ɛ撦? Ǝ LhT }T ĩLXixYii Ǝ   ɛI'-#4=0+&*"1}9L)0dž )L䒰D :)i  . (8 !BDE}JK ĩ}  L ԠʯΠ J LL ӠʯΠ JL o")1 )  } eŀ偐LM' :'7? / LLLL6墄,ȱuuL ,Lȱȱ }LL,ҩȱӠ$0 ,Lȱ iiҠLՆԥ֥נȱհ } J Zeile fehltȱ֪ȱ`ܹ J Label fehlt`Ԇե֥נȱȱհ8ְױօօ`ȱ}ܑݑ 7L LH Nh-:H NEXT fehltL EXIT ohne ...L LOOP fehltL UNTIL fehlt}L WEND fehltL# N ENDIF fehlt` Filename fuer das compilierte Programm?1 D}  :.CTB@ !0A+19ߐ~ © ƥLɛ%0:A[H h У.C}TBD:TUZ[ oT"U8oX"Y } Noch einmal speichern (J/N) ? !)_JN`LG R 0`H I/O Error - h LG 0` éȑ}ȑȑ 驛 Ģ éȑȩ` ""!B+W!k!}Tɩf{KH-}2(*oi.LG;3609JNxPSPS};wU >kQt3J,HNjv;}>WToU!J 1!^u$`@!r4 %gs}}8 4"+F 1!^u$`@!r4 %gs:} }  Lll L"! L"! VL"! l Lq!! "!LD:*.*S:P:E:l"!q"H) }h(`ӅԄՠ`ӅԄՠԨ`L)ӑ) `Ӣhh@,lHH!HwHHHHHӍl"H!H}yHl !`GHFHJ*K+\`* `Ӧee褌%ƉƋL"!}Ӡȱȱȱ㦌L"! ` ` `2a$%Ȏ!!xө~!!} ` `@X ` ~  } Ӣ ʎDy` SLD1:AUTORUN.CTBՠԢӱԙӹ}`֝DEIHB V0Z3ڝDa۝E8օܥׅݥܝHݝI V04Ӡڑڑ0} BLVl `˩`80 ` .JJJJ)iFiFi1FicFi'ȐȦoFiUȐFii}Fi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL`I))83}Ԥԥդե֤֥פץؤإ٤LK6"ХLaLaLa}E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L8٥إץ֥հ'I8م٘؅ؘׅט}օ֘ՅLؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥؅ץم؆لԘ)q} ` ? 7i ? %!Ls`ԅՅօׅ؅م`ԍՍ֍}׍؍ٍ`ԍՍ֍׍؍ٍ``, Խսֽ׽ؽ` ,}`+ĕ ԅ)@ޥ)JJJe)e e Je0F g} Lm8`@ԠՈքׄ؄`==W3>Tvb>2b'?h`06?2'A?%C4Vu?f'70P@U??CBH ? & ? QL}m8`0 I@ԥ) oǢҠ 1  ؠ e Q ?P ¥Ii )ԅ +ĕ}Lm`@"wf?IWQpIG?9 Wa9cU? 0d? 9`?BXGB?7?()q?D>DIh8E?hyx? )D?@ (1V?}wD3331??xS48`$)Ԧƅƅƅƅƅƅ mť)8@0$Յ)e)e F} 䰃 e Q F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅ}P 1 ;  e°0 Q (Vŕ ԅԥ  ƕ m`8``0?i? Q }ԍՍ֍׍؍ٍ * m N ǥ N 0 -åJeF g`L ) e٥eإe}ץe֥eՊi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&}&&&*&&&&*``ۄܱ T **m ȰҠݤܱEۅڦڱ= bܥeƥ}iեL@ ` **)]P` 00`` ( ((((((((8`W)ߥ & &e} &߽aȅŊِ׼Ȅ⹕ȍqȅJJJJ&eXޥeYߥ䥈 9ȅFfЎᰈ Tȍ`Ȅ佘ȅ }M 8*` Ȱi祍La L< ʘ0  L } ȑ  L ʘ# ` |ʠ)ȱ Lt nʤ n |ʠ)ȱ)} `ʠ)ȱ ʆ8ƍ0eސ`Ɗ8ް`)ȱJJJ```=}`]``` H} h`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)Pe}ԅԘ)eԅԽeՅ՘)JJJ}˅ԥ}˅`)JJJeԅԥ)PeԅԹeԅԹeՅդЧ` 0@P`'Nu pX@(#}d,X L `8` ¥E)))8@8e0 څۅ܅݅ޅ߄ԠF0y ޥy ݥy ܥy ۥy} ڥy و0ǠF0y ݥy ܥy ۥy ڥy ٥y ؈0ǠF0y ܥy ۥy ڥy ٥y إy} ׈0ǠF0y ۥy ڥy ٥y إy ץy ֈ0ǠF0y ڥy ٥y إy ץy ֥y Ո }0L`8`E)))8i@0 ڄԠ ( !   L*  } &О ( !   L*  } &О ( !   L* &О  }( !   L* &О ( !   } L* &Оd ( !   L*} &ОL6 e e e e e i } } } } } } } ǭ m m m m m m  } }} } } } } ǥՅօׅ؅مԅՅօׅ؅`hh !LHH`ؠ}ɀhhHH֥ץ?ȱȱӰ8ְױօօ0LB Fehler - à  in Ze}ile  ($8H h ) Programmende : os, un oder oad ?@ !D L RL L Filen}ame D: Jȱɛ):ȱɛ.ȩCȩTȩBȥ SLȹD:LKHJJJJ h) 0:iLp 8}` B 0`L<馒撥ԝޥ՝*ޥ֝Tޥם~ޥ؝ޥٝ` ƒޅԽ*ޅսTޅֽ~ޅ׽ޅؽޅ`ƒޅ*ޅTޅ~ޅ㽨ޅ}`撝ޘ*` ӥԝإ՝٥֝ڥםۥ؝ܥٝݥ`LT؅Խمսڅֽۅ׽܅ؽ݅`؅مڅۅ܅݅`}ȱȱȱȱȱ`ȱȱȱȱȱ`٩@ةڝ۝ܝ`թ@ԩօׅ؅`  }LQȱȱȱȱȱ`ȥȥȥȥȥ` wLH wh LQԄՠԅք` L } !ԝD՝E֝HeםI L`Laee 8厅叅eeL!)}L)`x,Ң⅌Ҙ襉ҥ `8$ L8$ ȍ` JKiLH h)}I ! SLJUVT`T L) ʥԤհ` L ` !L8, !L8 ` iLJ놈 LJ놈 ,LQ} HԝDEILꆓBJKԝD՝E CL8醈 B LJ놈& LM J릓N}LJL)NLM%L L j L `L=! Sp D o 8} LpL ,#,$,!pLL ,HBDEhHIL oL8馓HIBL !L8ɅĈeɐ ň}`֥ԅԅՅ,`$8n!?! D i\ iU?! iD iE=D iH ih8DHEI}HI C ,!L `L= JhhlԄե֥נȱհ  ȱօȱօ` L=Ԅ՘0) }ȱհ ȱe懰楆ƇƆ`L)L=醈ɛi懠,ɛ󥆦 Seօ` Lt Ԥբ!}H e" hLQL=醈 *? , DEHI ` DLr 4 e"ɛ ,ЬLQ DL"} 4eɛ SLtI L L L L L@ ; ` ; ` ; #} ` ; m` L=@@ȅ@`I`)` ; USN ; FG ; ?: ; $}201 ; &' ;  ;% ;L Lå ` : : :ڰ :ΰ :ǰ :оE%%} jE `0``֪ (ϰ`(8`8` &}ԤՅ` e"4 L= Ԅձ80  &ԅ L  eԪp`L) HJJJJ '}h) 0:i`Ԅ 0 ["ȱ)ȥ,  ՅԄ֩`?Ԣ )ɠڭ ) ڕL(} ^ L)8@L` )8@D:)8@-٩֔$ሄL` )} ^Ű$` hŰ` &ư` Rİ` Vİ ` rð` ƐL=0L L ;&)ԥ)8@עJjH@M*}C)JJJe)e F ¥P & F Q LL)HHHHHH Vİhhhhhh ðh+}ԅ` L %ઘ%ᨊ` ઘᨊ` EઘEᨊ`<|'gԥ0L=`  *  &L_,,}ڄ  eڅԥeۅհ"8څ֥ۅא8ܥݰ`۠Q%0ԅإՅ٥ަ0%Q% L-}ե0Lڤ`օנ6&֐ eו`L)ԘբՅ Ԣ Յ֠&&֐eܥe.}ېڈ $0!ee80å/8ܥ۰uڕ0eUiV`T/}UV`8UV`eTi`8TȢ` !L8醊 æ f Ŋ :ƒޑȽ*ޑ0}ȽTޑȽ~ޑȽޑȽޑȥԑȥՑȥ֑ȥבȥؑȥّȥȩhihHiH&HHH wh Lhh`hh`81}` L=醊 f ŊHȱȱȱȱȱ妊 w Qh LhhHHe`*ȱȱ2}ȱȱȱjEE `EjI ` p D il ie o"p"q" i i i i i io"83}o" K膖  Lo"L=؝ٝڝ۝ܝ륄Lei  4}`L=饏őŐ%Ƒ8 Ƒ` f,L= fhhHH`, :hihHi5}H`` J :hihil  ¥Ӡ L  @Մ$ Q` Q` QLQH 6} h @Յ՘JJJJ y) 0:i`AVC2 5 - <) - < 7}L L e e`e`&&&&&&eee` &&eee&*` u8}8)Ӱ% hhȱԅȱԅl ʰԤզ`hhheӨhiHH` u u88Ӱڪ :(jheӑhi Lh9}פօۄڠ܄ݠFfؐeڅܥeۅ0&ۈ`L >ӆiHi0Hƒiֹ*i0Ѕ &ݤݥ &e܅ܘe݅:}hhLlӅ؄م܄0օצӽАԥեܤ Q `ƒ*ޅޅ wإ;}ٰ5֥װ+ eܥe*ݨ &eܪeeըeԐ`L L L ӆ 4Ԥզ L_ ӆ Ԥզ L<}_ L LL=ӦԆՆֆ׆Lw Y٤ ۘ` Y  L~ Y ې Hh`פōČԅe=}Յe &"8ӥب`ƒޅ*ޅ L=؅مƒ8*ޥ֥אeԥe`>} w㰶H wֆ׆h8Lԩ!HHֆ׊HHʽ޼*ԆեHL!àLLeԐ `8԰L)?} w㰶H wֆ׆h8Lԩ!HHֆ׊HHʽ޼*ԆեHL!àLLeԐ `8԰L) AXMIRROLOADPIDECLARXKLAPXKLAPPXKLAPPXCOPYXCOPYYCOPBGETPIPUTPIEFFEKTCOLCOLCOLYXDEMCO"A}LYCOPYYCOPYLEERTEXTEIE;9;g< < b= "B} >!?K?b@"C}=h> U:dSPIELEREIEN MIT DEMn MOVE BEFEHL IN TURBO BASICs------------xVON "D}WOLFGANG CZERNYTPPEPPPPPPPPFTO&&"E};A,;A,;A,467@,.%67A,.467@,.467@,.%67A,.46"F}7@,.467@,.%67A,.467@,.QBTOP%%9U:@,%A8@C:,A"G}%%9C:,U:@,%A8@A$$Y@ DIES IST EIN##YA TEXTFENSTER  MA"H}%%9C:,U:@,%A8@A  MA*P4Q>TO-@@P -Av"I}6@@119C:,%&@@U:@,%Av&@@   MAPQTpOP -"J}A8@6@@119C:,%&@@U:@,%Av&@@ PPQTXOlPv "K}-AvA8@6@@119C:,%&@@U:@,%Av&@@ PPQT@OTP^"L}-A8@@@h))9C:,%U:@,%A8%@@r | MAPQT(#O<#PF#"M}-A8@Av@@P#))9C:,%U:@,&A8@%@@Z# d# MAn#Px#Q'T'O$'P.'"N}-A8'??9U:@,%$@@U:@,%$@@%@ @ B' L' MAV'P`'Qs'Tt'O"O}'P'-A'??9U:@,%$@@%@ U:@,%$@@@ ' ' MA'P'"P}Q'T*O+9C:,U:@,Av +Q.T.O.9U:@,C:,Av.Q2O2AdAU"Q}2<2'A@@'A A2AAHM@2'AA'A AH3A"R}@@M@3'AAH'A @@3AAM@"3=F:Ad,AU,3Q63T"S}:O:*6-@6-@p'6-*: +@16-@ :-@A@:)6-%@"T}!@P)6-@:6-'@6-:6-$E:,6-$G:,:%!AQBQ@: ,%%:$$6-+%,'"U}@$E:%%@,;$$6-+%,'@$G:%%@,; /%%; $;Q D:TURDEM.TUR%%:$$6-+%,' h&A@ T - %PUT und %GET Demo - - von Frank Ostrowski -(&W}Td(%PUT Demonstrationn9A,x(Creating Array-@A 68,-c T( PRINT &X}FileT 6-`--@@ D:RNDTST.DAT-@A(@8, @&Y}**( PRINT: +`&,'@P SekundenT 6-`--@@ D:RNDTST.DAT"-@A&Z},@68,-6 @@J**( INPUT: +`&,'@P SekundenTH D:RNDTST.DAT^L D:RNDTST.&[}DAThTr( %PUT File|T 6-`--@@ D:RNDTST.DAT-@Ac@8&\}, @**( %PUT : +`&,'@P SekundenT 6-`--@@ D:RNDTST.DAT&]}-@Ad@68,- @**( %GET : +`&,'@P SekundenH D:RNDTS&^}T.DAT&L D:RNDTST.DAT D:PUTGET.TUR @**( %GET : +`&,'@P SekundenH D:RNDTS$.:TURBOPRUEWER-----------------------Turbo-I/O V1.0*`}von Julian F. Reschke(c) Happy Computer 1985-----------------------;@9,$6-.-@*a}@98"67<,.>:,B 6-%L VA5(Fehler!`JJ104,104,104,10,10,10,10,170,104,104,157,6*b}6,3,104,157,69,3,104,157,68jDD3,104,157,73,3,104,157,72,3,32,86,228,132,212,169,0,133,213,96t~Zur Demonstration:*c}1 +@$'0@1@-A@#,#/A&A *d}-A@#,#/AA& Bild abspeichern++Anfangsadresse: PEEK(*e}88)+256*PEEK(89)Laenge: 192*40=7680Befehl: Schreiben=11++@@ D:TEST.PIC EE6-?:C:,<*f}@<@?j ~ DECLARINIPM_BAUEEINXYLOOK1PMLOOK2LOOK3LOOK4LEER:<>@2}@ dPLAYER/MISSLE STEUERUNGn. IN TURBO-BASICx2}von Wolfgang CzernyTP +@1PPE<)CC=+!@H* @S,)"@2}B)"@C)"@E)"@a'!@H* @S'6-&@H#"@B#68,-8,%@$#"@C2}#68,-8,&@.#"@E#68,-8,&@8#"@a#68,-8,%@B!8,!AU!68,-L2}!8, !68,-AUV!8,!AU!68,-`!8, !68,-AUjB2G%8,t3"2}@39C:,%A$%8@,@~3"@39C:,%A%8@,@3"@39C:,%A62}%8@,@3"@39C:,%A%8@,@F3T'O'9@,9@,.'2};@,;@,8';@,;@,B';AV,L'A0@V'#`'-@@j'"2}67<,.>:,t' ~'-@@'"67<,.>:,' '-@@'"67<,.>:,' '2}-@@'"67<,.>:,' ) LOOK1)!!0,1,2,4,8,144,224,224,240,0) LOOK2")!!0,240,224,224,1442},8,4,2,1,0,) LOOK36)0,128,64,32,16,9,7,7,15,0@) LOOK4J)0,15,7,7,9,16,32,64,128,0*Q*T*O+&6-F:A2},&@@&BBy +6-$AV6-@+#AY@b#SINGLE RES. +-B2VB2Y*+2}4+ >+-AAH+AUR+ \+-A$AAVf+9C:,%AVp+ +B68@2},-@P-68@,-@PB68@,-@`+B68@,-@`-68@,-@pB68@,-@p+-2}68@,-@-68@,-@+Q+T.O.''9C:,%A$%8@,@.''9C:,%A%8@2},@.''9C:,%A5%8@,@/''9C:,%A%8@,@/-@@/B2G2}%8,&/ 0/B2w@:/Q D:PMMOVE.TUR%A%8@,@/-@@/B2G0? +@%@ @,@@(/@"@2,@ @</@ 6}@F,@@P/@"@Z @db@ @@n A D1:IRONIA.BAS6}@F,@@P/@"@Z @db@ @@n A D1:IRONIA.BAS40 EXEC TITLE1 RESTORE 10000:CHSET=(PEEK(106)-8)*256:FOR I=0 TO 1023:READ A:POKE CHSET+I,A:NEXT I5 ZX=%0:ZF=%0:PMG=$A000:P0=:}PMG+$0200:P1=PMG+$0280:P2=PMG+$0300:P3=PMG+$0380:POTYS=10:POTYK=906 POTYL=-1:POTYR=-1:POTYLX=60:POTYLRX=120:SPORTX=-2:SPORTW:}AIT=-1:PALI=0:KOLIZ=07 SKURA=$1F:ILEPALI=4:LICZPALI=ILEPALI:ZALICZX=0:ZALICZY=0:CHUJ=248 NIEJEBAJL=0:NIEJEBAJR=0:ZYDZIA=41:}0 GRAPHICS %2:EXEC INITPMG:POKE 711,SKURA:POKE 82,0:POKE 752,1:POKE 756,CHSET/25620 EXEC DZ:NIEJEBAJL=NIEJEBAJL-1:NIEJEBAJR=:}NIEJEBAJR-125 EXEC DUPASMIERDZI30 IF STICK(0)=7 THEN EXEC ZR40 IF STICK(0)=11 THEN EXEC ZL60 EXEC STARTPOTY:EXEC STARTPOT:}YR:EXEC KAPPOTY:EXEC KAPPOTYR:EXEC SPORTOWIEC:EXEC STOPPOTY998 GOTO 20999 GOTO 9991000 PROC DZ1005 IF ZYDZIA>=4:POSITIO:}N ZX,4:PRINT #6;CHR$(65+ZF):ELSE :POSITION ZX,4:PRINT #6;" ":ENDIF 1006 IF ZYDZIA>=3:POSITION ZX+1,4:PRINT #6;CHR$(67+ZF)::}ELSE :POSITION ZX+1,4:PRINT #6;" ":ENDIF 1007 IF ZYDZIA>=2:POSITION ZX,5:PRINT #6;CHR$(69+ZF):ELSE :POSITION ZX,5:PRINT #6:};" ":ENDIF 1008 IF ZYDZIA>=1:POSITION ZX+1,5:PRINT #6;CHR$(71+ZF):ELSE :POSITION ZX+1,5:PRINT #6;" ":ENDIF 1016 POSITIO:}N ZX,6:PRINT #6;CHR$(73);CHR$(74)1017 POSITION ZX,7:PRINT #6;CHR$(75+64+64+64);CHR$(76+64+64+64)1018 POSITION ZX,8:PRIN:}T #6;CHR$(75+64+64+64);CHR$(76+64+64+64)1019 POSITION ZX,9:PRINT #6;CHR$(77+64+64+64);CHR$(78+64+64+64)1020 ZF=NOT ZF1:}030 ENDPROC 1100 PROC ZR:IF ZX=18 THEN ENDPROC 1110 FOR I=4 TO 9:POSITION ZX,I:PRINT #6;" ":NEXT I1115 ZX=ZX+%11120 ENDPR:}OC 1200 PROC ZL:IF ZX=0 THEN ENDPROC 1210 FOR I=4 TO 9:POSITION ZX+1,I:PRINT #6;" ":NEXT I1215 ZX=ZX-%11220 ENDPROC 1300:} PROC INITPMG1305 FOR I=PMG+$0200 TO PMG+$0400:POKE I,%0:NEXT I1306 POKE 704,208:POKE 54279,$A000/$0100:POKE 559,46:POK:}E 53277,2:POKE 53248,1201307 POKE 705,$95:POKE 53249,POTYLX:POKE 706,$63:POKE 53250,140:POKE 707,$89:POKE 53251,01308 R:}ESTORE 1351:FOR I=%0 TO 14:READ A:POKE P3+I+81,A:NEXT I1349 ENDPROC 1350 DATA 8,8,24,24,60,126,62,241351 DATA 132,34,8,98,:}149,153,9,88,16,22,25,16,32,56,1241400 PROC KAPPOTY1401 IF POTYL=1010 THEN POTYL=-1:POKE 53251,0:ENDPROC 1402 IF POTYL>=:}1000 THEN POTYL=POTYL+1:ENDPROC 1410 IF POTYL<>-11412 -MOVE P1+POTYL-2,P1+POTYL,10:POTYL=POTYL+21420 ENDIF 1425 IF POTY:}L=POTYK THEN POKE 53251,POTYLX:EXEC OTRZYJPOTL:POTYL=10001499 ENDPROC 1500 PROC INITPOTY1510 IF POTYL<>-1 THEN RESTORE 1:}340:FOR I=%0 TO 7:READ A:POKE I+P1+POTYL,A:NEXT I1520 IF POTYR<>-1 THEN RESTORE 1340:FOR I=%0 TO 7:READ A:POKE I+P2+POTYR,:}A:NEXT I1599 ENDPROC 1600 PROC OTRZYJPOTL:FOR I=%0 TO 7:POKE P1+POTYL+I,%0:NEXT I:ENDPROC 1601 PROC OTRZYJPOTR:FOR I=%0 TO:} 7:POKE P2+POTYR+I,%0:NEXT I:ENDPROC 1700 PROC SPORTOWIEC1705 IF SPORTX=-2 THEN EXEC POKASPORTOWCA:ENDPROC 1710 SPORTWAI:}T=SPORTWAIT-%1:IF SPORTWAIT<=%0 THEN EXEC ZNIKSPORTOWCA:ENDPROC 1799 ENDPROC 1800 PROC POKASPORTOWCA1805 SPORTX=RAND(19):}:SPORTWAIT=RAND(20)+51810 POSITION SPORTX,0:PRINT #6;CHR$(79+64);CHR$(80+64)1820 POSITION SPORTX,1:PRINT #6;CHR$(81+64):};CHR$(82+64)1899 ENDPROC 1900 PROC ZNIKSPORTOWCA1903 IF PALI=1 THEN ENDPROC 1905 POSITION SPORTX,0:PRINT #6;" "1910 P:}OSITION SPORTX,1:PRINT #6;" ":SPORTX=-21915 SKURA=$1F:POKE 711,SKURA1999 ENDPROC 2000 PROC STARTPOTY2002 IF PALI=1 THE:}N LICZPALI=LICZPALI-12003 IF LICZPALI<=0 THEN LICZPALI=ILEPALI:SKURA=SKURA-1:POKE 711,SKURA2004 IF SKURA=$10 THEN SKURA:}=$1F:EXEC ZALICZSPORTOWCA2005 IF POTYL=-1 AND RAND(CHUJ)=22007 EXEC KOLIZUJ2010 IF KOLIZ AND ZYDZIA>0 THEN POTYL:}=POTYS:POTYLX=SPORTX*8+48:POKE 53249,POTYLX:PALI=%1:EXEC INITPOTY2050 ENDIF 2099 ENDPROC 2100 PROC STOPPOTY2103 EXEC :}KOLIZUJ2105 IF KOLIZ THEN ENDPROC 2110 PALI=%02199 ENDPROC 2200 PROC KOLIZUJ2205 IF ABS(SPORTX-ZX)<=%1:KOLIZ=%1:ELSE:} :KOLIZ=%0:ENDIF 2299 ENDPROC 2300 PROC KAPPOTYR2301 IF POTYR=1010 THEN POTYR=-1:POKE 53251,%0:ENDPROC 2302 IF POTYR>=1:}000 THEN POTYR=POTYR+%1:ENDPROC 2310 IF POTYR<>-12312 -MOVE P2+POTYR-%2,P2+POTYR,10:POTYR=POTYR+%22320 ENDIF 2325 IF PO:}TYR=POTYK THEN POKE 53251,POTYRX:EXEC OTRZYJPOTR:POTYR=10002399 ENDPROC 2400 PROC STARTPOTYR2405 IF POTYR=-1 AND RAND(CH:}UJ)=%22407 EXEC KOLIZUJ2410 IF KOLIZ AND ZYDZIA>0 THEN POTYR=POTYS:POTYRX=SPORTX*8+56:POKE 53250,POTYRX:PALI=%1:EXE:}C INITPOTY2450 ENDIF 2499 ENDPROC 2500 PROC ZALICZSPORTOWCA2501 POKE 656,ZALICZY:POKE 657,ZALICZX:PRINT CHR$(20);"43<:}";2505 ZALICZX=ZALICZX+52510 IF ZALICZX=40 THEN ZALICZX=0:ZALICZY=ZALICZY+12513 PALI=02515 EXEC ZNIKSPORTOWCA259:}9 ENDPROC 2600 PROC DUPASMIERDZI2601 IF PEEK($D005)=%1 THEN EXEC JEBLOL2603 IF PEEK($D006)=%1 THEN EXEC JEBLOR2698 :}POKE $D01E,62699 ENDPROC 2700 PROC JEBLOL2701 NIEJEBAJL=NIEJEBAJL-12705 IF NIEJEBAJL<=0 THEN ZYDZIA=ZYDZIA-1:NIEJEBAJ:}L=60:EXEC ZMARZOGIEN2799 ENDPROC 2800 PROC JEBLOR2801 NIEJEBAJR=NIEJEBAJR-12805 IF NIEJEBAJR<=0 THEN ZYDZIA=ZYDZIA-1:8}