@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  \LdJ!"! 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 eԠ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: I BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSSPEICHERFEHLERDOS LADEN? J/NSxH)Dh) D&} L 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 l} 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 $2080 +} F. 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 ALLOWED 572 FREE SECTORS COPYING---D1:TEXTJ.TXTl# 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- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8 uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8 uT}U@U@U}PV}* @ W}   X}   Y} Z}[}t}MODULETYPE REAL=[CARD r1,r2,r3] BYTE Cix=$F2INT Fr0Int=$D4CARD InBuff=$F3REAL Fr0=$D4, Fr1=$E0BYTE ARRAY LBuff=$580 ]};************************************;Built-in FP routines;************************************PROC ROM_AFP=$D800()PROC ^} ROM_FASC=$D8E6()PROC ROM_IFP=$D9AA()PROC ROM_FPI=$D9D2()PROC ROM_FSUB=$DA60()PROC ROM_FADD=$DA66()PROC ROM_FMULT=$DADB( _})PROC ROM_FDIV=$DB28()PROC ROM_EXP=$DDC0()PROC ROM_EXP10=$DDCC()PROC ROM_LOG=$DECD()PROC ROM_LOG10=$DED1()PROC ROM_INIT `}=$DA51();************************************;A dummy procedure used to access the;FP routines;************************* a}***********PROC Junk()RETURN;************************************; Move REAL to another REAL;************************* b}***********PROC RealAssign(REAL POINTER a,b) b.r1=a.r1 b.r2=a.r2 b.r3=a.r3RETURN;********************************* c}***; Convert INTeger to REAL;************************************PROC IntToReal(INT i REAL POINTER r) Fr0Int=i Junk= d}ROM_IFP Junk() RealAssign(Fr0,r)RETURN;************************************; Convert REAL to INTeger;*************** e}*********************INT FUNC RealToInt(REAL POINTER r) RealAssign(r,Fr0) ROM_FPI()RETURN(Fr0Int);****************** f}******************; Subtract REALs;************************************PROC RealSub(REAL POINTER a,b,c) RealAssign(a,Fr g}0) RealAssign(b,Fr1) ROM_FSUB() RealAssign(Fr0,c)RETURN;************************************; Add REALs;********** h}**************************PROC RealAdd(REAL POINTER a,b,c) RealAssign(a,Fr0) RealAssign(b,Fr1) ROM_FADD() RealAssig i}n(Fr0,c)RETURN;************************************; Multiply REALs;************************************PROC RealMult( j}REAL POINTER a,b,c) RealAssign(a,Fr0) RealAssign(b,Fr1) ROM_FMULT() RealAssign(Fr0,c)RETURN;********************** k}**************; Divide REALs;************************************PROC RealDiv(REAL POINTER a,b,c) RealAssign(a,Fr0) R l}ealAssign(b,Fr1) ROM_FDIV() RealAssign(Fr0,c)RETURN;************************************; Convert REAL to ASCII strin m}g;************************************PROC StrR(REAL POINTER r BYTE ARRAY s) BYTE i,c BYTE POINTER ptr RealAssign n}(r,Fr0) ROM_FASC() ptr=InBuff WHILE ptr^='0 DO ptr==+1 OD i=0 DO c=ptr(i) i==+1 s(i)=c&$7F o} UNTIL c&$80 OD s(0)=iRETURN;************************************; Convert string to REAL;************************* p}***********PROC ValR(BYTE ARRAY s REAL POINTER r) BYTE i FOR i=1 TO s(0) DO LBuff(i-1)=s(i) OD LBuff(i- q}1)=0 ; AN INVALID VALUE InBuff=LBuff Cix=0 ROM_AFP() RealAssign(Fr0,r)RETURN;*********************************** r}*; Base E exponentiation;************************************PROC Exp(REAL POINTER a,b) RealAssign(a,Fr0) ROM_EXP() s} RealAssign(Fr0,b)RETURN;************************************; Base 10 exponentiation;********************************** } @  u}  @*v}U@w}U@x}y}UUUUTz}{}|}UU@UU@@}}U@TP@~}@@}}}}@}P}UU@UU@U}U}}}}Z**PROC Exp10(REAL POINTER a,b) RealAssign(a,Fr0) ROM_EXP10() RealAssign(Fr0,b)RETURN;***************************** }*******; Natural logarithm;************************************PROC Ln(REAL POINTER a,b ) RealAssign(a,Fr0) ROM_LOG() }MODULEDEFINE EOL="$9B"DEFINE OpenBuf = "$0500"DEFINE OpenBufL = "$00"DEFINE OpenBufH = "$05"BYTE ARRAY copy_rig}ht(0) ="(c) by A.C.S/OSS"; Primitive IO routinesPROC Clos=*(BYTE d)[$FFA2$A686$CA0$AD0]PROC Outputq=*(BYTE d,BYT}E ARRAY s)[$A684$BA0$4D0]PROC In=*(BYTE d,BYTE ARRAY s)[$A684$5A0$A586$A2$0$A386]PROC XIOstr=*(BYTE d,x,c,a1,a2,B}YTE ARRAY s)[$A0A$A0A$98AA$9D$342$A3A5$AF0$9D$34A$A4A5$9D$34B$A9$0$9DA8$349$A5B1$9D$348$12F0$18$A5A5$169$9D$344$A6A5$69$0}$9D$345$4C$E456$60]PROC Opn=*(BYTE d,BYTE ARRAY s,BYTE m,o)[$A586$A684$3A0$4CXIOstr]PROC Prt=*(BYTE d,BYTE ARRAY s)}[$A586$A684$A2$0$A386$9A0$20XIOstr$AD0$BA9$9D$342$9BA9$4C$E456$60]PROC Error(BYTE err)[$6C$A$0$1113$8301]PROC Break}=*()[$BA$8E$4C1$80A0$98$4C Error]; math library routinesPROC LShift=*()[$84A4$AF0$8586$A$8526$88$FAD0$85A6$60]P}ROC RShift=*()[$84A4$AF0$8586$8546$6A$88$FAD0$85A6$60]PROC SetSign=*()[$D3A4$1010]PROC SS1=*()[$8685$8786$38$A9$0$8}6E5$A8$A9$0$87E5$AA$98$60]PROC SMOps=*()[$D386$E0$0$310$20SS1$8285$8386$85A5$E10$AA$D345$D385$84A5$20SS1$8485$8586$A9}$0$8785$60]PROC MultB=*()[$1BF0$CA$C786$AA$15F0$C686$A9$0$8A2$A$C606$290$C765$CA$F6D0$18$8765$8785$86A5$87A6$60]P}ROC MultI=*()[$20SMOps$82A6$1BF0$C686$84A6$15F0$CA$C786$8A2$A$8726$C606$690$C765$290$87E6$CA$F0D0$8685$82A5$85A6$20Mult}B$83A5$84A6$20MultB$4CSetSign]PROC DivI=*()[$20SMOps$85A5$27F0$8A2$8226$8326$8726$38$83A5$84E5$A8$87A5$85E5$490$878}5$8384$CA$E7D0$82A5$2A$A2$0$83A4$8684$4CSetSign$10A2$8226$8326$2A$4B0$84C5$390$84E5$38$CA$EFD0$8226$8326$8685$82A5$83A6$4}CSetSign]PROC RemI=*()[$20 DivI$86A5$87A6$60]PROC SArgs=*()[$A085$A186$A284$18$68$8485$369$A8$68$8585$69$0$48$98$48}$1A0$84B1$8285$C8$84B1$8385$C8$84B1$A8$B9$A0$0$8291$88$F810$11A5$FD0$11E6$4C Break$6308$1109$1819$2113$3323$60]SET $4}E4=LShiftSET $4E6=RShiftSET $4E8=MultISET $4EA=DivISET $4EC=RemISET $4EE=SArgsPROC ChkErr=*(BYTE r,b,eC)[$1610$}88C0$8F0$98$80C0$11F0$4C Error$8A$4A4A$4A4A$98AA$9D EOF$60]PROC Break1=*(BYTE err)[$1A2$1186$48$20 Break$68$A8$60]}PROC Open=*(BYTE d,BYTE ARRAY f,BYTE m,a2)[$48$A186$A284$A8$A9$0$99 EOF$A8$A1B1$8D OpenBuf $A8$C8$9BA9$2D0$A1B1$99 OpenB}uf $88$F8D0$68$A2 OpenBufL $A0 OpenBufH $20Opn$4C ChkErr]PROC PrintE=*(BYTE ARRAY s)[$A186$AA$A1A4$A5device]PROC Prin}tDE=*(BYTE d,BYTE ARRAY s)[$20 Prt$4C ChkErr]PROC Close=*(BYTE d)[$20 Clos$4C ChkErr]PROC Print=*(BYTE ARRAY s)[$A1}86$AA$A1A4$A5device]PROC PrintD=*(BYTE d,BYTE ARRAY s)[$20Outputq$4C ChkErr]PROC InS=*()[$20In$A084$BD$348$3F0$38$1}E9$A0$0$A591$A0A4$60]PROC InputS=*(BYTE ARRAY s)[$A286$AA$A2A4$A5device]PROC InputSD=*(BYTE d,BYTE ARRAY s)[$48$FFA9$A3}85$68]PROC InputMD=*(BYTE d,BYTE ARRAY s,BYTE m)[$48$A186$A284$A0$0$A3A5$A191$68$A2A4]PROC InputD=*(BYTE d,BYTE ARRAY s})[$20InS$4C ChkErr]BYTE FUNC GetD=*(BYTE d)[$7A2]PROC CCIO=*()[$A486$A0A$A0A$AA$A4A5$9D$342$A9$0$9D$348$9D$349$98$2}0$E456$A085$4C ChkErr]PROC PutE=*()[$A9$9B]PROC Put=*(BYTE c)[$AA$A5device]PROC PutD=*(BYTE d,BYTE c)[$A186$A1A4]PR}OC PutD1=*()[$BA2$4C CCIO]PROC PutDE=*(BYTE dev)[$A0$9B$F7D0]PROC XIO=*(BYTE d,f,c,a1,a2,BYTE ARRAY s)[$20XIOstr$4C} ChkErr]PROC CToStr=*()[$D485$D586$20$D9AA$20$D8E6$FFA0$A2$0$C8$E8$F3B1$9D$550$F710$8049$9D$550$8E$550$60]PROC Pr}intB=*(BYTE n)[$A2$0]PROC PrintC=*(CARD n)[$20 CToStr$A5device]PROC PNum=*()[$50A2$5A0$20 Outputq$4C ChkErr]PROC Prin}tBE=*(BYTE n)[$A2$0]PROC PrintCE=*(CARD n)[$20PrintC$4CPutE]PROC PrintBD=*(BYTE d, n)[$A0$0]PROC PrintCD=*(BYTE d, CA}RD n)[$A085$8A$A284$A2A6$20 CToStr$A0A5$4CPNum]PROC PrintBDE=*(BYTE n)[$A0$0]PROC PrintCDE=*(BYTE d,CARD n)[$20Prin}tCD$A0A5$4CPutDE]PROC PrintI=*(INT n)[$A286$AA$A2A4$A5device]PROC PrintID=*(BYTE d,INT n)[$C0$0$1610$48$A186$A284$2DA0}$20PutD1$38$A9$0$A1E5$AA$A9$0$A2E5$A8$68$4CPrintCD]PROC PrintIE=*(INT n)[$20PrintI$4CPutE]PROC PrintIDE=*(BYTE d,INT} n)[$20PrintID$A0A5$4CPutDE]PROC StrB=*(BYTE n, BYTE ARRAY s)[$A286$A384$A2$0$A2A4]PROC StrC=*(CARD n, BYTE ARRAY s)[}$A284$20 CToStr$C8$B9$550$A291$88$F810$60]PROC StrI=*(INT n, BYTE ARRAY s)[$E0$0$ED10$A085$A186$A284$38$A9$0$A0E5$A8$A9$0}$A1E5$AA$98$20 CToStr$E8$8A$A8$B9$54F$A291$88$F8D0$8A$A291$C8$2DA9$A291$60]BYTE FUNC InputB=*()CARD FUNC InputC=*()}INT FUNC InputI=*()[$A5 device]BYTE FUNC InputBD=*(BYTE d)CARD FUNC InputCD=*(BYTE d)INT FUNC InputID=*(BYTE d)[$13}A2$8E$550$50A2$5A0$20InputD$50A9$5A2]BYTE FUNC ValB=*(BYTE ARRAY s)CARD FUNC ValC=*(BYTE ARRAY s)INT FUNC ValI=*(BYTE A}RRAY s)[$A485$A586$A0$0$A084$A184$A284$A4B1$A385$A3E6$20A9$C8$A4D1$5D0$C8$A3C4$F730$A4B1$2DC9$3D0$A285$C8$A3C4$3610$A4B}1$30C9$3030$3AC9$2C10$38$30E9$AA$A1A5$48$A0A5$A$A126$A$A126$18$A065$A085$68$A165$A185$A006$A126$18$8A$A065$A085$290$A1E6$}C8$A3C4$CA30$A2A5$DF0$38$A9$0$A0E5$A085$A9$0$A1E5$A185$60]PROC PrintH=*(CARD n)[$A485$A586$4A9$A685$24A9$20Put$A9$0}$4A2$A406$A526$2A$CA$F8D0$3069$3AC9$230$669$20Put$A6C6$E5D0$60]PROC PrintF=*(BYTE ARRAY f, CARD a1,a2,a3,a4,a5)[$C085}$C186$8C$5F0$A0$0$C0B1$C285$C2E6$DA2$A2B5$9D$5F0$CA$F8D0$8B86$8A86]PROC PF2=*()[$8AE6$8AA4$C2C4$DAB0$C0B1$25C9$FD0$8AE6$C}8$C0B1$25C9$6F0$45C9$8D0$9BA9$20Put$4CPF2$8BA4$8BE6$8BE6$A085$B9$5F0$BE$5F1$A0A4$43C0$E6F0$53C0$6D0$20Print$4CPF2$49C0$6D}0$20PrintI$4CPF2$48C0$6D0$20PrintH$4CPF2$20PrintC$4CPF2]PROC Note=*(BYTE d,CARD POINTER s,BYTE POINTER o)[$A186$A28}4$A0A$A0A$AA$26A9$9D$342$20$E456$20 ChkErr$A0$0$BD$34E$A391$BD$34C$A191$BD$34D$C8$A191$60]PROC Point=*(BYTE d,CARD s,BY}TE o)[$A186$A0A$A0A$98AA$9D$34D$A1A5$9D$34C$A3A5$9D$34E$25A9$9D$342$20$E456$4C ChkErr]MODULE ; GRAPHIC ROUTINESBY}TE ARRAY dev_S="S:", dev_E="E:"PROC Graphics=*(BYTE m)[$48$A9$0$20 Close$CA9$A385$A9$0$AEdev_E$ACdev_E+1$20Open$6A9$2}0 Close$68$A485$3029$1C49$A385$6A9$AEdev_S$ACdev_S+1$4COpen]PROC Position=*(CARD c,BYTE r)[$5B85$5C86$5A84]PROC Pos1=*(})[$5585$5686$5484$60]PROC GrIO=*()[$20Pos1$AD$2FD$8D$2FB$ADdev_S$A585$ADdev_S+1$A685$A9$0$A385$A485$6A9$60]PROC Dra}wTo=*(CARD c,BYTE r)[$20GrIO$11A0$4CXIO]BYTE FUNC Locate=*(CARD c,BYTE r)[$20Position$6A9$4CGetD]PROC Plot=*(CARD} c,BYTE r)[$20Pos1$6A9$AE$2FD$4CPutD]PROC SetColor=*(BYTE reg,hue,lum)[$5C9$1610$A085$98$F29$A285$8A$A0A$A0A$A205$A0A}6$9D$2C4$9D$D016$60]PROC Fill=*(CARD c,BYTE r)[$20GrIO$12A0$4CXIO]BYTE FUNC Rand=*(BYTE r)[$AE$D20A$C9$0$9F0$84}86$A2$0$8586$20MultI$A086$60]PROC Sound=*(BYTE v, p, d, vol)[$A$A284$A8$7C9$530$64A0$20 Error$998A$D200$A2A5$A0A$A0A$A3}05$99$D201$60]PROC SndRst=*()[$AD$232$EF29$8D$232$8D$D20F$A9$0$8A2$9D$D200$CA$FA10$60]BYTE FUNC Paddle=*(BYTE p)[$BDA}A$270$A085$60]BYTE FUNC PTrig=*(BYTE p)[$A2$0$4C9$330$E8$329$A8$BD$D300$39*+5$A085$60$804$8040]BYTE FUNC Stick=*(BY}TE p)[$A2$0$2C9$330$E8$129$BDA8$D300$88$4D0$4A4A$4A4A$F29$A085$60]BYTE FUNC STrig=*(BYTE p)[$BDAA$D010$A085$60]BYTE} FUNC Peek=*(CARD a)CARD FUNC PeekC=*(CARD a)[$A285$A386$A0$0$A2B1$A085$C8$A2B1$A185$60]PROC Poke=*(CARD a,BYTE v)[$A}085$A186$A098$9100$60A0]PROC PokeC=*(CARD a,v)[$20Poke$A5C8$91A3$60A0]PROC Zero=*(BYTE POINTER a,CARD s)[$48$A9$0$A48}5$68]PROC SetBlock=*(BYTE POINTER a,CARD s,BYTE v)[$A085$A186$A284$A0$0$A4A5$A3A6$10F0$A091$C8$FBD0$A1E6$A3C6$F5D0$3F0$}A091$C8$A2C4$F9D0$60]PROC MoveBlock=*(BYTE POINTER d,s,CARD sz)[$A085$A186$A284$A0$0$A5A5$16F0$A2B1$A091$C8$F9D0$A1}E6$A3E6$A5C6$F1D0$5F0$A2B1$A091$C8$A4C4$F7D0$60]INT FUNC SCompare=*(BYTE ARRAY a,b)[$A485$A586$A284$A0$0$A084$A184$}A4B1$A2D1$3F0$20*+21$C9$0$1D0$60$A685$C8$A4B1$A2D1$5D0$A6C4$F590$60$FFA2$A086$390$A2B1$E8$A186$60]PROC SCopy=*(BYTE A}RRAY d,s)[$A085$A186$A284$A0$0$A2B1$A091$8F0$A8$A2B1$A091$88$F9D0$60]PROC SCopyS=*(BYTE ARRAY d,s,BYTE b,e)[$A085$A18}6$A284$A0$0$A2B1$A5C5$2B0$A585$A4C6$18$A2A5$A465$A285$290$A3E6$38$A5A5$A4E5$2B0$A9$0$4CSCopy+10]PROC SAssign=*(BYTE ARR}AY d,s,BYTE b,e)[$A085$A186$A284$A0$0$A2B1$DF0$A685$A4C6$38$A5A5$A4E5$2F0$1B0$AA60$A6C5$890$18$A6A5$AA$A465$A585$A5A5$A}0D1$390$A091$18$A0A5$A465$A085$290$A1E6$4C8ASCopy+14]MODULEEmodulebyte cio_statuscard dlist =560byte array data = [ 63 33 33 33 33 33 63 ]byte dlst0=[ $70 $70 $70 $4D ]card }lms = [ 36960 ]byte dlst1= [ $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D} $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D } $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D }$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D }$0D $0D $0D $0D $0D $0D $0D $0D $41 ]card djmp= [ 0 ]proc pm_init () byte ramtop=$6A,sdmctl=$2}2F, gractl=$D01D,pmbase=$D407 card pmadr=$2D5 byte gprior=$26F gprior=1 ramtop==-24 sdmctl==%$1C pmadr=ramtop*$1}00+$400 pmbase=ramtop gractl=3 zero (ramtop*$100,$800)returnproc p_pos (byte num,xpos,ypos,card shape,byte len) }byte array hpos=$D000 card pmadr=$2D5,adr adr=pmadr adr==+num*$100+ypos moveblock (adr,shape,len) hpos(num)=xpos}returnproc p_size (byte num,size) byte array ps=$D008 ps(num)=sizereturnproc pm_col (byte num,hue,lum) byte array} pcol=$2C0 pcol (num)=hue*$10+lumreturnproc m_pos (byte num,xpos,ypos,card shape,len) byte array hpos=$D004 card pm} RealAssign(Fr0,b)RETURN;************************************; Base 10 logarithm;************************************ }PROC Log10(REAL POINTER a,b) RealAssign(a,Fr0) ROM_LOG10() RealAssign(Fr0,b)RETURN;******************************** }****; Power function;************************************PROC Power(REAL POINTER a,b,c) Ln(a,c) RealMult(b,c,c) Exp }(c,c)RETURN;************************************;Print REAL to device;************************************PROC PrintRD }(BYTE d REAL POINTER a) BYTE ARRAY temp(20) StrR(a,temp) PrintD(d,temp)RETURN;************************************ };Print REAL to default device;************************************PROC PrintR(REAL POINTER a) PrintRD(device,a)RETURN };************************************;Print REAL to device w/EOL;************************************PROC PrintRDE(BYTE }d REAL POINTER a) PrintRD(d,a) PutDE(d)RETURN;************************************;Print REAL to default device w/EO }L;************************************PROC PrintRE(REAL POINTER a) PrintRDE(device,a)RETURN;************************* }***********;Input REAL from a device;************************************PROC InputRD(BYTE d REAL POINTER a) BYTE ARRA }Y temp(128) InputMD(d,temp,126) ValR(temp,a)RETURN;************************************;Input REAL from default devi }ce;************************************PROC InputR(REAL POINTER a) InputRD(device,a)RETURNMODULE jadr=$2D5,adr adr=pmadr-$100 adr==+ypos moveblock (adr,shape,len) hpos=xposreturnproc p_clear (byte num) card }pmadr=$2D5 zero (pmadr+num*$100,$100)returnproc pm_restore () byte u byte array hpos=$D000 for u=0 to 8 do }hpos(u)=0 odreturnchar func cioq=*(byte dev, card addr, size, byte cmd, aux1, aux2)[$29$F$85$A0$86$A1$A$A$A$A$AA$A5$A5}$9D$342$A5$A3$9D$348$A5$A4$9D$349$A5$A6$F0$8$9D$34A$A5$A7$9D$34B$98$9D$345$A5$A1$9D$344$20$E456$8C cio_status$C0$88$D0$6$9}8$A4$A0$99 eof$A085$60]card func bget=*(byte dev, card addr, size)[$48$A9$7$85$A5$A9$0$85$A6$A5$A3$5$A4$D0$6$85$A0$85$A1}$68$60$68$20 cioq$BD$348$85$A0$BD$349$85$A1$60]proc bput=*(byte dev, card addr, size)[$48$A9$B$85$A5$A9$0$85$A6$A5$A3$5$A}4$D0$2$68$60$68$4C cioq]proc delay(card z) card i for i=0 to z do odreturnproc main() card shape byte joy0,} x,y,p, testxy byte p0pf=$D004, hitclr=$D01E graphics(7) color=1 pm_init () shape=data pm_col (0,7,0) djmp=}@dlst0 dlist=@dlst0 close (1) open(1,"D:mulbi.bin",4) bget (1,$9060,3840) close (1) plot(0,0) drawto(79,95)} x=80 y=60 p_clear (0) p_pos (0,x,y,shape,7) do joy0=stick(0) delay(1000) if joy0=14 then testxy=1} y=y-1 p_clear (0) p_pos (0,x,y,shape,7) elseif joy0=13 then testxy=2 y=y+1 p_clear (0) }p_pos (0,x,y,shape,7) elseif joy0=7 then testxy=3 x=x+1 p_clear (0) p_pos (0,x,y,shape,7) elseif} joy0=11 then testxy=4 x=x-1 p_clear (0) p_pos (0,x,y,shape,7) fi if p0pf > 0 then if testxy=}1 then y=y+2 p_clear (0) p_pos (0,x,y,shape,7) elseif testxy=2 then y=y-2 p_clear (0) p}_pos (0,x,y,shape,7)elseif testxy=3 then x=x-2 p_clear (0) p_pos (0,x,y,shape,7)elseif testxy=4 then} x=x+2 p_clear (0) p_pos (0,x,y,shape,7)fitestxy=0hitclr=1 fi odreturnl$0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D } $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $}0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D $42 $E0 $9C } $02 $02 $02 $41 ]card djmp= [ 0 ]proc pm_init () byte ramtop=$6A,sdmctl=$22F, gractl=$D01D,pmbase=$D407 card pma}dr=$2D5 byte gprior=$26F gprior=1 ramtop==-24 sdmctl==%$1C pmadr=ramtop*$100+$400 pmbase=ramtop gractl=3 z}ero (ramtop*$100,$800)returnproc p_pos (byte num,xpos,ypos,card shape,byte len) byte array hpos=$D000 card pmadr=$2D5,}adr adr=pmadr adr==+num*$100+ypos moveblock (adr,shape,len) hpos(num)=xposreturnproc p_size (byte num,size) by}te array ps=$D008 ps(num)=sizereturnproc pm_col (byte num,hue,lum) byte array pcol=$2C0 pcol (num)=hue*$10+lumret}urnproc m_pos (byte num,xpos,ypos,card shape,len) byte array hpos=$D004 card pmadr=$2D5,adr adr=pmadr-$100 adr==+y}pos moveblock (adr,shape,len) hpos=xposreturnproc p_clear (byte num) card pmadr=$2D5 zero (pmadr+num*$100,$100)}returnproc pm_restore () byte u byte array hpos=$D000 for u=0 to 8 do hpos(u)=0 odreturnchar func cioq=*(}byte dev, card addr, size, byte cmd, aux1, aux2)[$29$F$85$A0$86$A1$A$A$A$A$AA$A5$A5$9D$342$A5$A3$9D$348$A5$A4$9D$349$A5$A6}$F0$8$9D$34A$A5$A7$9D$34B$98$9D$345$A5$A1$9D$344$20$E456$8C cio_status$C0$88$D0$6$98$A4$A0$99 eof$A085$60]card func bget}=*(byte dev, card addr, size)[$48$A9$7$85$A5$A9$0$85$A6$A5$A3$5$A4$D0$6$85$A0$85$A1$68$60$68$20 cioq$BD$348$85$A0$BD$349$8}5$A1$60]proc bput=*(byte dev, card addr, size)[$48$A9$B$85$A5$A9$0$85$A6$A5$A3$5$A4$D0$2$68$60$68$4C cioq]proc delay(ca}rd z) card i for i=0 to z do odreturnproc main() card shape byte joy0, x,y,p, x1, y1, testxy graphics(7) }color=1 pm_init () zero ($9060,3360) shape=data pm_col (0,7,0) djmp=@dlst0 dlist=@dlst0 close (1) open(1,"}D:mulbi.bin",4) bget (1,$9060,3200) close (1) x=80 y=60 p_clear (0) p_pos (0,x,y,shape,8) plot(0,0) drawto(}79,79) poke($9CE0,33) poke($9CE1,34) do joy0=stick(0) delay(1000) if joy0=14 then y=y-1 testxy=}1 elseif joy0=13 then y=y+1 testxy=1 elseif joy0=7 then x=x+1 testxy=1 elseif joy0=11 then } x=x-1 testxy=1 fi if testxy =1 then if x > 200 then x=200 elseif x< 48 then x=48  } elseif y < 32 then y=32 elseif y > 184 then y=184 fi x1=x-44 y1=y/2-14 p_clear ( }0) p_pos (0,x,y,shape,8)plot(x1,y1)testxy=0 fi odreturnO elseif joy0=7 then x=x+1 testxy=1 elseif joy0=11 then x=x-1 testxy=1 fi if testxy =1 then  } if x > 200 then x=200 elseif x< 48 then x=48 elseif y < 32 then y=32 elseif y > 184 }then y=184 fi x1=x-44 y1=y/2-14 p_clear (0) p_pos (0,x,y,shape,8)plot(x1,y1)testxy}=0 fi odreturn`L7 % 7 7 7 7 6 7 &`L.7*7)7*7)7Q% 7`}L7 %A7~7DA7 .C7B77D 5`L77777Q% 7`}L8 i'L*8 Input x: 8 :'8 7 &LH8 Input y: 8> :'8 7 & &88 8 38 78}8 8 t38 788 8 38 788 8 448 788 58 788 58} 788 68 788 @68 7L8``88 8 448 788 58 788 58> Ǝ0LO接 P L 늦LS P ݲLe` Ō . ` XRUeƍ ݲ _L[ }XߥUS ݲ [L_8eeU8R`؄(T ʥee'` GG K  }ȥȥ  `;L8 tag not setNLtag id: G9 K ʠ ׌}LE`Š馅`ȱ ڀ莯` `Š馣` Z} N Tʎ c W   a  W c = L (é }1 L_ vLE 欥 3` H,  =  H HL}` ` &LBoot?  ` ` Teem}Ʈm Ŏ BDEHI V0/ ŎL n0` LnHH c K`}hhL c / L9 `$ &*i0:0i Ƣ`#bcd^eopr}хȍ Li桍ƿLn}w`ces lʆ &e J Jꅆ8冨凪`ʆ ee }` 9E…¥ 9` l'&&&8儨児祂*L2&&*ń8&&L2 `!} Fj`hihiHHȱȱLڗ`膥ɠQ-ĮȐ`此į۠Ų"}LnlȄ.70Q- Ġ7`eޠ Ȅ e _ 嘠ƍ iť +и#}Φ +У +Ж꥾ +ȑȑȑɦȘ 9`5h{DObFIcIFPODdORTOeANDFORTINT"LSHMO$}D RSHSETDXORBYTE!CARD#CHAR ELSEaEXITSFUNCAPROCBSTEPfTHEN`TYPEFARRAY@UNTILXWHILEQDEFINE&ELSEIFjMODULEWRETURNRINCLUDECPOI%}NTEREiI^I^L]I^+ 8+ _0)?}hh` y`LL ۩ ` Display?Bell?Case sensitive?Trace?List?Window 1 size: Line size: Left ma?}rgin: EOL char: @`>ʈ LACTION! (c)by Paul Lee Computer Services (PCS) April , 1985 @} L r c c ! W_ u` 89ЅЅ එЊȑȥqЅȥqЅХӥA}` ඍ K LL\ Lơ    c c[8嵅嶅 c &i荙% M cB}]٠ AГ  c  `F' {ө&Rፙ%A@qEg  0 ҢC} c M cL!  ci 9 c c cѠLni c `Ӧd`ЦѠ ݢ D}cȩa cг6 0Ц M cL! 0 Ң ච cL4ɓ E} Ї$hhLcɈ 'p⥸ KɈLơө g8hm) Lc cWL ҢeeF}Lȑ`H ui mh0xL ɋ))` [# ½]   cG} cLɉ 6) 1Ɉ .p nL x L L ߻ LɐI $I=  c( )ɘ) ȱࠐH}P c è LK Ln Ɉ cШ F `w j   A L$a  A I} c;   ½   cLKȱ` Ln PɈL P b X  A dѠ LJ}ȱHh ALС F ԧ cɉɐɖ婌 ȥ $ e©  A)  K} yf yb ච ½ >Ɉȱ 3 Lե ۦ ɋܩ ۦ j L}    A   Ɉ  9 H A A ˫ H h*hX&HnȱoM}nohLȤH >h LɈ  L )0) 栥,,þ( ٦ɋ H N} ȄhL`  Ϳ ɋ L٦Ɉ؄ චȑ 5ɋ LM L5 F ԧ චO} L½ u) / c  ` LLn HH * hHd 9    9 A h`P} ` n t 6`ȱ`Ȋ` ) " 6`Ȋ`ȱ``LL8堅Q}ͣL Ln L< ee`夠``PTQcRbS c … i R}̪{`mLo}'p nPx LTɀɐ ɈDɆ $К< LT Хª) ̪ S}  cLè ̪6` .Њ1 дL iq /ƍ cнLnǩ FƠ H ơT}E ߻栤 h ȱ ) LTLnƚ0`…8ݠ‘ȥLU} 5 c c)pл)©L{Lϼ L K`LǼ LH / h `Ȑ ` < 5V}` B>)Ċ6,b&  ˫` u`  L̪`i`暙` 5LcW}) )ž) Lg ٬9c.0 & LF f cL <  eX}L ٬cܩ   LL <  R6,þOɈ1ɐ+# Y} p  L)ɠڥW)F   )` I ¿  L^)@К 9Z}㥣 І  ½Ѐ <Ɉ"dp)ɰɘip``DɈ>) q qLD8[}񹅩 1-+ վ  3 3 ȥ LKɈEׅ J վ \} ơ Lv վ   [ ½ Lv  9   n]} t 68 V < )iȱi 6  " 9L Hi h i     ½L^}HšŢ`hhLWLn  "A  " t ( A 3 tH Lv    _} )x88񹑹ȩ񹑹`  LɈɘ A `)pLa8A!0ĭ`}̭E Ů Ṷ̊W 7hACTION! (c)by Paul Lee Computer Services6. : BLV`a}  B JKIHiDiELV䄦 eRU _椤E +b}`𑛊 0H8`L L² 9  P t LWError Ԇ ؠc}PIPP`/`"/ԭ` PLnH h:,'iԥiՠiɨɑԈȩDȩ:ɥɤ Ld}nGLʰ򅡆ԅդ800) 0 0!Ԧՠ eԆ ٰԦդ` LnLؠ L.8e膥 e}'eR壐Q8SRŦQH)`h) ȭL{QI` f}T`TU`TU  [L_` ` 赠`eLXYT i(`]^_`]^`g} 'LE: BHILVߩ۩שөϥҦǤȆńƅĥ…ɤʥӆ 9!Aq}b%DOS SYSb*)DUP SYSBSMULBI BINB&\REAL ACTBBRUNTIME ACTBSPRCOL1 ACTSPRPLOTTACT }%) )[^] 0 ӢtLӦ` е d .Eƍ ౐ LnɆéнӤ r}ɩЪ >П =Ж d кƍL " Ln "줩s}L󳤙UČF0F !LnƘꤑ ²Ǧ ӵ ʰȄȱ``ō` t}昩 T L :  :ȑLLn LLn g L``)ͳ+  @u}ȳ >B>A>WRCD~ &` `i膡`v}U[W'pxOɈm  g ee + cн^ ȱL2ƍ` L* HH L*]5 w} M c gȱ L'LnhhL* ɁɅɦ` HHɑɑ Mhh`eHeh`Ȋ`x}ѡl ) 00:0`H ha0{0`e澥ž=Lne ~ cLnɤ y}e8q膉ȱ``deldErrorEOFcolorLISTdeviceTRACE & l z}`DOS? !~h(`nL0EƠ` { {`L ` ~ KL# #  ~` h{} L# ~ L ~Ln #L H {h  ȱʝ` LL, a\( |}(EȄĠ(((Ġ ӵ ²͍ Ѱ ²R 8` 2` not foundFind? a}}})H h  ` }8(ee(ČȱĢ~}eL Substitute? for? m9; L200`@  g;` g9D`} 8JJJ)0`BA`W i8 c  9 9 ½I Ң }  c c c !LnH c !h0A u L i 0 }LBL [ 5 䠗  M  u M KLɐmLɪeM࢐^ > L/} 5 c cNQȝP / Λ0B࣐ .ɣɢɡ ½ 9 L j} j jLHL L L >/LH 0h L^hLLL L^3^/ɘ L5}ɘ A  ` * $^ kgH !`!H}L< Z!`!o!{!HL< DIGIu!!800 08 0  HL> HL> (FIND!! k Q)?-ȱQ #}ieeHL< ȱȱȱеHL< ENCLOSź!+" k 8ȱLC LC EMI}"j"8qȩqH F7hLU!KEa"" 37L#?TERMINẢ""iL#Cқ""H F7hLC CMOVŶ"" k }LC L"U""666uuuLC U"4# *6686}6LU!AN-#q#5H5L> Oi##HL> XO##UHUL> SP##HL< SP##LC RP##L}C ;##hhLC LEAV##LC >#$HHLC R $%$hhLC 0$7$ȔLC 00$L$*LC }E$]$uuLC DW$v$uuuuLS!MINUo$$8LC DMINUӒ$$8L$OVEҪ$$HL< D}RO$U!SWA$$HL> PIC$$8uuʵHL> DU$%HL< +%*%uuLS!TOGGL#%K%ULS}!@%Z%HL> CT%o%LC h%~%LS!Cx%%LS!%% )(.'X% '|%-))HHieLC %%}H)})#))#CONSTAN%%-)')HȱL< VARIABL%%%)iHeL< USE%%%)eHeL< &%5&%=&%}E&%BM&% ABORTINIU&%/+ORIGI^&%) [$#Sn&&&R&&&TI‹&&& WIDTȔ&&& WARNINǞ&&&FENCŪ&&&Dи&&}&VOC-LIN&&&SOURCE-I&&&I&&&OU&&&SC&&&OFFSE&&&CONTEX '&& CURREN'&&"STAT$'&&$BAS2'&&}&DP>'&&(FLI'&&*CSS'&&,R]'&&.HLg'&&01p'%A&[$#2z'%I&[$#HERŇ'%&X%#ALLOԔ'%&(%#'%'|%I&'#}C'%'%A&'#'%$[$#'%'5$#U'%'J$#''8PIȔLU!'%$'#RO(%$$#$$#SPAC"(%Z&h}"#-DU4(%% %#TRAVERSD(%$$[$c $m%' $$#LATESW(%.'X%X%#LF}(%c '#CF(%I&'#NF(%c ') }b(#PF(%A&b(c [$#!CS(%#c'|%#?ERRO(%$ 3- $#?COM(%:'X%5$c (#?EXE)%:'X%c (#?PAIR)%'c} (#?CS-)%#c'X%'c (#?LOADINA)%&X%5$c (#COMPILY)% )#$%'$X%'#s)%9&:'|%#ݏ)%c :'|%#SMUDGŝ)%}(c I%#HEج)%c E'|%#DECIMA)%c E'|%#(;CODE)%#$(((|%#;COD)%H)}))))#ķ/%%J$$#+/%J$ }$#D+0%J$ $#AB0%% 0#DAB)0%%0#MI70%$$( $$#MAF0%$$' $$#M^0%$$#$/0$/0"#}$0#Mv0%$$$>0^!/02##$^!# 0$#$ 0$#0%"$#/MOĺ0%$/#$0#0%0$$#MO0%0$#*/MO0%${0#$0#*}0%0$$#M/MO 1%$9&^!2##$$$2##$#MESSAG1%*MSG # 3#61%,5$9&($*.#FORGEO1%.'X% 'X%'c (S1%&X%'c} (%(&|%(X%.'X%|%#BACc1%'''#BEGIΠ1% )'A&#ENDIƱ1% )I&6)'$'$|%#THE1%1#D1%})E!'Q&#LOO1}%Q&6)}) 1#+LOO1%Q&6)})!1#UNTI2%A&6)}) 1#EN(2%02#AGAI>2%A&6)}) 1#REPEAJ2%$$R2#$#$I&'1#I`2}%}) '9&'I&#ELS}2%I&6)}) '9&'$I&1I&#WHILŒ2%2'#SPACEӳ2%9&d0K( 9&E!<( #<2%,v'|%##2%$$v}'X%,$'#SIG2%((J$ c -+# 3%E'X% 1((c $' c [$c 0[$+##"3%&3$$#5$ #D.I3%$$$>02N332#$$}'2s*#.`3%$/#$f3#D3%9&f3<(#3%/3#3%X%3#U3%9&3#C/̼3% CAL3333 LC WORD}3%c &|% 'X%X%&X%3( "9&&|%%Z-((X%%5$"# $# ` V䊨`R/3%R/M4% W/W4%CIa4s4LC }FREEIOCk44 4JJJJHL< p@8`CLOSE-FILv44 94 B A4C0HL> CREATE-FILŢ44LC DELETE-FIL44LC FLU}SH-FIL44LC OPEN-FIL45 4BDEJK A4C0JJJJLC RENAME-FIL5Z5LC READ-FILJ5k5 94}HIDEB A4C0HILC READ-LIN]55 94HIDEB A4C0HyDI}yELC REFIĻ5%&X%) &X%5$&|%$$#WRITE-FIL656 94 BHIDE A4C0LC W}RITE-LIN&6w6 94 BL=6INCLUDE-FILh6%&|% 6) ' . &X%4_/#INCLUDEĂ6%S4 5) ' 6&X%49&&|%#FILE6}%) Z&+'Z&+c ",`*) $") 9&#INCLUDE6%66#MO 7(7l LC H =7h`%H$H`H S7h`HH`v]""6-@:7+&g,$h%h<+&g,$h%h,,] 6-%g"i6-f]:(A@"AA.AB:AC]; "g}A@#AA/AB;AC]; "hA@#AA/AB;AC]"hBAP}]-A2A8h]!(!%@F:%@,]" "g"%@F:%@,] ]#-%@9f} #-ff]# "g#( CIN 0 MASK %g: ]# "h#( MIN 0 MASK %g: ]$ "i$( PCIN 0 MASK %g: ]*"@}*( CIN 12 MASK %g: ]*"@*( MIN 12 MASK %g: ]+"@+( PCIN 12 MASK %g: ]-"}@-(Super CIN MASK %g: ]-"@-(Super MIN MASK %g: ]."@ .(Super PCIN MASK %g}: ]%%6-@:7+&g,$h%%g<+&g,$h%%g,,]%%6-@:7+&g,$h%%g<+&g,$h%%g,,^ "f*"h( GRAPHICS 0^$"@d*"h}$( GRAPHICS 0.9^%"A(*"h%( GRAPHICS 0.10^%"A*"h%( GRAPHICS 0.11^#"f*"@#( GRAPHICS 12}$^+"@d*"@+( GRAPHICS 12.9.^,"A(*"@,(GRAPHICS 12.108^,"A*"@,(GRAPHICS} 12.11B^(6.L^"@6.V^"@6.`^6-@dPaQaOaPa#6-%+$@,#6}-%A$a-f@a g%&+F:%,,a%&+F:%,,a aPaQ0uODuN.@@} D:BUBBLES.FNTCC@A HN@Nu&&6-F:A`,%AV$F:Aa,Xu-%@3buF}:,"@f@hluF:,"@@vu uoA$AD'A%@9A&AKA'}@]A(AoA)@u'-A0A9#AU' uKABA'AC}9AD@KAEu,A@'AV,AA'AVu'AH@'AIuK}A@'A @9A@KA@ vh-@@ D:ICECIN.SCRKC@}U:@,A `V@hAY@4 v(<=F:AU,`(AYvQ D:ICECIN.TURr