8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RNEW.DISK}' ,BASIC.SYSTEM(*+'CHECKIT 6/ ϲ (GS.ALARM$U <*GS.ALARM.S(" b MENU.MAKER; ( XNEGASCREEN<( X'NIBMENU= 7 7 POP1ER(  POP2FP(  POP3G(  $POP4HP(  &PRODOSK }<n% PYRAMIDk( X+R.E.ADVISORl$D {8 RANDOM.GENq( ` ,RANDOM.GEN.S(  RANDOM.TEST{( ! 'STARTUP ®3p.STARTUP.SCREENC 9`4(STRANDED 9: :  LG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLL !"#. ********** NIBBLE PRD DISK **********[ * CHECKIT * * COPYRIGHT 1988 BY MINDCRAFT PUBL.CORP. *( * CONCORD, MA 01742 *2 *************************************' <:::"CHECKIT":"COPYRIGHT 1988 BY MINDCRAFT PUBL. CORP."0 F90\ PI0377:ML:CSCSML:::CS48127100 Z:"ERROR IN DATA STATEMENTS!":"PROBABLY LOCATED ON OR BEFORE LINE ";(123)(124)256: d216,0:768,0:H(3):H(0)1:H(1)16:H(2)256:H(3)40969 n6:"ARE YOU ENTERING A HEXADECIMAL":"FILE?";:A$:16368,0:A$d xA$"N"A$(110)İ370:34218,128:210 A$"Y"A$(121)110 768,1:10:958:"WHAT IS THE STARTING ADDRESS OF THE":"FILE (IN HEX)";:H$:290:AH2 A736A39424ĺ:"INVALID ADDRESS. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:140| 13:958:"WHAT IS THE LENGTH OF THE FILE":"(IN HEX)";:H$:290:BH B1B32000ĺ"INVALID LENGTH. PLEASE DOUBLE-CHECK":"AND RE-ENTER":350:160 :::34,1:2:"INSTALLING CHECKIT..."x A6144İ320:5799,(A256):5798,A256(5799):5801,(B256):5800,B256(5801):5802,0:230: ABOVE $1800 SOMEWHERE A6144İ370:34215,(A256):34214,A256(34215):34217,(B256):34216,B256(34217):34218,0:210: BELOW $1800 SOMEWHERE' (48896)76Ĺ56,0:57,133:1002:250B (4);"IN#A$8500":250l (48896)76Ĺ56,0:57,22:1002:250 (4)"IN#A$1600":250 :::34,1:2:"CHECKIT INSTALLED" (768)1ĺ:"ENTER THE MONITOR BY TYPING":" CALL -151"  Y"H0:L(H$):L1L4300:I1L:D((H$,I,1)):HHH(LI)(D48(D58D47)55(D64D71)):_,t6 $1600 VERSION@I0377:ML:5632I,ML:I:C5632JI018:ML:CML,(CML)111:T^21:"PRESS RETURN TO CONTINUE ";:CH$:CH$:16368,0:h $8500 VERSION5rI0377:ML:34048I,ML:I;| 216,32,27,253,201,154,240,31,201,141,208,26,134,224,32,178,133,32,251,218,32,128,254,56,165,8 229,9,32,218,253,32,132,254,166,224,169,141,96,32,106,134,44,170,133,16,43,169,1,133,6,169_ 8,133,7,160,0,177,6,133,251,200,177,6,133,252,240,63,200,177,6,32,79,134,200,177,6,32 79,134,165,251,133,6,165,252,133,7,208,221,173,167,133,133,7,173,166,133,133,6,160,0,177,6& 32,79,134,230,6,208,2,230,7,230,251,208,2,230,252,165,251,205,168,133,165,252,237,169,133,144 227,162,0,189,171,133,32,237,253,232,224,7,144,245,44,16,192,32,128,254,164,8,166,9,32,64 249,32,251,218,32,132,254,169,152,96,0,0,0,0,0,20,15,20,1,12,58,32,32,106,134,133> 6,169,2,133,7,160,0,177,6,201,176,144,73,201,186,176,69,177,6,44,170,133,16,53,201,210 208,4,166,251,240,61,201,162,208,8,72,169,1,69,251,133,251,104,201,160,208,6,166,251,208,25 240,26,201,191,208,19,132,226,160,0,185,117,134,32,79,134,200,192,5,144,245,164,226,176,3,32o 79,134,200,196,224,144,188,96,166,224,104,104,169,141,96,132,226,136,177,6,201,160,240,249,201,186 240,8,201,176,144,36,201,186,176,32,164,226,200,177,6,201,197,208,23,200,177,6,201,205,208,166 169,210,32,79,134,169,197,32,79,134,169,205,32,79,134,96,164,226,177,6,24,144,135,162,8,10 38,8,38,9,144,14,72,165,8,73,33,133,8,165,9,73,16,133,9,104,202,208,232,96,169,0 133,8,133,9,133,251,133,252,96,208,210,201,206,212 16,41,44,73,79,92,97,106,123,128,135,180,203,246,249,261,316,321,326 %&'LM XRx ȀV Ȁ Ȁ o $ XL XՒ oɑ XL '͙*Й X? ɠɰ0ɺ؈ɰ0ɶ̈ɺɰ0ɳɱЬ"ˆɱ0ɺVʠVʈʽV o$ Xr oɑ XLVɍ o$ Ӎ X# #LHZ0"B""8\T6 VB*ʈ#)#: ȀV ɍȀzh(2)2@΍ ɀzh(@էŠԠΠ͠ҠϠՠȠϠŠӠ͠ĠԠנſ٠ΩŠԠӠˍӠΠ͠͠ԍ堨堭͍̭ѠΠĠŠ٠Һ堭ͩ󠭍̭ѠΠ˿٠Ω˿٠Ω堧٧Χ)*+,-./0123456789: Ӯ ʮî ҍ ̠Ġ ԠĠ Šõ Šð Ơ βǠŠ βĶƠ Ԡð ͠İ Ԡð Ġð ̠Š ȠƠ 荍Ǡ ÍčΠҠō Ǡ Ӣ ҠԠ٠ 卺Ǭ٠ 퍠ѠٍҠԍٍ٠٠ 퍺Ƭ٠占Ҡԍ٠Ѡˍٍˠ٠ 卺Dz٠ 䍠ѠӠ 占ҠԍٍӠҠβƍР٢ѠҍРѠҍР΢ѠԍРѠԍα٠ Dz٠ ٧ ΧѠӍҠԍٍŠԠҠŠ Р͠􍍪 ҠҠō 宍Ԡ٠Ǭ٠ 占ѠŠ ҠԍٍŠ ŠҠβ 򍍠Ơ ፠Р̭ѿŠˍҠŠ ҍР͍ 󮍍ˠٍٍƬٍР͢ѠЍРŠ͍͢ƬٍРٍƬٍРТѠЍР𢍠ŠЍТƬٍЍРРѠЍРᢍŠ͍ƬٍЍ͠Ҡō٠ҬٍѠōҠԍٍŠРٍƬٍР Š͍αҲҍαٍƬٍРɠ͍Р̠͍βٍƬٍРɠ͍Р̠͍ΠٍƬٍРŠ͍ؠŠ˰˰ٍƬٍРɠ͍Рٍ̠͍ƬٍРŠ̸͍ұҲ˰ٍƬٍРɠ͍Р̠͍ β Ʃ  Ʃٷ Ơ 򍍠ؠ 占 􍠠 筍 ٠Ƭ؍Ƭٍ؍ٍѠŲŠ̸ؠ Ƭ؍Ƭ؍ؠ 򿍠ѠŲ 䍠Š̸ 卍Ų 宍Š٠Ǭ٠ 獠ѠŠ ҠԍٍŠŠҠβƍР٢ѠԍРѠԍР΢ѠұРѠұβ٠ Dz٠ ٧ ΧѠōҠԍٍŠ ҴҠōԠ٠Ǭ٠ 獠ѠԠ ҠԍٍŠ ԠҠβ 򍍠Ơ ፠Р̭ѿŠƲҠŠ ҍР͍ 宍Ʋؠ٠ 占 ƍƬ؍ƬٍРĠ Ѡв 䍠؍ٍŠ ˮ 獪 ǩ ˮ 썪   殩в٠Dz٠ ѠӲҠԍٍŠӲҠβƍР٢ѠǍРѠǍР΢ѠҴРѠҴγ٠ Dz٠ ٧ ΧѠӲҠԍٍŠǠӢǍҠō  Ω 䍪 ԩ  îàō̍ȍԍԍР͍ 묍 卪 ɬ 卪 󮍍ΠЍ؍ٍà 占Š 婍Р 򬍠 䍠 󩍍Ԡؠ ̠ű Ơ 򍠠 䩍Ơ 䍠ؠưɍ̠ű Ԡؠ ̠űÍŠ 󩍍 卪 宍Šƫ ͮРƫŠȍ͠ؠͯ 덠٠Ġ 宍ŠƬ؍РƬٍŠȍ؍ٍ٠ ƿ 占 荠 占򮍠ŠōȠԠ Ġԍ٠ӬٍѠԍҠԍٍԠ٠ 獺Ƭ٠ 箍ҠԍРčѠ̠ 썠ٍ 묍 ԩ 䍪 ɩ îȠٍ؍ЍԍĠԍɍ ̠΢ ӧǠ  퍠 䍠Ҡ̍Ġ 䍠Р 俍à̠ Š 䍍٠ ؍Ѝŷɠ Í Ǡàէ ĬĬDzؠĬčà à ſ Ω Ǡà ˢčà ԢĬčà ͢čà̭ ĬčؠҠà Һčà ͩĬǠؠčà čà 󢍠à čà à 墸čà̭ ĬčؠDzؠčà ˿ Ω Ǡà ˿ Ω Dzà ٧ Χ ӠؠĬĬĬĬĬĬĬƠӠ 򍠠ɍƠ d::20(T$)2)T$40):::I1C:52I:5)C$(I)::24:"HIGHLIGHT CHOICE WITH ARROWS & ";:S1:R$(13):H$(8):U$(21) n5S2:5::" "C$(S)" ";:I$:5::" "C$(S)" ";:SS(I$U$)(I$H$):SC(S0)(S(C1))S(S0SC1):(I$H$I$U$)110: I`>?@ABCDFEB 1990 DISK (VOL 11 /NO 2) 6 REAL ESTATE ADVISOR STRANDED GS ALARM APPLESOFT POPPING ASSEMBLY RANDOM NUMBER GENERATOR CHECKIT 4 REAL ESTATE ADVISOR RUN R.E.ADVISOR STRANDED RUN STRANDED RANDOM NUMBER GENERATOR RUN RANDOM.TEST CHECKIT RUN CHECKIT @ This disk is a double-sided disk. All of the programs that will run under ProDOS are on the ProDOS formatted front side of the disk, and all that will run under DOS 3.3 are on the back side of the disk. Some programs will run under both operating systems and are included on both sides of this disk. You're currently using the ProDOS side of the disk. @ Before using the programs on this disk, you should make a work disk for each program. This can be done by first making a complete copy of the disk with one of the following programs: * COPYA (DOS 3.3 System Master) * FILER (ProDOS Utilities Disk) * The Apple IIc or Apple IIGS Utilities Disk * Any Disk Copy Program Then boot the copied disk and delete all of the files that are not related to the program by using the DELETE command. The System Utilities program also has an option to DELETE files. @ You will not be able to delete the titles that we've placed in the catalog to separate files. However, these will not interfere with the operation of the programs. The screen displays that follow show the files needed to create working copies of each program. @ To create a work disk for REAL ESTATE ADVISOR, remove all but the following file from a copy of this disk: R.E.ADVISOR This program is included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for STRANDED, remove all but the following file from a copy of this disk: STRANDED This program is included on both the DOS 3.3 and ProDOS sides of this disk. @ To create a work disk for GS ALARM, remove all but the following file from a copy of this disk: GS.ALARM This program is included only on the ProDOS side of this disk. This program is not included as an option in the program menu because it requires special instructions. See the documentation for details. @ To create a work disk for APPLESOFT POPPING, remove all but the following files from a copy of this disk: POP1 POP2 POP3 POP4 These programs are included on both the DOS 3.3 and ProDOS sides of this disk. These programs are not included as an option in the program menu because they require special instructions. See the documentation for details. @ To create a work disk for ASSEMBLY RANDOM NUMBER GENERATOR, remove all but the following files from a copy of this disk: RANDOM.TEST RANDOM.GEN These programs are included on both the DOS 3.3 and ProDOS sides of this disk. @ In addition, we've placed a copy of the CHECKIT program on this disk. CHECKIT is a utility published in every issue of Nibble that aids in typing in programs from the magazine. See the Typing Tips in the latest issue of Nibble for details on using CHECKIT. We have also included the One- and Two-Liners on this disk. @ The source code files for the major assembly language programs have been included on this side of the disk. These files are included expressly for experienced programmers. These files cannot be used unless you own the appropriate assembler. WARNING: Do NOT attempt to run the following source code files: GS.ALARM.S (Merlin) RANDOM.GEN.S (The Assembler) @ # ' ******************************M * POP1 *s * BY MARK CRAVEN *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ****************************** P Z100Q dJJ1:"# "J;" THIS WILL NOT RUN VERY LONG...":90' ******************************M * POP2 *s * BY MARK CRAVEN *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ****************************** P Z100:O d"THIS WILL GO FOREVER UNLESS YOU RESET"::90' ******************************M * POP3 *s * BY MARK CRAVEN *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ****************************** P Z150# d170, n1905 x210> 230D ] "THIS IS LINE # 1."c | "THIS IS LINE # 2." "THIS IS LINE # 3." "THIS IS LINE # 4." "THIS IS LINE # 5." IJ' ******************************M * POP4 *s * BY MARK CRAVEN *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 * F ****************************** P Z:120P d::"THIS IS THE NORMAL RETURN FROM THE GOSUB"V n x"PRESS TO EXECUTE A 'POP' OR PRESS":" FOR A NORMAL RETURN FROM GOSUB" 12:1:"PRESS OR ..";:16368,0:X$ X$(27)ġ:170 X$(13)ı 130I ::"THIS IS A 'GOTO' AFTER EXECUTING A 'POP'"O LMNOPQRSTUVWXYZ[\]^_`abcdefghijL !C_" %k"l" (#M8( % ) L*"m"n" (_7, )7(P0 ( @X p 8  u"!_"f"0 ~&f"0 %o"p" (,) &q"r" ( %L*")0I0hx H( + %Щ ߩu"L! )L! 8'  )ɀ)4,- U JNT) u"Ls"t" ( !` ^"M)Fi/ b"3 h"i"j" e" iL X>"L;"ίΠ`v""""""*$ Fk%YeQP!/RB}QBiBB}\ }FEL,#> ȏ6 . ) ɘ"    L:#:#ŠϠĠԠ  m# m# J Qڨ)̰}] нȱ ̀𩠙 i V N c ɘ\   VG+ #X ɛL ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`=YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱǭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@qvȱ@Hȱ@Ah@@cqe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B g-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P#) ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA D'KI؍0JHi 뎁`C8` @ 3N@) K莭 ⭪i`0 ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 H LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a .FإGؐ.` .JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFJL8`JGBJ T FإG`BH TFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL+J  :"L zH  : 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Rh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 &pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL;L-M O,p莝eNNO(`JNKOL 6/ &P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` jzؽ}؝v j ) j؝zv؈` ` H Th)N@ ;; L  6$ )bJ ] ) H 8hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL( O, PeNNO J(` C  7 2JvHIwHI؊ LI  .` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . R#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) ;⬂Ȣ؝z@zݚ@ʈLJ KIJHȢݚ h魚)Jn 8 δ ؍ ؍ \H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H = h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ /ȹP8` i` =ם0 /B =)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J /טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 H`aO)@LP8` \᮰ ֩OCDC z L䬁yٙ٭yٙ٩`K GE`FaG 6%&N    ܮ `J HH hh` 0 @ LGL r`̴Yܝ ݝ0̴ȩFG   0` ܅F݅G ` { rͬ 밽܅F݅G ` {* r% L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 {9X(K {XXK تKo`V8`no` D on {I9XX`)HJJJh`OeNeO࿰ {9XАO`@ȭ@` ON aNJKO`HхhꭋILhH),fx8 (8` ԍ`@Ae J m00[roIIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-87APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ`` ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKE:::49167,0:C9902:B015:A(C)1144:228,A(C3):280A,1590,9999C,C99C,C:21:"bc";:A:"NFGN":B,C:D01:243,32D:"^^^ TUTANKHAMON CONSTRUCTION COMPANY ^^^";::mnopqrstuvwxyz{|}~" *************************C * R.E.ADVISOR *d * BY ROBERT A. ALBANITO *( * COPYRIGHT (C) 1990 *2 * MINDCRAFT PUBL. CORP. *< * CONCORD, MA 01742 *F *************************P ZD$(4)::D$"PR#3"::2470 d4 n LINEUP AMOUNTS IN COLUMNS: xg A$"":Z4Z13Z18Z26A$(W):200: Z12W1A$"SINGLE":200 Z12W2A$"MARRIED":200 A$(((W)100.5)100):W1W0200 A$A$(".00 ",4(((W)))(A$)) A$(A$,(A$)1)Z W1000W1000A$(A$,(A$)6)","(A$,6): ADD COMMA IF IN THOUSANDSq 36,G(A$):A$;:w CALCULATE MONTHLY PAYMENT LA(2): LOAN AMOUNT IRA(3)1200: MONTHLY INTEREST RATE YA(4): # YEARS BMA(18): BEGINNING MONTH, MY12: # OF MONTHS; "U(1IR)MZ ,MILIR: MONTHLY INTEREST~ 6MPMIU(U1): MONTHLY PAYMENT @YRA(26):CT0: J T PROGRAM CALCULATIONS ^ hCTCT1:TP0:I0 rTY(13BM)MP:M12TYMMP: TOT YEAR PMTn |AABM12:MILIR:P(MPMI):TPTPP:IIMI:LLP:MM1:M0Ă:AA0:BM1: I = TOTAL INT. TP= TOTAL PRINCIPALz MM4ı TI0:EI0:TD0:AG0:A0:EW0:ET0:FR0:TR0:AM00 TIA(14)A(15):MM2T$"Y"DIA(15)TITIDIA(15): TOTAL INCOME/DI=INT.ON INVESTED DOWN PAYMENT/T$=TAXABLE OR NON TAXABLEe EIA(9):EI0İ690:EI0EI0: CALCULATE I.R.A. PT0:CT1PTA(5): PROPERTY TAX PS0:CC0:CT1PS(A(7)100)A(2):CCA(8): POINTS/CLOSING COSTS PEA(13)2000: PERSONAL EXEMPTIONS%SI(A(17)100)A(14): STATE INCOME TAX>CHA(10): CHARITIESqPI0:YR1991PI.1A(11):YR1990PI.2A(11)}YRYR1TDIEIPSCCPESICHPIPTA(6): TOTAL DEDAGTITD: ADJUSTED GROSS INCOME CALCULATE F.I.T.W. & FEDERAL TAXES \&EWA(16):EW0EW500EWEW52:580: CALCULATE YEARLY FITW FROM WEEKLY AMOUNT0EW0A(12)1ATI(EIPE3100):EW(.15A):A17850EW(.1517850)(.28(A17850)): ESTIMATE SINGLE FITW9:EW0A(12)2ATI(EIPE5200):EW(.15A):A29750EW(.1529750)(.28(A29750)): ESTIMATE MARRIED FITWDET(.15AG):A(12)2AG29750ET(.1529750)(.28(AG29750)): ESTIMATED MARRIED FEDERAL TAXESNA(12)1AG17850ET(.1517850)(.28(AG17850)): ESTIMATED SINGLE FEDERAL TAXES=XES((TIEI)(A(13)1000))(A(17)100): ESTIMATED STATE INCOME TAXebFREWET: ESTIMATED FEDERAL REFUNDlSRSIES: STATE TAX REFUNDvTRFRSR: TOTAL TAX REFUNDAM(TYTR)(13BM):AMMPAMMP: ADJUSTED MORTGAGE PAYMENT  I.R.A. CALCULATIONSRA(12)1TI25000EI(35000TI)(A(9)10000): SINGLE I.R.A.A(12)2TI40000EI(50000TI)(A(9)10000): MARRIED I.R.A.(EI)10(EI10)0EI(EI10)1010: ROUND UP TO NEAREST TEN PRINTOUT MENUNF$"PRINTOUT MENU":A113:A214:CC3:LC33:2690:XX12:G$"S":X2G$"P":G$"P"ĺ(21):12:36,16:"PRINTING":(4)"PR#1":(9);"80N": X179:"-";::: G$"S"ĭC8C0:1020:(H$)272620*4> ITEMIZED 5 YEAR REPORT H<R760:VT14:G$"S"Ģ12:33:"ANALYZING DATA"E\240UfX15:360pMC(A(6)A(5))12: ADDITIONAL MONTHLY COST6zB(1,X)MP:B(2,X)MC:B(3,X)MPMC:B(4,X)TP:B(5,X)L:B(6,X)I:B(7,X)PT:B(8,X)EI:B(9,X)A(6):B(10,X)PS:B(11,X)CC:B(12,X)SI:B(13,X)A(10):B(14,X)PI:B(15,X)PE:B(16,X)TDB(17,X)A(14):B(18,X)A(15):B(19,X)TI:B(20,X)AG:B(21,X)EW:B(22,X)ET:B(23,X)FR:B(24,X)SI:B(25,X)ES:B(26,X)SIES:B(27,X)TR:B(28,X)AM:B(29,X)AMMC:G$"S"ė36,28:"ITEMIZED FIVE YEAR REPORT"::QT0:C(1)A(1)A(2):C(2)A(5):C(3)(A(7)100)A(2):C(4)A(8)C$(1)"DOWN PAYMENT":C$(2)"PROPERTY TAXES":C$(3)"MORTGAGE COST (POINTS)":C$(4)"CLOSING COSTS"X14:36,0:A$(X);:WA(X):G37:160:36,42:C$(X);:C$(X)"":WC(X):G78:160:TTW::`36,69:"---------":36,42:"TOTAL NEEDED TO PURCHASE";:WT:160::::AA(26):G30:X15:36,G:A;:AA1:GG11::::A0:G0Y128:CC1:36,0:B$(Y);:G23:X15:GG11:WB(Y,X):B(Y,X)0:160:X800:Y C0:2590`24:36,20:"PRESS ANY KEY TO CONTINUE... TO EXIT";:H$:49168,0:(H$)27ı|23::VT:36,0:958: OWN VS RENT ANALYSIS$.760:X14:E$(X)A$(X):E(X)A(X)::E$(5)A$(24):E(5)A(24) 8X610:E$(X)A$(X14):E(X)A(X14):eBE$(11)"TOTAL NEEDED TO PURCHASE":DP(A(1)A(2))(A(7)100)A(2)A(5)A(8):E(11)DPLE$(12)A$(25):E(12)A(25)V1120`AA$"OWNERSHIP ANALYSIS":1860j" OTHER COST PROP. TAXES MORTGAGE LOST INT. ACTUAL": SPACES 8/5/1/5/7/9t"YR. & MORT.INS W/INFLATION PAYMENTS ON SAVINGS HOME COST": SPACES 5/1/5/5/6/1/7~790:C0:AC0:240:BM1CC1:CTCT1AC((A(25)100)AC)AC:AC0ACA(19): INFLATION OF OTHER COSTSAPR((A(25)100)PR)PR:PR0PRA(5): INFLATION OF PROPERTY TAXMH((A(25)100)MH)MH:MH0MHA(6): INFLATION OF MORTGAGE INSURANCEDI(DPSA)(A(24)100):SASADI: INTEREST YIELD OF DOWN PAYMENT36,2((CT)):CT;EG17:WACMH:C(1)C(1)W:160:G32:WPR:C(2)C(2)W:160:G47:WMP12:C(3)C(3)W:160:G63:WDI:C(4)C(4)W:160:G79:WACPRMHDI(MP12):TH(CT)W:C(5)C(5)W:160:VT15:800CTA(4)1160790 G17:WC(1):160:G32:WC(2):160:G47:WC(3):160:G63:WC(4):160:G79:WC(5):160:BCT0:AC0:PR0:MH0:DI0:SA0[ G$"P"ĺ(12):1860nVT12:C8:800" EST.TAX NET COST PRINCIPAL CUMULATIVE CUMULATIVE": SPACES 6/16/2/5/4/4J("YR. REFUNDS APPRECIATION OF HOME PAID EQUITY HOME VALUE": SPACES 3/2/3/1/8/8/6b2790:C0:AC0::BM1q<CC1:360FHA0HVA(1)PHAHVA(20)100:HVHVHA: CALC. APPRECIATIONZ36,2((CT)):CT;.dG13:WTR:C(6)C(6)W:160:G25:WHA:C(7)C(7)W:160:G38:WTH(CT)(HATR):C(8)C(8)W:160nG51:WTP:C(9)C(9)W:160:G65:WC(7)C(9)(A(1)A(2)):160:G79:WHV:160:xVT15:800CTA(4)1340790G13:WC(6):160:G25:WC(7):160:G38:WC(8):160:G51:WC(9):160 CT0:C0:AC0 G$"P"ĺ(12)) VT1:C8:800Y AA$"RENTAL ANALYSIS":A17:A29:1830::: " OTHER COSTS RENT COST RENTAL CASH SAVED INT. YIELD NET COST": SPACES 4/3/6/5/3/1/37!"YR. W/INFLATION W/INCREASES PAYMENTS BY RENTING ON SAVINGS OF RENTING": SPACES 1/2/4/4/3/1/2/1E!790:YR0!CTCT1:CC1:RTRT(1A(23)100):RT0RTA(21): CALCULATE RENTAL INCREASE!AC((A(25)100)AC)AC:AC0ACA(22): INFLATION OF OTHER COSTSr"36,2((CT)):CT;:G14:WAC:C(10)C(10)W:160:G27:WRT12:C(11)C(11)W:160:G40:WWAC:C(12)C(12)W:C3W:160:G53:WTH(CT)W:W.01W0.00"C(13)C(13)W:C4W:SASAW:160:S1SA(A(24)100):SASAS1"G66:WS1:C(14)C(14)W:C5W:160:G79:WC3(C4C5):C(15)C(15)W:160: #VT15:800#"CTA(4)1510(#,790#6G14:WC(10):160:G27:WC(11):160:G40:WC(12):160:G53:WC(13):160:G66:WC(14):160:G79:WC(15):160:#@G$"P"ĺ(12)#JVT1:C8:800#T#^ SUMMARY#h$r36,25:"RENTAL AND OWNERSHIP SUMMARY"::G$"P"ĺ>$|36,38:"OWN RENT":: SPACES 10w$"OTHER COSTS";:G41:WC(1):160:G55:WC(10):160:$"MORTGAGE/RENT";:G41:WC(3):160:G55:WC(11):160:$"PROPERTY TAX & MORTGAGE INS.";:G41:WC(2):160:G55:W0:160::%"LOST INTEREST OF SAVINGS";:G41:WC(4):160:G55:W0:160:%1820:"TOTAL CASH EXPENDED";:G41:WC(5):160:G55:WC(12):160:::G$"P"ĺ:%"CASH SAVED BY RENTING";:G41:W0:160:G55:WC(13):160:&"INTEREST YIELD ON SAVINGS";:G41:W0:160:G55:WC(14):160:I&"TAX BENEFITS";:G41:WC(6):160:G55:W0:160:&"APPRECIATION OF PROPERTY";:G41:WC(7):160:G55:W0:160:&1820:"TOTAL INCOME & EQUITY";:G41:WC(6)C(7):160:G55:WC(13)C(14):160:::G$"P"ĺ:.'"TOTAL CASH EXPENDED";:G41:WC(5):160:G55:WC(12):160:'"TOTAL INCOME & EQUITY";:G41:W0(C(6)C(7)):160:G55:W0(C(13)C(14)):160:'1820'"NET COST";:G41:WC(8):160:G55:WC(15):160:'2590(36,31:"---------- ----------":: 4 SPACES(&36,26:M$(2)::;(036,40((AA$)2):AA$::AA0(:XA1A2:36,0:E$(X);:G37:WE(X):160:36,41:E$(X1(A2A1));:G79:WE(X1(A2A1)):160:::)DA11:A23:1830:36,0:E$(11);:G37:WE(11):160:36,41:E$(12);:G79:WE(12):160::::)N%)X MORTGAGE TABLES AND MENU+)b)lF$"MORTGAGE TABLES MENU":A17:A29:CC3:LC29:2690:HHX6::HH1910,1910,2680)v:14:36,30:"(DEFAULT = $2,000)":12:36,28:"ENTER TABLE INCREMENTS ";IN$:IN(IN$):IN0IN2000"*760:A$"MORTGAGE PAYMENT ":HH2A$"2ND YEAR NET "`*A$A$"TABLES "(A(4))" YEAR LOAN":36,40(A$)2:A$:l*L1A(1)*L2L1:36,0:"RATE";:G16:X18*L201990*L21000WL2:160:1990 +A$((L2)):A$(A$,(A$)3)","(A$,3):36,G(A$):A$;: REMOVE CENTS&+L2L2IN:GG9:::790=+R(A(3)3):Z115w+LL1:X0:G5:WR:160:G16:X18:IRR1200:260:WMP+HH2W0L2L:360:360:WAM:LL2: 2ND YEAR NET+W0İ160+GG9:LLIN::+RR.25::L12590, L1L:CC1:C32590,G$"P"ĺ::19505, VT3:1020:(H$)272620?,*1950E,4g,> AMORTIZATION SCHEDULES MENUm,H,RF$"AMORTIZATION SCHEDULES MENU":A110:A212:CC0:LC26:2690:HHX9:HH2170,2310,2680,\,f YEARLY AMORTIZATION TABLE ,p,-z760:36,26:"YEARLY AMORTIZATION SCHEDULE":::-X24:36,0:A$(X);:WA(X):G37:160:::240:36,0:"MONTHLY MORTGAGE";:WMP:G37:160:::-" MORTGAGE PAID PAID LOAN CUMULATIVE CUMULATIVE": SPACES 8/6/8/8/6/3g."YEAR PAYMENT INTEREST PRINCIPAL BALANCE INTEREST MORTGAGE ": SPACES 4/5/4/4/5/5t.790:C0.360:CC1.C(1)TY:C(2)I:C(3)TP:C(4)L:C(5)C(5)I:C(6)C(6)TY:/G4:YR;:X13:WC(X):GG12:160::X46:WC(X):GG13:160::/VT14:800#/M025905/YRYR1:2220;/\/ MONTHLY AMORTIZATION TABLEb// 760:36,26:"MONTHLY AMORTIZATION SCHEDULE":0 X24:36,0:A$(X);:WA(X):G37:160:::240:36,0:"MONTHLY MORTGAGE";:WMP:G37:160:::MTBM:PC0l0 " PAID PAID LOAN CUMULATIVE CUMULATIVE": SPACES 20/6/8/9/40$ "PMT. MO. YEAR INTEREST PRINCIPAL BALANCE INTEREST MORTGAGE ": SPACES 2/1/4/2/4/8/60. 79008 CTCT1:TP0:I0#1B MILIR:P(MPMI):TPTPP:IIMI:LLPV1L C(1)I:C(2)TP:C(3)L:C(4)C(4)I:C(5)C(5)MP1V G15:36,3((CT)):CT" ";MT$(MT)", "YR;:X12:WC(X):GG10:160::G34:X35:WC(X):GG15:160::1` MTMT1:MM12j VT11:MT12G$"S"İ1020:(H$)2726202t MT12MT1:YRYR1Q2~ G$"P"MT1PCPC1:M0PC4ĺ(12):PC0:2330_2 M02590i2 2360|2 TITLE SCREEN33 :10:36,18:"R E A L E S T A T E A D V I S O R":30:"BY ROBERT A. ALBANITO":20:"COPYRIGHT(C) 1990 MINDCRAFT PUBL. CORP.":24:27:"PRESS RETURN TO CONTINUE";:ZZ$:49168,03 A$(26),A(26),B$(29),B(29,5),E$(12),E(12),M$(14),V$(27),TH(40),MT$(12),C(15)3 X126:A$(X)::X129:B$(X)::X114:M$(X):3 X112:MT$(X):3 3470X4 :12:13:"GET AN EXISTING SETUP FILE OR CREATE A NEW ONE? (G/C) ";:G$:49168,0:G$"C"G$"c"āX126:V$(X)::2580|4 G$"G"G$"g"SW1:3180:25504 25204 D$;"VERIFY"F$4 :D$"OPEN"F$:FO1:D$"READ"F$:X127:V$(X)::D$"CLOSE"F$:FO0:V$(27)"REA.FILE"25805 E5:3500'5 X126:A(X)(V$(X))::2770i5 G$"P"ĺ(12):(4)"PR#0":(4)"PR#3"::MM0MM5H0:27705( G$"P"G$"":262052 24:36,34:"PRESS ANY KEY ";:G$:49168,0K6< A0:AG0:AM0:BM0:C0:C18:C20:C30:CC0:CT0:DI0:DP0:EI0:ET0:EW0:FR0:HA0:HV0:I0:IN0:IR0:L0:MC0:MP0:MI0:MM0:AC0:WD0:PE0:PS0:PT06F RT0:R0:SA0:SI0:SR0:TD0:TI0:TP0:TR0:TY0:U0:VT0:H$"":X115:C(X)0::X140:TH(X)0::X0/7P CG1ė:10:36,22:"RESTORE SET-UP TO BEGINNING VALUES? ";:G$:49168,0:G$"Y"G$"y"āX126:A(X)(V$(X))::CG057Z E7d MAIN MENUK7n 7x Z0:MM0::F$"MAIN MENU":A11:A26:CC9:LC25:2690:MMX:MM850,1070,1900,2130,2770:(21)::58 :8:36,40((F$)2):F$:10:XA1A2:36,LC:M$(X)::XA1:10(A2A12):36,18:"USE TO SELECT... TO EXECUTE"8 VXCC:V::36,LC:M$(X);:16384,128:G$:49168,0:H(G$)::36,LC:M$(X):H13ı8 H21H10XX1:XA2XA18 H8H11XX1:XA1XA28 27008 8 SETUP MENU8 8 +9 1:36,29:"---- SETUP MENU ----"::H80ı9 4:Z113:36,1:A$(Z);:WA(Z):G38:130:ZZ13:36,41:A$(Z);:WA(Z):G78:130:ZZ13:::9 V3:Z1:LT1:AA0\: 22:958:10:"USE THE KEYS TO CHANGE... FOR MAIN MENU":13:"

PRINT SETUP SAVE SETUP NEW SETUP":F1$"AMOUNT TO LARGE... PLEASE RE-ENTER": VZ3AA:V::36,LT:(A$(Z)" ",27);:16384,128:G$:49168,0:H(G$):: 23 SPACES: H272680(; H80H112İ770:2780:Z126:36,20:A$(Z);:WA(Z):G61:130:::2590x;" H83H115SW2:18:958:3180:18::958:36,30:"SAVING SETUP TO DISK";, H83H115ĺ:D$"OPEN"F$:FO1:D$"WRITE"F$:X126:A(X)::"REA.FILE":D$"CLOSE"F$:FO0:SS2750:19:958:2770<6 H78H1102520<@ H13G$"":2930Y OR ..":3130= A46A57A47G$"":2930= G$G$A$:(G$)63130= 2930!> H(G$):G$""H0:F1$"NO ENTRY":3140X> Z26ĭH1990H2000F1$"INCORRECT DATE...":3130> Z2HA(1)F1$A$(Z)" TO HIGH...":3130> Z7H1Z13H1Z14H1Z18H1F1$A$(Z)" TO LOW...":3130> Z14HA(16)F1$A$(Z)" TO LOW...":3130(? Z3Z17Z20Z23Z24Z25ĭH203120T? Z4H45F1$A$(Z)" TO LONG...":3130f? Z7H73120? Z8Z9ĭH40003120? Z16HA(14)3120? Z18H123120?& :A(Z)(G$):WA(Z):V:36,LT:A$(Z);:GLT37:130:A0:G$"":CG1:2820@0 F1$A$(Z)" TO HIGH..."C@: G$"":A$"":A0:F1$F1$" PLEASE RE-ENTER"@D 20:958:36,40(F1$)2:F1$:XY13000::XY0:20:958:V:36,LT27:" ";:GLT37:WA(Z):130::2810@N @X SET SLOT# & DRIVE# @b Al 19:26:"SLOT (1-7):";:SL$:49168,0:SL(SL$):SL)Av SL1SL73180eA 19:36,41:"DRIVE (1-2):";:DR$:49168,0:DR(DR$):DRyA DR1DR23200A SS2:(48896)763340: DETERMINE IF USING PRODOSA A DOS 3.3 A A 43626,SL:43624,DR B 23:26:"PRESS (?) TO CATALOG DISK">B 21:26:F$"":"FILE NAME: ";F$:(F$)13280pB F$"?"SS1::D$;"CATALOG":X13:::3270vB |B B PRODOS B B (4);"PREFIX,S";SL$;",D";DR$B (4);"PREFIX":PF$B (4);"PREFIX";PF$:C* 19:868:26:"PREFIX:"PF$:.C4 23:26:"PRESS (?) TO CATALOG DISK"RC> 21:26:F$"":"PATH: ";F$:NF1{CH F$"?"ė:D$;"CAT":X13:::3380CR (F$)0āNC1(F$):NA((F$,NC,1)):NF((NA64NA91)(NA96NA122)(NA46)(NA47NA58NC1))NF1:QD\ F$""(F$)15NF0(F$,1)"."Ģ21:36,32:"INVALID PATH NAME":X11500::21:36,30:868:3380WDf ]Dp qDz ERROR ROUTINEwD D E(222):216,0:D 3470D SW1ĉ:D FO1ĺ:D$;"CLOSE";F$D 12:SW2Ģ19E (48896)76E3Ĺ36,25:"NO DRIVE CONNECTED TO SLOT #";SL:3610UE E4Ĺ36,23:"DISK IS WRITE PROTECTED, REMOVE TAB":3610E E5Ĺ36,26(F$)2:F$;"...IS NOT AN R.E.ADVISOR FILE":3610E E6Ĺ36,25:"THAT FILE IS NOT ON THIS DISK!":3610'F E8Ĺ36,10:"A DISK ERROR HAS OCCURRED! CHECK THE DOOR OR DISK IN DRIVE ";DR:3610RF E9Ĺ36,32:"THE DISK IS FULL!":3610F E13Ĺ36,24:"THE PROGRAM ONLY USES TEXT FILES":3610FE2552770F:36,25:"ERROR #"E" HAS OCCURED!"F:36,27:"PRESS ANY KEY TO CONTINUE";:G$:49168,0G$SW2520:17:958::2810G. VALUE OF HOME,AMOUNT OF MORTGAGE,INTEREST RATE (%),LENGTH OF MORTGAGE (YRS.),PROPERTY TAX,MORTGAGE INSURANCE,NUMBER OF POINTS,CLOSING COSTSbH8 I.R.A. CONTRIBUTION,CHARITIES,TOTAL PERSONAL INT. PAID,MARITAL STATUS,PERSONAL EXEMPTIONS,SALARIES,OTHER TAXABLE INCOME,F.I.T.W.,STATE INCOME TAX (%),MONTH OF FIRST PAYMENT#IB OTHER YEARLY HOME COSTS,APPRECIATION OF HOME (%),MONTHLY COST OF RENT,OTHER YEARLY RENTAL COSTS,YEARLY RENT INCREASES (%),TAX DEFERRED/FREE RATES (%),ESTIMATED INFLATION (%),CURRENT YEARIL MONTHLY MORTGAGE PAYMENT,ADDITIONAL MONTHLY COST,TOTAL MONTHLY PAYMENT,TOTAL PRINCIPAL,LOAN BALANCE,TOTAL INTEREST,PROPERTY TAX,I.R.A.,MORTGAGE INS.,POINTS AMOUNT,CLOSING COSTSJV STATE TAX,CHARITIES,PERSONAL INTEREST,PERSONAL EXEMPTION,TOTAL DEDUCTIONS,INCOME,OTHER TAXABLE INCOME,TOTAL INCOME,ADJUSTED GROSS INCOME,F.I.T.W.,EST. FEDERAL TAX,EST. FEDERAL REFUNDK` STATE TAX WITHHELD,EST. STATE TAX,EST. STATE REFUND,TOTAL REFUNDS,NET MORTGAGE PMT.,NET TOTAL MONTH PMT.Kj ITEMIZED FIVE YEAR REPORT,RENTAL AND OWNERSHIP ANALYSIS,MORTGAGE AND INTEREST RATE TABLES,AMORTIZATION SCHEDULES,SETUP MENU,QUIT-Lt MORTGAGE PAYMENT TABLES,2ND YEAR NET TABLES,MAIN MENU,YEARLY AMORTIZATION SCHEDULE,MONTHLY AMORTIZATION SCHEDULE,MAIN MENU,SEND TO SCREEN,SEND TO PRINTERcL~ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECL 100000,80000,10,15,1000,0,3,1000,2250,500,0,2,2,40000,0,0,2.5,1,2000,5,500,1000,4,6,4,1990`` ̍`` .`` m`````*LL````````````ͮΠŠŠ٠ŠΠԨéԠ̮ЮĬԠҠ Ǡ&̱Ӡ͠ҠΧ4̲ӠҠԠƠĠ͠Ҡ̠Ӡ ƠԠΪȠӠ ƠԠΪ4ϠӠԠĠ٠ǠΪ٠֠ӠҠ5͠ӠҠĠ٠ǠΪ٠ ̲ƻҽ#ҠŻԠ͠Ҡ à ̱ )ؠԠƠŠϠ٠Ϊ Ԡ ̠ ̠̲ à à̱ à à Ԡ Š .ؠԠƠŠϠŠΪ٠ Р̠ àР ĠР àֱ  à àֱ Š  РˠƠҠ àà ˠϠ ŠԠàϻŠϠԠԠ! ************************A * RANDOM.TEST *a * BY STEVE MCLENDON *( * COPYRIGHT(C) 1990 *2 * MINDCRAFT PUBL. CORP.*< * CONCORD, MA. 01742 *F ************************P(4);"BLOAD RANDOM.GEN" Z; d34,2:"PRESS RETURN TO GET A NEW RANDOM NUMBER":F n24583\ xX(24580):X" ";r A$:A$(13)110z : ******* 8/08/86 *******;* ProDOS STARTUP *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9703 n ********** GET HI-RES SCREEN AND SET DISPLAY SWITCHESd x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." D$"BRUN STARTUP.SCREEN" G(16297)(16300)(16301)(16304) ********** READ INFO FROM NIBMENU TEXTFILE 11201 P$(20): P$ = PROGRAM NAME _ S$(300):S$ = LINES OF TEXT INSTRUCTIONS RC$(20): RC$ = COMMAND USED TO RUN PROGRAM MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME= NA$"NIBBLE "A$:22:20((NA$)2):NA$:1h NP: NP = NUMBER OF PROGRAMS ON DISK~ I1NP:P$(I):I MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,S$(I) J(S$(I),1,1)"#"350 T320! ^D$;"CLOSE"^ h(1101)6İ1080: ********** UPPER/LOWER CASE ROUTINE r ********** FIRST TEXT SCREEN |::3 "Thank you for ordering the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600M  ********** CYCLE THRU NIBMENU TEXT SCREENSU A1^ :3 S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600 S$(A)"#"510 S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :36:"Thanks again for your order !")12:R6:"ALL PROGRAMS ON THIS DISK ARE"{&6:"COPYRIGHT (C) 1990 BY NIBBLE"06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030$N ********** SET UP MENUJXMEMM2:X$(0)" ":X$(1)"-->":b1:1:"Selection: : Instructions"l3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"861ME:8:ME". Quit"l21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868Y1:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z107008002 ********** PRINT POINTER SUBROUTINEO 61N:SX:X$(SLOS);:r ********** SELECTION ROUTINE SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL): > ********** EXECUTE A VALID MENU CHOICE,H49168,0::1100:D$;RC$(SL)PR ********** CATALOG SELECTED m\:49168,0::D$;"CAT":f24:7:"Press to continue";p49168,0:49152,128:z ********** QUIT SELECTED22::958:"Do you really want to quit? (Y/N)";:49168,0(49168,0:49152,128Z(49152)249(49152)217Ĺ49168,0::1100:` ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE:(1101)6ė:D$"PR#A$300"_(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":101019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600  ********** WAIT FOR KEYSTROKEFLAG$""`23:" for next page or for menu";:49168,0:49152,128~(49152)155FLAG$"ESC"$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I013:ML:768I,ML:I:D$"PR#A$300":B ********** DETACH UPPER/LOWER CASE HANDLER *L(4);"PR#0":ZV ********** INSTALL INPUT-ANYTHING ROUTINEu`X768839:A:X,A::j ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165:~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 216,201,225,144,6,201,251,176,2,233,31,76,240,253,0  c` ` v`` ` v` `ݥ``8 ``+p|~p|*U*U*U*U*U*S( @?p~px|xժժժժժRT* @?p~px|ЪժժժՊ dOE U @?`p~?pxԊԪ `|yg~0 cFc& U*U*U*@@ @%P*U*U*U*U*U }<_/" p@Pgp{?"dydw!<MժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~px|xժժժՂ n_?E U @?`p~ppp}{c0 cFc&(U*UA*U*uԪժժժժՊ @ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*S* @?p~px|ժժժժժ `AFT* @?p~Ap||xժժժՂ N?p1 U4pysc'C&0.cFc&(U*U P*U* > @p{?" NԪժժժժժ@ [ժժժժժժdpO|`*U*U*U*U*U*p|~p|(U*U*U*U*U*R@* @?p~px|ժժժժժ pcFU* @?p~p|ժժժ _?@>|. U5x{w cY#8X03X0FC30%*U*U*U*U*U L @@ " NԪժժժժժtժժժժժժdpO|`*U*U*U*U*U*pp~p|(U*U*U*U*U*R@* @?p~px|Ԫժժժժ pcFU* @?`p~p|ժժժ ?~ GC@F- U5xsg`c00@` 80Y2835mHCR15CR:CRRI890,900,910,920,930,940\II1:fI12:CL(I):XPL(0,I):YPL(1,I):400:p16298,0:16301,0:16304,0:34,20:410zY,Y4X1:9X,X2Y:X,X2Y2:X,X2Y4:X2,Y1:X,Y3:iX,X2Y:X,X2Y4:Y1,Y3X2:X1,Y2:Y,Y2X:Y,Y4X2:X1,Y2:X,X2Y:X,X2Y2:X,X2Y4:X,Y1:X2,Y3:Y,Y4X:Y2,Y4X2:X1,Y2:X1,Y4: X,X2Y:Y1,Y4X2:>Y,Y4X:Y,Y4X2:X1,Y:X1,Y2:X1,Y4:K:N15kB$:16303,0:B$:16304,0q23:11((N$(I))2):N$(I)" IS THE WINNER !!!":N13500::23:"ANOTHER GAME ? ";:AN$:AN$"Y"ĉ::670::::14:"INSTRUCTIONS"::" YOU AND YOUR ARCHRIVAL ARE STRANDED TOGETHER ON A TROPICAL ISLE. YOU EACH HAVE AN UNLIMITED SUPPLY OF SECRET ANTI-MATTER BOMBS WITH WHICH YOU CAN MAKE LAND VANISH AND ONLY SEA REMAIN !"" IT IS YOUR MISSION TO ISOLATE YOUR ENEMY ON A QUADRANT SURROUNDED COMPLETELY BY WATER. WITHOUT AN ESCAPE, YOUR ARCHRIVAL CAN EASILY BE CAPTURED."P$" YOU DO THIS BY FIRST CHOOSING A QUADRANT TO BOMB NEAR THE ENEMY, AND THEN, YOU MAKE YOUR ESCAPE TO A SAFER QUADRANT. YOU MAY BOMB ANYWHERE, BUT YOU MAY ONLY MOVE TO ADJACENT QUADRANTS.";." TO PLAY, FIRST ENTER THE X, THEN THE Y COORDINATE OF THE MOVE."8" IF YOU WANT TO PLAY THE COMPUTER, JUST ENTER 'APPLE' WHEN ASKED FOR A PLAYER'S NAME."B8L24:8:"(ANY KEY TO START GAME)";:AN$::670