LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8LeSOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$e'TIMESET W cR!(CALENDAR p cR#(RENUMBER g cZ.PRT.CODES.PROG |c(9DISKNAME.DAT, , c!++REQUEST.INV c!%HELLO  cW$MENU  c!,DRIVER.CHECK cW,PRINTER.MENU c3+FILE.READER c III.BSB.171101Bu' *SOS.KERNEL ,Vc!a*SOS.INTERP 44kec!T*SOS.DRIVER h2c +TIMESET.INVc!++VOLUMES.INVc!+,RENUMBER.INVm#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈ%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`X٠ŠҠî!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECé@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRCONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢ 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A,lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`Ly^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z t $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6HH ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h57Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1  sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` ! ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;e ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6SOS DRVR"STANDARD )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 h`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$` 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< gijklmnopqrstuvwxyz{|}~`9`<ȭ=` & @jI`:ȭpȭqé,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱL-upp<`uqq=L: vuL L L <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8<L<`<p<`,ms<L=q=L: ,lXL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  Lu%CYgu #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m pHe҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`L i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  ,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐ`8 iIi`9A)I@`a{ ~I)_ bJ) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aI!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐLVخ ʊJJJ莟mwwxix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L4 , V  @„ȄL5`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx ..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30.(C) 1980 Apple Computer/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l""""""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww    ' + < ? D G N U f k p x (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b     . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |   !%*/369<?BEJMRUX]`h  2;AGMS[fot|          LQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw| `ʝ"`t  !#%')+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BG}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 : 0`ՑʭrpȐ`=m@< B h AL: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:JA@@8A@q==C)CB)B Crx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհн},,P,`,g$ ( $g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AA0 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`LL) @L) L8``Lթ`~L8L) , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      %  $*-06=HLORWcfloruz/47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{} `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^gh`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆`8݅ eۅ$  m` , V $צ! LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ )Ԑ8L( Ӣ ,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H ڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥm L7  Lh `*f*&*)` ` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍLϦI ] +)J* g I V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕ{(Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (`8 `KFAZhhhWhXXHH poLL-vI 0LHhh ߠ& `GA3/1.021 INITVOLU TIMSET TIMSET  hxhyhi0rhi0qhi0phi0ohi0nhhi0mhi0lhi0khi0jhi0ihi0hyHxHbc`f1900000COPYRIGHT (C) APPLE COMPUTER 1980{vqlgba_\Z'II.0 [d.3]( TIMSET ``,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#L}.~}؈H) 0hJJJJ) 0`{|) |8! " ``L#L(LL  {No Directory} BLOCKS FREE Device Open Device Closed Device Not Found |>=4,'     3ml\D4~68hH wh R173K91yy`5ȱ5ȱ5L/eIfd`H z h Γ`bccbHɂ逕h 1܌1`򩀍%1L5m56666 65 ` 5 66`+ ,5ȱ5 ( ,+L h +`h,&L`5b6c6c5 5^6_6_ ,5ȱ5 5g6h6h 5 LK/L4H52 ,5 ȱ5` `L GA3/1.0V APPEND GETVOLUM CURDEVNUBUFFER CLRBUF BUFPNTR INITVOLU INITVOLUCURDEVNU~BUFFER  CLRBUF {RBUF BUFPNTR YTNTR GETVOLUM neMA h`Lm 1b$&%mmmؘHJJJJ ]h) ]`b 00b1`1 !u1 1i1`` 0Ls` /Ls() F 3͉4(L h#1 ULh21 e ǩ421 L@ p L L p LHM(& ))L`h(`8' , u 4g354ȑ5g g$5ȥ%5Ș5 L L 5 66 1 V RENUM RENUM LOWRNGE {wNGE FINDTAB NDTAB CLSALL SALL OPENLEV ENLEV RENUMER NUMER SETBUF TBUF OPENBI ENBI OPENBI  BUMP OPENBO  CLSOUT RESEQNCE RESEQNCERENUMEN CNUMEN RELTAB LTAB MERGEOK WRGEOK START kgT HIGHRNGEsoRNGEFILNUM2 0RELTAB z GOMESH  APPEND APPEND MERGEOK &START XREFER HIGHRNGE#LOWRNGE !FINDTAB  CLSALL  OPENLEV  OPENTO  RENUMER  SETBUF 7653210.+'&%$#"   <LhhhhhhhhhhhhhhHH LQKIGECA?=41.-,+*)(|hhhhhhHH  L1$ JLL,|wvtmifcba`_\ZVUTSOKJI)&%# zvutrrhh_PMLK:7653210.+'&%$#"   <LhhhhhhhhhhhhhhHH LQKIGECA?=41.-,+*)(|hhhhhhHH  }{xunmlZWVUSPNKIHGED51.&%$ wvtmifcba`_\ZVUTSOKJI)&%# zvutrrhh_PMLK:pmlkjfdaXWRQNED?<;:7210/-,$" }zut^]\[ZUTSRKJA@?>=8721 %1/05665/ w123L7\ \ [ V P L C - ( # !         ~}SRQPMKBA840,* u /ć X . Lh-)͎ L / w-/%`/- ե9::,,`!L 2u 2 2 ,&hhhhhhhhHH /0   L ` `*,. L _ ` A\ _ 8_ ` L Lh a *b 8 f c d 8 f `!iɂ8`*e E LhL ,,-566 2LJ 53r *F-) y TLh L ,  z  5 66 = , ;h ^3$4% c$ c% cg^_  1e__gL Ȅh _1  L3 LC^^g2 c_h`5H6H6H$% 5$ȱ5%h6h6h5`L   0:,)$&%$%H$&%$&%e$%m$he%%ɩ`ȩ(L 5 `5%5$8` e  1` c., Lc`` u ,5ȥ5ȭ5 b3!4"!#$m m 5Ȋ5ȭ35ȭ45  g3$4%  , p 1 &ʭ1 L л5$ȱ5%5  p 1'â V L , = -? c1  p 1' V = LV 2`ɺ1-)%ɾ!-,,(0cȹ2ɄɁɃSȹ20L:Hh%$(20BUMP c_ OPENBO ENBO CLSOUT SOUT RENUMEN FILNUM2 RELTAB LTAB MERGEOK RGEOK XREFER EFER XLIST XLIST FINDTAB NDTAB CLSALL SALL XLISTER OPENLEV ENLEV OPENTO ENTO RENUMER SETBUF TBUF OPENBI ENBI XLISTER %ISTER ERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY e=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFREQNUM BUF "CONTROL CONTROL RETURN RETADR GETPARMS TPARMSERROR ROR STATUS STATUS BLDSTRN ,BUF |F GETPARMSca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFB>;:9853/&" NL64Ch5h6h3lh4m 0/L6H5H`g8640'%76,V^dKA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`g##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXXL `L5GA3/1.01:7SY CONTROL XREF XREF GOMESH 7MESH MERGE MERGE  FILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  -d ..... "HELLO" ...Version HD 100-3040 iday$(7)ns05);"PREFIX = ";>x=4:"80C";"**** PROFILE BUSINESS BASIC BOOT DISK ****";$=7:P=1:"80C";"--MAIN MENU--"508);" 1)............CATALOG DISK IN DRIVE #1."508);" 2)...ES/BASIC/Q"0N:"80C";"YOU ARE NOW IN BUSINESS BASIC":X110b9:=4:"80C";"---BASIC to TEXT CONVERSION---":::;15);"ENTER FULL PATHNAME OF BASIC PROGRAM.... ";:A$;15);"ENTER FULL PATHNAME OF NEW TEXT FILE.... ";:B$[=14: ":PRINT CHR$(07):GOTO 492 9:" -Running program-".A510,520,530,540,550,560,570,580,590,600"CALENDAR""FILE.READER""TIMESET""RENUMBER"&"PRT.CODES.PROG"0650:800!D".PROFILE/LANGUAG MENU."+08);" 9)............BUSINESS BASIC."4"80C";"--any other key to RETURN TO PAGE 1--" :"80C";"-SELECT OPTION-" 1000B=():=20:WW=0:A=B-48A<1A>9A=10d IF A=8 THEN PRINT USING"80C";"INPUT ERROR-number 8 is unused ..........RENUMBER OR MERGE BASIC PROGRAMS.">08);" 5)............REVIEW PRINTER CONTROL CHARACTERS."508);" 6)............BASIC to TEXT CONVERSION."508);" 7)............TEXT to BASIC CONVERSION."308);" 8)............RETURN TO PROFILE0C";"**** PROFILE BUSINESS BASIC BOOT DISK ****";%=7:P=2:"80C";"--MAIN MENU--";"80C";" page 2 "%08);" 1)............CALENDAR.",08);" 2)............READ TEXT FILES.",08);" 3)............SET DATE & TIME."=08);" 4)..O, line 315"nJ:::"79C";"-'ESC' for BASIC, 'M' to return to MENU, any other key to continue-"::B$:B$=27)340LB$="M"B$="m"110O"DRIVER.CHECK"0T:"80C";"YOU ARE NOW IN BUSINESS BASIC":05);"PREFIX = ";>=4:"8="Trackball Card":C$="Titan ///+II Card":D$="Profile Card".@:=8:"80C";"APPLE III SLOT ASSIGMENTS"sE20);"Slot #1........";A$:20);"Slot #2........";B$:20);"Slot #3........";C$:20);"Slot #4........";D$1G::45);"Enter changes in HELL' for BASIC, any key to continue-"::B$:B$=27):110310: SLOT ASSIGNMENT"PRINTER.MENU" "MENU"K,"79C";"-'ESC' for BASIC, any key to continue-":B$:B$=27):110+6 ......"SLOT.ASSIGNMENT"...... P;A$="Pkaso Card":B$ BASIC, any key to continue-"::B$:B$=27):110U".D3":"79C";"-'ESC' for BASIC, any key to continue-"::B$:B$=27):110V".RAM":"79C";"-'ESC' for BASIC, any key to continue-"::B$:B$=27):110Z".PROFILE":"79C";"-'ESC):=17:WW=0:A=B-48A<1A>9A=109:" -Running program-".A210,220,230,240,250,260,270,280,590,400U".D1":"79C";"-'ESC' for BASIC, any key to continue-"::B$:B$=27):110U".D2":"79C";"-'ESC' for....PRINTER FORMAT AND FONT SELECTION PROGRAM (C.ITOH)."108);" 8)............GENERAL MENU PROGRAM."+08);" 9)............BUSINESS BASIC.";"80C";"--any other key FOR ADDITIONAL SELECTIONS--" :"80C";"-SELECT OPTION-" 1000B=(.........CATALOG DISK IN DRIVE #2."508);" 3)............CATALOG DISK IN DRIVE #3."-08);" 4)............CATALOG RAM DISK.",08);" 5)............CATALOG PROFILE."808);" 6)............REVIEW SYSTEM CONFIGURATION."O08);" 7)........:"OPEN#3 AS OUTPUT,";34);B$;34)":OUTREC=255:OUTPUT#3:LIST:CLOSE:OUTREC=80":G::"80C";"-after program is loaded enter high lighted command-"015);"This will open a text file '";B$;"'"C"80C";"It will list your program to it, and close the file."4"79C";"-Upon completion return to MAIN MENU-"@"79C";" by entering 'RUN .PROFILE/LANGUAGES/BASIC/HELLO'"A$:07)9 :=4:"80C";"---TEXT to BASIC CONVERSION---":::^*:01);"Remember the TEXT file must have the fn190: PREFIX$="/P/BASIC":GOTO 190:REM Coldstart x300: Warmstart (GOTO 30) I=1L(A$(I),A$))180B$(J)=A$(I),1,31) 9160 J=J+1:A$(1000),B$(1000)':::"79c";"Catalog of Profile" #1, ž#1280I=0': LINES RESERVED AT THE TOP PAGE "MENU"$d --------- "MENU" ---------eJ=0:COL=0:N78=78i:+jTOP=3: LINES RESERVED AT THE TOP PAGE -kBOT=0: LINES RESERVED AT BOTTOM OF PAGE 4lLINES=24-TOP-BOT: LINES FOR THEACTUAL CATALOG 6-3040 i1%=ҟ,4,1)):mi2%=ҟ,5,1))& c%=19:d%=year%:k%=day%:m%=month%-2*m%<=0m%=m%+12:d%=d%-1= d3%=(26*m%-2)/10)+k%+d%+d%/4)+c%/4)-2*c%)7+1) d3%<0d3%=0$ =5:19);"-";day$(d3%);" "; / ..... "HELLO" ...Version HD 100e day of week + Get components of DATE$ and TIME$ #y1%=Ҡ,1,1)):y2%=Ҡ,2,1))#m1%=Ҡ,4,1)):m2%=Ҡ,5,1))#d1%=Ҡ,7,1)):d2%=Ҡ,8,1))6year%=y1%*10+y2%:month%=m1%*10+m2%:day%=d1%*10+d2%# h1%=ҟ,1,1)):h2%=ҟ,2,1))%mFT$(DATE$,2);" "; /`П,2))=>13П,2))-12;џ,6);:1140$jП,2))=0"12";џ,6);:ٟ;$tП,2))=>12" PM-":" AM-" ~1190WW=1P=1194WW=1P=2494=05:1000 :WW=1:3 Zeller's Congruence to calculat00!M$="July":1100"M$="August":1100#M$="September":1100$M$="October":1100%M$="November":1100&M$="December":1100L=041V2000:M$;" ";Ѡ,2);", ";"19";Р,2);" ";WX PRINT TAB(26);"-";M$;" ";VAL(RIGHT$(DATE$,2));", ";"19";LE="Thursday"day$(6)="Friday"day$(7)="Saturday"M=Ҡ,4,2))BM1051,1052,1053,1054,1055,1056,1057,1058,1059,1060,1061,1062M$="January":1100M$="February":1100M$="March":1100M$="April":1100M$="May":1100 M$="June":11n completion return to MAIN MENU-"@"79C";" by entering 'RUN .PROFILE/LANGUAGES/BASIC/HELLO'":# ..... "DATE.TIME.LINE" .... day$(0)="UNKNOWN"day$(1)="Sunday"day$(2)="Monday"day$(3)="Tuesday"day$(4)="Wednesday"day$(5)80C";"-enter the above high lighted command-"Oz:05);"This will EXEC the TEXT file ";A$;" At completion enter 'LIST'.">"80C";"This will LIST the BASIC program to the screen."4"80C";"-To save it, SAVE to a specific file-"4"79C";"-Upodit the text file to achieve this form."U\:"80C";"-Press ESCAPE to return to the Main Menu, any other key to continue-"aAN$:AN$=27)110;f15);"ENTER FULL PATHNAME OF TEXT FILE.... ";:"";A$ k:=8p:=30::"EXEC ";A$:9u::"orm and configuration of a BASIC program."k401);"That is a line number followed by a line of BASIC program as indicated in the example below:",>20);" 100 FOR X = 1 TO 10"#H20);" 110 NEXT X"DR::20);"Review and eI=I+1:#1;A$(I):270#1 "L=I-1-'COL=(L+(LINES-1))/LINES):NCOL=78/COL),j=1:same=0:I6a$="Use arrow keys to move; to select; to abort"@12);::"80C";a$;:J=TOP:B$(1)="":B$(2)=""TA$="BASIC 0":130^Astring$,8,1))A$vernum$=string$,11,1))),2)+string$,10,1))),2).8 --- Print out data ---B L1170V10);DEVICE$;" DRIVER";`SLOT=015);"Not in a slot":15);"In slot ";SLOT:j15);"Devtype = ";DEVTYPE;30);"Su;17);"Enter 'A' for again or any other key to exit "; "";AN$AN$="A"AN$="a"210 "HELLO" Device Informationdevinfo(@string$)device$slot=string$,1,1))devtype=string$,3,1))subtype=string$,4,1))manid=5b$(b)=a$(b),15):3304@a$(b),INC,1)=" "b$(b)=a$(b),INC-1):INC=15JINCTDEVICE$=b$(b)^DEVICE$=""400 h1000=r --- Limit number of devices appearing on the screen ---|K=K+1:K=4AN$:K=1b!:"79C";"-end of listing-"=5:"Device";09);"Volume/Status";09);"Available"7"------";09);"-------------";09);"---------": a=1i-1 a$(a)a("80C";"-ANY KEY TO CONTINUE-":A$# --- Shape up device names ---K=1 "b=1i-1,INC=115#6INC=18d DRIVER.CHECK 100-1280 January 1990 na$(25),b$(25) x"VOLUMES.INV","REQUEST.INV" œ200% --- Initialize the Routine INITVOLUMES i=i+1" --- Get Device Information GETVOLUMES(@a$(i))160;:-------- #=(((J-1)/COL)+TOP))%#=((J-1)-(J-1)/COL)*COL)*NCOL+1#COL>49190#LENGTH=NCOL-7$#B$(J),2,7)B$(J),16,LENGTH); #9199#B$(J),2,(NCOL)/COL);#=B$+A$:970-LVAL>0A=8A$+31);:B$=B$,B$)-1)LVAL=0B$="":A$+31);970 =B$:A=0:same=(=oldprefix$)$(same)29)+6);.8=2:=1:"PREFIX$ = ";;:B:=THPOS:B$(I);:L:=24:=0::%V --------- "MENU" -):a=2431);La$="Use <-- ; to accept ; to skip ; to erase"=1:=1::"80C";a$;:1080:31)+5);:B$=A$:A=A$):A=27900A=31100A=131050a=24="":940-LVAL=-12:A>31A$+31);:B$;">>> PRESS ANY KEY TO CONTINUE <<<"a$ #2,B$(J),16,B) ž#2830 820*#2;A$:A$:8104<>27800 >:#2H R=".d1"\".D1/HELLO"fp=+B$(J),16,B)z240 N=ơ) N=N-1ҡ,N,1)<>"/"910!N>1=С,N"CAT 0")880390A$="RUNNING "+B$(J),16,B)"79C";A$;:=0B$(J),16,B) =24:=1A$="LISTING "+B$(J),16,B)Cc$="Press CONTROL and 7 on numeric pad simultaneously to pause""79C";A$:"79C";c$4::"79C"A-7490,510,540,570 :9160 :390J>1J=J-1I=IBOTMJ0J=J-COLNlB=B$(J),16)," ")-1vB$(J),"BASIC 0")670B$(J),"TEXT 0")710B$(J),$="TEXT 0":1300hA$="CAT 0":130:A$(L),"BLOCKS")380r=0:=+3:"83C";A$(L);|IBOTM=J-1:J=1::470A$:A=A$):A=21A=9 9160A=31100-A=27TVPOS=:1090:940:same310:240A=13620 9160A<8A>11390btype = ";SUBTYPE.t15);"Manufacturer ID = ";manid;" -";M$$~15);"Version number ";vernum$, MANUFACTURER'S IDENTIFICATION NUMBERS!manid=1M$="Apple Computer""manid=51M$="On Three, Inc."/manid=73M$="Interactive Structures Inc.",manid=101M$="ATTACH; Soft-Life Corp."#manid=85M$="Sykora Software"/manid=39M$="GRAPPLER; Orange Micro Inc."-manid=48M$="Santa Clara Systems, Inc."manid=0M$="UNLISTED" The manufacturer's ID is the base 10 value ofACE":450.35):"LINES PER INCH (6 or 8) ":L L=6490 L=8500=-1:450/#1;27);65);:L$="6 LINES PER INCH":510/#1;27);66);:L$="8 LINES PER INCH":510):45):"HEADLINE (X2) Y/N ":h$h$=27)710h$=RIPT":380,rW$="ITALIC":#1;27);105);49);:380|25);"STYLE MENU".25);" 1...NORMAL";41);" 2...BOLDFACE",29):"SELECT TYPE STYLE (1-2) ":Y:Y>2Y<1=-2:400Y430,440Y$="NORMAL":450'#1;27);33);:Y$="BOLDF1;27);81);:X$="PICA-17":320Y@:15);"FONT MENU-2":15);"1...NORMAL";29);"2...SUBSCRIPT*";47);"3...ITALIC*"BJ19):"SELECT FONT STYLE (1-3) ":W::W>3W<1=-2:330TW350,360,370^W$="":380/h#1;27);115);50);:W$="SUBSC5);" 2...Pica-10";30);" 4...Pica-17"(9):"SELECT TYPE FONT (1-4) ":XX>4X<1=-1:250X280,290,300,3101#1;27);80);:X$="ELITE PROPORTIONAL":320&"#1;27);78);:X$="PICA-10":320&,#1;27);69);:X$="PICA-12":320&6#S$="Y"S$="y"1170L=2:"80C";"PRINTER FONT AND TYPE STYLE SELECTION";:"80C";"PROGRAM"F"80C";"(items with '*' are not available on the NEC printer)":5);"FONT MENU"85);" 1...Elite Proportional";30);" 3...Pica-12"-0C";"(ESCAPE key for BASIC)"N=7:=15:"DO YOU WISH A SAMPLE PRINT OF THE FONT SELECTED ? (Y/N) ":Q$Q$=27)710Q$="Y"Q$="y"Q=1V=9:=15:"DO YOU WISH THE COMPRESSED, BOLDFACE FONT AT 8 LINES/INCH ? (Y/N)":S$S$=27)7101304=15:"SET LEFT MARGIN TO xxx ";LM:LM>1801365a=LM/100):b=(LM/10)-a*10):c=(LM-(a*100+b*10))#1;27);76);a;b;c;D::=15:"ANY OTHER CHANGES ? (Y/N) ":V$:V$="N"V$="n"710*:"80C";"--- PRINTER FONT MENU ---"%"8);49);: SOFTWARE RESET COMMAND-???CHR$(27);CHR$(34);CHR$(15);CHR$(27);CHR$(89)???%~"80C";"(ESCAPE key for BASIC)"C=7:=15:"DO YOU WISH TO CHANGE THE LEFT MARGIN ? (Y/N) ":W$W$=27)710W$="N"W$="n"150W$="Y"W$="y"136 *"Us25);"* IS THE PRINTER ON ? *":25);"* *"^t25);"*******************************":=20:"80C";"-press any key to continue-":ANS$*x:"80C";"--- PRINTER FONT MENU ---" z#1,PD$f|#1;27);99"80C";"-press any key to continue-":ANS$3_ HPOS=20:INPUT"ENTER NAME OF PRINTER- ";P$ G`=20:"ENTER NAME OF PRINTER DRIVER- ";PD$:PD$=""PD$=".GPRINTER" d:Q=0Zr=10:25);"*******************************":25);"* EZ ..... "PRINTER.MENU"... C.Itoh, NEC PC8023A-C .... 90-1250 \:=10::"80C";"-PRINTER DRIVER LIST-"::20);"- '.PPRINTER' for PARALLEL CARD.":20);"- '.GPRINTER' for GRAPPLER CARD.":20);"- '.PRINTER' for SERIAL PRINTER."5^=20: the last two digits of the HEX value in the SPC (SYSTEM UTILITIES) listing of drivers.8 DRIVER.CHECK 100-1280 January 1990 "Y"h$="y"550h$="N"h$="n"560=-2:510*&#1;14);:H$="HEADLINE emphasis":5700H$="":570)::55):"UNDERLINE PRINT Y/N ":a$;a$=27)710Da$="Y"a$="y"610Na$="N"a$="n"620X=-2:570-b#1;27);88);:A$="and UNDERLINED":630 lA$=""7v:=4:"80C";"FONT AND STYLE SELECTION COMPLETED"f=08:"You have selected ";X$;", ";W$;" font and ";Y$;" style":20);"with ";L$;" ";H$;" ";A$;=12:=21:"DO YOU WISH TO SET PRINTER MARGINS ? ":PM$PM$=1::"79C";"USE THE ARROW KEYS TO SELECT, THE RETURN KEY TO ACCEPT YOUR CHOICE"::=5:=0:"WHERE IS THE TEXT FILE YOU WANT TO READ ?"::"15C";"DISK 1";FLAG=1"15C";"DISK 2";FLAG=1"15C";"DISK 3";F d ......"FILE.READER"....iTPREFIX$=Gn:=10:"80C";"ESTABLISH THE SCREEN SCROLLING FEATURE (Y/N) ? "0xA$:A$<>"Y"A$<>"N"A$<>"y"A$<>"n"120A$="Y"A$="y"2000):PROGRAM$="":DESTINATION$=".CONSOLE" ::1)^=12:=$="Y"K2$="y"#1;09);"80;"N"; ZK$="Y"K$="y":21);" Note an extra line feed will be seen in APPLE III use !!"700E ..... "PRINTER.MENU"... C.Itoh, NEC PC8023A-C .... 90-1250 #1;27);33);:Y$="BOLDFACE"*#1;27);66);:L$="8 LINES PER INCH"?:::=21:"FOR USE WITH THE APPLE II MODE ? (Y/N) ":K$2K$="Y"K$="y"#1;27);68);138);82);>:=21:"DO YOU WISH AN 80 COLUMN FORMAT ? (Y/N) ":K2$*K2RS$="y"1120:1160>`:::=28:"SET LINE SPACING IN 1/144 OF AN INCH ...";LS$jLS$<"1"LS$>"99"11000tL$="SPECIAL line spacing":LSS$="/144 inches"~#1;27);84);LS$:::670 ... "PRINTER.MENU" !#1;27);81);:X$="PICA-17""29);65);64);X=1LP-2#1;64);64);X$#1;67);64);.#1;65);64);30);98:=8:"80C";"******* SPECIAL LINE SPACING *******" BLSS$=""IL:::=15:"LINE SPACING IS NOW ";L$;". DO YOU WISH TO RESET ?":RS$!VRS$="Y"27);47);d;e;f; 10803:=8:"80C";"******* LINES PER PAGE *******"i::2);"The selected line spacing ";L;" inches per inch results in a ";L*11;" maximium line page.".:=28:"SET LINES PER PAGE ";LPLP>L*11990#1;fc=(LM-(a*100+b*10))p#1;27);76);a;b;c;z:*=28:"SET RIGHT MARGIN TO -- xxx ";RMRM<10900d=RM/100)e=(RM/10)-d*10)f=(RM-(d*100+e*10))NLM=>RM:::"80C";"MARGINS REQUESTED OVERLAP--RESET"::=40:U$:820#1; = ";:#1"###";RMM  PRINT#1" ";"LINES PER PAGE = ";:PRINT#1 USING"###";LP*71044:=8:"80C";"******* PRINTER MARGINS *******".>::=28:"SET LEFT MARGIN TO -- xxx ";LMHLM>180830Ra=LM/100)\b=(LM/10)-a*10) ";Y$;" type style "+#1" ";L$;" ";LS$;LSS$%#1" ";H$;" ";A$PM$="Y"PM$="y"780710> #1" ";"LEFT MARGIN = ";:#1"###";LM>#1" ";"RIGHT MARGIN 2$="Y"K2$="y"#1;09);"80";"N";ZK$="Y"K$="y":21);" Note an extra line feed will be seen in APPLE III use !!" Q=1720>#1::"80C";"**** RETURNING TO MAIN MENU ****":"HELLO".#1"You have selected ";X$;", ";W$;" font"-#1" 27)710PM$="Y"PM$="y":820@:::=21:"FOR USE WITH THE APPLE II MODE ? (Y/N) ":K$K$=27)7102K$="Y"K$="y"#1;27);68);138);82);>:=21:"DO YOU WISH AN 80 COLUMN FORMAT ? (Y/N) ":K2$K2$=27)710*KLAG=1"15C";"RAM DISK";FLAG=1""15C";"PROFILE";,FLAG=16=9:=0:CHOICE=17@A$:A$<>8)A$<>21)A$<>13)A$<>27)320JA$=13)450TA$=27)1250 ^FLAG=1h=7:=((CHOICE-1)*15)+1rCHOICE200,230,250,ontal Scroll.": 0,780,24 2700+a$(500),rightscroll$(1),leftscroll$(1) =2V*"Text file name to scroll through: ";a$:a$="cat"a$="CAT"a$="Cat"2092:2100&,"Enter desired pathname: ";PNAME$. PNAME$:20904a$=""2530 >#1, August 1982* Enhanced by Mike Kramer  .."FILE.READER"..&2580::::=1:n=13:blank$:n*=1:blank$:=1:=33:"Screen Scroll":q"79C";"RETURN TO EXIT PROGRAM":=8:"Scroll with Arrow Keys. Use Open Apple for Fast Horiz$<>" "1420:ۺ600! ......"FILE.READER".....A1,2080,24:=23:"DESTINATION FILE NAME....? ";DESTINATION$9=23:" "( *** Screen Scroll ***3 by Taylor Pohlman ... Softalk md::=12:=1:"79C";"TRIED TO FOOL ME, HUH? YOU DON'T HAVE THAT DEVICE ON LINE! Press the SPACE bar."nA$:A$<>" "1390: x:590a::=3:=1:"You don't have that device. You tell jokes for a living? Press the SPACE bar."A$:AINATION$:#2 (12602.<:=22:=0::"79C";"ANOTHER.....?"::EFA$: :IF A$<>"Y" AND A$<>"N" AND A$<>"n" AND A$<>"y" THEN 1350 TPA$="N"A$="n"::=8:"80C";"RETURNING TO MAIN MENU":=TPREFIX$::"HELLO"!Z:FLAG=0:110: RUN 2000 $=".CONSOLE"TME=1125:TME 1180 :1340.#2::=22:=0::"79C";"CONTINUE...?":1B$:B$<>"Y"B$<>"N"B$<>"n"B$<>"y"1270B$="N"B$="n"1250; :=22:=0::"79C";"PRESS ANY KEY TO HALT LISTING":1,180,21#2,DEST20VCHOICE=2::1250=`::=22:=0::"79C";"PRESS ANY KEY TO HALT LISTING":j1,180,21 t1260~#1,PROGRAM$#2,DESTINATION$#2 ž#11250 #1;A$A$)<21220$A$,1)=10)A$=A$,A$)-1)A$.DESTINATIONFLAG=1FLAG=1:CHOICE=1-A$:A$<>8)A$<>21)A$<>13)1020A$=13)1110=2:CHOICE960,990!A$=8)DTRACT=-1:DTRACT=1$CHOICE=CHOICE+DTRACT.CHOICE<1CHOICE=28CHOICE>2CHOICE=1B=2::CHOICE960,990: L10INATION$=".GPRINTER":ۻCHOICE=3DESTINATION$=".PRINTER":ۻCHOICE=4DESTINATION$=".SILENTYPE":۾1500 pFLAG=0 zœ1410#2,DESTINATION$1,2080,24 =2:=1=0:"39C";"DO IT";FLAG=1=40:"39C";"CANCEL"CHOICE650,680,700,720,735! A$=8)DTRACT=-1:DTRACT=1*CHOICE=CHOICE+DTRACT4CHOICE<1CHOICE=5>CHOICE>5CHOICE=1H=4:=((CHOICE-1)*15)+1#R:CHOICE650,680,700,720,735:\750fCHOICE=1DESTINATION$=".CONSOLE":ۻCHOICE=2DEST=1"15C";"PRINTER";FLAG=1"15C";"SILENTYPE";FLAG=1"15C";"FILE";FLAG=1CHOICE=1:FLAG=17A$:A$<>8)A$<>21)A$<>13)A$<>27)750A$=27)1250A$=13)870 =4:=((CHOICE-1)*15)+1XT file.'"):" Press the SPACE bar to try again "DA$:A$<>" "580:ۮ:490N1,1680,24X b=2:=1:5l"To what device would you like to print this?": v=4:=1"15C";"SCREEN";FLAG=1"15C";"PARALLEL";FLAGCHOICE=4=".RAM":ۡ=".PROFILE"1,1380,24:FLAG=0M=2:=1::"40R";"WHAT IS THE NAME OF YOUR TEXT FILE?";::" ";PROGRAM$PROGRAM$="END"1250 œ1400PROGRAM$, PROGRAM$&:=5:=1:,0"I can't seem to find that TE270,290!|A$=8)DTRACT=-1:DTRACT=1CHOICE=CHOICE+DTRACTCHOICE<1CHOICE=5CHOICE>5CHOICE=1=7:=((CHOICE-1)*15)+1#:CHOICE200,230,250,270,290:320 œ1380aCHOICE=1=".D1":ۻCHOICE=2=".D2":ۻCHOICE=3=".D3":ۻa$Hmaxlength=03R"How many units to fast scroll by? (10?) ";zip\ fž#12170Epi=0500:#1;a$(i):a$(i))>maxlengthmaxlength=a$(i)):::zlastrecord=isync$=22)mleftscroll$(0)=sync$+23)+256-zip)+26)+80-zip)+0)+2)+26)+zip-1)+24)+3)+21)+"5"+12)aleftscroll$(1)=sync$+23)+255)+26)+79)+0)+2)+26)+0)+23)+3)+21)+"5"+12)erightscroll$(0)=sync$+23)+zip)+26)+0)+0)+2)+26)+zip-1)+23)+3)+21)+"5"+12)_rightscroll$(1)oo$=128)+01)+095)+2)+08)+0)+128)+20)+095)+2)+08)+0) N=top#P=left:"Current date and time"#Z=left:"------- ---- --- ----" d=top+10'n=left:"Type D to change the Date"'x=left:"Type T to change the Time"1=22:"U"FRIDAY"9day$(7)="SATURDAY"<#1,".audio""A16);1): 40X24 Color modeED19);0);20);15): Set foreground/background colors FKleft=9:top=5QLcuck$=128)+01)+000)+2)+04)+0)+128)+30)+000)+2)+08)+0)PMk ' Set the Apple /// Date and Time .( Copyright (C) Apple Computer, Inc. 1980 - 1day$(7)2day$(0)="UNKNOWN"3day$(1)="SUNDAY"4day$(2)="MONDAY"5day$(3)="TUESDAY"6day$(4)="WEDNESDAY"7day$(5)="THURSDAY"8day$(6)=BASIC":* "80C";"-ON COMPLETION OF DISPLAY-";& 10);"-Press 'ESCAPE' for BASIC"+ 10);"-Press 'CONTROL-P' for printer"6 10);"-Press 'CARRIAGE RETURN' for another file"0 :::"80C";"-press any key to continue-" AN$::22503 ..."TEXT.FILE.SCRLL" ..."FILE.READER".....  "80C";"-INSTRUCTIONS-":4 10);"-Enter full pathnames as TEXT filenames"I 10);"-Enter 'CAT' as Text file name for Drive catalog information"5 10);"-Enter a '' AS TEXT filename for ":" ** Print Routine ** D( :"Destination (.PRINTER, etc.) : .PRINTER";:=32:"";pathname$'2 pathname$=""pathname$=".PRINTER"< pathname$,1)<>"."2600F #2,pathname$P m=1lastrecord Z #2;a$(m)d mn #2 x  hi>zipt=zip:b$=bnk$ 2390:( hi+79+zip<=maxlengtht=zip:b$=bnk$ 2410: :26);0);23);  # *** Scroll Routine ***  a$:a$):2570^ blank$=" ex=vi-25:hiindex=80+hi:j=124:b$,t*j-t+1,t)=a$(index+j),hiindex,t)::hi=hi+t:leftscroll$((t=1));b$;t 7~ vi24scrolldown$;a$(vi-25),hi,80);:vi=vi-1  cursor=27:2530 +5*(cursor=136)+6*(cursor=149)8 b$=blank24$:t=1.B move+12470,2390,2410,2430,2450,2490,2510 L :2310wV hi>tindex=vi-25:hiindex=hi-t:j=124:b$,t*j-t+1,t)=a$(index+j),hiindex,t)::hi=hi-t:rightscroll$((t=1));b$;` j hi+80<=maxlengthindhi=1:vi=24:'blank24$=" " bnk$="""i=1zip:bnk$=bnk$+blank24$: a$:cursor=a$) cursor=162600$ cursor=13::110: GOTO 2030$ cursor=27::[. move=(cursor=8)+2*(cursor=21)+3*(cursor=10)+4*(cursor=11)=sync$+23)+1)+26)+0)+0)+2)+26)+0)+23)+3)+21)+"5"+12)?scrollup$=16)+3)+26)+0)+23)+10)+21)+"5"+sync$,scrolldown$=16)+3)+12)+11)+sync$:21);"5";6i=023:a$(i))>80a$(i),1,80);::a$(i):sing Space key leaves original value")"ESCAPE aborts operation or program"*notfirst=0"timeset.inv":notfirst=1 200=left:=top+2$Ҡ,4,5);"/";Ҡ,1,2);" ";3000:2000):left+6);::day$(d3%);::" "!ҟ,4,5)<>"00:00"d3%=0160*ncoo&=П,2))12:ncoo&=0ncoo&=12$i=1ncoo&):#1;cuck$;koo$:i160=27=33100="t")="T")300="d")="D")400 2002,=left:=top+11::"Type T to change the Time"1=left+13:$,SP(1)+1,SP(2)-SP(1)-1)YR$=XX$,SP(2)+1)",YZ=YR-400*YR/400):DW=DZ6YZ<101330@YZ=YZ-100:DW=DW+5:310JYZ<5350TYZ=YZ-4:DW=DW+5:310^YZ=0DW=DW-2:356`DW=DW+YZ-1!d450:DW=DW+JD-1:YR>1582390hYR=1582MO>10390DADA<=ML(MO))210,(YR=1582MO=104"/"ZZ$<>" "ZZ$<>"-"260'XS=XS+1:XS=1XS=2SP(XS)=XL:260 MO$="":XL:XS<>2MO$="":2907MO$=XX$,SP(1)-1):DA$=XX;" ";YR:HD$:TL$:LX=1NL:VV=1VS:VL$:VV:BL$:LXCC=TC:LL=LL(NL)+BH:800:L=XX$):L<5210/220:MO=MO$)):DA=DA$)):YR=YR$))YR$)=2YR=YR+1900!480:ML(2)=28:XX=1ML(2)=29"(1<=MOMO<=12YR>=1)210(1<=:SZ=DW:NL=1:DL=ML(MO)+SZ-7xDL>0DL=DL-7:NL=NL+1:120}510:130:ND=ML(MO):400b~520::::::"AGAIN ? ('E' to exit/'B' to return to BASIC/any other key to continue)":A$A$="E"A$="e"950A$="B"A$="b"952105H=35:MO$(MO) .......CALENDAR...... :(=5:70;"******* CALENDAR *******"Q=1300:Q F 80C d610:900i510Qn=8:70;"USING NUMBERS INPUT 'MONTH/YEAR':":540:XX$="1/"+XX$:L=XX$):220,pXX$=DA$+" "+MO$+" "+YR$:140:XX<>1110"s300ҟ,1,1)):h2%=ҟ,2,1))% mi1%=ҟ,4,1)):mi2%=ҟ,5,1))  ::"HELLO"c%)7+1)9d3%<0d3%=0> ' Get components of DATE$ and TIME$ # y1%=Ҡ,1,1)):y2%=Ҡ,2,1))# m1%=Ҡ,4,1)):m2%=Ҡ,5,1))# d1%=Ҡ,7,1)):d2%=Ҡ,8,1))< year%=y1%*10+y2%:month%=m1%*10+m2%:day%=d1%*10+d2%:2000# h1%=4 Zeller's Congruence to calculate day of week  Inputs: year%,month%,day%% Output: d3% = 1-7 (1=Sunday)  c%=19 d%=year% k%=day% m%=month%-2*m%<=0m%=m%+12:d%=d%-1=4d3%=(26*m%-2)/10)+k%+d%+d%/4)+c%/4)-2*MSET(%Y1%*256+Y2%,%M1%*256+M2%,%D1%*256+D2%,%D3%,%H1%*256+H2%,%MI1%*256+MI2%)b100 Get character subroutine d$d$)=27100: ESCAPE 3d$=" "d$=i): SPACE leaves original char d$<"0"d$>"9"1030$d$;.00:day%=c$+d$)day%<1day%>31400d1%=c$):d2%=d$) "/";0i=y1%:1000:c$=d$:i=y2%:1000:year%=c$+d$)year%>99400y1%=c$):y2%=d$)#h1%=ҟ,1,1)):h2%=ҟ,2,1))%mi1%=ҟ,4,1)):mi2%=ҟ,5,1)) 2000&600TXTI6002=left:=top+10::"Type D to change the Date")=left:=top+2:Ҡ,4,5);"/";Ҡ,1,2)=left:=top+2:1i=m1%:1000:c$=d$:i=m2%:1000:month%=c$+d$)month%<1month%>12400m1%=c$):m2%=d$) "/";/i=d1%:1000:c$=d$:i=d2%:10=top+2:ҟ,1,5)6=left+13:=top+2:0@i=h1%:1000:c$=d$:i=h2%:1000:hour%=c$+d$)Jhour%<0hour%>24300Th1%=c$):h2%=d$) Y":";1^i=mi1%:1000:c$=d$:i=mi2%:1000:min%=c$+d$)hmin%<0day%>59300rmi1%=c$):mi2%=d$) |":00"rYR=1582MO=10DA>15390 |DW=DW+3DW=DW-7*DW/7):0DY=1:LX=1NL:LL=LL(LX):ZC=1:LX=1ZC=SZ+1-CX=ZC7:CC=CC(CX):800:" "+DY),2);DY=DY+1:DY>ND CX:LX:JD=J(MO)+DA:MO<=2480:XX=1JD=JD+1XX=0:YR<>4*YR/4)+YR=100*YR/100)YR<>400*YR/400) XX=1::X$:X$=""520 XX$=""&520:X$=8)580038);X$;:X$=13)600:XX$=XX$+X$:550DXX$)=0550&NX$;" ";X$;:XX$)=1XX$="":550SXX$=XX$,XX$)-1):t=63999) ";high$:high$)=0high=63999:5308high$)<48high$)>57=-1:510:high=high$)`"Starting value for the renumbered lines? (Default=10) ";start$:start$)=0start=10:550<start$)<48start$)>57=-1:530:start=start$with what file name? ";o$:o$)=0=-2:29);:470_"What line number should I start renumbering at? (Default=0) ";low$:low$)=0low=0:5104low$)<48low$)>57=-1:490:low=low$)d"What line number should I renumber up to? (Defaulterleaving of program lines? ";a$$a$)="Y")a$)="y")430append(@i$,@i2$,@o$)640merge(@i$,@i2$,@o$)640 --- RENUMBER#::"76c";"-- RENUMBER --"::"Name of Program to be Renumbered? ";i$:i$)=0120A"Save MERGE'^::"76c";"-- APPEND/MERGE --":3h"Name of the first Program? ";i$:i$)=0120Qr"Which Program should be merged with it? ";i2$:i2$)=0=-2:29);:3609|"Output file name? ";o$:o$)=0=-3:29);:3608"Should I allow in";i$:i$)=0120B"Output file name? (Press RETURN for output to .CONSOLE) ";o$o$)=0o$=".console"R""Should unreferenced lines be displayed?";r$:r$)="y")r$)="Y")320,xref(@i$,@o$)6640@xlist(@i$,@o$)J640T --- 26);"4 Quit"*8);:"Which option? ";a$:x=a$)-48x240,340,450,23018);"Please enter 1, 2, 3, or 4":=-2:2004::"79C";"-Returning to main menu-":"HELLO" --- XREF::"76c";"-- XREF --":-"Name of Source File: 3d .... "RENUMBER" .... HD version 100-660n"renumber.inv"x#"76c";"---- RENUMBER ----"!:8);"Your options are:": 26);"1 Line References"&26);"2 Append/Merge Programs"#26);"3 Renumber a Program" WED THU FRI SAT"VS=BH-1:TC=CZ+7: "HELLO"  ..........CALENDAR........3,1$XX=16:LL(XX)=LZ+(XX-1)*BH:XX$XX=17:CC(XX)=CZ+(XX-1)*BW:XXTL$="":BL$="":VL$=""8XX=17:TL$=TL$+"___________":VL$=VL$+"| "BL$=BL$+"|__________":XXVL$=VL$+"|":BL$=BL$+"|"SHD$=" SUN MON TUE BER OCTOBER,NOVEMBER,DECEMBER4DT=0:XX=112:J(XX)=DT:ML(XX):DT=DT+ML(XX):XXDT<>365) 31,28,31,30,31,30,31,31,30,31,30,31. 19):CC=CC-40*CC/40):LL=LL-24*LL/24)%=(2.75*CC+3) *=LL+4.5/BW,BH: 4,3LC,CZ: 550X bDZ: 1 lDW$(6),J(12),MO$(12),ML(12)vXX=06:DW$(XX):XX  SUNDAY  MONDAY  TUESDAY WEDNESDAY THURSDAY  FRIDAY SATURDAYXX=112:MO$(XX):XXA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEM)V&"What increment between each line? (Default=10) ";bump$:bump$)=0bump=10:57080bump$)<48bump$)>57=-1:550:bump=bump$)H: Map numbers larger than 32767 into standard two's complement form.3Dlow=low)):high=high)):start=start))MN"Should I allow lines to be moved? ";a$:a$)="Y")a$)="y")620+Xrenum(@i$,@o$,%low,%high,%start,%bump)b640.lreseqnce(@i$,@o$,%low,%high,%start,%bump)v640P=23:"79C";"-Press 'ESC' key for main menu...any other ke LPI.............27;65;12;27;50.1B;41;0C;1B;32..ESC-A;CRTL-L;ESC-2"A#3LM);"8 LPI................27;48.......1B;30.......ESC-0"[#3LM);"Special Spacing....27;65;n;27;50.1B;41;n;1B;32..ESC-A-n;ESC-2 (n/72 inches)"C#3LM);"Double Width.......d...........27;69.......1B;45.......ESC-E"A#3LM);"Emphasized OFF.......27;70.......1B;46.......ESC-F"C#3LM);"Apple II.............27;53;49....1B;35;31....ESC-5-1"C#3LM);"Apple II OFF.........27;53;48....1B;35;30....ESC-5-0"R#3LM);"61B;46.......ESC-G (Double Strike)"A#3LM);"Near Letter Quality OFF....27;72.1B;47.......ESC-H"C#3LM);"Subscript............27;83;49....1B;53;31....ESC-S-1"A#3LM);"Subscript OFF........27;84.......1B;54.......ESC-T"A#3LM);"EmphasizeNTER CODES-"B#3LM);"10 CPI...............18..........12..........CRTL-R"A#3LM);"12 CPI...............27;58.......1B;3A.......ESC-:"B#3LM);"17 CPI...............15..........0F..........CRTL-O"S#3LM);"Near Letter Quality........27;71.-b-c"YDEST$=".CONSOLE"AN$?^#3LM);"Unidirectional....27;62........1B;3E.......ESC->"?h#3LM);"Bidirectional.....27;60........1B;3C.......ESC-<"&r#3LM);"END OF C.ITOH CODES":#3wDEST$=".CONSOLE"AN$-|#3LM);" -IBM PRI#3LM);"Underline.........27;88........1B;58.......ESC-X"?@#3LM);"Underline OFF.....27;89........1B;59.......ESC-Y"EJ#3LM);"Left Margin.......27;76;a;b;c..1B;4C;a;b;c.ESC-L-a-b-c"ET#3LM);"Right Margin......27;47;a;b;c..1B;2F;a;b;c.ESC-/-a.............27;66........1B;42.......ESC-B"Q#3LM);"Special Spacing...27;84;n......1B;54;n.....ESC-T-n (n/144 inches)"@"#3LM);"Double Width......14...........0E..........CRTL-N"@,#3LM);"Double Width OFF..15...........0F..........CRTL-O"?6FF........27;105;48....1B;69;30....ESC-i-0"?#3LM);"Boldface..........27;33........1B;21.......ESC-!"D#3LM);"Boldface OFF......27;34........1B;22.......ESC-";34)?#3LM);"6 LPI.............27;65........1B;41.......ESC-A"?#3LM);"8 LPIal......27;80........1B;50.......ESC-P"A#3LM);"Subscript.........27;115;50....1B;73;32....ESC-s-2"A#3LM);"Subscript OFF.....27;115;48....1B;73;30....ESC-s-0"A#3LM);"Italic............27;105;49....1B;69;31....ESC-i-1"A#3LM);"Italic O#3LM);" -C.ITOH PRINTER CODES-"?#3LM);"10 CPI............27;78........1B;4E.......ESC-N"?#3LM);"12 CPI............27;69........1B;45.......ESC-E"?#3LM);"17 CPI............27;81........1B;51.......ESC-Q"?#3LM);"Proportion+d ..."PRT.CODES.PROG" ... 100-950 Bn:=4:20);"Enter destination - .CONSOLE";:=-8:"";DEST$7xDEST$=""=-1:=42:;".CONSOLE":DEST$=".CONSOLE" }#3,DEST$:LM=01: LEFT MARGIN /#3LM);" 'PRINTER.CODES'".y to continue:-" A$:A$=27)"HELLO":1205 .... "RENUMBER" .... HD version 100-660 ..27;87;49....1B;57;31....ESC-W-1"C#3LM);"Double Width OFF.....27;87;48....1B;57;30....ESC-W-0"C&#3LM);"Underline............27;45;49....1B;2D;31....ESC---1"C0#3LM);"Underline OFF........27;45;48....1B;2D;30....ESC---0"P:#3LM);"Skip Perforations....27;78;n.....1B;4E;n.....ESC-N-n (n Lines)"PD#3LM);"Page Length..........27;67;48;n..1B;43;30;n..ESC-C-0-n (n Lines)"CN#3LM);"Unidirectional.......27;85;49....1B;55;31....ESC-U-1"CX#3LM);"Bidirectional........27;85;48....1B;THE BEST OF SALERNO! exit ";A$A$="A"A$="a"100:940#3LM+20);"-END-"#3:"HELLO") ..."PRT.CODES.PROG" ... 100-950 LM=1)"3z PRINT#3 TAB(LM);"Unidirectional.......NA" 4 PRINT#3 TAB(LM);"Overscore............NA" 2 PRINT#3 TAB(LM);"Overscore OFF........NA" ##3LM);"END OF OKIDATA CODES"HDEST$=".CONSOLE"=20:"Enter A)gain or any other key tongth..........27;70;n......1B;46;n......ESC-F-n (n Lines) ??"aDEST$=".CONSOLE"AN$Nf#3LM);"Left Margin.......27;37;67;a;b;c..1B;25;43;a;b;c..ESC-%-C-a-b-c"^p#3LM);"Reset to Default..24;27;37;67;001.18;1B;25;43;001.CRTL-X;ESC-%-C-001 (CAN,s to 10 CPI)"C>#3LM);"Underline............27;67........1B;43........ESC-C"CH#3LM);"Underline OFF........27;68........1B;44........ESC-D"XR#3LM);"Skip Perforations....27;37;83;n...1B;25;53;n...ESC-%-S-n (182;N*1/3 INCH)"T\#3LM);"Page Le.....1B;38........ESC-8"W #3LM);"Special Spacing......27;37;57;n...1B;25;39;n...ESC-%-9-n (n/144 inches)"D*#3LM);"Double Width.........31...........1F...........CRTL-_"Z4#3LM);"Double Width OFF.....30...........1E...........CRTL-^ (Return;73........1B;49........ESC-I"K#3LM);"Apple II.............10 ?????.....0A ?????.....CRTL-J ?????")#3LM);"Apple II OFF.........?????"C #3LM);"6 LPI................27;54........1B;36........ESC-6"C#3LM);"8 LPI................27;56..."Emphasized...........27;84........1B;54........ESC-T (Horiz Offset)"C#3LM);"Emphasized OFF.......27;73........1B;49........ESC-I"R#3LM);"Enhanced.............27;72........1B;48........ESC-H (Vert Offset)"C#3LM);"Enhanced OFF.........27er Quality........27;49..1B;31........ESC-1 (NA with 17 CPI)"/#3LM);"Near Letter Quality OFF....?????"C#3LM);"Subscript............27;76........1B;4C........ESC-L"C#3LM);"Subscript OFF........27;77........1B;4D........ESC-M"S#3LM); -OKIDATA PRINTER CODES-"D#3LM);"10 CPI...............30...........1E...........CRTL-^"D#3LM);"12 CPI...............28...........1C...........CRTL-/"D#3LM);"17 CPI...............29...........1D...........CRTL-]"U#3LM);"Near Lett55;30....ESC-U-0"]DEST$=".CONSOLE"AN$Cb#3LM);"Overscore............27;95;49....1B;5F;31....ESC-_-1"Cl#3LM);"Overscore OFF........27;95;48....1B;5F;30....ESC-_-0"#v#3LM);"END OF IBM CODES":#3{DEST$=".CONSOLE"AN$-#3LM);"