C64S tape image fileSTARTER PROD PAC ,STARTERSCRIPT m/MORTGAGE CALC ?1R2 -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ 'I18:I,(1)::TC$(1):B$(20)A A$(99):(14):4,2,7 VL$"1234567890+-=QWERTYUIOP@\*ASDFGHJKL:;ZXCVBNM,./!#$%&'()^"VL$VL$"[]<>?"(27)(157)(29)(20) VL$VL$(13)" ""<"6 C$(1)"1. NTER EXT ":C$(2)"2. DIT EXT ":C$(3)"3. NSERT INES" C$(4)"4. ELETE INES":C$(5)"5. IST ":C$(6)"6. RINT "C$(7)"7. AVE EXT ":C$(8)"8. OAD EXT ":C$(9)"9. XIT ROGRAM""":BF0:EF0F2""R71,13,3<" TARTER CRIPT "F"";PI19:10)C$(I):U""; W1,10,3@Z:"SE THE URSOR EYS TO ELECT AN PTION ";wd"RESS ETURN TO XECUTE THE PTION ":A1f"";i1,10,A2,""C$(A)""nA$p(""(13),A$)0110q(A$)13140s1,10,A2,C$(A)"uA$""AA14xA$""AA1K}A9A1:ՋA1A9T105A200,400,600,800,1000,1200,2000,2200,2400120 ******** ADD TEXTHL0HL1HL994300:18"NTER EXT - RESS SC TO ETURN TO ENU";(27)"T";:39);I""(27)"B";:"";:L$""sCA0:HL10HL">";:ՙ((HL),2)">";BF1CA37" ";EF1:աA$:KV(VL$,A$,1)KV0230KV893300:225KV903500:225:ՋKV913600:230KV88(L$)018:ՋKV88230]EF1KV92CA1(L$)"<":L$(L$,CA):A$(1):BF0:310CA(L$)KV92"<":A$(1):310:ՋKV92230,A$;1BF134006L$L$A$:CACA1@KV92A$(HL)L$:L$"":HLHL1:360J(L$)36A$(HL)L$:HLHL1:L$"":360T225(hEF1CrHL994300:18:Չ220S******EDITq1,0,18,"DIT INE #":LNLN1LNHL14000:18TNLN"DIT EXT - RESS _ FOR EXT INE ";" RESS SC FOR ENU "(27)"T";:39);J""(27)"B";:"";:EF1:BF1c1070:CA0:L$A$(LN)}"";:THLHL:HLLNL$TC$"";""(L$,1,1)"";A$:KV(VL$,A$,1)(A$)954100:510KV88A$(HL)L$:AF1KV88HLTHL:18:ՋKV88AF0:18)235:HLLN510>HL994300:18U!HLTHLBF1:BF0p&LNHL:TNLN:1070:CA00HLTHLTHLHL1:AF1:" ";:510:Ս4500:500X***INSERTb1,0,18,"NSERT AFTER LINE #":ALlAL0AL99ALHL14000:18qHL994300:18Yv"NTER EXT - RESS SC TO ETURN TO ENU";:THLHL:HLAL1t(27)"T";:39);:IL1""(27)"B";:"";:L$""CA0:HL10HL">";:ՙ((HL),2)">";BF1CA37" ";A$:KV(VL$,A$,1)KV0680>KV88(L$)0ILIL1:790:ՋKV88680rEF1KV92CA1(L$)"<":A$(1):BF0:740CA(L$)KV92"<":A$(1):740:ՋKV92680KV893300:670KV903500:670:ՋKV913600:680A$;BF13400L$L$A$:CACA1DKV92B$(IL)L$:L$"":HLHL1:ILIL1:780w(L$)36B$(IL)L$:HLHL1:L$"":ILIL1:780670 IL20ILTHL1014300:ILIL1:790:Չ660HLTHL1:IL0797:ՁIHLAL11:A$(IIL)A$(I): I1IL:A$(ALI)B$(I):B$(I)"":HLHLIL1:182 *******DELETE@%LN0:TN0e*1,0,18,"ELETE FROM LINE #":LN4LN1LNHL14000:18>:"ELETE TO LINE #";:TNHTN1TNLNTNHL14000:18R:"RE YOU SURE";S$\S$"Y"S$"YES""OT ELETED":J1500::184fNLTNLN1:HL100HL99:HF1IpTNHLJLN:900zzLNLN1:JLN:ITN1HL:JJ1:A$(J)A$(I):IJ99IJ199:A$(I)"":IHLHLNL:S$""HF1HLHL1:HF0:"ELETED":I1500::18***LIST&"TART LIST AT LINE #1";:TN0:LN0:CN0.LNCLN1LNHLLN1e"IST TO LINE #"HL1"";w HL19"";TNTN1(TNHL1)TNLNTNHL1$"";.ILNTN:CNCN1:L$A$(I):EF1L$""L$" "3CN22EF1"TOP";S$:CN1 5S$"Y"S$"YES"S$"":18> 8I10I">";:ՙ((I),2)">";l =TV(L$,TC$,1):TV0L$(L$,TV1)"< " BL$:L$A$(LN):1130 jI:EF1 t:"RESS SC TO ETURN TO ENU" yA$:(A$)271145 ~18 ***PRINT ROUTINE!"":LM0:RM0:LN0:TN0:PC15!"NTER THE LEFT MARGIN";:LMB!LM018l!LM1LM80"NVALID ARGIN":1200!:"NTER THE RIGHT MARGIN";RM!RM018!RMLMRM80"NVALID ARGIN":1220!:"TART AT LINE #1";LN"LN1LNHL1LN1%":"RINT TO LINE #"HL1"";7"HL19"";?"TNZ"TNLNTNHL1TNHL1":"EADY RINTER AND RESS ETURN";:PR" PWRMLM:4,4:CLLN1"(TL$)PWCLCL1:Չ1400"CL99CLTN1500:1600"A$(CL)""1500:1600*#(TL$,TC$)01500:TL$A$(CL):CLCL1:1302\#CL99CLTNEF1:1500:1600:TL$TL$A$(CL)p##(TL$)PW1400#(TP(TL$,TC$):TP01300#2TL$(TL$,TP1)(TL$,TP1)#<1500:EF11300:Չ1600#xTA$TL$:TA$(TL$,PW):T2$(TL$,PW1)'$(T2$,1)" "TL$TA$:1500:TL$T2$:1700:13006$IPW11P$(TA$,I,1)" "1490|$T2$(TA$,I1)T2$:TA$(TA$,I):TL$TA$$1500:TL$T2$:1700:1300$I$TL$TA$:1450$1500:1700:1300$4,""LM)TL$:TL$"":PCPC1%PC55I111:4::PC1 %%%@4:4:EF0:CL0:185%I1(TL$)L%(TL$,I,1)" "I_%TL$(TL$,I):n%*****SAVE%1,0,16,"OCUMENT AME:":DN$%"ԒAPE OR ĒISK?  ";%A$:A$"D"A$"T"4005:2012%A$; &A$"T"1,1,1,DN$:՟1,8,8,"0:"DN$",S,W"&1,HL1(13);>&I1HL1:1,A$(I)(13);:E&1o& :"OCUMENT AVED":I11000::4005w&18&****LOAD&1,0,16,"OCUMENT AME:":DN$&"ԒAPE OR ĒISK?  ";&A$:A$"D"A$"T"4005:2212&A$;$'A$"T"1,1,0,DN$:՟1,8,8,"0:"DN$",S,R";'I199:A$(I)"":E'1,HL_'I1:A$"":HL"LINES";j'IHLy'A$(13)'#1,A$:A$(I)A$(I)A$::A$""'A$(I)(A$(I),(A$(I))1)'II1:'1':"OCUMENT OADED":4005' HL992320( IHL199:A$(I)"":1( I11000::HLHL1:18>(` ""::S( ****CURSOR BACK_( CA1( (L$,CA2,1)""(L$,CA1,1)"";:Ս4600( ""(L$,CA,1)"";( CACA1:BF1:(H ****TEXT AFTER CURSOR BACK(R (L$,CA1,1)A$(W CA36330 )\ CACA10)a EF1""(L$,CA1,1)"";:3450])f CA1(L$)""(L$,CA1,1)"";:Չ3470{)z CA(L$)BF0:"";:225) 230) " ";:L$(L$,CA)) BF0:225) ****CURSORFORWARD) EF13700) CA(L$)* (L$,CA1,1)""(L$,CA2,1)"";:CACA1.* BF1CA(L$)BF0:"";4* D*****DELETEP*CA1~*CA(L$)" ";:L$(L$,1,CA1):3650*LS(L$)CA*$(20);:L$(L$,CA1)(L$,LS)*.3660*B" ";*LCACA1:*t******EDITCURSORFORWARD+(L$,CA2,1)TC$3770!+CA1(L$)O+(L$,CA1,1)""(L$,CA2,1)"";:CACA1w+BF1CA1(L$)CA36"";:BF0:}++(L$,CA1,1)"<";:CACA1:+"NVALID INE UMBER"+7:1,800,3:KK1500::+(HL1)THL ,(L$,CA1,1):A$(HL)L$1,LNHL1:TNLN:HLLN:1070:"";M,"""(L$,1,1)"";:CA0S,,," UT OF OOM ";:ILIL1:4005:I11000::,"";:L$TC$"";,,(L$,CA1,1)TC$(L$,CA1,1)"";,#I18:I,(I132)::8,(63)8 2025,64:281,38Cn""fPD4 : PRINTER DEVICE NUMBER,LP66 : LINES PER PRINTER PAGE6:@""," "JFR$,FS$:1,2,7:4,2,77T"";:F$"":F15:1380:F$"":F06:F14:1370:F011:1370o^F016:F15:1370:F$"":F022:F13:1370:"˝";hF01:F11:1420:F$" EQUITY":F0$" INTEREST":F1$"PAYMENT"r(FR$,2)9)" MORTGAGE CALC ";|(FR$,3)15)"(C)1984";)(FR$,4)7)"COMMODORE BUSINESS MACHINES";l(FR$,6)"DATA":" PRINCIPAL ANNUAL TERM TO BE START"14)"RATE YR MO PAID MM/YY":18)"%"35)"/":"NEXT "F1$:"DATE AMOUNT"F$F0$:"MM/YY/"&"STATUS AT /":"AMOUNT NUMBER OF TOTAL TOTAL"S9)""F1$"S"F$F0$::"PAIDDUE"24, 9,3,9,83, 9,14,5,83, 9,21,2,11, 9,24,2,11, 9,29,1,0, 9,34,2,119,37,2,11, 14,3,2,11, 14,6,2,11, 14,9,9,83, 14,19,9,83, 14,29,9,83.16,13,2,27, 16,16,2,27, 19,12,4,27, 19,19,9,83, 19,29,9,83, 20,3,2,27v20,6,2,27, 20,12,4,27, 20,19,9,83, 20,29,9,83, 24,2,38,0,23,2,38,0FT:FC%(FT,4):I1FT:FC%(I,1),FC%(I,2),FC%(I,3),FC%(I,4):1,3FS1:FT9:1730"PAYMENT PERIODS ARE M, B, Q, S, OR A"0"NEXT PAYMENT DATE BEYOND LOAN TERM!"{"MONTHS MUST BE BETWEEN 1 AND 12","ALL BLANKS MUST BE FILLED IN!"&"TERM DOESN'T MATCH PAYMENT PERIOD","ENTER FACE VALUE OF LOAN"0"ENTER INTEREST RATE AS % PER ANNUM":"ENTER PERIOD ALLOWED FOR REPAYMENT"GD"PAYMENT PERIOD, E.G. M FOR MONTHLY"N"ENTER DATE LOAN ISSUED","ENTER DATE TO BE EXAMINED"X"TERM INCONSISTENT WITH ACCURACY"b"SHALL I PRINT AN AMORTIZATION SHEET? "lFE$(13):I113:FE$(I):vA(X)0.01((X0.005)100);A(X)((X100.).5).01NFP1:SS1:FK1(FR$,23)"PRESS F1 TO CALCULATE, HELP FOR HELP";1440:F631320FK1:1920F$FS$:FK23:1950:F$FE$(13):FK24:1950 X110: A$:XA$A$"Y"A$"N"690CPO1(A$"N")PF0:PO0:LN0:PG0:7:650XPO0:A$"N"760gPO1:3000z"":PO0780F$" ":FK23:1950 F$(FS$,10)"** CALCULATING **"(FS$,10):FK24:1950"":FK1:1920:PFPF:SS1Q SS1P500000I1022:FC%(I,4)FC%(I,4)(224):*SS1P500000I1022:FC%(I,4)FC%(I,4)64:4FK2:1920:IR.01FIR.01F:SS1>FK3:1920:Y0F:FK4:1920:Y0Y0F12:YY0YY0:SS1HFK5:1920:I15:F$("ASQBM",I,1)860DR:F$FE$(1):FK23:1950:SS1:FK5:FP1:660Y\I3I33(I3)ffI3I4ypNINI:SS1z((YN0.0001)(YN))1E4910FK23:F$FE$(5):1950:FK3:FP1:SS1:660FK6:1920:DMF:FK7:1920:DYF:1000:D0FX6:990SDDSDD:SS1SFK8:1920:DMF:FK9:1920:DYF:1000:D0FX8:990fDSDDD1200{DLDDLD:SS1(SDY12DL)PO0FK23:F$FE$(2):1950:SS1:FK3:FP1:660(SDY12DL)PO1PG0:24001020FK23:F$FE$(3):1950::FKFX:FP1:SS1:6602DM112DMDM0:DY0CDDY12DM:RSS11050FK10:1920:RF:FK11:1920:EEF:FK12:1920:IPIPFN0N01:DLDL(12N):1160P0IR0Y0SD0DL0F$FE$(4):FK23:1950:650$N0(N(DLSD1)12)1:N01N01..DLSD(12N)N0:EEP:IIIRN:IP0[8RA((IIP)(1(II1)(NY))):N1(NY)B(IIPR).05F$FE$(12):FK23:1950:FK1:FP1:660LN01NP1N01:RIA(IIEE):EEA(EERRI):VEPEE:IPA((N01)RE)`(N1N0)0PPN0(N11):RIA(IIEE):EEA(EERRI):QjRIA(IIEE):TXA((N11)RPEERI):LRRIEEtTX1000000I1422:FC%(I,4)FC%(I,4)(224):~TX1000000I1422:FC%(I,4)FC%(I,4)64:FN1N01:FK20:1950:FPE:FK21:1950FTXIP:FK22:1950DDDL12N:DD1200DDDD1200WX(DD12.001):FX:FK14:1950:FDD12X:FK13:1950FK15:FN01:1950:FK16:FE:1950:FK17:FIP:1950N0N1RLR:RITXIP:1240RIA(II(PE))N0N1R0:RI0DDDL:DD1200DDDD12001 X(DD12.001):FX:FK9:"":1950:FDD12X:FK8:1950n "":FK10:FR:1950:FK11:FRRI:1950:FK12:FRI:1950 "":PO12280:SS0:FP1:FK1:680 FK24:F$"TYPE IN ANY CHANGES & PRESS F1 OR ":1950 ! FK23:F$"JUST HIT F1 TO ADVANCE 1 PAYMENT ":1950!!F$:F$""1300>!"":SS0:FP1:FK1:670\!(FXFK:FYFK:FX3FYFY1n!2FX6FYFY1!<FX8FYFY1!F(FR$,24)" ";!PF$FE$(FY5):FK23:1950:FKFX:FP1:660"Z(FR$,F0)F$"";:1410:"";+"dF1F11:F$""(FS$,38)"";:O"nF$"";:1410:F0F125"";:g"x:2023,75:56295,0}"F138:"";::"(FR$,F0)F1)"    ";"" SCREEN INPUT CONTROL!#FLFC%(FK,3):FZFC%(FK,4):(FR$,FC%(FK,1))FC%(FK,2)FP2)@##1,F0$:(F0$)13F0$" "R#"";:F1$""u#F150:F$:F$""F50:1500#:F$F1$:F1$F0$:F0$F$:F0$"";:1480#:F(F$):F0F127:F0$""F2$F1$:F1$F0$:F0$F2$#F0$"";:F133F63$F0131640$F0171640/$F0191710:PG0:1450?$F0201800O$F0291870h$"F272025,0:"":$,F$" "(47FF58)1610$6(FZ8)0(F$"."F$"E")1610$@FZ1F018F341460$JF$;$TFPFP1:FPFL1660$^1460%h FORWARD & BACK TAB%rF12816804%|FP1:FKFK1:FKFTFKFS>%1450T% FP1FP1:1450m%FKFK1:FKFSFKFTw%1450% HOME & CLEAR%(F128)01790%F19%(FR$,FC%(F,1))FC%(F,2)1)(FS$,FC%(F,3));:%F1022:F18F190&(FR$,FC%(F,1))""FC%(F,2)1)(FS$,FC%(F,3))"";:m&(FR$,23)"PRESS F1 TO CALCULATE, HELP FOR HELP";&(FR$,24)" ";&FP1:FKFS:& INSERT & DELETE&F1281840'FP1"";:FPFP1:F0$" ":F1$""'&1480?'0F$"":FPFLFFPFL1:#1,F2$:F$F$F2$:l':(FR$,FC%(FK,1))FC%(FK,2)FP2)" "F$;:v'D1450'N CURSOR FWD & BACK'X(F128)01610'bFPFP2:FP11610'lFKFK1:FKFSFKFT'vFPFC%(FK,3):1450' READ FIELD%((FR$,FC%(FK,1))FC%(FK,2)1);:F$""V(F1FC%(FK,3):#1,F0$:F$F$F0$::F(F$):j( DISPLAY FIELD(FLFC%(FK,3):FZFC%(FK,4):(FZ1)02110(F$(F):0FF$(F$,(F$)1)(F01(F$):(F$,F0,1)"E"2020 )F0$(F$,4):F$(F$,(F$)4):FZ420305)(F)1(((FZ224)32))F0.0:1970Z)F$"*":F2FL:F$F$"*"::2110g):F0$"")F1(F$):(F$,F,1)"."2050):F$F$".")F1(FZ224)32:F21F1:F$F$"0":) ((F$,FF11,1))52080*F(((F$,FF1))("1E-"(F1)))("1"F0$):1970&* FZ8F11<**F$(F$,FF1)F0$d*4(F$)FLF$"":F1FL:F$F$"*":*>(F$)1(F$,1)" "F$(F$,(F$)1):2110*H(F$)FLF$(F$,FL):2150*RFZ2F$(FS$,FL(F$))F$:2150*\F$F$(FS$,FL(F$))+fF0$"":FZ16F0$""#+pPF17,F$;:Q+z(FR$,FC%(FK,1))FC%(FK,2)1)F0$F$"";:l+ PRINTER PAGE HEADING+7,PD,7:7,""26)"ORTGAGE OAN ALCULATOR"20)"PAGE"PG+7:7:7,""13)"RINCIPAL"10)"NNUAL ATE"11); ,7,"ERM":PF1:7,""12)"$";:FK1:FP:1950<,7,""12);:FK2:FIR100:1950:7,"%"14);m,FK3:1920:1950:7,"/";:FK4:1920:1950:7,7:7:7,"AYMENT ATE MOUNT QUITY NT";,7,"EREST OTAL OTAL":7,"UMBER UE UE";1-7," UE UE QUITY NTEREST"_-A178:7,"=";::7:LN10:PGPG1:PF0:}- PRINT TO PRINTER FORMAT-PG0PGPG1:2180-PF1:YY(DD12.001):MMDD12YY:PERRI:A$:A$""2400- 7,"";:FK15:FN0:1950'. 7," ";:FK8:FMM:1950:7,"/";:FK9:FYY:1950E. 7," ";:FK10:FR:1950e.$ 7," ";:FK11:FPE:1950.. 7," ";:FK12:FRI:1950.8 7," ";:FK16:FE:1950.B 7," ";:FK17:FIP:1950:7.L LNLN1:LN(LP5)PF0:/V A15:7::7:2180:*/` ALNLP:7::7:PF0:PO0:1730:6506/ LN0k/ :"READY PRINTER AND PRESS RETURN":A1$:)CA36"";:BF0:}++(L$,CA1,1)"<";:CACA1:+"NVALID INE UMBER"+7:1,800,3:KK1500::+(HL1)THL ,(L$,CA1,1):A$(HL)L$1,LNHL1:T