2 AUTO EXPENSE - (VER 2.0):BY D. SCOTT 05/91c" DO YOU NEED INSTRUCTIONS? (Y/N)uK$:K$""30(K$"N"962K$"Y"72<30F SEQUENTIAL FILE READERH53272,21:"":S$"AUTO.INST"J1,8,2,S$",M,R":4,3:""! L10)"HIT ANY KEY TO PAUSE":""M N#1,A$:ST04,A$;:198,1,1:198,0:78 P4:1:4:" DONE --- PRESS ANY KEY FOR MENU" RK$:K$""82 `R0:(142) bSI$(401),SD$(401),VM(401),SC(401),SP$(401),CO$(401)" d53280,2:53281,1:" A U T O E X P E N S E V2.0 ";V h" ";x j" AUTOMOBILE FILE: "F$ " l" MAXIMUM RECORDS: 300  NOW ON FILE:" R n" "; p"  1 =  D ISK DIRECTORY"1 r"  2 =  L OAD A FILE"^ t"  3 =  E NTER NEW RECORDS v"  4 =  V IEW ALL RECORDS x"  5 =  F IND RECORDS" z"  6 =  C URRENT EXPENSE BALANCE |"  7 =  S AVE THE FILE"; ~"  8 =  P RINT HARD COPYc "  9 =  Q UIT PROGRAMx " ENTER ^ ^ "  NUMBER OR  LETTER FOR OPTION"; KEY$:KEY$""140 KEY$"1"KEY$"D"262 KEY$"2"KEY$"L"202 KEY$"3"KEY$"E"402* KEY$"4"KEY$"V"502E KEY$"5"KEY$"F"802a KEY$"6"KEY$"C"1400| KEY$"7"KEY$"S"330 KEY$"8"KEY$"P"1002 KEY$"9"KEY$"Q"171 675:140 781,X:782,Y:783,0:65520: 53281,0&X10:Y5:170:"ɒ"WX11:170:" W A R N I N G ݒ"X12:170:"ó"X13:170:" ݒ"X14:170:" HAVE YOU SAVED UPDATE?? ݒ"X15:170:" ݒ"LX16:170:" PRESS M TO RETURN TO MENU ݒ"}X17:170:" ݒ"X18:170:" PRESS Q TO QUIT PROGRAM ݒ"X19:170:" ݒ"X20:170:"˒"?X21:170:" ";W675:675:675:680o KEY$:KEY$""193KEY$"M"100KEY$"Q"P$"BOOT":197193"LOAD"(34)P$(34)",8""RUN":198,3:631,19:632,13:633,13 **** LOAD FILE ****EF$"":53281,6:53280,14:""15)"LOAD FILE"l""10)"REMOVE PROGRAM DISK":68011)"INSERT FILE DISK"12)"ENTER FILE NAME"11)"":LI16:TA10:650B$""100F$B$15,8,15:15,"I0":1,8,2,B$!15,E,E$,E1,E2,E6209J0:TC0JJJ1:"";JX1,SI$(J)f1,SD$(J)s1,VM(J)1,SC(J)1,SP$(J)1,CO$(J)TCTCSC(J):TC$(TC)(TC$)3TC$(TC$,1)"0"(TC$,1)TC$(TC$,(TC$)2)"."(TC$,2)ST0224RJ$1:15R" ";R;"RECORDS WERE LOADED"y" PRESS ANY KEY FOR MENU"680Z$:Z$""252100 ***** VIEW DISK DIRECTORY"":1,8,0,"$":#1,A$,A$#1,A$,A$:A$""276 #1,B$,C$$ BL(B$(0)):BH(C$(0))CD$((BL256BH),2)(32)_D$;:#1,D$:D$""272v:E$:E$"Q"2641:" DONE---PRESS ANY KEY"K$:K$""278100, **** SAVE FILE ****J1500L53281,0:15)"SAVE FILE"0N" REMOVE PROGRAM DISK & INSERT DATA DISK":680NP""12)"FILE IN USE IS:"hR""(38(F$))2)F$T12)"ENTER FILE NAME"V11)"":LI16:TA10:650XB$""100ZB$F$F$""364\675^" THE FILE NAME YOU ENTERED IS NOT"?`" THE SAME AS THE FILE IN USE!"nb" USE NEW FILE NAME Y OR N"dZ$:Z$""356fZ$"N"332hZ$"Y"364j356l15,8,15:15,"I0":1,8,2,"@0:"B$",S,Wn15,E,E$,E1,E2pE620r""8)"SAVING ";B$;tJ1R2vSI$(J)"DELETE"390Gx1,SI$(J);(13);\z1,SD$(J);(13);p{1,VM(J);(13);|1,SC(J);(13);}1,SP$(J);(13);~1,CO$(J);(13);J1:155)" DONE ":A0680:T11000::680100# **** ENTER RECORD INFORMATION ****2R400408V" DATA BASE IS FULL"" PRESS ANY KEY FOR MENU":675KEY$:KEY$""40610053281,0" ";F$" "" ENTER DATA RECORD NUMBER " R1"  DO NOT USE COMMAS OR COLONS! ";" REPAIR/SERVICE/ITEM a" "" SERVICE DATE "" MILEAGE "" SERVICE COST $ "" PROVIDER "8" COMMENTS "`" ENTER SERVICE DATE AS YR/MO/DA{" EXAMPLE: 91/04/01."" ENTER SERVICE COSTS WITHOUT THE" DECIMAL POINT. (EG: 75.00=7500)""":TA2:LI25:650B$""100RR1:SI$(R)B$:A1,:TA16:LI8:650>B$""B$"-"LSD$(R)B$b:TA17:LI6:635tB$""B$"-"VM(R)(B$):TA17:LI7:635B$""B$"-"SC(R)(B$):TA16:LI15:650B$""B$"-"SP$(R)(B$) :TA16:LI17:650B$""B$"-".CO$(R)(B$)`"----------------------------------------";13)" CORRECT?....Y OR N"" "" "Z$:Z$""482Z$"N"698:490Z$"Y"490 482O" ENTER ANOTHER ITEM? Y OR N"bZ$:Z$""492rZ$"N"100Z$"Y"400492 ***** VIEW RECORDS *****J1R506:57053281,1:" VIEW FILE  ";F$" "" RECORD NUMBER";JW"REPAIR/MAINTENANCE/ SERVICE ITEM ";SI$(J){"SERVICE DATE ";SD$(J)"MILEAGE ";VM(J)SC$(SC(J))(SC$)3SC$(SC$,1)"0"(SC$,1)SC$(SC$,(SC$)2)"."(SC$,2) (SC$)7552, (SC$)6SC$" "SC$:552L"(SC$)5SC$" "SC$:552m$(SC$)4SC$" "SC$:552&(SC$)3SC$" "SC$:552("SERVICE COST $";SC$*"PROVIDER ";SP$(J),"COMMENTS ";CO$(J), 0"----------------------------------------";X 2" PRESS FOR NEXT RECORD" 4" PRESS TO EDIT RECORD" 6" PRESS TO DELETE RECORD" 8" PRESS <_> TO RETURN TO MENU": : KEY$:KEY$""570 !<KEY$(13)J!>KEY$(95)100@!@KEY$"E"53281,0:700:504X!BKEY$"D"584:502!DKEY$(13)"  END OF FILE ";:T11000:680:100!F570!H"  CONFIRM RECORD DELETE: Y OR N ":675:675!JKEY$:KEY$""586!LKEY$"Y"592"N"PSI$(J)"DELETE""R6"l"",E$:15:1:E0h"n"PRESS ANY KEY-MAKE CORRECTION-TRY AGAIN."q"p675"rZ$:Z$""626"t100"{B$"":TA)">";"|A$:A$""636"}A$(57)(A$(20)(B$)1)675:636"~A$(13)645#A$(20)B$(B$,(B$)1):642:#A$(47)(B$)LI1675:636G#B$B$A$X#(B$)1644d#TA1)r#A$;:636z#:#B$"":TA)">";#A$:A$""652#A$(90)(A$(20)(B$)1)675:652#A$(13)670$A$(20)B$(B$,(B$)1):6647$A$(44)A$(58)A$(59)A$(17)675:652X$A$(19)A$(29)675:652r$(B$)LI1675:652$B$B$A$$(B$)1668$TA1)$A$;:652$:$ BUZZ$54296,15:54277,45:54278,165%54276,33:54273,6:54272,5%CD1150::54276,16:'% BELLI%54296,15:54277,0:54278,247j%54276,17:54273,40:54272,0%CD1250::54276,16:%JR% **** EDIT RECORDS ****%53281,0:""10)" EDIT RECORD #";J%"1 REPAIRS/SERVICE/ITEM "&" ";SI$(J)5&"2 SERVICE DATE ";SD$(J)[&"3 MILEAGE ";VM(J)&"4 SERVICE COST $ ";SC(J)&"5 PROVIDER ";SP$(J)&"6 COMMENTS ";CO$(J)&" EDIT WHICH LINE OR [_] TO ESCAPE ?"'Y$:Y$""720*'Y$(95)"":A'Y$"1"Y$"6"720t'"BLANKED FIELDS, ENTER [-] IN POSITION 1"'(Y$)728,732,736,740,744,748'"1 REPAIRS/SERVICE/ITEM ":TA2:LI25:650'SI$(J)B$:"":7601("2 SERVICE DATE ":TA18:LI8:650O(SD$(J)B$:"":760("3 MILEAGE ":TA19:LI6:635(VM(J)(B$):"":760("4 SERVICE COST ":TA19:LI7:635(SC(J)(B$):"":760,)"5 PROVIDER ":TA18:LI15:650D)SP$(J)B$:"":760w)"6 COMMENTS ":TA18:LI17:650)CO$(J)(B$))A1:" EDIT ANOTHER LINE? Y OR N ")KEY$:KEY$""762)KEY$"N""":*KEY$"Y""":718*762&*  SEARCH ROUTINEh*"X13:Y1:170:" "*$X14:170:"  FIND SPECIFIC RECORDS FOR "*&X15:170:" ó"+(X16:170:"  1 = ITEM/SERVICE NAME "R+*X17:170:" "+,X18:170:"  2 = PROVIDER "+.X19:170:" ",0X20:170:"  3 = YEAR "8,2X21:170:" "p,4X22:170:" _] RETURN TO MENU ",6X23:170:" ",8X24:170:"  PRESS NUMBER OR _ FOR OPTION ";,>KEY$:KEY$""830-@KEY$"1"840: ITEM SEARCH<-BKEY$"2"900: PROVIDER SEARCH\-CKEY$"3"860: YEAR SEARCHp-DKEY$(95)100y-F830-H53281,0:" ENTER NAME TO SEARCH FOR"-I" (OR PRESS RETURN TO ESCAPE)":TA10:LI25:650-JB$""100-LJ1R.N(SI$(J),(B$))B$506:950$.PJ-.R980\.\53281,0:" ENTER LAST TWO DIGITS OF"~.]" YEAR TO SEARCH FOR:".^" (OR PRESS RETURN TO ESCAPE)":TA10:LI2:650.`B$""100.bJ1R.d(SD$(J),(B$))B$506:950.fJ/h980-/53281,0:" ENTER PROVIDER NAME "f/" (OR PRESS RETURN TO ESCAPE)":TA10:LI15:650u/B$""100/J1R/(SP$(J),(B$))B$506:950/J/980/KEY$:KEY$""950/KEY$(13)/KEY$(95)1000KEY$"E"53281,0:700:506:950)0KEY$"D"584:20950Y0B$"NO MATCH FOUND OR END OF FILE"0"  ";B$" ":T11000::680:1000 ***** PRINT OUT ROUTINES *****0X11:Y8:170:""1X12:170:" N O T E "01X13:170:" USE TRACTOR FEED "\1X14:170:" CONTINUOUS PAPER "1X15:170:" FOR PRINTOUTS. "1X16:170:" PRESS "1X17:170:" TO CONTINUE. " 2X18:170:""2675:68002KEY$:KEY$""1020L2KEY$(13)1030:1050V21020l2TC0:4,4:4,(0)x2ST02 "  ":4:6752 "  WHERE IS THE PRINTER ??? " 3 "  CHECK PRINTER ":3"  PRESS [ + ] AND TRY AGAIN "g3"  PRESS [ _ ] TO ESCAPE TO MENU "3"  ";3KEY$:KEY$""10423KEY$(43)10303KEY$(95)100310423SEIKOSHA ER RESET ROUTINE410,4,10:10:10:I0U4LX9:Y1:170:" "4NX10:170:"  PRINT RECORDS... "4PX11:170:" ó"4RX12:170:"  1 = ENTIRE FILE "25TX13:170:" "i5VX14:170:" OR FOR A SPECIFIC... "5XX15:170:" "5ZX16:170:"  2 = ITEM OR SERVICE " 6\X17:170:" "D6^X18:170:"  3 = PROVIDER "y6`X19:170:" "6bX20:170:"  4 = YEAR "6dX21:170:" "7fX22:170:" _] RETURN TO MENU "P7hX23:170:" "7jX24:170:"  PRESS NUMBER OR _ FOR OPTION ";7tKEY$:KEY$""11407vKEY$"1"2100:ENTIRE FILE7xKEY$"2"1200:ITEM7zKEY$"3"1230:PROVIDER 8|KEY$"4"1260:YEAR8~KEY$(95)100(81140d853281,0:" ENTER ITEM/SERVICE NAME TO SEARCH FOR"8" (OR PRESS RETURN TO ESCAPE)":TA10:LI25:6508B$""11008" ENTER REPORT DATE (EX: 03/01/89)"8" ";RD$821829J1R$9(SI$(J),(B$))B$1300,9 J691290n953281,0:" ENTER PROVIDER NAME TO SEARCH FOR"9" (OR PRESS RETURN TO ESCAPE)":TA10:LI15:6509B$""11009" ENTER REPORT DATE (EX: 03/01/89)"9" ";RD$:2182:J1R.:(SP$(J),(B$))B$13006: J@:1290s:53281,0:" ENTER  LAST TWO DIGITS OF":" YEAR TO SEARCH FOR...":" (OR PRESS RETURN TO ESCAPE)":TA10:LI2:650:B$""1100 ;" ENTER REPORT DATE (EX: 03/01/89)"$;" ";RD$.;21829;J1RW;(SD$(J),(B$))B$1300_; Ji;1290; X196:4,"=";:; 4,(27)"P":4,(14)" TOTAL COST IS $";TC100;4,(15):4:680:100; SELECTED ITEMS ROUTINE < J1R:II1:I2621803<(SC$)3SC$(SC$,1)"0"(SC$,1)X<SC$(SC$,(SC$)2)"."(SC$,2)k<(SC$)71320< (SC$)6SC$" "SC$:1320<"(SC$)5SC$" "SC$:1320<$(SC$)4SC$" "SC$:1320<&(SC$)3SC$" "SC$ =(4,SI$(J)(16)"27"SD$(J)(16)"36"VM(J)(16)"45";I=*4,SC$(16)"58"SP$(J)(16)"75"CO$(J)c=,TCTCSC(J):TC$(TC)=.(TC$)3TC$(TC$,1)"0"(TC$,1)=0TC$(TC$,(TC$)2)"."(TC$,2)=2X196:4,"-";:X:=x **** CURRENT EXPENSE ****'>}X6:Y1:170:" "`>~X7:170:" ">X8:170:" ">X9:170:" "?X10:170:"  CURRENT BALANCE ":?X11:170:" "n?X12:170:" (SAVED RECORDS ONLY) "?X13:170:" "?X14:170:" " @X15:170:" "P@X16:170:" IS > $ ";TC$ " < ";@X17:170:" "@X18:170:" "@X19:170:" ݜ ".AX20:170:" ݜ PRESS ANY KEY FOR MENU "fAX21:170:" ݜ "AX22:170:" "AX23:170:" " BX24:170:" ";!BKEY$:KEY$""1440*B100=B SORT ROUTINEeB" SORTING FILE...STANDBY"uBS0:F1:LRBFS$SD$(((LF)2)):IF:JLBSD$(I)FS$II1:1520BSD$(J)FS$JJ1:1530BIJ1590BIJ1570C RECORD SWAP ROUTINE+CF1$SD$(I):SD$(I)SD$(J):SD$(J)F1$SCF2$SI$(I):SI$(I)SI$(J):SI$(J)F2$uCF3VM(I):VM(I)VM(J):VM(J)F3CF4SC(I):SC(I)SC(J):SC(J)F4CF5$SP$(I):SP$(I)SP$(J):SP$(J)F5$CF6$CO$(I):CO$(I)CO$(J):CO$(J)F6$C"II1:JJ1D,IJ1520D6IL1610-D@F(S)I:L(S)L:SS15DJLJCDTFL1510bD^S0: GOTO SAVE ROUTINEzDhSS1:FF(S):LL(S)Dr1510D4 ***** PRINTOUT FORMAT *****D6" ENTER REPORT DATE (EX: 03/01/89)"D8" ";RD$D>4,(27)"P",EC4,(14)" A U T O E X P E N S E "VEH4,(27)"M":4,(15)"";F$(16)"60"RD$lEMX196:4,"=";:ER4,"REPAIRS/SERVICE/ITEM DATE MILEAGE COST ";ET4,"PROVIDER COMMENTS"EVX196:4,"=";: FZ J1R:II1:I262180F^SC$(SC(J))BF_(SC$)3SC$(SC$,1)"0"(SC$,1)gF`SC$(SC$,(SC$)2)"."(SC$,2)zFa(SC$)72153Fb(SC$)6SC$" "SC$:2153Fc(SC$)5SC$" "SC$:2153Fd(SC$)4SC$" "SC$:2153Fe(SC$)3SC$" "SC$/Gi4,SI$(J)(16)"27"SD$(J)(16)"36"VM(J)(16)"45";XGj4,SC$(16)"58"SP$(J)(16)"75"CO$(J)rGkTCTCSC(J):TC$(TC)Gl(TC$)3TC$(TC$,1)"0"(TC$,1)GmTC$(TC$,(TC$)2)"."(TC$,2)GpX196:4,"-";:XGuJGzX196:4,"=";:.H|4,(27)"P":4,(14)" TOTAL VEHICLE COST IS $";TC100HH4,(15):4:680:100`HOF110:4:OF:I0pH4,(27)"P"H4,(14)" A U T O E X P E N S E "H4,(27)"M":4,(15)"";F$(16)"60"RD$HX196:4,"=";:(I4,"REPAIRS/SERVICE/ITEM DATE MILEAGE COST ";KI4,"PROVIDER COMMENTS"cIX196:4,"=";::