LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$e-READ.ME.FIRSTCCA/ *HELLO.TEXTxAC*SOS.DRIVER 4"3F*MENU.MAKER |A*SOS.KERNEL ,V2a)PRINT.ALL A%SEG.T jAŸ/ III.PAR.04LE.1u' ,SHORT.MANUALz#wB C+RUN.PROGRAM #AC*SOS.INTERP F4keA1! DISKNAME.DATAAFLASHNAME.DATCAAHELLO >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L%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` @SATR((PPPPBTVSPLH   5Aʘ ;H:H` (# (I// 0`)I<0 ^)WL)6L5 I`6 `7 I`8 I`9A)I@DL8H\0`(d  $,($  , .CONSOLE a (C) 1980 by Apple Computer Inc.O  OOEJLf ((0,>!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"""""""> >>>356789:;<=>?@ABCD 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"STANDARD )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  )* 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ʆSTL8HSITQQST`{ ~I)_ J) ) )) ,0E EJ%O J(,@`[,S`,XP"[YJ H) +̰ H) +ʭP h̰ʩ8,)΂ ̓`,T H h J `T!   J(P J J `,0L5,P0H0 ԥ f0)ĭX)X҅x  (ĥŐL ,PHȊ©L,T!$',/47:>ADGJMRUX\_behknsv|  !$'*-27;@EILORUX[`chknsv~!$,169>AILORU[aknqw~ $27?DGKPSX`{ (+2;X[^chm%=BEHKPX]aehorw{L" ֦ڱΑ0Б֤ P L׭,Y0 JfiΥiώJe΅Хiю_ * $p̑бʑΈ0 Б̱ΑʈeمΐeمА`萿 " `ʝA`f(,:<>@BDFHJZbmt{` * $P_/`'ʤ˅΄ϥ̤ͅЄ * $̑бʑΈ0Ƞ P L" $)טɀIim]ٮ_8ذ `$0"8,YJک@ׅפ؈۩MLp,Y08*Ȅ * ,YJ}΅н(I I $0;P̑бʑΈ,YJՐ̑ʈ0 Ցʭ̈`萠,QJ,R,S,T,V " `,[,Y JI`I`[,Y J)`)`\m_],YJ}ʅ̽(I I `[M,Y0JՐ̑ʈ`Jհ0`Ցʭ̏Ȑ`\m_[ * P `L" 8,YJf׮_$P`% (L5, `é ĩ `Y) jYZNZ~ZO,Y0'^^^]]8^][[```__8`_\\b)ba)a b 04 )ߍY) J,P(`hh% ( ΍ ύ逅Ñ`` " ( ĩÍĩϭ & &υΠÑΈΝ + ҰةeÅÐн,,P,`,$ ( $  x) (,`ÙJ`ÙE`)S`)T`)U`)V`)W`)X`MY0ȱ͏ ȱ͐L" ()^ JJ* I `x|x|,,P-X + ΝL  `,0 x) `, HH`L5L  d     HEJ lO  zh) `(" ( (ÈE  z`)QȱÍR`)P`Ɂ" (`Hh) L L L [LM LM ,0L5 HH`! (56O[agm x `(" ((èDÈ`QȭR`P```JÈ`EÈ`S`T`U`V`W`X`[ȭ\` `YȭȭéL͐\L" ,XL \\L" ,CL [\L" [,)LL L YL Z)ߍZ`Z Z`aL bL )Z) ZL   x) `(, LL͏[`͐\L" Yo}"+9GPYo ` Xb[m][\m_\]_^`L ]m[]_m\_[\L [m]^\m_`L bXL Z Z`Z)Z`,@`[, [L[`[͏[`,s[L\RLґȥӑ,P0 h0  z`,0L5 ҅ӥĥŰ+,0p J L Lz )"Ơ̏ HH` MH,Y [J h̰ [h,L`  ;2,X-P" a{)X LnX0$0%,V ҥ #L$0T,WOKT0P;ҥ,W #LA\   8҅¥Ӆé҅L,T ,U H,T p  He҅Ґhe…å逅h,Q "$&(*,.024HQW]ciq|           & + . 1 4 7 : = @ F K N T W Z o w |     $ . 3 8 D o w z   , 7 > K ` e h      & ) 0 3 6 < A H M P S X \ _ b e j o t w z   $ ' , / 6 = N S X ` t (-1:C\aeqw̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[EGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭{}$(/4:?IXad#`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwyputer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S;?MOQSUWY[]`fjnx},49?HMRV\_dx}'38;HMRUZekqv{(Z.AUDIO C(C) 1980 by Apple Com`0֤F`,(0LH  ,-! (`í-ȑí.ȑí/ȑí0ȑí1ȑ``)M#-"ȩȩȭ*ȩ`,(0LH  HL*,0))`Í-ȱÍ.ȱÍ/x0)0)? 00XȱÍ1``(LH*00fg `"-#.$/&1)%)?0'`,(0LHEąĩEŅ,/'+?8fPF 8f* 2*H UhX U'+`0`)0)0 X*4,2*,10M.-- x0 0COPYRIGHT 1981 APPLE COMPUTERMICHAEL JOSEPH DHUEY NHMH` (# (B1BBl^`h[,($ ( h ))lfg % (*+,(~36qw/Okidata model 92A - via parallel card in slot 12.PRINTER AZZssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIL<^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 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING 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 DISCONNECONV&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$LENVALASCTENAACONV,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h `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, 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,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ȢЅ 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ֺyH8iinn0 xj*% $\hxy56y6( Cx( >x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe XE )s LvɁ >H>H= 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 y56y^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 lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`L656 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 feLe8 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@ @@h5H ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6Ht $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 hL?e8V je?e>e8U>e5V?e665e=e@eeehi?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` ׫$`pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;eed?eDISPLAY T DATA ** ***************************************************************************** * CALCULATE AVERAGES AND MAINTAIN GAIN/LOSS REPORT DATA ***************************************************************************** * IT PROGRAM: This option reboots your computer or exits to BOS3, CATALYST or SELECTOR ///. GAIN ON SALE Page 3 ** CALCULATE AVERAGES AND MAINTAIN GAIN/LOSS REPORield and coupon rate. LOAN AMORTIZATION CALCULATIONS: This section allows you to work on individual loans to calculate payments, interest rates, total costs, etc. Also prints complete amortization schedules. QUIT - EXe GAIN/LOSS report for the particular loan package file. GAIN/LOSS ON SALE: This section allows you to load the file averages to establish the GAIN/LOSS on your sale. Also allows entry of your processing files, customer yLATE AVERAGE/UPDATE REPORT FILE: This section allows the entry of loan package information to establish averages for the sale of your loan packages and their related reports. GENERATE LOANS GAIN/LOSS REPORT: This section creates th * * * * QUIT - EXIT PROGRAM * ***************************************************************************** CALCU * * GAIN/LOSS ON LOAN SALE * * * * LOAN AMORTIZATION CALCULATIONS E REPORT FILE * * * * GENERATE LOANS GAIN/LOSS REPORT * * ************************************************* * * UP/DOWN ARROW TO MOVE POINTER - RETURN TO SELECT PROGRAM * * * * ->CALCULATE AVERAGE/UPDAT Page 2 ** MAIN MENU ** ***************************************************************************** * * G A I N O N S A L E b y P a i r S o f t w a r e * ****************************ut if you are handling a number of loan packages you make wish to place most of your files on a second diskette or install you entire system on your hard disk. GAIN ON SALE ard disk sub-directory and the HELLO program (e.g., /PROFILE/GAIN.ON.SALE/HELLO). FILE SIZES Space on Apple /// diskettes is limited. You can enter a fair amount of loan data on the present boot diskette, buld be to the Basic interpreter (e.g., CATALYST/BASIC, etc.). The system prefix should be set to the hard disk sub-directory pathname (e.g., /PROFILE/GAIN.ON.SALE, etc.). The program boot should be set to the hTHE WORK FILE * * CLEAR THE WORK FILE * * ADD DATA POINTS * * DELETE/CHANGE DATA POINTS * * ======================================= * * CLEAR THE REPORT FILE * * EDIT THE REPORT FILE *************************************** * UP/DOWN ARROW TO MOVE POINTER - RETURN TO STORE DATA VALUE * * * READ AVERAGE FROM FILE Page 5 ** GAIN/LOSS ON LOAN SALE ** ***************************************************************************** * GAIN OR LOSS ON SALE OF LOANS ************************************** At this prompt you can enter the correct REPORT FILE name, press RETURN for the default 'REPTFILE' file or 'Q' to exit to the GAIN ON SALE Main Menu. GAIN ON SALE 82 DATA 00001 WORKFILE 08/07/88 03:43 08/06/88 15:54 84 TEXT 00001 PLIST 07/18/87 11:58 08/06/88 15:54 69 BLOCKS FREE: 73 BLOCKS USED: 207 TOTAL BLOCKS: 280 ENTER NAME OF REPORT FILE (='REPTFILE', Q='QUIT') -- 0018 SOS.DRIVER 10/06/85 22:16 08/06/88 15:51 8704 *SYSTEM 00052 SOS.INTERP 06/23/88 07:57 08/06/88 15:51 25963 *SYSTEM 00044 SOS.KERNEL 11/01/82 00:00 08/06/88 15:50 22016 DATA 00001 REPTFILE 08/06/88 15:57 08/06/88 15:55 2SALE 08/07/88 02:42 08/07/88 03:21 8448 *BASIC 00011 LOAN.RPT 08/07/88 02:46 08/07/88 03:21 4864 *BASIC 00001 QUIT 08/07/88 01:03 08/07/88 03:21 12 *PASCOD 00006 GTO.RUNTIME 02/03/86 22:30 08/07/88 02:09 2560 *SYSTEM 0DIFIED TIME CREATED TIME EOF *BASIC 00024 AVG.CALC 08/07/88 03:07 08/07/88 03:20 11520 *BASIC 00004 HELLO 08/07/88 03:15 08/07/88 03:20 1461 *BASIC 00019 LOAN.AMORT 08/07/88 02:33 08/07/88 03:21 8960 *BASIC 00018 LOAN.nts (000-255). You have have up to 6 codes, and each code must be three numeric characters long. If you make an error on entry, the program will allow you to re-enter. GAIN.ON.SALE (00/00/00) V0 TYPE BLKS NAME MOinto the condensed print mode. If the latter option is your choice, you will need to enter the necessary printer control codes here. The format for a printer control code is nnn1..nnn6, where nnn is the format of the code elemeNS GAIN/LOSS REPORT ** Use printer setup string (format nnn1nn2...nn6)? -> 027015 When entering this section of GAIN ON SALE, you will either need a wide carriage, 134 column printer or be able to set your 80 column printer d report file. REPORT FILE MAINTENANCE: Delete/Rename various report files. QUIT: Return to GAIN ON SALE Main Menu. GAIN ON SALE Page 4 ** GENERATE LOAhe present work file. DELETE/CHANGE DATA POINTS: Edit information in the present work file. CLEAR THE REPORT FILE: Clear the present REPORT FILE. EDIT THE REPORT FILE: Edit data presently stored in the presently selecte * ******************************************************************************** DISPLAY THE WORK FILE: Displays the present WORK FILE. CLEAR THE WORK FILE: Clears the present WORK FILE. ADD DATA POINTS: Add loan information to t * * REPORT FILE MAINTENANCE * * ======================================= * * QUIT - RETURN TO TOP LEVEL MENU 1 * * AMOUNT SOLD $650,000 * * COUPON RATE (%) 13.369 * * TERM OF LOAN (MONTHS) 360 * * LIFE OF LOAN (MONTHS) 144 * * YIELD TO INVESTOR (%) 0.000 * * FEE $0 ( 0.000%) * *  GAIN.ON.SALE.1 HELLO BOOT œ200 (=23:=1L2"Please place the GAIN ON SALE program diskette in the internal drive."7"(It's on Side Two)""<"Press RETURN to continue..";Fg$:g$<>13)7);:70P="/GAIN.ON.SALE.2/" Z"heALE Page 7 ** LOAN AMORTIZATION CALCULATIONS ** ***************************************************************************** * LOAN AMORTIZATION PARAMETERS or (-)LOSS, the LESS FEE, and the NET GAIN or (-) LOSS, the the total PRICE of the loan package. BREAK-EVEN will get the break even point for the package, in case you would want to unload it. GAIN ON S * ***************************************************************************** INPUT PRINT ->QUIT BREAK-EVEN This screen shows the original values entered in the first screen, then calculates the GAIN,500 * * NET GAIN or (-) LOSS $226,887 * * * * PRICE $879,387 ( 135.290%) 8.350 * * ------------------------------------------------ * * GAIN or (-)LOSS $229,387 * * LESS FEE $-2ESTOR (%) 8.350 * * FEE $2,500 ( 0.385%) * * SERVICE FEE (%) 0.250 * * REINVESTMENT RATE (%) COUPON RATE (%) 13.369 * * TERM OF LOAN (MONTHS) 360 * * LIFE OF LOAN (MONTHS) 144 * * YIELD TO INV ***************************************************************************** * * AMOUNT SOLD $650,000 * * GAIN ON SALE Page 6 Second Screen: ***************************************************************************** * GAIN OR LOSS ON SALE OF LOANS rmine YIELD TO INVESTOR, FEE and the SERVICE FEE. REINVESTMENT RATE defaults to the YIELD TO INVESTOR value. It can be changed. PERFORM CALCULATIONS: Starts the calculation process. The second then appears: u can simply enter the appropriate data in AMOUNT SOLD, COUPON RATE, TERM OF LOAN, etc. and then PERFORM CALCULATIONS. TERM OF LOAN defaults to 360 months (30 years) and LIFE OF LOAN to 144 months (12 years). You dete*************************************************** READ AVERAGE FROM FILE: Pressing RETURN on this option will read the averaging data form the WORK FILE for the present set of loans. You do NOT have to use this function. Yo SERVICE FEE (%) 0.250 * * REINVESTMENT RATE (%) 0.000 * * ->PERFORM CALCULATIONS/QUIT PROGRAM * **************************llo"d=32=24:=1:18);"GAIN ON SALE program diskette not found. Press RETURN..";17);:g$:30a=30=24:=1:18);"GAIN ON SALE Hello program not found. Press RETURN..";17);:g$:30Q=24:=1:18);"Error #";;" in Line #";;". GAIN ON SALE LE PI PD DISK * * PRINTER SETUP (nnn1nnn2...nnn6) 027064 * * ->PERFORM CALCULATIONS/QUIT PROGRAM * * o the GAIN ON SALE Main Menu. GAIN ON SALE Page 8 NUMBER OF PAYMENTS PER YEAR 12 * * PRINT AMORTIZATION SCHEDULE 0 uires a wide carriage printer or a 80 column printer in the condensed print (130 columns+) mode. Enter the proper codes for your printer in the aforementioned format. INPUT continues the INPUT of data. QUIT returns you tedule for the loan will be printed. By using any number greater than one you can individualize the report (e.g., #1, #2, #8000, etc.). PRINTER SETUP: As with the REPORT FILE report above, the Amortization Schedule req PRINT AMORTIZATION SCHEDULE: If this value is zero, then when the PRINT function is used under PERFORM CALCULATINS/QUIT PROGRAM is used the present screen will be printed. If it is 1 or greater, a complete amortization schcreen is for the calculate of individual loan values. You do now enter ALL of the data. At least one of the values (LOAN AMOUNT, PAYMENT, INTEREST RATE, TERM OF LOAN) must be zero. The other values will calculate that value. nnn2...nnn6) 027064 * * ->PERFORM CALCULATIONS/QUIT PROGRAM ***************************************************************************** ->INPUT PRINT QUIT This sM OF LOAN (YRS) 13 * * NUMBER OF PAYMENTS PER YEAR 12 * * PRINT AMORTIZATION SCHEDULE 0 * * PRINTER SETUP (nnn1 LOAN AMOUNT $120,000.00 * * PAYMENT $1,605.03 * * INTEREST RATE (%/YR) 13.250 * * TER ***************************************************************************** * UP/DOWN ARROW TO MOVE POINTER/ENTER DATA - RETURN TO STORE DATA VALUE * * * Press RETURN..";17);:g$:30SURF THE INTERNET WITH WAP - CALL THE OFFICE FOR ALL THE DETAILS! S. (J)=A$(I),1,31)!J/2<>J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY alog. It is now in the public domain. We hope you enjoy it and encourage your submission of programs to our PD library. one of the 'Big Eight' accounting firms. It was used for their customers involved in real estate loans and real estate loan packages who owned and used Apple /// computers. It was updated somewhat by Pair Software in 1988 and was in their software cat WELCOME! WAP /// SIG Public Domain Library Disk Category/Number :Pair Software/3PAR-04 Disk Format: Self-booting This program was originally written by /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 HER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker"5 WAP /// SIG HELLO PROGRAM. UPDATED 4/12/89 DGO :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLAS16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; 0260I=11000:I:200: ,I=1X 14000 6#2,F$(I)@#3,".PRINTER" Ja$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!l; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leve 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"7M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:ž#2390 ^1000c: h#2;a$ma$rY=1150:Y0wB=B+1: Count the number of lines printed xB=15B=30355yB=60#3;12)zB=60B=1 {#3;a$|360B<=20#3;13)::410#3;12):Z=11000:ZI I=3R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"2010C$="N"C$="n"200;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": 20002,280,21 DF$(I)=D$+"/DISKNAME.DAT"F$(I)=D$+"/FLASHNAME.DAT"410:ۺ310 PRINTER v 1.0 p$ 900A$="PRINTING"+F$(I):$=01:=0::"80C";A$;::12)F=23:=0::"79C";"PRESS ANY KEY TO HALT PRINTING"::2,280,21 2000*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"#1,D$::"Processing directory ";34);D$;34);", please wait."; ž#1880*#1;A$:A$)<48104A$,3,4)<>"TEXT"810>X=X+1:".";HE=15:F$=A$,16,15)RF$,E,1)=" "E=E-1:850\F$(X)=D$+"/"+F$,E)f810p:  Pausež#1740#1;A$:A$)<4710A$,3,4)="TEXT"X=X+1710 :X>YN=P::7);"There are no text files in the ";34);D$;34);" directory." ::I=P::7);"Unable to locate and open ";34);D$;34);" directory." ::IT$=N$,E,1):T$=" "T$=","610XE=E+1:E>N$)610:590bD$=N$,S,E-S)l:v:E>S+1600:D$="": œ770P=3:"Looking for ";34);D$;34);" directory." #1,D$=P3:"Reading from ";34);D$;34);" directory." I>X200300S=1:D=1:B=1570D$=""500 Y=X:S=ED$(D)=D$:640 X=Y440D=D+1:S=E:440D=D-1:X=0F$(X):X=0 J=1D D$=D$(J)790&J0 :œ6303DE=S+1:N$,S,1)=" "N$,S,1)=","S=S+1:580%NEAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320 WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: GAIN ON SALE DISK ID : 3PAR.04 BOOTABLE? Side One GAIN ON SALE is a powerful program for those Apple /// owners involved in loan processing. Handles single or mulitiple loan packages. Calculates 344`5 566`67`8 89;P<=?@@@ACDF@FGPH`IIJPMPNO@OOP0PTWPXpYY[\] ^0^`pbcPdeghiiPiijkkm0mnppqP:BEES=0:10420(BEES=100*BEAS/vALUE(2)(=24:30);:œ10427 (10071 (10275((BDMS=BGNS*1200 (BDA%=3 (10421r(=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:BIF$:1013910386(BKKS)<.510423 (BLGS=BKKS (BLKS=(BKKS-BLCS)/(BGNS-BKOS) (BLCS=BKKS (BKOS=BGNS(BGNS=BKOS-BLGS/BLKS (10386((( (BDIS=BKKS(BDES=BDIS+vALUE(7)(BEAS=value(2)+BDESN(œ=24:=1:"Divison by zero error. Press any key...";:BIF$:BEES=0:G:'0(BEES=100*BEAS/vALUE(2)(=24:30);:œ10427 (GS: (G:5((BDMS=BGNS*1200 (BDA%=3 (G:@1r(=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:BIF$:G:F 910386(BKKS)<.5G:T3 (BLGS=BKKS (BLKS=(BKKS-BLCS)/(BGNS-BKOS) (BLCS=BKKS (BKOS=BGNS(BGNS=BKOS-BLGS/BLKS (G:O6((( (BDIS=BKKS(BDES=BDIS+vALUE(7)(BEAS=value(2)+BDESN(œ=24:=1:"Divison by zero error. Press any key...";:BIF$y key...";:BIF$:BJCS=0:G:44(BJCS=BJCS+BKGS/BIOS(=24:30);:œ10427(BIOS=BIOS*BHFS (BJKS(BKKS=-(vALUE(7)+BJCS)(BIM%=1G:5 (BIM%=1 (G:w2((BKOS=BGNS:BLCS=BKKS*(BKKS<0BGNS=BGNS*1.02:BGNS=BGNS*.98 (G:O6()*BGNS*BIBS/(BIBS-1)(=24:30);:œ10427 (BIM%=0 (BDA%=2((("(BIOS=BHFS:BJCS=0:BJGS=vALUE(2)(BJKS=1BHNS(BJOS=BGNS*BJGS(BKCS=BHBS*BJGS(BKGS=BKCS-BJOS(BJGS=BJGS-BIIS+BJOSN(œ=24:=1:"Divison by zero error. Press an(((((((BGNS=vALUE(3)/1200!(BHBS=(vALUE(6)+vALUE(8))/1200(BHFS=1+vALUE(9)/1200(BHJS=vALUE(4)(BHNS=vALUE(5)(BIBS=(1+BGNS)^BHJSN(œ=24:=1:"Divison by zero error. Press any key...";:BIF$:BIIS=0:G:0$(BIIS=vALUE(210007;"GAIN or (-)LOSS",BDES!s(10007;"LESS FEE",-vALUE(7)(t(10007;"NET GAIN or (-) LOSS",BDISu(BDA%>2G:0 v(10004; w(G:1*x(10008;"BREAK-EVEN COUPON RATE",BDMSy(10011;"PRICE",BEAS,BEES z(10004; {(10002;|(}(~e diskette drive. SIDE ONE: READ.ME.FIRST : The file you are reading now. SHORT.MANUAL : How to use this program SIDE TWO: GAIN ON SALE PROGRAM loan figures, loan package values, coupon rates, loan fees, etc. Prints complete amortization reports, loan figures, etc. Originally written by one of the 'Big Eight' accounting firms. Very fast, compiled Business Basic. Requires 256K machine, on*'gto.tables%(270):"GTO.RUNTIME":INIT3' 9X,37X,"GAINS AND LOSSES ON DELIVERIES",/L' 9X,14X,20R," AS OF ",14A,4X,3#," YEARS AT ",#.3#," SERVICING",/n' 9X,"CMTMNT BUYER",16X,"GROSS PERC NET DELVRY FUNDNG TOTAL B1.02:BLMS=BLMS*.98 'G: 1'BPGS)<1.G: 4 'CACS=BPGS 'CAGS=(BPGS-BPOS)/(BLMS-BPKS) 'BPOS=BPGS 'BPKS=BLMS'BLMS=BPKS-CACS/CAGS 'G: 1''''BKI&=100*BPGS) 'G: 6''''BKES=BLMS*1200 'BBES=1''S=BLMS*BOCS'BOOS=BMAS*BOCS'BPCS=BOOS-BOKS'BOCS=BOCS-BNES+BOKS'BNOS=BNOS+BPCS/BNKS'BNKS=BNKS*BMES 'BOGS'BPGS=-((0.01*BJM&))+BNOS)''BNI%=1G: 1 'BNI%=1 'G: 8''''BPKS=BLMS:BPOS=BPGS*'BPGS<0BLMS=BLMS* 'BLIS=BHOS'BLMS=BLAS/1200'BMAS=(BHOS+BCJS)/1200'BMES=1+BLIS/1200'BMIS=BCBS*12'BMMS=BCFS*12'BNAS=(1+BLMS)^BMMS('BNES=0.01*BIO&)*BLMS*BNAS/(BNAS-1) 'BNI%=0'''&'BNKS=BMES:BNOS=0:BOCS=0.01*BIO&)'BOGS=1BMIS'BOK,16A,6#";"ERROR ",," IN LINE NUMBER ", u'G:B 3v'10010;BDBS.w'"SPACE TO START AGAIN -- RETURN TO QUIT" x'BLES=0 y'10109z'BLES=0G: 6{'BLES=1G:66 |'G:2 }'BLES=1~'=13BLES=2''''''' 'BBES=2d'BEJS=BDNS/BFJ&)e'BENS=100*BFJ&)/BFB&) f'10005;9g'10008;-2,BFB&),BENS,-2,BFJ&),-2,BGB&),-2,BGJ&)h'10009;BEBS,BEFS,BEJSi'j'k' l'#1:#0m'#9n'fini:"HELLO"o'p'q'r'#0s'BBES10100,101028t'"3/,6A,3#,BLASU'BDFS=BDFS+BIO&)*BHOSV'BDJS=BDJS+BIO&)*BKESW'BDNS=BDNS+BIO&)*BLASX'BFJ&=BFJ&+BIO&Y'BFB&=BFB&+BIC&Z'BGB&=BGB&+BJM&['BGJ&=BGJ&+BKI&\'BHES=BHES+1 ]'G:2^'_'`'a'BDBS=1G:06b'BEBS=BDFS/BFJ&)c'BEFS=BDJS/BFJ&)#9,BDBS;BHI$,BHL$,BHOS,BIC&,BIKS,BIO&,BJG$,BJJ$,BJM&,BKES,BKI&,BLASQ'BHOS<0G:8 R'GS: \S'10006;BHI$,BHL$,BHOS,-2,BIC&),BIKS,-2,BIO&),BJG$,BJJ$,-2,BJM&),BKES,-2,BKI&),BLASHT'#9,BDBS;BHI$,BHL$,BHOS,BIC&,BIKS,BIO&,BJG$,BJJ$,BJM&,BKES,BKI&1;BHB$<'#1='ž#910078 >'œ10095?'@'A'B'BCNS=BCNS+1C'BCNS>112)D'10007;BCNS E'10001; F'10002;BBL$,BBO$,BCBS,BCJS G'10003; H'10004; I'10005; J'BHES=10K'L'M'N'BHES>BBASG:&7O'BDBS=BDBS+1HP'9,BBI$",'#9,0;BBL$,BBO$,BCBS,BCFS,BCJS -'G:h2-.':"FILE NAMED ",BBI$," IS NOT AVAILABLE" /'G:T10'1'2' 3'BCNS=0 4'BDBS=05'BDFS=0:BDJS=0:BDNS=06'BEBS=0:BEFS=0:BEJS=0:BENS=0 7'BFB&=0 8'BFJ&=0 9'BGB&=0 :'BGJ&=0;'#1,".PRINTER":#IN THE FILE" 'œ10180' 'BBAS=54 'BBES=1' '!'"' #'GS: $'%'I&'"ENTER NAME OF REPORT FILE (='REPTFILE', Q='QUIT') -- ";BBI$''BBI$="Q"BBI$="q"G:('BBI$)=0BBI$="REPTFILE" )'œ10030*'ž#910030 +'#X,"Page",2#,24X," T A X D E F E R R E D I N V E S T M E N T S ",/B' 9X,"* REPORT TOTALS *",8X,10&,2X,3#.#,1X,10&,17X,9&,9X,9&9' 9X,"* WEIGHTED AVERAGE *",3#.3#,57X,2#.3#,12X,2#.3#L' "UNABLE TO COMPUTE RESULTS FOR DATA IN LINE NUMBER ",3#," -EVEN GAIN OR DELVRD"w' 9X,"NUMBER NAME RATE AMOUNT SOLD AMOUNT DATE DATE FEES RATE (-)LOSS YIELD"' 9X,108"-"[' 9X,5R,2X,13A,1X,2#.3#,2X,9&,2X,3#.#,2X,9&,2X,6A,2X,6A,2X,-7&,2X,2#.3#,2X,-7&,2X,2#.3#L' 9'I'=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";CAK$+'CAK$)/3<>CAK$)/3)7);:G: 1'BHB$="":CANS=1183'CBBS=CAK$,CANS,3))$'CBBS<0CBBS>2557);:G: 1'BHB$=BHB$+CBBS)'''r'=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:CBF$:G:66OS=BPGS 'BPKS=BLMS'BLMS=BPKS-CACS/CAGS '10131''''BKI&=100*BPGS) '10146''''BKES=BLMS*1200 'BBES=1''=======================================================@" ==== ERROR HANDLING ROUTINE =@$ ==========================================================*#0,ERRFLAG820,82584"3/,6A,3#,16A,6#";"ERROR ",," IN LINE ";;" in Line ";:: n(GS:; #o("gto.runtime":fini: ** 2.01p(BOF%/16):BOJ$=BOH%+65)%d(BOM%=BOF%-16*BOH%:BOO$=BOM%+65)e(BNG$=BOC$+BOJ$+BOO$+BNN$f(BBL%=BBL%+var.size%(BMN%)g(BBL%>BDF%BDB%=1(h(BPB$=BNG$:BNN$<>"S"BPB$,4,1)="/"i(BCL$,BPB$)G:j(k(l(=255G: 1m(:"Unexpected Error L%=BHF%-1'Y(obuff%(BEF%+BNL%)=BNG$,BHF%,1)) Z(BHF%![(BEF%=BEF%+4:obuff%(BEF%)=BMF%\(BDPqi`yqnqiqqTH (obuff%(0)=obuff%(0)+BDP%^(_(`(BNN$=new.val.first$(BMN%)$a(BOA%=BBL%/256):BOC$=BOA%+65)b(BOF%=BBL%-256*BOA%#c(BOH%=%"Variable MAP FULL ":BDB%=1 L(GS:hM(map.table$(BNE%)=BNG$N(O(P( Q(BMF%=BFM%R(BDB%G:OS(BMJ%=0G:=T(BNJ%=BEF%-BMD%:BFM%=obuff%(BNJ%):GS::obuff%(BNJ%)=BFM%U(BMJ%=0:BFM%=BMF%:G:c4V(W(BEF%=BEF%-BMD%X(BHF%=14:BN1)+BNC%/C((BNE%<0)(BNE%>BDJ%)BNE%=1)*1000):D(8E(var.table$(BNE%)=BIH$BNG$=map.table$(BNE%):G:8F(var.table$(BNE%)=""G:-G(BNE%=BNE%+17:BNE%>BDJ%BNE%=BNE%-BDJ%: H(G:8I(J(var.table$(BNE%)=BIH$8K(BDH%=BDH%+1:BDH%=BDDUFF%(BED%-1)>47G:B:BGI$=bUFF%(BED%-1))F;(BMN%="%$&",BGI$):BMN%BIH$=BIH$+BGI$:BMD%=BMD%+1:GS::GS:7<((BMN%)BMP$=BIH$,BIH$)-1,1):BMP$=BIH$,1):=(BNC%=BMP$)-46>(BFM%=40BMJ%=1:G:3?(@( A(BDB%B(BNE%=44*(BMH%- :BKK$:BKK$&\N"YESyesYes",BKK$)20065:20005RaN:"Renumbering file : ";BJF$;" from 10000 step 1":"...creating file : ";BDH$2fNRESEQNCE(@BJF$,@BDH$,%BKC%,%BKE%,%BKG%,%BKI%)kN:"Renumber complete"N0u :u3000DuBEI%=030090NuBEI%="'I'=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";CAK$+'CAK$)/3<>CAK$)/3)7);:10171'BHB$="":CANS=1183'CBBS=CAK$,CANS,3))$'CBBS<0CBBS>2557);:10171'BHB$=BHB$+CBBS)'''r'=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:CBF$:10016OS=BPGS 'BPKS=BLMS'BLMS=BPKS-CACS/CAGS '10131''''BKI&=100*BPGS) '10146''''BKES=BLMS*1200 'BBES=1'''I'=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";CAK$+'CAK$)/3<>CAK$)/3)7);:10171'BHB$="":CANS=1183'CBBS=CAK$,CANS,3))$'CBBS<0CBBS>2557);:10171'BHB$=BHB$+CBBS)'''r'=24:=1:NUMBER ",6830 911;RP.>"SPACE TO START AGAIN -- RETURN TO QUIT" HKEYHIT=0 R900\KEYHIT=0860fKEYHIT=1100p710 KEYHIT=1=13KEYHIT=28 ==================================================8 ===== GAIN/LOSS CALCULATIONS S/R ================8 ==================================================Gp -----------------------------------------------------------------* INITIALIZE LOAN PARAMETERSG ---------------------------------------------=3:=13?D"UP/DOWN ARROW TO MOVE POINTER - RETURN TO SELECT PROGRAM"N ====================X ==== PRINT MENU ====b ====================lI=0NPROGS%-1!v=+2:=MSGHPOS%:MSG$(I);:I+===================================== + ==== MOrNAME$(1)="LOAN.RPT"$xMSG$(2)="GAIN/LOSS ON LOAN SALE"zNAME$(2)="LOAN.SALE",|MSG$(3)="LOAN AMORTIZATION CALCULATIONS"~NAME$(3)="LOAN.AMORT"!MSG$(4)="QUIT - EXIT PROGRAM"NAME$(4)="QUIT" :10;;I=120:20;;:I 10;; 0 œ1050KNPROGS%=5:MSGHPOS%=22:PTRHPOS%=MSGHPOS%-2:MAXVPOS%=2*NPROGS%+4:FLAG%=-1 80"*" "*",78X,"*"dMSG$(15),NAME$(15)2iMSG$(0)="CALCULATE AVERAGE/UPDATE REPORT FILE"nNAME$(0)="AVG.CALC"-pMSG$(1)="GENERATE LOANS GAIN/LOSS REPORT" :n,3))m<0m>2557);:7020pset$=pset$+m)n@=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:g$:100 2400FLAG%<>724000VALUE(7)<20VALUE(7)=VALUE(2)*VALUE(7)-----------------------------------BEVEN=CR*1200 ERRFLAG=1X printer setupbKl=12:=1:"Use printer setup string (format nnn1nn2...nn6)? -> ";strng$.vstrng$)/3<>strng$)/3)7);:7020pset$="":n=1183m=strng$,-----------------------------------------------------------------JGL&=100*TEST) |6520D---------------------------------------------------------------= GENERATE BREAK-EVEN RATE FROM ITERATION RESULTSD----------------------------CR=CR*1.02:CR=CR*.98 6280TEST)<1.6800 FX=TESTDX=(TEST-TOLD)/(CR-CROLD) TOLD=TEST CROLD=CRCR=CROLD-FX/DX ,6280F@-----------------------------------------------------------------$A GENERATE OUTPUT VALUESFBY+INT1NPVSUM=NPVSUM+DI/NPVRNPVR=NPVR*DR(I"<TEST=-((0.01*FEES&))+NPVSUM)F PRINT "GL = ",TESTPBEFLAG%=16580 dBEFLAG%=1 n6720w:x-------- RETURN HERE FOR BREAK-EVEN CALC ------------yCROLD=CR:TOLD=TEST"TEST<0----------------5` CALCULATE GAIN/LOSS AND BREAK-EVEN RATEGt------------------------------------------------------------------)NPVR=DR:NPVSUM=0:LBAL=0.01*NETAMT&) I=1LINT1=CR*LBALINT2=IR*LBALDI=INT2-INT1LBAL=LBAL-PA-------------------- ERRFLAG=2DRATE=IRATECR=YIELD/1200IR=(IRATE+SERV)/1200DR=1+DRATE/1200 L=LIFE*12 T=TERM*12CR1=(1+CR)^T&$PAY=0.01*NETAMT&)*CR*CR1/(CR1-1) 8BEFLAG%=0GL--------------------------------------------------VE PTR FOR MENU SELECTION ====+ ===================================== 800=6=PTRHPOS%:"->";!FLAG%<0760:NAME$(FLAG%) =PTRHPOS%:" ";(()=11900*()=131000/()=197()=229!4=+2:>MAXVPOS%910:ۺ920=-2:<6=MAXVPOS%920=6=PTRHPOS%:"->"; 800% ===============================% ==== RUN THE SELECTED PROG ====% ===============================FLAG%=(-6)/2n=24:=1:7);31);:=1:18);"Error #";210960;j,(PAYNO=TERM)11400l,YEAR=YEAR+1t,I ~,11132 ,3000=ADD | D=DEnt$(flag%))/3<>lint$(flag%))/3)lp%=0:11550:lp%=1,pset$="":n=1183-m=lint$(flag%),n,3))-m>255lp%=0:11550 -pset$=pset$+m)--o.=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue.."60;5L,#210970;-2,SUMPAY&),-2,SUMPRI&),-2,SUMINT&)V,#210960;j,(PAYNO=TERM)11400l,YEAR=YEAR+1t,I ~,11132,#2;12):#2,=22:=1:31);:3510,(=27):11400 ,11410,), *** CREATE PRINTER SETUP STRING ***A,liI&+PRI&+SUMINT&=SUMINT&+INT&,SUMPAY&=SUMPAY&+PAY&,TOTPAY&=TOTPAY&+PAY&,TOTPRI&=TOTPRI&+PRI&$,TOTINT&=TOTINT&+INT&e.,#210950;PAYNO,J,-2,PAY&),-2,TOTPAY&),-2,PRI&),-2,INT&),-2,BAL&),-2,TOTPRI&),-2,TOTINT&)8,J =,FPAY=1B,#2109#210960; +I=1YPP +SUMINT&=0 +SUMPRI&=0 +SUMPAY&=0+#210910;+#210920;YEAR+#210960;+J=FPAYPPY+(PAYNO=TERM)11330+PAYNO=PAYNO+1$+INT&=BAL&*1.E10*RATE)/1.E10)+PRI&=PAY&-INT&+BAL&=BAL&-PRI&+SUMPRI&=SUMPR!! !!   !! !!  !! !!    !   OPEN#1 AS OUTPUT,".PRINTER" OUTPUT#1 LIST PRINT#1;CHR$(12) CLOSE END ;" in Line #";;". Press RETURN to continue..";17);:g$:500/100:` VALUE(2)<>0PERCFEE=100*VALUE(7)/VALUE(2):PERCFEE=0e IPRT%=FLAG% j FLAG%=+1&l =23:" "; n =FLAG%-1 t 1000~ =FLAG%:FLAG%=-1 >MAXVPO$,-2,FEES&),BEVEN,-2,GL&),YIELDT#9,RP;CNUM$,BUYER$,IRATE,AMT&,PSOLD,NETAMT&,DDATE$,FDATE$,FEES&,BEVEN,GL&,YIELD SUMNR=SUMNR+NETAMT&)*IRATE SUMNB=SUMNB+NETAMT&)*BEVEN SUMNY=SUMNY+NETAMT&)*YIELDSUMNET&=SUMNET&+NETAMT&SUMGROSS&=SU======================================LINENUM>MAXLINES300 RP=RP+1T#9,RP;CNUM$,BUYER$,IRATE,AMT&,PSOLD,NETAMT&,DDATE$,FDATE$,FEES&,BEVEN,GL&,YIELDIRATE<0600 5000f7;CNUM$,BUYER$,IRATE,-2,AMT&),PSOLD,-2,NETAMT&),DDATE$,FDATE12)68;PAGENUM 82;:3;REPT$,ASOFD$,LIFE,SERV <4; >5; @6;BLINENUM=10? =========================================================? ==== PRINT DETAIL LINE IN REPORT BODY =? ===================et$#1 ž#9600 œ800?, =========================================================?. ==== PRINT THE HEADING =?0 =========================================================2PAGENUM=PAGENUM+14PAGENUM>1 =? ========================================================= PAGENUM=0RP=0SUMNR=0:SUMNB=0:SUMNY=0.AVGRATE=0:AVGBEVEN=0:AVGYIELD=0:AVGPSOLD=0SUMGROSS&=0 SUMNET&=0SUMFEES&=0 SUMGL&=0#1,".PRINTER":#1;psEPTFILE" xœ180 ž#9180#9,FILENAME$%#9,0;REPT$,ASOFD$,LIFE,TERM,SERV2002:"FILE NAMED ",FILENAME$," IS NOT AVAILABLE"108? =========================================================? ==== INITIALIZE SETUP VALUES T =?h ========================================================= i7000jlNn"ENTER NAME OF REPORT FILE (='REPTFILE', Q='QUIT') -- ";FILENAME$&pfilename$="Q"filename$="q"730)sFILENAME$)=0FILENAME$="R------------------------------------------------------MAXLINES=54 ERRFLAG=1Ic -------------------------------------------------------------------?d =========================================================?f ==== GET NAME OF FILE AND OPEN I I N V E S T M E N T S ",/B 9X,"* REPORT TOTALS *",8X,10&,2X,3#.#,1X,10&,17X,9&,9X,9&9 9X,"* WEIGHTED AVERAGE *",3#.3#,57X,2#.3#,12X,2#.3#L "UNABLE TO COMPUTE RESULTS FOR DATA IN LINE NUMBER ",3#," IN THE FILE" œ8000I ------------- NAME RATE AMOUNT SOLD AMOUNT DATE DATE FEES RATE (-)LOSS YIELD" 9X,108"-"[ 9X,5R,2X,13A,1X,2#.3#,2X,9&,2X,3#.#,2X,9&,2X,6A,2X,6A,2X,-7&,2X,2#.3#,2X,-7&,2X,2#.3#L 9X,"Page",2#,24X," T A X D E F E R R E D 3 9X,37X,"GAINS AND LOSSES ON DELIVERIES",/L 9X,14X,20R," AS OF ",14A,4X,3#," YEARS AT ",#.3#," SERVICING",/n 9X,"CMTMNT BUYER",16X,"GROSS PERC NET DELVRY FUNDNG TOTAL B-EVEN GAIN OR DELVRD"w 9X,"NUMBER MGROSS&+AMT&SUMFEES&=SUMFEES&+FEES&SUMGL&=SUMGL&+GL&&LINENUM=LINENUM+10410@X ==========================================================@Z ==== PRINT THE FOOTING OF THE REPORT =@\ ==========================================================^RP=1650bAVGRATE=SUMNR/SUMNET&)lAVGBEVEN=SUMNB/SUMNET&)vAVGYIELD=SUMNY/SUMNET&)(AVGPSOLD=100*SUMNET&)/SUMGROSS&) 6;G9;-2,SUMGROSS&),AVGPSOLD,-2,SUMNET&),-2,SUMFEES&),-2,SUMGL&)#10;============================== 10;30;TITLE$ 10; 20;IPRT%=1NPROGS%&PTYPE%(IPRT%)3840,3860,3880,3885"40;MSG$(IPRT%),VALUE(IPRT%) 3890"50;MSG$(IPRT%),VALUE(IPRT%) 3890"(60;MSG$(IPRT%),VALUE(IPRT%)1000~ =FLAG%:FLAG%=-1 >MAXVPOURN to continue..";17);:g$:100 2400FLAG%<>724000VALUE(7)<20VALUE(7)=VALUE(2)*VALUE(7)/100:` VALUE(2)<>0PERCFEE=100*VALUE(7)/VALUE(2):PERCFEE=0e IPRT%=FLAG% j FLAG%=+1&l =23:" "; n =FLAG%-1 t -----------------------------------BEVEN=CR*1200 ERRFLAG=1nX=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RETURN to continue..";17);:g$:100n@=24:=1:7);31);:=1:18);"Error #";;" in Line #";;". Press RET-----------------------------------------------------------------JGL&=100*TEST) |6520D---------------------------------------------------------------= GENERATE BREAK-EVEN RATE FROM ITERATION RESULTSD----------------------------CR=CR*1.02:CR=CR*.98 6280TEST)<1.6800 FX=TESTDX=(TEST-TOLD)/(CR-CROLD) TOLD=TEST CROLD=CRCR=CROLD-FX/DX ,6280F@-----------------------------------------------------------------$A GENERATE OUTPUT VALUESFBY+INT1NPVSUM=NPVSUM+DI/NPVRNPVR=NPVR*DR(I"<TEST=-((0.01*FEES&))+NPVSUM)F PRINT "GL = ",TESTPBEFLAG%=16580 dBEFLAG%=1 n6720w:x-------- RETURN HERE FOR BREAK-EVEN CALC ------------yCROLD=CR:TOLD=TEST"TEST<0----------------5` CALCULATE GAIN/LOSS AND BREAK-EVEN RATEGt------------------------------------------------------------------)NPVR=DR:NPVSUM=0:LBAL=0.01*NETAMT&) I=1LINT1=CR*LBALINT2=IR*LBALDI=INT2-INT1LBAL=LBAL-PA-------------------- ERRFLAG=2DRATE=IRATECR=YIELD/1200IR=(IRATE+SERV)/1200DR=1+DRATE/1200 L=LIFE*12 T=TERM*12CR1=(1+CR)^T&$PAY=0.01*NETAMT&)*CR*CR1/(CR1-1) 8BEFLAG%=0GL--------------------------------------------------S CALCULATIONS S/R ================8 ==================================================Gp -----------------------------------------------------------------* INITIALIZE LOAN PARAMETERSG ---------------------------------------------NUMBER ",6830 911;RP.>"SPACE TO START AGAIN -- RETURN TO QUIT" HKEYHIT=0 R900\KEYHIT=0860fKEYHIT=1100p710 KEYHIT=1=13KEYHIT=28 ==================================================8 ===== GAIN/LOS=======================================================@" ==== ERROR HANDLING ROUTINE =@$ ==========================================================*#0,ERRFLAG820,82584"3/,6A,3#,16A,6#";"ERROR ",," IN LINE AVGRATE,AVGBEVEN,AVGYIELD@ ==========================================================@ ==== CLOSE FILES AND RETURN TO TOP LEVEL MENU =@ ========================================================== #1:#0#9 "HELLO"@  === *3890'-40;MSG$(IPRT%),-2,LINT&(IPRT%)) 2IPRT% F20; n10;8 ==================================================8 ==== APPLICATION PROGRAM FOLLOWS =================8 --------------------------------------------------8 DETERMINE PARAMETER TO BE CALCULATED ========8 --------------------------------------------------8 PARAM = 1 = LOAN AMOUNT -8 = 2 = PAYMENT AMOUNT -8 = 3 = INTEREST RATE PPY+(PAYNO=TERM)11330+PAYNO=PAYNO+1$+INT&=BAL&*1.E10*RATE)/1.E10)+PRI&=PAY&-INT&+BAL&=BAL&-PRI&+SUMPRI&=SUMPRI&+PRI&+SUMINT&=SUMINT&+INT&,SUMPAY&=SUMPAY&+PAY&,TOTPAY&=TOTPAY&+PAY&,TOTPRI&=TOTPRI&+PRI&$,TOTINT&=TOTINT&+PERFORM CALC AND PRINT =====|+#2"A";12)~+#210960;7+#210980;-2,LINT&(1)),VALUE(3),VALUE(4),VALUE(5)+#210960;:#210960; +I=1YPP +SUMINT&=0 +SUMPRI&=0 +SUMPAY&=0+#210910;+#210920;YEAR+#210960;+J=FPAY*VALUE(5) +PPY=VALUE(5) *+LPP=604+YPP=LPP/(PPY+7)>+YEAR=VALUE(6))$@+FPAY=100*(VALUE(6)-YEAR+.001))B+(FPAY<1)FPAY=1D+(FPAY<=PPY)11080F+ERRNO%=3:1200 H+TOTINT&=0 R+TOTPRI&=0 \+TOTPAY&=0 f+PAYNO=0p+#2,".PRINTER"(z+ ===== .## * 132"="-* "ANNUAL TOTAL",12&.##,17X,14&.##,14&.##q* "LOAN AMOUNT = ",$$14&.##,8X,"INTEREST RATE = ",3#.###,8X,"TERM OF LOAN = ",4#,8X,"PAYMENTS PER YEAR = ",4#*BAL&=LINT&(1)+PAY&=LINT&(2) +RATE=VALUE(3)/(VALUE(5)*100)+TERM=VALUE(4)T DATE",24X,"TOTAL",47X,"LOAN",11X,"TOTAL",13X,"TOTAL"w* " NUMBERL ",4#,7X,"PAYMENT",9X,"PAYMENTS",8X,"PRINCIPAL",9X,"INTEREST",10X,"BALANCE",8X,"PRINCIPAL",9X,"INTEREST"* 4#* 1X,"----"?* 5#,4X,3#,12&.##,14&.##,14&.##,14&.##,14&.##,14&.##,14&'IPRT%=PARAM% $'10004t' ====== ENABLE BOTTOM LINE MENU SELECTION ===== ~'30004' ==============================================4' ===== PRINT AMORTIZATION SCHEDULE ===========4' ==============================================D* " PAYMEN6600h(PARAM%-3)8100,82006 ====== CALCULATE TERM OF LOAN ==================VALUE(4)=T/VALUE(5) 100006 ====== CALCULATE NUMBER OF PAYMENTS/YR ========= VALUE(5)=T/VALUE(4)  100004' ====== PRINT RESULTS =========================ATE =================bPOB=VALUE(2)/VALUE(1)gT=VALUE(4)*VALUE(5) lR=.01 v6600VALUE(3)=R*VALUE(5)*100 100007@ ====== CALCULATE TERM OR NUMBER OF PAYMENTS =====JPOB=VALUE(2)/VALUE(1)(OPARAM%=4R=VALUE(3)/(VALUE(5)*100)TT=1 ^ OLD=R "R=R*1.1 ,6600 6TEMP=R*@R=R-.5*(TOLD+TEST)*(R-OLD)/(TEST-TOLD) JOLD=TEMP T6600COUNT>16840 OLD=T T=T*1.1 6600 TEMP=T*T=T-.5*(TOLD+TEST)*(T-OLD)/(TEST-TOLD) OLD=TEMP 66007X ====== CALCULATE INTEREST R======================== TOLD=TEST,PARAM%=5R=(VALUE(3)*VALUE(4))/(100*T)REXP=(1+R)^TTEST=POB-R*REXP/(REXP-1)TEST)16710MENT AMOUNT ==================nVALUE(2)=VALUE(1)*RATIO-sLINT&(2)=LINT&(1)*1.E10*RATIO)/1.E10) x100008 ==================================================8 ====== ITERATE FOR R OR T S/R ===================8 ==========================ALUE(5)*100)"REXP=(1+R)^(VALUE(4)*VALUE(5))RATIO=R*REXP/(REXP-1)PARAM%6000,65008p ====== CALCULATE LOAN AMOUNT =====================-uLINT&(1)=LINT&(2)*1.E10)/1.E10*RATIO)zVALUE(1)=VALUE(2)/RATIO 100008d ====== CALCULATE PAYI%=15VALUE(I%)<>05130 PARAM%=I%TEMP=TEMP+1 I%-TEMP=1PARAM%5500,5500,7000,8000,8000TEMP=05152:ERRNO%=1 VALUE(6)>011000 "ERRNO=0 (12008| ====== SETUP FOR AMOUNT/PAYMENT CALCULATION ======R=VALUE(3)/(V -8 = 4 = TERM OF LOAN -8 = 5 = NUMBER OF PAYMENTS PER YEAR -8 = 6 = PRINT AMORTIZATION SCHEDULE -8 ================================================== TEMP=0 INT&e.,#210950;PAYNO,J,-2,PAY&),-2,TOTPAY&),-2,PRI&),-2,INT&),-2,BAL&),-2,TOTPRI&),-2,TOTINT&)8,J =,FPAY=1B,#210960;5L,#210970;-2,SUMPAY&),-2,SUMPRI&),-2,SUMINT&)V,#210960;j,(PAYNO=TERM)11400l,YEAR=YEAR+1t,I ~,11132 ,3000), *** CREATE PRINTER SETUP STRING ***A,lint$(flag%))/3<>lint$(flag%))/3)lp%=0:11550:lp%=1,pset$="":n=1183-m=lint$(flag%),n,3)) -pset$=pset$+m)--n.=24:=1:7);31);:=1:18);"Error #";;" in Lin;17);:g$:1300e #";;". Press RETURN to continue..";17);:g$:700