@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 ALLOWED097 FREE SECTORS COPYING---D8:HELPKEY.FNTl# 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- 162ɛ+,' 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} CAN Turbo BASIC XL  (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 ¦` ?hE ԅՅ֦}󅗄`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`AVCsvX 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] hcdTMNAMEMSGFNMSGINPDHRMISETMSGBLOCKCOUNMSGBLOCKLIMIMSGBLOCKPNTMSGINCOUNCENTEROFFSE }(.t@t@@@@@d@4B2 @ @3 @1 B31 @@@@A }@ ҠǠ(Ġ٠ }2Ү堠<AҮԛFPZU +AAD1 }AADCA @UAR@dLL;@,;@@,;@ $@$@u,;@,;A' },n A ##盪) #A )-A6A6%@"  !! }##ɧ0+@%@$6-F:AY,0%%6-F:A`,%AV }$F:Aa,''%@@d%@%A(%@@%A(%@@%A(%@ }@%A(A%A(A'A@9BBAEAYW- }d @v-@ @" Ab, Ap6 A@CC72,169,220,72,169,18,141,10,212, }141,0,2,104,141,26,208,104,64JCC72,169,214,72,169,36,141,10,212,141,0,2,104,141,26,208,104,64TCC72,169,210,72,169,54,14 }1,10,212,141,0,2,104,141,26,208,104,64^CC72,169,214,72,169,72,141,10,212,141,0,2,104,141,26,208,104,64hBB72,169,210,72, }169,0,141,10,212,141,0,2,104,141,26,208,104,64r-@|M+@`, 6._Q6-A:7@<@,,76 }-A:7@<@,,Q6-A:7@<@,,!@6-&@*6.000000*6-B$%A$%' }6-@ B'6-@m67,.=:,!-@@m @7@<@,:7@<@,: }7@<@, @w$CHANGE COLORS6-%@ !6-@##6-A $+& }@,%@M-@IA%A:7%@$<%@$%@,,M 6-%@ ]- }@YA6%@%@$A:7%@$<%@$%@,,] 6-%@ WRITE THE BOARD- }@E-%@E @7%@ $<%@ $%@, $D67@,. 567@ }$@$@u,. D67@,.&-@&  Ĉ7-@@7  }J B@*-@@F Enter message file nameJ/4)4 %6.D:CBLBOARD.MSG/ A! }=37@<@,4:)7@<@,4:= A! ( 6.D:67@,.!6.(6.4* A 0*@ }@> A0@H@0 CABLE BOARD= #expected a CABLE BOARD message file@R@ }\)B:,!@ )6.7@<@ ,f 6.6-6-%@6-!@u A0 }@6-%@D @*B:,@ A  expected color assignment recordD 4 A"0 4. } A")B:,!@ )6.7@<@ ,776-A $+&@,%@ $+&@,%@6-+ }!@+6-@&P:B:,'@, 6-% 67<%B:,,. "@ A"$ A"0 > B }@$6-0 @>6-&@ 7-@@7  messages will be displayed /-@@+  }enter day or date/ )B:,!@)6.7@<@, 4-@@4 using a 12 hour clock. . . ;-@ }@7  enter time in HHMMSS format; B:,@ A00 i_A:7@<@,,!@)A:7@< }@,,!@Y)A:7@<@,,!@Yi A00 N $ D:AUTORUN.BAS<@,,!@)A:7@< [10 REM 20 REM 30 REM ҠǠ40 REM Ġ٠50} REM Ү堠60 REM 70 REM 80 REM 90 GRAPHICS 0:POKE 710,144:POKE 712,144:POKE 709,10:POKE 752,1}100 DIM NAME$(50),L$(20),B$(20),A$(20),T$(20)110 POSITION 0,11:? "(clock runs on 12-hour CLOCK)"112 POSITION 0,12:? "(cloc}k runs one minute ahead)"115 POSITION 0,10:? "Please enter Time (Ex HHMMSS) ";:INPUT T$:IF VAL(T$)>125800 THEN ? "":GOTO 11}0120 CLS :POSITION 10,10:? "MOMENT ...."130 NAME$(1,23)=" נ"140 TIME$= T$150 B$(1)=" ":B$(20)=" ":B$(2)=B$:IF} RT=1 THEN RT=0:RETURN 160 REM 170 RESTORE 320:FOR I=1536 TO 1536+89180 READ R:POKE I,R:NEX }T I190 REM 200 REM ɧ210 GRAPHICS 2+16:PA=PEEK(559):POKE PA,0220 DL }=PEEK(560)+256*PEEK(561)230 POKE DL+3,64+7+128240 POKE DL+6,7+128250 POKE DL+7,7+128260 POKE DL+15,7+128270 POKE DL,112+ }128280 POKE 512,0:POKE 513,6:POKE 54286,192:POKE 559,PA:POSITION 10,11:PRINT #6;"TEMP: N/A":POSITION 1,0:? #6;NAME$290 GOSU }B 460300 GOSUB 370310 GOTO 290320 DATA 72,169,220,72,169,18,141,10,212,141,0,2,104,141,26,208,104,64330 DATA 72,169,214,7 }2,169,36,141,10,212,141,0,2,104,141,26,208,104,64340 DATA 72,169,210,72,169,54,141,10,212,141,0,2,104,141,26,208,104,64350 }DATA 72,169,214,72,169,72,141,10,212,141,0,2,104,141,26,208,104,64360 DATA 72,169,210,72,169,0,141,10,212,141,0,2,104,141,26},208,104,64370 FOR T=1 TO 4:FOR I=1 TO 16380 POKE 77,0390 FOR D=1 TO 300:NEXT D400 A=VAL(TIME$):A$=STR$(A)40}5 IF A=10005 THEN POSITION 0,11:? #6;" "410 IF A<=95959 THEN JZ1=1:JZ2=1:JZ3=2:JZ4=3:JZ5=4:JZ6=5420 IF }A>95959 THEN JZ1=1:JZ2=2:JZ3=3:JZ4=4:JZ5=5:JZ6=6425 IF A=125959 THEN A$="010000":TIME$= A$430 POSITION 0,11:? #6;A$}(JZ1,JZ2);":";A$(JZ3,JZ4);":";A$(JZ5,JZ6)440 NEXT I:NEXT T450 RETURN 460 REM CHANGE COLORS470 FOR I=0 TO 4:READ R:POKE }708+I,R:NEXT I480 FOR I=0 TO 4:READ R:POKE 1536+2+I*18,R:NEXT I490 REM WRITE THE BOARD500 FOR I=2 TO 10:READ L$:IF L$="" T}HEN 530510 ST=11-LEN(L$)/2520 B$(ST,ST+LEN(L$)-1)=L$530 POSITION 0,I:? #6;B$540 RT=1:GOSUB 150550 NEXT I560 REA}D R:IF R=1 THEN RETURN 570 RESTORE 630:RETURN 580 REM 590 REM FIRST DATA LINE= 5 COLOR}S600 REM SECOND DATA LINE = 5 BACKGROUND COLORS610 REM THEN 9 DATA STATEMENTS TO PRINT620 REM THEN 1 FLAG FOR EOF = 0630 }DATA 70,12,70,150,144640 DATA 144,32,144,0,0650 DATA day of prayer660 DATA , ͛͠670 DATA Ġ}ٛ680 DATA 690 DATA ԠŠӠٛ700 DATA Ϡ٠ҠҠٛ710 DATA ,ĠҠӛ720 DATA 1730 DATA 0,12,7}0,150,144740 DATA 144,144,148,70,148750 DATA k.a.c.e meeting760 DATA ,EVERY 2ND TUESDAY770 DATA 780 DATA 1ST BAPTIST CHU}RCH790 DATA BERNARD AVE800 DATA 810 DATA 7:00 P.M.820 DATA 830 DATA 1840 DATA 70,212,10,22,144850 DATA 64,64,66,0,668}60 DATA CoRf DiLa870 DATA ,THIS PROGRAM CAN880 DATA 890 DATA HELP MAKE A SALE900 DATA OR CREATE INTEREST910 DATA }IN A PRODUCT920 DATA 930 DATA 940 DATA 1950 DATA 68,148,14,22,144960 DATA 0,0,178,0,178970 DATA FREE980 DATA ,Th Di}˛990 DATA Is1000 DATA UrSy ƛ1010 DATA 1020 DATA JOHN ZIELKE1030 DATA P.O. BOX 10431040 DATA FALLON. NV 894061050 }DATA 11060 DATA 68,148,14,22,1441070 DATA 178,22,178,0,01080 DATA vernon singles club1090 DATA invites all singles1100 D}ATA to dance to the1110 DATA music of1120 DATA ,1130 DATA JULY 16 9PM TO 1AM1140 DATA at the legion hal }l1150 DATA in vernon1160 DATA 11170 DATA 68,148,14,22,1441180 DATA 22,178,22,0,01190 DATA Πa ӛ1200 DATA dont fo!}rget the1210 DATA š1220 DATA ,1230 DATA ,for all your requests1240 DATA and dedications1250 D"}ATA 1260 DATA 01270 ------------------------------1280 REM 1] SHAW CABLE 5 -1290 REM 2] USUALLY EMPTY 1 -#}1300 REM 3] TEXT HEADER 2 -1310 REM 4] TEXT (LINE 1)---^ -1320 REM 5] TEXT (LINE 2) | -1330 REM 6] TEX$}T (LINE 3) 3 -1340 REM 7] TEXT (LINE 4) | -1350 REM 8] TEXT (LINE 5) | -1360 REM 9] TEXT (LINE 6)---^ %}-1370 REM 10] TIME & TEMP 4 -1380 ------------------------------1390 REM 1400 REM This chart shows us in the1410 &}REM first column the number1420 REM each line of text equals.1430 REM The 2nd column shows the1440 REM page is set up.145'}0 REM And the third column shows1460 REM us the data that corresponds1470 REM to each line. (example is1480 REM line 590) (}these numbers1490 REM correspond to the many1500 REM colors you can use with1510 REM this program. is1480 REM line 590) fCABLE BOARDSCAT BULLETIN BOARD 070 212 010 022 144 064 064 066 000 066ColORful DisPLay *} . 068 148 014 022 144 000 000 178 000 178this disk wasCourtesy ofuburba+}n hicago arians. 010 004 112 172 212 064 064 066 000 066amaximumninelinescanbedisplayedatonce. 000 000 000 0,}00 010 112 004 010 212 066ANNOUNCEMENTS ͛ ś 硛. 004 010 000 112 010 096 -}004 010 212 066fifth messageTHIS ӛśFIFTH MESSAGE. ś 硛. 004 010 000 112 010 096 ; CaBLeBOARD by R. G. Perritt with modifications by J. R. Zielke and additio/}nal enhancements by J. R. Chiko for SCATI can only guess that the originalversion of this program was writtenin A0}tari BASIC. I would furtherguess that Mr. Zielke converted theprogram to run in the CAN (Canadian)version of TurboBASIC. 1} (NOTE: Thisversion correctly calculates timefor US 60 hz machines.) I was askedto make the program function withouthav2}ing to modify the data statementsin the program. I did.CaBLeBOARD will now read an externalfile for the messages to be 3}displayedon the screen. A maximum of 75 message blocks can be processed bythe program. The first record ofthe file must4} be the words: CABLE BOARDAnything else and the programterminates abnormally. The secondrecord should be th5}e screen titleline. It can up to 20 characters inlength. This is usually the name ofyour organize or event. Theremaind6}er of the file are themessages to be displayed. The program reads the messages in blocksof 11 records. The first two rec7}ordsin each block MUST be 20 charactersin length and MUST each contains 5three digit numbers. These numbersrepresent scr8}eens colors. The firstfive are location 708 through 712.The second five are the backgroundcolor of each screen block ing9}raphics mode 2. The next 9 recordscan be up to 20 characters in length.If they are longer the program automatically trunc:}ates them to 20characters. Shorter records are automatically centered. Blank linesare tolerated without any problems.Me;}ssage blocks are be prematurelyterminated by placing a period in the first column of a record to indicate an end of block.<} However,the program is not smart of enoughto figure out what to do if a blockis more than 11 lines long. So, makesure =}you do it right and test it before you put it on public display.At start up you can enter the name of a message file of >}your own orname the file CBLBOARD.MSG. Afterthe file is loaded the program willask for the date or day, but keepin mind ?}you only have 10 characters.And finally it will ask for the timeusing a 12 hour clock. This versionof TurboBASIC has been@} modified tocorrectly calculate time. Themessages are changed every 15 secondsor so. The file CBLBOARD.MSG is asample oA}f how to create your own message files.hemessages are changed every 15 secondsor so. The file CBLBOARD.MSG is asample o)10 REM 20 REM 30 REM ҠǠ40 REM Ġ٠50C} REM Ү堠60 REM 65 REM Үԛ70 REM 80 REM 90 GRAPHICS 0:POKE 710,144:POKD}E 712,144:POKE 709,10:POKE 752,1100 DIM TM$(6),NAME$(40),MSG$(20*11*75),FN$(15),MSGIN$(127)110 GOSUB 2000160 REM E}170 RESTORE 320:FOR I=1536 TO 1536+89180 READ R:POKE I,R:NEXT I190 REM 2F}00 REM ɧ210 GRAPHICS 2+16:PA=PEEK(559):POKE PA,0220 DL=PEEK(560)+256*PEEK(561)230 POKE DL+3,64G}+7+128240 POKE DL+6,7+128250 POKE DL+7,7+128260 POKE DL+15,7+128270 POKE DL,112+128280 POKE 512,0:POKE 513,6:POKE 54286,H}192:POKE 559,PA:POSITION 0,0:PRINT #6;NAME$:POSITION 0,11:PRINT #6;MSGIN$290 GOSUB 462300 GOSUB 370310 GOTO 290320 DATA 7I}2,169,220,72,169,18,141,10,212,141,0,2,104,141,26,208,104,64330 DATA 72,169,214,72,169,36,141,10,212,141,0,2,104,141,26,208,J}104,64340 DATA 72,169,210,72,169,54,141,10,212,141,0,2,104,141,26,208,104,64350 DATA 72,169,214,72,169,72,141,10,212,141,0,K}2,104,141,26,208,104,64360 DATA 72,169,210,72,169,0,141,10,212,141,0,2,104,141,26,208,104,64370 FOR I=0 TO 14380 PAUSE (L}60)400 TM$=TIME$410 HRS=VAL(TM$(1,2)):MIN=VAL(TM$(3,4)):SEC=VAL(TM$(5,6))420 IF HRS>12 THEN HRS=HRS-12425 TM$="00M}0000":TM=10000*HRS+100*MIN+SEC430 N=1:IF TM<100000 THEN N=2435 TM$(N)=STR$(TM):POSITION 11,11:PRINT #6;TM$(1,2);":";TM$N}(3,4);":";TM$(5,6)440 NEXT I450 POKE 77,0:RETURN 460 REM CHANGE COLORS462 MSGBLOCKCOUNT=MSGBLOCKCOUNT+1464 IF MSGBLOCKCOO}UNT>MSGBLOCKLIMIT THEN MSGBLOCKCOUNT=1466 MSGBLOCKPNTR=220*(MSGBLOCKCOUNT-1)+1470 FOR I=0 TO 4:POKE 708+I,VAL(MSG$(MSGBLOCKP}PNTR+4*I,MSGBLOCKPNTR+4*I+3)):NEXT I472 MSGBLOCKPNTR=MSGBLOCKPNTR+20480 FOR I=0 TO 4:POKE 1536+2+18*I,VAL(MSG$(MSGBLOCKPNTRQ}+4*I,MSGBLOCKPNTR+4*I+3)):NEXT I482 MSGBLOCKPNTR=MSGBLOCKPNTR+20490 REM WRITE THE BOARD500 FOR I=0 TO 8510 POSITION 0,IR}+2:PRINT #6;MSG$(MSGBLOCKPNTR+20*I,MSGBLOCKPNTR+20*I+19)520 NEXT I530 RETURN 2000 MSG$(1)=" ":MSG$(20*11*75)=" ":MSG$(2)=MS}SG$2010 POSITION 1,0:PRINT "Ĉ"2020 POSITION 3,2:PRINT ""2030 TRAP 40000:CLOSE #1:PT}OSITION 5,5:PRINT "Enter message file name":INPUT FN$2040 IF FN$="" OR FN$=" " THEN FN$="D:CBLBOARD.MSG":GOTO 21002050 IF FU}N$(2,2)=":" OR FN$(3,3)=":" THEN GOTO 21002060 NAME$="D:":NAME$(3)=FN$:FN$=NAME$:NAME$=""2100 TRAP 2030:OPEN #1,4,0,FN$211V}0 TRAP 3000:INPUT #1,MSGIN$2120 IF MSGIN$<>"CABLE BOARD" THEN PRINT "expected a CABLE BOARD message file":END 2130 INPUT #1W},MSGIN$2140 IF LEN(MSGIN$)>20 THEN MSGIN$=MSGIN$(1,20)2150 NAME$=MSGIN$2200 MSGBLOCKLIMIT=02210 MSGBLOCKLIMIT=MSGBLOCKLIMX}IT+1:MSGINCOUNT=02220 IF MSGBLOCKLIMIT>75 THEN GOTO 30002230 INPUT #1,MSGIN$:MSGINCOUNT=MSGINCOUNT+12240 IF MSGINCOUNT<3 AY}ND LEN(MSGIN$)<>20 THEN PRINT "expected color assignment record":END 2250 IF MSGIN$="" THEN GOTO 22302260 IF MSGIN$="." THEZ}N GOTO 22102270 IF LEN(MSGIN$)>20 THEN MSGIN$=MSGIN$(1,20)2280 MSGBLOCKPNTR=220*(MSGBLOCKLIMIT-1)+20*(MSGINCOUNT-1)+12290 [}CENTEROFFSET=02300 IF MSGINCOUNT>2 THEN CENTEROFFSET=10-INT(LEN(MSGIN$)/2)2310 MSGBLOCKPNTR=MSGBLOCKPNTR+CENTEROFFSET2320 \}MSG$(MSGBLOCKPNTR,MSGBLOCKPNTR+LEN(MSGIN$))=MSGIN$2330 IF MSGINCOUNT=11 THEN GOTO 22102340 GOTO 22303000 TRAP 40000:CLOSE ]}#1:MSGBLOCKCOUNT=0:IF MSGINCOUNT<2 THEN MSGBLOCKLIMIT=MSGBLOCKLIMIT-13010 POSITION 5,8:PRINT "enter day or date":INPUT MSGIN^}$3020 IF LEN(MSGIN$)>10 THEN MSGIN$=MSGIN$(1,10)3030 POSITION 5,11:PRINT "using a 12 hour clock. . ."3040 POSITION 5,12:PR_}INT " enter time in HHMMSS format":INPUT TM$3060 IF LEN(TM$)<>6 THEN GOTO 30303070 IF VAL(TM$(1,2))>12 OR VAL(TM$(3,4))>59`} OR VAL(TM$(5,6))>59 THEN GOTO 30303080 TIME$= TM$3090 RETURN THEN GOTO 30303070 IF VAL(TM$(1,2))>12 OR VAL(TM$(3,4))>59AfB%DOS SYSB*)DUP SYSBSAUTORUN SYSBAUTORUN BASB&ORIGINALBASB)CBLBOARDMSGB.CBLBOARDDOCBBCBLBOARDLST