' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(g @Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`@~@X00|O~@ p?тՀՀՠՀՀ@|`l<|cx@pv |pxp6@``p? p@|?`"{@@x`x?x0x|a~?p?|``po? x```O@@`p8?p@8 |Y|?G@?px@0|<@@x?x|@?<|`@x@ z@~?`p`x@v@`@~``|?d`?0`~p`~?0 |?Ax`|?@A@>px?``~ ~ `x ~ppzx@B~||`@0| yx?p@@?<| |><~|{%|x|a@C@pxw`@0~~x@xx {?``AIpa@|x`@x `~@`vxp`|8`|@>x?8x`BP}?p@xG|x@?80|@!@ <ЀЀ`~?~v<||`< @>@v~?xC`|pp{@xxp`{'`e6x~8pp|-x ~~`Hx?px`pxp@?z?>xO?`p ~m8`@|pSS1:S!NXT1ī1733.!HJJ(S)ī18408!1734K!HJJ(S)ī1735c!HJJ(S):3400:1840!OPT99ė::HD$;VN$:::(10):"CURRENT VEHICLE PRICE - ";PR$::OPT0:(24):"COLLECTING INFORMATION ... PLEASE WAIT";:(1):(5):O$:!AL$(S64).OPTIONS"N OPT99:E6:T0:HJ1:O$"TRIM (INTERIOR- EXTERIOR & PROTECTION)-"[ S1400 A$(S),B$(S),C$(S),D$(S),E$(S),Y$(S),Z$(S),J(S) 2290 (FL$,MOD,1)"9"ī1725 NXT1K99:1840 S1ī2004 K99:1840 !(FL$,MOD,1)"1",MOD,1)"1"SS1:S2(C$(S),1)"-"ĺC$(S):SE"(2):C$(S):Sd,CH$;"CLOSE CT.TRIM":(24)j16"PRESS ANY KEY TO CONTINUE";JIN$::T ***^ *** OPTIONSh ***mNXT0:CD$"N/C"rCH$;"OPEN CT.OPTIONS" |CH$;"READ CT":":1493dT1$"BELOW ARE THE DESCRIPTIONS OF THE TRIM":T2$"PACKAGES OFFERED FOR YOUR "VN$":"v:T1$:T2$:CH$;"OPEN CT.TRIM":CH$;"READ CT.TRIM"S120A$(S),B$(S),C$(S)A$(S)"9"ī1580 A$(S)VE$SS1:S(B$(S)VE$"D"ī1640$VE$"E"ī16408VE$"B"ī1490IMOD3ī1640ZMOD5ī1640kMOD7ī1640:HD$;VN$:::(10):"CURRENT VEHICLE PRICE - ";PR$ VE$"B"T1$"BELOW IS THE DESCRIPTION OF THE TRIM":T2$"PACKAGE OFFERED FOR YOUR "VN$6S664?B((Y$(S6),4)):AAB:A10000PR$"$ "(A):1415PPR$"$"(A)bT(Y$(S6))5Z((Y$(S6),2)):Y((Y$(S6),T,2)):TT4:X((Y$(S6),T,2))QQ1:ACCUM$(Q)"E"Y$(S6) *** *** MAJOR TRIM ***VE$"A"ī1640PRICE((Y$(S),4))3U(Y$(S))((PRICE))1=3200`AL$;". ";(Y$(S),U);" ";PR$:gS(24):39):(24):(1)#("PLEASE ENTER SELECTION";:(1)-<S19:S2(S2)2:2340F:KS6$"A"ī1110PS6$AL$ī1110dS:"CTY";::" HWY CMB PRICE":=tCH$;"OPEN CT.ENG.TRANS"Z~CH$;"READ CT.ENG.TRANS"fS110A$(S),B$(S),C$(S),D$(S),E$(S),Y$(S)2290(FL$,MOD,1)"9"ĺCH$;"CLOSE CT.ENG.TRANS":1310(FL$,MOD,1)"1"SS1:SAL$(S64)NU U ***IV:::HD$;VN$:::(10):"CURRENT VEHICLE PRICE - ";PR$SWOPT0Z(24):"COLLECTING INFORMATION ... PLEASE WAIT";:(1):(5):"ENGINE OPTIONS:"[CD$"STD"`" L TRANS DESC EPA EST MPG"j" CYL SPD "; k1E14ĂSO(24):39);:(24):(1)::"PRESS ANY KEY TO CONTINUE";:(1)]16368,0nIN(16384) IN127ININ128:IN$(IN):16368,0:1038 1032CTR9ī1100E0:CTR8:S0:(6)::SL::S ***T *** ENG/TRANS MEFEATURES INCLUDE:":CTR0:(24):"COLLECTING INFORMATION ... PLEASE WAIT";:(1):(6):}CTR0F1$Y$(S):F2$Z$(S):CTR1:SF1$;22);Y$(S):F2$""ī1024F2$;22);Z$(S):CTR0:EE3:10261027Z$(S)""ĺ:CTR0:EE2:1026102ĺF1$:F2$#CH$;"CLOSE CT.STND"3CTR9:1027R(FL$,MOD,1)"1"SS1:SzQQ1:ACCUM$(Q)"S"Y$(S)" "Z$(S)A10000PR$"$ "(A):1018PR$"$"(A)UCTR8ė::HD$;VN$:::(10):"CURRENT VEHICLE PRICE - ";PR$::"THE STANDARD CCUM$(Q)"M"(B)(A1$(MOD),T))AAB3 ***K *** STND FEATURESU ***cE0:CTR8{CH$;"OPEN CT.STND"CH$;"READ CT.STND"S120A$(S),B$(S),C$(S),D$(S),E$(S),Y$(S),Z$(S)2290(FL$,MOD,1)"9"ī1014 CTR1 RETURN TO THE VEHICLE SELECTION MENU"2z:(24)8\"PLEASE ENTER SELECTION";:(1)qS2(S1)2:2340{::S6$AL$ī490S6$AL$ī680S6$"A"ī680MODS664B((A1$(MOD),2,5))T(A1$(MOD))((B))1QQ1:A`@xH? |6pZ|Ox|pŬҠƠŬΠӬҠӠԠ٬ԠĠҠҬ٠ǬŠҠ̠ԬԠͬҠŠŬ٠ǬҠӠԠ٬ԠҠŬҠӠҠ٬ǭԠŬŠԠŬԠԠŬ͠Ƞ̠Ƞ̠ͬӠԠԩ̠͠ȠˠԬԠ̠ͬ͠ȠˠȠ̠Ƞ̠ͬӠԠԩ͠Ƞ̠ȠԬͬ͠Ƞ̠ȠԬ̠͠ԭǠĠԩϠԠŬȭĠҠЬŠԬŠĠ̠ǬӬԠԠŬԠǠ̬ŠԠŬԠԠŬ͠Ϡ̠ͬӠԠԩ͠ȠͬĠҠҬ͠Ƞ̠̠ͬ͠ȠԬ̠͠ԭǠĠԩ͠ϭ٠ΠǬ̠͠Ҡͬ͠ȠȠԠͬҠŠĠӠˬ̠͠ȠȠˬԠԠͬ͠Ƞ̠ȬҠӬŠĠӬĠ̠ƬҠŠĠӬȠԠ̠̠ͬ͠ȠԬͬĬԠȠԠ̠ͬ͠Ҡ̠ͬ͠Ҡ̠ͬ͠ҠͬҠРԬŠҬҠנӬŠĠӠˬƠҬŠŠҬȠԠԠͬŠԠŬԠԠŬԠȠԠԠͬŠԬͬŠŠԬͬ͠ϭŠԬ͠ϭŠԬĠӬԠҠҬҠĬҠҬϠԠŬŠӬ̠ǠӬҠŠĠӠԬ٠ΠǬŠРؠŠӬԠˠҠӬŠŠԬͬŠǬŠӬҠŠĠӠˬҠǠ(IN):16368,0:1880 $N18603$XIN$"A"ī1860F$ZIN$AL$ī1860Z$]IN$AL$ī1910j$bK99ī2004$lOPT99:E6:NXT0:HJJ(S):Y$(1)Y$(S):Z$(1)Z$(S):S1:A10000PR$"$ "(A):1735$mPR$"$"(A):1735$vB(IN$):B99BB128$BB64,%1:S#0K99ī1846Q#1S0AL$(S64):AL$;". SELECT TO CONTINUE":(24):1850[#51855#6AL$(S64):AL$;". NO (MORE) OPTIONS":(24)#:39);:(1):(24)::"PLEASE ENTER SELECTION(S)";:(1)#?16368,0#DIN(16384)$FIN127ININ128:IN$"PRICE((Y$(S),4))!"3200<"U(Y$(S))((PRICE))^"AL$;". ";(Y$(S),U);35);PR$t"EE1:A1$(S)(E)"Z$(S)""ī1825" A1$(S)A1$(S)"0"":EE1:E16ĂS"NXT1:S"!A1$(S)A1$(S)"1""&4);Z$(S)::EE2:E16ĂS#+NXT"'(23):(29)::"N")'S6(16384)Y'S6127S6S6128:S6$(S6):16368,0:2028c'2007v'S6$"N"ī2058'S6$"Y"ī2007'CH$;"PR#1"'PRICE((ACCUM$(2),2,5)):U76:PRICE9999U75(T(ACCUM$(1))1:U(ACCUM$(2))((PRICE))1(36):A:2000 &(3):(35):A*&18604& ***J& *** PRINT ACCUMT& ***&:::TX$"PRINT":3000:(1)::HD$;VN$:&(23):"DO YOU WANT THIS LISTING (Y/N)"&16368,0&(23):(27)::"Y"&(23):(27)::"Y"'(23):(29)::"NPRICE((Y$(B),4)):U(Y$(B))((PRICE))6%3200<%p%H((A1$(B),1)):T(A1$(B))1:I((A1$(B),T))%QQ1:ACCUM$(Q)"O"Y$(B)" "Z$(B)%(I):IN$;". ";(Y$(B),U);35);PR$%H1Ģ(I1):4);Z$(B)%:&AAPRICE:A10000:(3):PARISON MODULEpy"ENTER PRESENT VEHICLE INFORMATION":(24):"ENTER IN ANY FORMAT AND PRESS RETURN";:(1):(7)~" YEAR: ";YR$(YR$)12YR$(YR$,12):(7):(26):YR$;3)(8):" MAKE: ";MDL$&(MDL$)1CKS, .......ETC."bM(23):39):39);:(1):(24):"ENTER IN FORMAT 9999 AND PRESS RETURN";:(1)V(20):"ENTER ESTIMATED REPAIR EXPENSE ";OO$:AMT(OO$):(19):(32):9):40)WAMT9999ī1110XAMT0ī1110o1500t PROCEED TO THE COM0700MO0ī1070'3(11):(34):MO17(13)^8"ESTIMATE THE TOTAL DOLLAR EXPENSE YOU"="ANTICIPATE FOR THE NEXT 12 MONTHS TO "B"PROPERLY MAINTAIN YOUR PRESENT VEHICLE":G"EXAMPLES: TUNE-UP, BRAKES, BATTERY,"L"TIRES, MUFFLER, SHO٠Ǭ٠ǠԬƠũŠĠǠЬǠҠ׬РĠӬҠҠӬ٠ǬŠŬҠǬŠנŠҬŠԠԬϠЬԠǠҠԠˬŠŠȠЬҬĠӬ٠Ǭ٠Ǭ̠Ӭح٠ҠàӬԬǬԠǠ̬ҠˠҬ٠ǬҠȠůˬҬҠǬҠӠҠ٬ǠҠȠԬǠԠӬŠӠƠ̬Ġ̬àĠ̬àĠ̬ҠԱҠǬΠŠàԬӬȠŭȠ̠ԬӬȠŠĠȠ̠ԬӬҠŬҠǬҠҠӬŠΠƬŠŠȠҩĠӬ٠ǬΠŠàԬӬҠҠӬȠŠ̠ҬŠŠȠҬ٠ǬҠӬҠȠŬԠӬàڠˬҠԠҬҠŠǠҬҠǠì̩ҠנҬàԠҬȬ٠ǠЩ̠ˬϠҬǭԠҠҠԬӬàҠנҬҠӠԠ٬ FUEL";4X);OFC;7Y);NFC6~((AMT))5ī1665HX6((AMT))q" REPAIRS";4X);AMT;9);"****"y19" ","------";7);"------"OTOPAMTOFC:NTPNFC((OT))5X0:1678X6((OT))((NT))5Y0:1680iVL(VL$)jVL(VL.5)@m"- VALUE ";VL;:(39):"-"Un(12):(27):PR$r"---------------------------------------"w1700x(16):(1)y((OFC))5X0:1659zX6((OFC)){((NFC))5Y0:1661|Y6((NFC))}" ;"NEW";:(39):"-"'T"-";:(39):"-"<Y"-";:(39):"-"e^(9):"- YEAR ";YR$:(39):"-"`(9):(27):"1985";:(39):"-"c"- MAKE ";MDL$;:(39):"-"d(10):(27):CHEVY$e"- M.P.G. ";ACT;:(39):"-"f(11):(27):A  XXXXXXXXXXXXXXXXXXXXXX(OP12MO5"NP12MP=':l1"ECONOMIES OF PURCHASING A NEW CHEVROLET"t6:@"COMPARISON OF ANNUAL OPERATING EXPENSES"E"---------------------------------------"J"-";:(39):"-"O"-";19);"OLD";32)2MDL$(MDL$,12):(8):(26):MDL$;3)P(9):" VALUE: ";VL$(VL$)12VL$(VL$,12):(9):(26):VL$;3)1065 XXXXXXXXXXXXXXXXXXXXXX CHEVY TECH ECONOMIES-COMPARISON C.G.WEITZMANNӬҭĠҠӠҬ٬ҭĠҠӠԬ٬ԠӬ٠Ǭ٠ǠȠƬũҠנүҬŠЬǠԠӬŠŠԬҩРĠӬΠӬҠ;PR$:::::"**THIS IS THE MANUFACTURER'S SUGGESTED RETAIL PRICE AS OF JANUARY 1985. ALL OF":"THE OPTIONS LISTED ARE CURRENTLY OFFERED. SOME OF THE OPTIONS CHOSEN COULD BEc,"DUPLICATIONS- OR MAY NOT BE COMPATIBLE WITH THE TOTAL OPTION MIX SELECTED.(ACCUM$(S),2,4)):T(ACCUM$(S))((PRICE))1:PR$(PRICE):U80((PRICE)):PRICE0PR$"N/C":UU2*((ACCUM$(S),T))39UU40*(ACCUM$(S),T);U);PR$:S*:::74);"------":PR$"$"(A):A10000PR$"$ "(A)+:"**TOTAL PRICE -";74)CE)):PRICE0ī2042):"ENGINE OPTION:":"-------------":T((PRICE))3:(ACCUM$(S),T,3);"L ";(ACCUM$(S),T4,1);"CYL ";(ACCUM$(S),T6,5);"SPD ";(ACCUM$(S),T12,6);U);PRICE)TS1:TQī2053):"OPTIONS:":"-------")STQe*PRICE(:VE$"E"UU1I((ACCUM$(1),T);"/";(ACCUM$(2),U);74);"$";U);PRICEz(:"STANDARD FEATURES:":"-----------------"(S3Q((ACCUM$(S),1)"E"ī2040(T(ACCUM$(S))1:(ACCUM$(S),T):S(2053)PRICE((ACCUM$(S),2,4)):U80((PRIO$(S)" "R$(S)180:S;" ";IT$(S);:(30):C$(S)C254SS20İ6000cS40İ6000sS60İ6000S80İ6000S100İ6000SMXİ6000SPG4:300:500:(21):(1)::"PRESS ANY KEY TO CONTINUE";::Q$"PG5: S1MXO$(S)!C$(S),R$(S)3SJD$;"CLOSE SERVFL"PX :n"D$;"OPEN SERVFL"%D$;"WRITE SERVFL"*S1MX/O$(S)0C$(S)1R$(S)4S9D$;"CLOSE SERVFL">500:(1):(2)S1MXIT$(S))::HD$::(22):(26): X:6 ZD$;"OPEN SERVMX"L ]D$;"READ SERVMX"T gMXk qD$;"CLOSE SERVMX"q vy : D$;"OPEN SERVMX" D$;"WRITE SERVMX" MX D$;"CLOSE SERVMX"  : D$;"OPEN SERVFL" D$;"READ SERVFL"(S):S Y!  MENU STROBE ) P07 16368,0C NLNL2L C65\ QYYNL2g PQĞ| (Q):(C);:(1) CC1 PQĝ KS(16384) KS127KSKS128:KS$(KS):16368,0: Q PP2 PYNLPY 404 (1T$(100) b c600 d1000, I1MXC S(C$(I)):STSTSJ IP x SO(O$(1)):EO(O$(MX)):ODEOSO: ,: .D$;"OPEN CT PG ";PG 1D$;"READ CT PG ";PG 6S123 ;A$(S) @S ED$;"CLOSE CT PG ";PG J TS123:A$" "::(5):(15)9(5):(H):R$Z:"IS THIS OK (Y/N)? ";:Q$kQ$"Y"5075u5000O$(S)O$:R$(S)R$:C$(S)C$SMXİ650:800:5090MXS:650:800MX2ė:2000:700:900::2000-p(1)::"PRESS AMX1S1ī5030DSMXĺ:"RETURN TO DELETE ITEM OR...":HH2TSMXİ7000|" ENTER ODOMETER READING ";O$:(O$)0SMXMXMX1:SS2:5077" ENTER ITEM COST ";C$:" ENTER EXPENSE REASON-24 CHARACTERS":':(5):NEW ENTRY OR ";S1;" TO DE-":"LETE OR EDIT THE LAST RECORD. ENTERING":"A LOWER NUMBER WILL LET YOU EDIT THAT ":"RECORD. PRESS RETURN AFTER EACH ENTRY.":" ENTER ITEM NUMBER ";SO$(S)" "R$(S)" $"C$(S)S100S100S(MX1)SESS ANY KEY TO CONTINUE";::Q$::SO0:EO0:OD0:S0:ST0:SC0:1020T NEW ENTRY]H20h5000q700:500:(3):(1)(O$(1))0S1"ENTER NEW SERVICE COST":"---------------------------------------"::"ENTER ";S;" FOR A AS ";OD:_"TOTAL SERVICE EXPENSES WERE ";ST::"---------------------------------------":nOD0OD1{ SCSTODU$" "SC.01SC.01:U$" UNDER ":2070SCSC100:SC(SC):SCSC100"SERVICE COST PER MILE IS";U$;SC:D :"PR300:500:(1):Y3:NL2:400:Q$KS$@Q$"B"ī5000: NEW ENTRYZQ$"C"ī10000: EXITvL DISPLAY CURRENT COSTSV:700:900:500:(3):200:250:(1)"STARTING ODOMETER ";SO:"ENDING ODOMETER ";EO: "TOTAL DRIVING DISTANCE W CT.ACCUM"'!E$;",";F$;",";G$;",";H$@!D$;"CLOSE CT.ACCUM"F!L ! OPEN CT.ACCUM"x D$;"WRITE CT.ACCUM"!E$;",";F$;",";G$;",";H$!D$;"CLOSE CT.ACCUM"! ! DKS$#Q$"A"ĺ:D$;"RUN CT ECON"5Q$"B"ė:81?6000S GET/SAVE DATAkN D$;"OPEN CT.ACCUM"O D$;"READ CT.ACCUM"P E$,F$,G$,H$Q D$;"CLOSE CT.ACCUM"S BP(F$): SAVE DATA H$(PY) D$;"OPEN CT.ACCUM"  D$;"WRITE40):40):40):40):40):39);:(1):(15)K$AP$""P(NP.5):1745i$AP$" "P(NP.5):1745v$P(AP$)$P0P(NP.5):1745$P(P.5)$Y8((P)):((P))5X0:1750$X6((P))$(15):(30X):P;Y)$ * 12. IF NEW PAYMENTS IS THE"u#"FIGURE YOU WANT TO USE FOR COMPARISON-":"SIMPLY PRESS RETURN. OTHERWISE- ENTER"#"YOUR OWN ANNUAL AMOUNT & PRESS RETURN.";:(1)#(15):(29)#" ";AP$#(15):(26):" ".$(17):40):40):";2X);OP:((NP))5X0:17051"X6((NP))P"(15):(26):" ";X);NP":"OLD PAYMENTS IS THE AMOUNT YOU ENTERED":"ON THE PREVIOUS SCREEN * 12. NEW":"PAYMENTS IS THE APPROXIMATE MONTHLY":"PAYMENT AS CALCULATED IN THE FINANCE"#"MODULE'S MANUAL CONTAINS REQUIRED":"MAINTENANCE SCHEDULE INFORMATION."|!(23)::"PRESS ANY KEY TO RETURN TO MAIN MENU";:B$:!D$(4):!D$;"RUN CT.MAIN"!:OP(OP.5)!AMT(AMT.5):((OP))5X0:1704!X6((OP)) "" PAYMENTS MITED":"WARRANTY COVERAGE, INCLUDING POWERTRAIN":"AND PROTECTION FROM OUTER BODY" "CORROSION."::"ADDITIONAL SERVICE COVERAGE IS ALSO" "AVAILABLE THROUGH THE GENERAL MOTORS":"PROTECTION PLAN. ASK YOUR DEALER FOR"A!"DETAILS."::"THE OWNERY6((NT))E:"ANNUAL TOTAL";16);"$";X);OT;29);"$";Y);NTM:w"PRESS ANY KEY TO CONTINUE";:B$:::"ECONOMIES OF PURCHASING A NEW CHEVROLET":::"****":"YOUR CHEVROLET DEALER HAS MORE"S "INFORMATION ON NEW VEHICLE LIЍŠҍԍůӍ̠ůӍӍŠҠˬӬŠϠŬĠ٠ӬĠР̠ŬǠŭϠԬĠנӬ̠̠Ӭ٭٠٬̠ˠĬĠ٠Ӭ٭٠ԠάĠ٠Ӭ٭٠ҬάĠ٠Ӭ٭٠ˠӬ٭٠٬ҠǬĠ٠ӬֱŠˠҬԠάҠԠĠҠìӬҠȬ٭٠ԠάҠǬ٭٠ӬƭĠŬ٭٠ҬƭĠŬҠӬԠά̠ǠάԠάͯ͠ϬĠŠĠͬͯ͠ϬϠŠŠ٬ƠϠϠӠĬϠŠŠ٬ƠϠϠӠĬͯ͠ϠׯˠĠέŭˠĠà̬ͯ͠ϠׯˠĠέŠĠˬͯ͠ϠׯˠĠέŠĠˬͯ͠ϬĠˬͯ͠ϠȠˬͯ͠ϠׯˠĠέŭˠĠà̬ͯ͠ϠׯˠĠέŭˠĠà̬ҠŠŠȠҩҠӬͯ͠ϠȠˠĬŬͯ͠ϠׯˠĠέŭˠĠà̬ͯ͠ϠׯˠĠέ1VE$"B"FL$B$(S):01 VE$"C"FL$C$(S):I1 VE$"D"FL$D$(S):Y1 FL$E$(S):c1$ ***y1. *** MENU STROBE18 ***1B S5S1:16368,01L S4651V S3S1S1S221` S5S3Ğ1j (S3):(S4)1t S4S411~ S5S3ĝ1 S6(16384)(2EAD CT.ACCUM"0A$,B$,C$,D$80CH$;"CLOSE CT.ACCUM"S0A$VN$:B$(A):C$(Z)l0CH$;"OPEN CT.ACCUM"0CH$;"WRITE CT.ACCUM"0A$;",";B$;",";C$;",";(D$)0CH$;"CLOSE CT.ACCUM"0769,10CH$;"RUN CT FINANCE"0VE$"A"FL$A$(S):BEST DEAL !!!!">/:"A. DO YOU WANT TO CALCULATE PAYMENTS?"k/:"B. OR-- RETURN TO THE VEHICLE MENU?"s/:/"PLEASE ENTER SELECTION"/S119:S22:2340/::/S6$"B"ĺ:768,1:CH$;"RUN CT PART A"/CH$;"OPEN CT.ACCUM" 0CH$;"R *"3.f"*************** **********"S.p" * *"s.z" **********".:"THIS IS THE MANUFACTURER'S SUGGESTED"."RETAIL PRICE AS OF JANUARY 1985. SEE"."YOUR LOCAL CHEVROLET DEALER FOR YOUR"/" ***************"@- " * *"R-*A9999ī2120-4" * TOTAL PRICE: $ ";A;" *"->2130-H" * TOTAL PRICE: $ ";A;" *"-R" * *" .\" * SEE":"YOUR LOCAL CHEVROLET DEALER FOR COMPLETE DETAILS- CLARIFICATION AND YOUR BEST":"DEAL !!!!"s,CH$;"PR#0",  *** RECAP MENU,  ***, :::HD$;VN$:::" **********", " * *"-" ********** NY KEY TO CONTINUE";::Q$::500:(1):(2):X::"SERVICE COST RECORD"::"ENTER NEW SERVICE COST":"---------------------------------------"Z"CURRENT ENTRY FOR ITEM ";S:]IT$(S)O$(S)" "R$(S)bS;" ";IT$(S);:(30):C$(S)l:'D PAYMENTS IS THE AMOUNT YOU ENTERED":"ON THE PREVIOUS SCREEN * 12. NEW":"PAYMENTS IS THE APPROXIMATE MONTHLY":"PAYMENT AS FIGURED IN THE FINANCE"""MODULE * 12. IF NEW PAYMENTS IS THE"#"FIGURE YOU WANT TO USE FOR COMPARISON-":"SIMPLY PRESS REEY TO RETURN TO MAIN MENU";:B$:/!D$(4):E!D$;"RUN CT.MAIN"W!:OP(OP.5)!AMT(AMT.5):((OP))5X0:1704!X6((OP))!" PAYMENTS ";2X);OP:((NP))5X0:1705!X6((NP))!(15):(26):" ";X);NP":"OL"CORROSION."::"ADDITIONAL SERVICE COVERAGE IS ALSO" "AVAILABLE THROUGH THE GENERAL MOTORS":"PROTECTION PLAN. ASK YOUR DEALER FOR" "DETAILS."::"THE OWNER'S MANUAL CONTAINS REQUIRED":"MAINTENANCE SCHEDULE INFORMATION."!!(23):"PRESS ANY K ANY KEY TO CONTINUE";:B$::O:"ECONOMIES OF PURCHASING A NEW CHEVROLET":::"****":"YOUR CHEVROLET DEALER HAS MORE""INFORMATION ON NEW VEHICLE LIMITED":"WARRANTY COVERAGE, INCLUDING POWERTRAIN":"AND PROTECTION FROM OUTER BODY"5 AIRS";4X);AMT;9);"****""19A" ","------";7);"------"GbOTOPAMTOFC:NTPNFC|((OT))5X0:1678X6((OT))((NT))5Y0:1680Y6((NT))"ANNUAL TOTAL";16);"$";X);OT;29);"$";Y);NT:"PRESS/r"---------------------------------------"9w1700Hx(16):(1)by((OFC))5X01659tzX6((OFC)){((NFC))5Y01661|Y6((NFC))}" FUEL";4X);OFC;7Y);NFC~((AMT))5ī1665X6((AMT))" REPCE-":4R HJ3O$"AUDIO-":;4\ HJ4O$"MECHANICAL-":X4f O$"TIRES AND WHEELS-":H PRICE0ī3220,3 PRICE56PR$"$ -56":>3 PR$"$-256":Q3 PRICE9ī3240k3 PR$"$ "(PRICE):3 PRICE99ī32603 PR$"$ "(PRICE):3 PRICE999ī32803 PR$"$ "(PRICE):3 PR$"$"(PRICE):4H HJ2O$"COMFORT AND CONVENIEN S6127S6S6128:S6$(S6):16368,0:02 S3<2 S5S52P2 S5S1S2S5S1Z2 2380r2 CH$;"OPEN CT.";TX$2 CH$;"READ CT.";TX$2 S1222 A$(S)2 S2 CH$;"CLOSE CT.";TX$2 S1222 A$(S)2 S2 2 PRICE0PR$CD$:3̠Χ̠Ĭ̠ӠׯŠǬ̠Χ̠Ĭ̠ӠׯŠŬԠ̠Ӭ̠͠ӬԠ̠ӬԠ͠ӬĠ̠Ӭ̠Χ̠Ĭ̠ӠׯŠŬ̠ӬԠ͠ӠԬԠũԠ͠ӠȬԠũ٠Ӭ٠Ӭ̠Χ̠ĬӠׯŠŬԠ͠Ӭ̠Χ̠ĬӠׯŠǬ٠ӬĠӬԠ͠Ӭ̠͠ӬϭӠӠǠΠŠĠԍŠӠȠȠŠĠӠĠӍՠŠĠΠנŠĮӠ͠ӠԠРϠԠϠĠΧҮƠӠӍԠŠҠՠŭӠύӠ͠٠ŠٮƠϭŠΠƠŠԠ  ӠԠ΍ӠҮӠ͠ӭӠϠ͍٠˧ӮŠҠԠҠҠӍΠӠŠŠƠӮԧӠРӠŠԠŠΠŠٮӠԠŮԠԭԠɧԠĠ΍ҭӠԍǠҮ٭Š٧ӍЭǠĭŠҮčŭŠ  ŠԍìӠĭΠ̠ԍìŠȠԩӯ ӠȍìàҠԭԍìǠ̭Ġ̠ƴԍìήìҠǠōìӠԠ̠Ġ̠ǍìӮˠȠΠԮìō¬ĠӮ¬ĠӭĠԠҠԮìԠԍìӠˠĠҍìŠȠĠӭÍìүҠӭٍìӭ¬̠͠ҍ¬Ӡ͠ҭԠč¬ˠ̠ԠҠ͍ͭ¬Ӡ͠ҭĠč¬ˠ̠ԠҠӭ͍¬ǠԠӠȠ  Ǡ Ǡؠ̍ŸششǠ Ǡ؍ŷشزɠ Ԡ؍Ÿشزɠ Ԡؠ̍Ÿششɠ Ԡ؍Ҡ΍ùҭҠΠԍùҭҠΠԍĹӭϠ̠ōıӭҠ̠ōŶشزǠ Ԡ؍ŷشزǠ Ԡؠ̍ŸششǠ Ԡ؍ŷشزǠ Ǡ؍ŷشزԠōڲàڲ·ϭҠō·ϭҠˠō·ҭҠ΍·ӠҭҠ΍·ҭҠ΍·ӠҭҠ΍±ϭҠōøϭҠōøҭ  ENSES"0"__________________________________"<$:1145L)(10):40)*(23):39):39);:(1):(24):"ENTER IN FORMAT 999 AND PRESS RETURN";:(1).(11):"ENTER CURRENT MONTHLY PAYMENTS ";NN$:MO(NN$):(11):(34):7):40)/MO9999ī1A575+ XXXXXXXXXXXXXXXXXXXXXG CHEVY TECHd ECONOMIES-OTHER EXP 'S C.G.WEITZMANN XXXXXXXXXXXXXXXXXXXXX : "ECONOMIES OF PURCHASING A NEW CHEVROLET":"CALCULATE OTHER OPERATING EXPPA EST MPG-NEW VEHICLE ";EPA~(23):"EITHER ENTER DIFFERENT EPA EST MPG AND":"PRESS RETURN OR SIMPLY PRESS RETURN";:(1)8:32"";A$A$" "700A(A$)A0700A999ī700705AEPA8:329)8:32C(NFC)g;l"EST. ANNUAL FUEL EXPENSE- NEW $";NFCcq:OFCGAS(MILESACT).5:OFC(OFC)iv{"EST. ANNUAL FUEL EXPENSE- OLD $";OFC:"PRESS ANY KEY TO CONTINUE";:B$: PROCEED TO REPAIRS MODULE1000"ENTER E(1):"ENTER IN FORMAT 99999 AND PRESS RETURN":(1)X(13):"ENTER ANNUAL MILES DRIVEN ";MM$:MILES(MM$):(13):(32):9):40)YMILES999999ī599ZMILES1ī599](13):(32):MILES^(23):39):(1):(14)b:NFCGAS(MILESA).5:NFD(9):(32):ACTaI(23):39):(23):(1):"ENTER IN FORMAT 9.99 AND PRESS RETURN":(11):(1)N"ENTER FUEL COST PER GALLON ";LL$:GAS(LL$):(11):(33):8):40)OGAS999ī585PGAS.01ī585S(11):(33):GAS2W(23):39):(23):E FUEL EXPENSE"-5"______________________"=::(8):660?(23):39):39);:(23):(1):"ENTER IN FORMAT 99 AND PRESS RETURN":(9):(1)@"ENTER ACTUAL MPG-OLD VEHICLE ";KK$:ACT(KK$):(9):(32):9):40)AACT999ī575BACT1ī575CONTINUE":B$:/ PROCEED TO FUEL MODULEL XXXXXXXXXXXXXXXXXXXXXXd CHEVY TECH| ECONOMIES- FUEL C.G.WEITZMANN XXXXXXXXXXXXXXXXXXXXXX !"ECONOMIES OF PURCHASING A NEW CHEVROLET"&:0"CALCULAT,"ADDITIONAL. SEE YOUR LOCAL CHEVROLET"W"DEALER TO MAKE YOUR BEST DEAL !!!":"THE EPA EST MPG IS THE COMBINED EPA FOR""THE VEHICLE AND SHOULD BE USED FOR""COMPARISON. YOUR MILEAGE MAY DIFFER."(23):"PRESS ANY KEY TO OUGH THE VEHICLE SELECTION PROGRAM."* Q "THE PRICE IS THE MANUFACTURER'S"} "SUGGESTED RETAIL PRICE AS OF JANUARY" "1985 AND INCLUDES DESTINATION CHARGES-":"DEALER PREP AND YOUR SELECTION OF ""OPTIONAL EQUIPMENT. TAX AND LICENSE ARE"EVY TECH$  ECONOMIES-DISCLAIMERA  C.G.WEITZMANN^  XXXXXXXXXXXXXXXXXXXXXX ::"ECONOMIES OF PURCHASING A NEW CHEVROLET" :: "THE NEW VEHICLE PRICE AND EPA EST MPG" "SHOWN IS ESTABLISHED BY YOUR LAST TIME"$ "THR , Y -SPACING CONTROL0 - OT-OLD TOTAL EXPG . NT-NEW TOTAL EXPe / P -EDITED ADJ NEW PYMTSq <D$(4) AD$;"OPEN CT.ACCUM" FD$;"READ CT.ACCUM" KCHEVY$,PR$,EPA,MP _D$;"CLOSE CT.ACCUM"  XXXXXXXXXXXXXXXXXXXXXX  CHST " MILES-EDITED ANN MILES7 # NFC-NEW FUEL COSTO $ OFC-OLD FUEL COST` % A -NEW EPA} & MO-OLD MONTHLY PAYMENT ' AMT-EDITED REPAIR EXP ( OP-OLD ANN PAYMENTS ) NP-NEW ANN PAYMENTS * VL-EDITED OLD VALUE + X -SPACING CONTROL  A$ -IP NEW EPA.  NN$-IP OLD MON PYMTSJ  OO$-IP REPAIR EXPENSE]  YR$-OLD YEARr  MDL$-OLD MODEL  VL$-OLD VALUE  AP$-ADJUSTED NEW PYMTS  EPA-AVG EPA  MP-MONTHLY PAYMENT ACT-EDITED OLD EPA ! GAS-EDITED FUEL CO *******************/ CT ECONI *******************e VARIABLE DESCRIPTIONSy D$ -CONTROL D CHEVY$-VEHICLE PR$-PRICE B$ -ANY KEY TO CONT KK$-IP OLD EPA LL$-IP FUEL COST MM$-IP ANNUAL MILES               ŠԠŬԠԠŬ͠Ƞ̠Ƞ̠ͬӠԠԩ̠͠ȠˠԬԠ̠ͬ͠ȠˠȠ̠Ƞ̠ͬӠԠԩ͠Ƞ̠ȠԬͬ͠Ƞ̠ȠԬ̠͠ԭǠĠԩϠԠŬȭĠҠЬŠԬŠĠ̠ǬӬԠԠŬԠǠ̬ŠԠŬԠԠŬ͠Ϡ̠ͬӠԠԩ͠ȠͬĠҠҬ͠Ƞ̠̠ͬ͠ȠԬ̠͠ԭǠĠԩ͠ϭ٠ΠǬ̠͠Ҡͬ͠ȠȠԠͬҠŠĠӠˬ̠͠ȠȠˬԠԠͬ͠Ƞ̠ȬҠӬŠĠӬĠ̠ƬҠŠĠӬȠԠ̠̠ͬ͠ȠԬͬĬԠȠԠ̠ͬ͠Ҡ̠ͬ͠Ҡ̠ͬ͠ҠͬҠРԬŠҬҠנӬŠĠӠˬƠҬŠŠҬȠԠԠͬŠԠŬԠԠŬԠȠԠԠͬŠԬͬŠŠԬͬ͠ϭŠԬ͠ϭŠԬĠӬԠҠҬҠĬҠҬϠԠŬŠӬ̠ǠӬҠŠĠӠԬ٠ΠǬŠǠҍ٠٠í΍ ĠӭίōίōĠנŠŠƠŠٍӠĠΠӠԭ̠Ҡ̠֠̍Ҡ֠̍Π̠ɠ̠΍ԠàϠȠԍĠĠĠč٠٠Ǎ̠ƠŠӠĠҠȠƍŠĠӠŠٍĮŠƠŠӠ΍ĠŠӭҠ٠ԠōŠȠŠ̠Π؍ĮŠҠҠҠōӠĠή Ϭ 850AL$(S64)/ PRICE((A1$(S),2,5))W#PRICE10000PR$"$ "(PRICE):810l&PR$"$"(PRICE)*T(A1$(S))1((PRICE))4VE$"E"TT1>AL$;". ";(A1$(S),T);34);PR$H:SRCH$;"CLOSE CT.MODELS"fAL$(S64)&pAL$;".)Q1:ACCUM$(Q)"V"VN$% ***: *** MODEL MENUD ***\:HD$;VN$:::S13vCH$;"OPEN CT.MODELS"CH$;"READ CT.MODELS"OPT0S110A1$(S)(A1$(S),1)"9"ī850(A1$(S),1)VE$SS1:S(A1$(S),1)VE$:S&"F. RETURN TO MAIN MENU",!V&(24):"PLEASE ENTER SELECTION";:(1)k0S14:S210:2340{:VE$S6$::DVE$"F"ī590E:CH$;"RUN CT.MAIN"NS15XVE$(VH$(S),1)630bSl490vT(VH$(S))1VN$(VH$(S),TIN$::TX$"DISC1":3000-(1)::HD$K(22)::23);"TRANSAXLE"u(24)::"PRESS ANY KEY TO CONTINUE";IN$:: *** *** VEHICLE MENU ***::HD$:::S15T(VH$(S))1(VH$(S),1);". ";(VH$(S),T)R"VH$(3)"CCELEBRITY"4VH$(4)"DS-10 BLAZER"OVH$(5)"ES-10 PICK-UP"\CH$(4)|IN(768):IN1Ĺ768,0:490 *** *** DISCLAIMER ***":TX$"DISC":3000,(1)::HD$(24):"PRESS ANY KEY TO CONTINUE";PTIONSL HJ-HOLD SORT FIELD:d ********************_HD$"SELECT YOUR NEW CHEVROLET "pACCUM$(100)F1$(50):F2$(50)A$(25):B$(25):C$(25):D$(25):E$(25):Y$(25):Z$(25)A1$(10):J(25)VH$(1)"ACAMARO"VH$(2)"BCAVALIEICLE PRICE# A Q -ACCUM SUBSCRIPT: B E -SCREEN LINE #U C CTR-MISC CONTROL/CTRp D OPT-MISC CONTROL/CTR E X -CTY EPA F Y -HWY EPA G Z -AVG EPA H K -EOF CTRL I H -OPT CTRL/1-2 LINES J I -OPT CTRL/LINE #K J -SORT FIELD-ONU STROBE/ST LN #0 8 S2-MENU STROBE/ADD LNS*2I 9 S3-MENU STROBE VARb : S4-MENU STROBE VAR{ ; S5-MENU STROBE VAR < S6-MENU STROBE/DEC SELCTN = PRICE-OPTION PRICE > MOD-MODEL/KEY SELCTN # ? B -SELECTED PRICE/CTR @ A -TOTAL VEHҮԠӠŠԠϠōӠΠӭ̭ԭӠĠӮӠĠӮŠԠϠōӠΠӭ̭ԭӠĠӮŠĠӠŠōҧӠĠ̠ӍӠƠ٠ĠŠ׍ŠРĠΠӮحŠĠ̠ԍŠ̮ŠŠĠԠǠҍήҠŠ٠ KEYS ! PR$-PRICE- " O$ -OPTION HEADINGE # CD$-NO PRICE TEXTZ $ T1$-TRIM HDG-1o % T2$-TRIM HDG-2 2 ********************* 3 IN-DECIMAL SELECTION 4 S -MISC CONTROL/CTR 5 T -MISC CONTROL/CTR 6 U -MISC CONTROL/CTR 7 S1-MEMODEL FILE CONDENSED,  VH$-VEHICLE TABLE@  CH$-CONTROL DY  TX$-TEXT FILE NAMEr  IN$-CHAR SELECTION  S6$-MENU STROBE CHAR SELCTN  VE$-VEHICLE SELCTN CHAR  VN$-VEHICLE SELCTN NAME  AL$-SELECTION CHAR FL$-APPROPRIATE OLD DESC2B  A$ -CAM KEYS/TRM-VEH CHR/ACCUM-VEH/TEXT SCREEN VARn  B$ -CAV KEYS/TRM-VEH KEYS/ACCUM-PRICE  C$ -CEL KEYS/TRM-DESC/ACCUM-EPA  D$ -BLA KEYS/ACCUM-PYMT  E$ -PIC KEYS  Y$ -DESCRIPTION 1  Z$ -DESCRIPTION 2  A1$-Y, **********************7 VEHICLE MODULET KELLY MELLO- CT PART Aq ********************** VARIABLE DESCRIPTIONS ********************* ACCUM$-SELCTD FTR&OPT HD$-HEADING F1$-STD/HOLD DESC1  F2$-STD/H               $;"CLOSE CT.STND"!CTR9:1027@(FL$,MOD,1)"1"SS1:ShQQ1:ACCUM$(Q)"S"Y$(S)" "Z$(S)A10000PR$"$ "(A):1018PR$"$"(A)CCTR8ė::HD$;VN$:::(10):"CURRENT VEHICLE PRICE - ";PR$::"THE STANDARD FEATURES INCLUDE:"(A1$(MOD),T)AAB! ***9 *** STND FEATURESC ***QE0:CTR8iCH$;"OPEN CT.STND"CH$;"READ CT.STND"S120A$(S),B$(S),C$(S),D$(S),E$(S),Y$(S),Z$(S)2290(FL$,MOD,1)"9"ī1014CTR1ĺF1$:F2$CHHE VEHICLE SELECTION MENU"&z:(24)J"PLEASE ENTER SELECTION";:(1)_S2(S1)2:2340i::{S6$AL$ī490S6$AL$ī680S6$"A"ī680MODS664B((A1$(MOD),2,5))T(A1$(MOD))((B))1 QQ1:ACCUM$(Q)"M"(B)(S64)# PRICE((A1$(S),2,5))K#PRICE10000PR$"$ "(PRICE):810`&PR$"$"(PRICE)~*T(A1$(S))1((PRICE))4VE$"E"TT1>AL$;". ";(A1$(S),T);34);PR$H:SRCH$;"CLOSE CT.MODELS"fAL$(S64)pAL$;". RETURN TO TCUM$(Q)"V"VN$ ***. *** MODEL MENU8 ***P:HD$;VN$:::S13jCH$;"OPEN CT.MODELS"CH$;"READ CT.MODELS"OPT0S110A1$(S)(A1$(S),1)"9"ī850(A1$(S),1)VE$SS1:S(A1$(S),1)VE$ī850AL$S "F. RETURN TO MAIN MENU"J&(24):"PLEASE ENTER SELECTION";:(1)_0S14:S210:2340o:VE$S6$::DVE$"F"ī590E:CH$;"RUN CT.MAIN"NS15XVE$(VH$(S),1)630bSl490vT(VH$(S))1VN$(VH$(S),T)Q1:AC:TX$"DISC1":3000)(1)::HD$G(22)::24);"TRANSAXLE"o(24):"PRESS ANY KEY TO CONTINUE";|IN$:: *** *** VEHICLE MENU ***::HD$:::S15T(VH$(S))1(VH$(S),1);". ";(VH$(S),T):R"VH$(3)"CCELEBRITY"4VH$(4)"DS-10 BLAZER"OVH$(5)"ES-10 PICK-UP"\CH$(4)|IN(768):IN1Ĺ768,0:490 *** *** DISCLAIMER ***":TX$"DISC":3000,(1)::HD$(24)::"PRESS ANY KEY TO CONTINUE";IN$:PTIONSL HJ-HOLD SORT FIELD:d ********************_HD$"SELECT YOUR NEW CHEVROLET "pACCUM$(100)F1$(50):F2$(50)A$(25):B$(25):C$(25):D$(25):E$(25):Y$(25):Z$(25)A1$(10):J(25)VH$(1)"ACAMARO"VH$(2)"BCAVALIEICLE PRICE# A Q -ACCUM SUBSCRIPT: B E -SCREEN LINE #U C CTR-MISC CONTROL/CTRp D OPT-MISC CONTROL/CTR E X -CTY EPA F Y -HWY EPA G Z -AVG EPA H K -EOF CTRL I H -OPT CTRL/1-2 LINES J I -OPT CTRL/LINE #K J -SORT FIELD-ONU STROBE/ST LN #0 8 S2-MENU STROBE/ADD LNS*2I 9 S3-MENU STROBE VARb : S4-MENU STROBE VAR{ ; S5-MENU STROBE VAR < S6-MENU STROBE/DEC SELCTN = PRICE-OPTION PRICE > MOD-MODEL/KEY SELCTN # ? B -SELECTED PRICE/CTR @ A -TOTAL VEHKEYS ! PR$-PRICE- " O$ -OPTION HEADINGE # CD$-NO PRICE TEXTZ $ T1$-TRIM HDG-1o % T2$-TRIM HDG-2 2 ********************* 3 IN-DECIMAL SELECTION 4 S -MISC CONTROL/CTR 5 T -MISC CONTROL/CTR 6 U -MISC CONTROL/CTR 7 S1-MEMODEL FILE CONDENSED,  VH$-VEHICLE TABLE@  CH$-CONTROL DY  TX$-TEXT FILE NAMEr  IN$-CHAR SELECTION  S6$-MENU STROBE CHAR SELCTN  VE$-VEHICLE SELCTN CHAR  VN$-VEHICLE SELCTN NAME  AL$-SELECTION CHAR FL$-APPROPRIATE OLD DESC2B  A$ -CAM KEYS/TRM-VEH CHR/ACCUM-VEH/TEXT SCREEN VARn  B$ -CAV KEYS/TRM-VEH KEYS/ACCUM-PRICE  C$ -CEL KEYS/TRM-DESC/ACCUM-EPA  D$ -BLA KEYS/ACCUM-PYMT  E$ -PIC KEYS  Y$ -DESCRIPTION 1  Z$ -DESCRIPTION 2  A1$-+, **********************7 VEHICLE MODULET KELLY MELLO- CT PART Aq ********************** VARIABLE DESCRIPTIONS ********************* ACCUM$-SELCTD FTR&OPT HD$-HEADING F1$-STD/HOLD DESC1  F2$-STD/H::D$;"RUN CT.MAIN"HSTROBE VAR" ' NL-STROBE # LINES6 ( C -STROBE VARJ ) Q -STROBE VARa * Y -STROBE LINE #x + KS-DEC SELECTION , SC-SERVICE COST/MILE - H -LINE # ^: _HD$"SERVICE COST RECORD" `D$(4) aA$(100):O$(100):C$(100):R$(100):I  U$ -UNDER OR BLANK2  R$ -REASON FOR EXPL  I -LOOP CONTROL VARb  MX-LAST ENTRY # S -COST/LOOP CTL/ITEM # ! ST-COST TOTAL " SO-STARTING ODOMETER # EO-ENDING ODOMETER $ OD-TOT DRIVING DISTANCE % PG-PAGE # & P - SERVICE COST RECORD7 *********************S VARIABLE DESCRIPTIONSe HD$-HEADINGy D$ -CONTROL D A$ -SCREEN ARRAY C$ -COST ARRAY O$ -ODOMETER ARRAY KS$-CHAR SELECTION IT$-ITEM ARRAY  Q$ -SELECTION    Ĭ΍̠Ĭ΍ŠǬӍŠԬԠӬŠŬōҠ¬ӍˠנŬӍԠǬ̠̍ŠĬōĠӬ̠ŬӍ̠ԠӬĠԬҍҠӬΠ̬ˍԠĠҬŠӍϭĬĠӍˠŬˠŠ׬ӍРҬĠӬčȠҬ͍ҠӬŠӬҠ ЬҍŠԬˍԠŬҭĠŠǠ̍ĠҬŠԬҠōˠЬӍĠϬҍӍ̠̬̠Ĭō˭ĭάǍŠӬԠЬӍҭĬԠ̍Ԡ̬ˍҠŠԬӍȠͬӍàǬҠǍ̠ŠĬǠ΍٠ĠҬĠӧŭĠǬӍҠ̠ԠӍҠӬ̠̬ԠάԠҠͬҠˠҬ͠ŬӍ̠Ӭ̠ĠȬӍàڬϸ̠̬͠ǬӍìԠ̍ͯ͠ϬԬҠ͍ĠҬ٠ōҠƬōàˬ٠Ġ̬̠Χ̬ĠӍҠŬҠӬҠǬ̠Ӭà̬΍͠ϬǠԬӍŠ׬ӍĭΠҬԍҠŬ΍̠̬Ϡ͠Ӭɠٍ     z #?????   ԮԠ ԮӠԮΠ ԠΠ̠ Ԯñ ԠԠ. Ԯà!ԮӠ)ԮĠ ԮǮӠ Ԯ͠ Ԯ͠  ԠǠԠǠԠǠԠǠԠǠ ԠǠԱԮà"!Ϡ "ԠŠŠԠĠؠҠԠǠԠǠCLE AND SHOULD BE USED FOR"G "COMPARISON. YOUR MILEAGE MAY DIFFER."S (23):z "PRESS ANY KEY TO CONTINUE":B$:  PROCEED TO FUEL MODULE  XXXXXXXXXXXXXXXXXXXXXX  CHEVY TECH  ECONOMIES- FUEL  C.G.WEITZMA PRICE AS OF JANUARY"@ "1985 AND INCLUDES YOUR SELECTION OF"o "OPTIONAL EQUIPMENT. TAX AND LICENSE ARE" "ADDITIONAL. SEE YOUR LOCAL CHEVROLET" "DEALER TO MAKE YOUR BEST DEAL !!!": "THE EPA MPG IS THE COMBINED EPA FOR THE" "VEHI::"ECONOMIES OF PURCHASING A NEW CHEVROLET"7 ::f "THE NEW VEHICLE PRICE AND EPA MPG SHOWN" "IS ESTABLISHED BY YOUR LAST TIME" "THROUGH THE VEHICLE SELECTION PROGRAM."  "THE PRICE IS THE MANUFACTURER'S" "SUGGESTED RETAILE <D$(4)%AD$;"OPEN CT.ACCUM"=FD$;"READ CT.ACCUM"TKCHEVY$,PR$,EPA,MPm_D$;"CLOSE CT.ACCUM" XXXXXXXXXXXXXXXXXXXXXX CHEVY TECH ECONOMIES-DISCLAIMER C.G.WEITZMANN XXXXXXXXXXXXXXXXXXXXXX-        )Q$"C"ĺ:D$;"RUN CT ECON"K.Q$"D"ĺ:D$;"RUN SERVICE COST RECORD"[3Q$"E"ė:e=1050,0 Q$:::PG8:300& 16368,0< Q$:::PG2:300J16368,0Q$:::PG3:300:(1)::"DISK DRIVE TODAY'S CHEVROLET"::(22)16368,0Y4:NL4:400Q$KS$Q$"A"ĺ:D$;"RUN CT PART A"$Q$"B"ĺ:D$;"RUN CT FINANCE"):(C);:(1)CC1"PQĝ3KS(16384)_KS127KSKS128:KS$(KS):16368,0:fQpPP2PYNLPY404X$"CT1 TXT.PIC":100TIMBRE,16:MUSICM198:T:P:90:M16368,0:::PG1:30016368STSTS:PGPG1:+,D$;"OPEN CT PG ";PGD1D$;"READ CT PG ";PGP6S123[;A$(S)b@S|ED$;"CLOSE CT PG ";PGJTS122:A$(S):SY MENU STROBE P016368,0NLNL2C65QYYNL2PQĞ (Q(21)NYNY1:220# Q$(13)250> Q$(43)PGPG1:300Y Q$(45)PGPG1:300_ n NY1NY1 NY24NY24 YNY:200 (Y):(30):X30 S3039 S$(X1,2(Y1))16X1,2(Y1)1)) SS$SS$S$ S S(SS$)0,0 2D$;"BLOAD MUSICDRIVER") 71000F ZTME,T:PITCH,P:MUSIC:h d:D$;"BLOAD ";X$;",A$4000": n:D$;"BLOAD ";X$;",A$2000": x:D$;"BLOAD ";X$: (1):(Y)::A$(Y);::(39) Q$:(1):(Y):A$(Y); Q$(8)NYNY1:220 Q$1,64,39,32,37,32,36,64,37,32,36,64,34,96,0,32,39,96,41,64,39,32,37,32,36,64,37,32,36,64,34,96,0,64,34,32,34,64,34,32,34,32,34,32,0,64,34,32,36,64,36,32,36,32,36 + 32,0,64,36,32,37,64,37,32,37,32,37,32,0,64,32,32,39,64,39,32,39,32,32,64,0,32,42,32,41,16ҍ٠٠í΍ Πӭ΍ōίōĠנŠŠƠŠٍӠĠΠӠԭ̠Ҡ̠֠̍Ҡ֠̍Π̠ɠ̠΍ԠàϠȠԍĠĠĠč٠٠Ǎ̠ƠŠӠĠҠȠƍŠĠӠŠٍĮŠƠŠӠ΍ĠŠӭҠ٠ԠōŠȠŠ̠Π؍ĮŠҠҠҠōӠĠή  D$;"READ CT.ACCUM"#P E$,F$,G$,H$<Q D$;"CLOSE CT.ACCUM"KS BP(F$):[ SAVE DATAh H$(PY) D$;"OPEN CT.ACCUM" D$;"WRITE CT.ACCUM"!E$;",";F$;",";G$;",";H$!D$;"CLOSE CT.ACCUM"! ! FINANCE YOUR NEW CHEVROLET"::yz"A. EXAMINE ECONOMIES"::"B. RETURN TO FINANCE MENU"::"PLEASE ENTER YOUR CHOICE "Y3:NL1:400:Q$KS$Q$"A"ĺ:D$;"RUN CT ECON"Q$"B"ė:816000 GET/SAVE DATAN D$;"OPEN CT.ACCUM"O REDUCED....":/|"ENTER THE FOLLOWING...":N" EST.TRADE-IN VALUE ";TIm" DOWNPAYMENT ";DPPP(TIDP):1040::"APROXIMATE NEW MONTHLY PAYMENT =$";PY:8400:"PRESS ANY KEY TO CONTINUE ":Q$6000pu:"TE ";I0:(10):"ENTER NUMBER OF YEARS ";Y::"1030r,::(19):"APROXIMATE MONTHLY PAYMENT IS $";PY::6"PRESS ANY KEY TO CONTINUE";:Q$hm:"FINANCE YOUR NEW CHEVROLET"::r"YOUR APROXIMATE MONTHLY":"PAYMENT OF ";PY;" CAN BE--------":4000 8200L:"LAST VEHICLE PRICED- ";E$;" $";BP:p"USE THIS NUMBER (Y/N)? ";:Q$Q$"Y"ĺ::"AMOUNT TO FINANCE IS $ ";BP:4095::"ENTER AMOUNT TO BE FINANCED ";BPPBP(TIDP):(10):"ENTER INTEREST RAMS SUCH AS TAXES THAT CAN CHANGE":"YOUR FINANCE AMOUNT AND PAYMENTS.":: "CHEVYTECH FINANCE CALCULATOR"::"PRESS ANY KEY TO CONTINUE":Q$::: ::"FINANCE YOUR NEW CHEVROLET":::"CALCULATE MONTHLY PAYMENT":"-------------------------------S":"AND INTEREST. THE METHOD USED IN THIS":"SEGMENT IS A COMMON ONE.": "YOU MAY FIND SOME DIFFERENCES WITH THE":"FINANCE METHOD YOU CHOOSE. ALSO THE":"COMPUTATIONS SHOWN HERE DO NOT INCLUDE"J "SUCH FACTORS AS CREDIT LIFE INSURANCE":"OR ITE:Q$KS$ /Q$"A"ĺ:D$;"RUN CT PART A"AQ$"B"ĺ::aQ$"C"ĺ:D$;"RUN CT ECON"Q$"D"ĺ:D$;"RUN SERVICE COST RECORD"Q$"E"ĺ::1220 ::"FINANCE YOUR NEW CHEVROLET"::J "THERE ARE MANY WAYS TO COMPUTE PAYMENTT FINANCED IS $ ";PN:B Q:"PRESS ANY KEY TO CONTINUE";:A$::L V6000c D$;"OPEN CT PG 3"z D$;"READ CT PG 3" T123:A$(T):T D$;"CLOSE CT PG 3" :T123:A$(T):T (1)::"DISK DRIVE TODAYS CHEVROLET"::Y4:NL4:400:II12$ PYP(I(1(1(1I)N)))H PY((PY5.000001E03)100)100N $T .Z /` 0{ 2 COMPUTE PRINC. GIVEN 3 INTEREST,PAYMT.,TERM 4 8NY12:II100:II12 BPNPY((1(1((1I)N)))I) GPN(PN) L::"APROXIMATE AMOUNŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠԠǍԠҠϠŠŠ̍ӠΠٮӠ٠٠Ϡōō͠îӠ٠٠ϠōԠŠԠŠԠŠ٧ӍԮŠԮŠԠԠҠԍҠĠŠԠԠէŠĠϠŠӍˠŧӠŠ٠ϠōŠŠԠӠՠ΍٧ӠԮӠ٠٠Ϡōō   ROLET"::'Y4:NL4''400:Q$KS$K'Q$"A"ė::D$;"RUN CT PART A"p$'Q$"B"ė::D$;"RUN CT FINANCE")'Q$"C"ė::D$;"RUN CT ECON".'Q$"D"ė::D$;"RUN SERVICE COST RECORD"3'Q$"E"ė:='10005HY/N)? ";Q$Q$"Y"5075%5000DO$(S)O$:R$(S)R$:C$(S)C$^SMXİ650:800:5090qMXS:650:800MX2ė:2000:700:900:500:(1):"PRESS ANY KEY TO CONTINUE":Q$::2000'::PG3:300'(1) ':"DISK DRIVE TODAYS CHEV:HH2." ENTER ODOMETER READING ";O$:T(O$)0SMXMXMX1:SS2:5077u" ENTER ITEM COST ";C$:" ENTER EXPENSE REASON-24 CHARACTERS"::(5):" "::(5):(15)(5):(H):R$ :"IS THIS OK (700:500:(3):(1)e"ENTER NEW SERVICE COST":"---------------------------------------"::"LAST ITEM NUMBER WAS ";MX::" ENTER ITEM NUMBER ";SS20S20S(MX1)SMX1SMXĺ:"RETURN TO DELETE ENTRY OR.."--------------------------------------":8OD0OD1E SCSTODPU$" "qSC.001SC.01:U$" UNDER ""SERVICE COST PER MILE IS";U$;SC: "PRESS ANY KEY TO CONTINUE":Q$::SO0:EO0:OD0:S0:ST0:SC0:1020 NEW ENTRYH18DISPLAY CURRENT COSTSR V:700:900:500:(1):"PRESS ANY KEY TO CONTINUE":Q$:o 500:(3):200:250:(1) "STARTING ODOMETER ";SO: "ENDING ODOMETER ";EO: "TOTAL DRIVING DISTANCE WAS ";OD:)"TOTAL SERVICE EXPENSES WERE ";ST::"-$(S) 4S" 9D$;"CLOSE SERVFL"( >4 S1MXP IT$(S)O$(S)" "R$(S)p S;" ";IT$(S);:(30):C$(S)w S}  PG4:300:500:Q$ PG5:300:500:(1):Y3:NL2:400:Q$KS$ Q$"B"ī5000: NEW ENTRY Q$"C"ī10000: EXIT L  D$;"CLOSE SERVMX" % :; D$;"OPEN SERVFL"Q D$;"READ SERVFL"] S1MXh O$(S)s C$(S)~ R$(S) S D$;"CLOSE SERVFL"  : "D$;"OPEN SERVFL" %D$;"WRITE SERVFL" *S1MX /O$(S) 0C$(S) 1RKSKS128:KS$(KS):16368,0:' Q1 PP2A PYNLPYJ 404j (1)::HD$::(21):(26):r X: ZD$;"OPEN SERVMX" ]D$;"READ SERVMX" gMX qD$;"CLOSE SERVMX" v : D$;"OPEN SERVMX" D$;"WRITE SERVMX" MXԠĠ͍ӠˠӠΠ΍ŠǠĠԍӮύҍٍӭҍӭ˭ЍŠˠϠӮŠҍΠΠӍĠŠԠĠ ION 1985":C'"APPLE IS A TRADEMARK OF":"APPLE COMPUTER INC.":{'"EPSON IS A TRADE MARK OF":"EPSON AMERICA INC.":'"THIS SOFTWARE AND IT'S DISK CARRY"$'"NO WARRANTY FOR ANY PURPOSE ,USE ,OR":"REASON.".'D:D$;"RUN SERVICE COST RECORD"73Q$"E"ė:::2000A=1050_D$;"BLOAD ";X$;",A$2000"i(21)"A TEST DRIVE IS EVEN BETTER THAN A DISK":"DRIVE. SEE YOUR CHEVROLET DEALER TODAY.":Q$:::"SEE YOU SOON": ':"COPYRIGHT CHEVROLET DIVIS:PG2:30016368,0]Q$:::PG3:300:(1)::"DISK DRIVE TODAY'S CHEVROLET"::(22)k16368,0}Y4:NL4:400Q$KS$Q$"A"ĺ:D$;"RUN CT PART A"$Q$"B"ĺ:D$;"RUN CT FINANCE")Q$"C"ĺ:D$;"RUN CT ECON".Q$"D")-KS127KSKS128:KS$(KS):16368,0:4Q>PP2NPYNLPYW404qX$"CT1 TXT.PIC":100TIMBRE,16:MUSICM146:T:P:90:M16368,0:::PG1:30016368,0 Q$:::PG8:300 16368,0  Q$::$;"READ CT PG ";PG 6S123) ;A$(S)0 @SJ ED$;"CLOSE CT PG ";PGP Jf TS122:A$(S):Sl Y  MENU STROBE P0 16368,0 NLNL2 C65 QYYNL2 PQĞ (Q):(C);:(1) CC1 PQĝKS(16384 32,36,64,36,32,36,32,36{ + 32,0,64,36,32,37,64,37,32,37,32,37,32,0,64,32,32,39,64,39,32,39,32,32,64,0,32,42,32,41,160,0 2D$;"BLOAD MUSICDRIVER" 71000 ZTME,T:PITCH,P:MUSIC: d:D$;"BLOAD ";X$;",A$4000": ,D$;"OPEN CT PG ";PG 1DP!":(1) %D$(4):10000G &MUSIC7959:PITCH767:TME766:TIMBRE765S 'A$(24) ( 32,0,32,32,32,37,64,37,128,0,32,32,32,39,64,39,128,0,32,32,32,41,64,41,64,0,64,42,64,46,96,44,32,37,32,39,64,41,32,41,64,39,32,37,32,36 ) 64,37,32,36,64,34 * Q -STROBE VAR%  KS-DEC SELECTION? M -LOOP CONTROL VARE !q "::"CHEVY TECH LOADING...PLEASE WAIT" #:(3):(18):" ":(15):" ":(18):" "::(4):(19):" ":(7):(15) $"LET'S GET IT":(15):"TOGETHER...":(15):"BUCKLE U Q$-SELECTION'  KS$-CHAR SELECTION?  MUSIC-CALLED SUBRS  PITCH-ADDRESSe  TME-ADDRESSz  TIMBRE-ADDRESS  T -DATA(MUSIC)  P -DATA(MUSIC)  Y -STROBE ST LIN #  PG-PAGE #  NL-STROBE # LINES  C -STROBE VAR ԠҠנԍ®ŠҠנԍîӠΠ̠ĠӍĮŠԠčŮϠĠŠ͍ŠҠҠōō͠ΠϠÍҠҠō DO NOT INCLUDE" "SUCH FACTORS AS CREDIT LIFE INSURANCE":"OR ITEMS SUCH AS TAXES THAT CAN CHANGE":"YOUR FINANCE AMOUNT AND PAYMENTS.":: :"BE SURE TO ASK YOUR DEALER ABOUT GMAC":"FINANCING OPTIONS FOR YOUR NEW CHEVROLET.":: "CHEVYTECH FI YOUR NEW CHEVROLET":: "THERE ARE MANY WAYS TO COMPUTE PAYMENTS":"AND INTEREST. THE METHOD USED IN THIS":"SEGMENT IS A COMMON ONE.": "YOU MAY FIND SOME DIFFERENCES WITH THE":"FINANCE METHOD YOU CHOOSE. ALSO THE":"COMPUTATIONS SHOWN HERE EN3 INTEREST,PAYMT.,TERM %4 ?8NY12:II100:II12_BPNPY((1(1((1I)N)))I)lGPN(PN)L::"APPROXIMATE AMOUNT FINANCED IS $ ";PN:Q:"PRESS ANY KEY TO CONTINUE";:A$::V6000::D$;"RUN CT.MAIN" ::"FINANCEPPPP2PPYNLPPY%404+17S COMPUTE PAYMENT GIVENn INTEREST,PRINC.,TERMtNY12:II100:II12PYP(I(1(1(1I)N)))PY((PY5.000001E03)100)100$./02 COMPUTE PRINC. GIV";Y:( "ENTER MONTHLY PAYMENT ";PY:2 1080G  MENU STROBE P PP0^ 16368,0j NLNL2s C65 QYYNL2 PPQĞ (Q):(C);:(1) CC1 PPQĝ KS(16384) KS127KSKS128:KS$(KS):16368,0: Q ]Q$"B"ī4000& ^Q$"C"ė::12000 _:81 b::"FINANCE YOUR NEW CHEVROLET"::::"CALCULATE AMOUNT TO BE FINANCED":"---------------------------------------": c98 d"ENTER INTEREST RATE ";I: iI0ī98 n"ENTER NUMBER OF YEARS E YOUR NEW CHEVROLET"::I R"A. HOW MUCH CAN I GET FOR MY PAYMENT ?":q SN0:Y0:I0:PY0:PN0:P0:TI0:DP0 T"B. WHAT WILL THE PAYMENTS BE ?": V"C. RETURN TO MAIN MENU": Z"PLEASE ENTER YOUR CHOICE ":Y3:NL2:400:Q$KS$ \Q$"A"98OBE # LINES # PP-STROBE VAR3 $ C -STROBE VARG % Q -STROBE VAR^ & KS-DEC SELECTIONu ' T -LOOP CTRL VAR ( BP-AMOUNT TO FINANCE JD$(4) K16368,0 L MA$(24) NFL(769) OFL1Ĺ769,0:3000:4000 P3000 Q:"FINANCŠĠӠԠӍϠҠ̠ǠӮӠ٠٠ϠōŠŠԠĠŠ̍ĠĠ٠ŠԍӭȠҠ̠ӠƍŠΠҠנԮŠŠ̠נŭŭĠΠҠŠŮҠŠӠԠҍ٠ LN0`L,L20`LFLL JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !   ENSES WERE ";ST::"---------------------------------------":MOD0OD1Z SCSTODeU$" "SC.01SC.01:U$" UNDER ":2070SCSC100:SC(SC):SCSC100"SERVICE COST PER MILE IS";U$;SC: "PRESS ANY KEY TO CONTINUE":Q$::SO0$Q$"B"ī5000: NEW ENTRY9Q$"C"ī10000: EXITUL DISPLAY CURRENT COSTSgV:700:900:500:(3):200:250:(1)"STARTING ODOMETER ";SO:"ENDING ODOMETER ";EO:"TOTAL DRIVING DISTANCE WAS ";OD:>"TOTAL SERVICE EXPO$(S)" "R$(S)180:S;" ";IT$(S);:(30):C$(S)C254SS20İ6000cS40İ6000sS60İ6000S80İ6000S100İ6000SMXİ6000SPG4:300:500:(21):(26):Q$PG5:300:500:(1):Y3:NL2:400:Q$KS S1MXO$(S)!C$(S),R$(S)3SJD$;"CLOSE SERVFL"PX :n"D$;"OPEN SERVFL"%D$;"WRITE SERVFL"*S1MX/O$(S)0C$(S)1R$(S)4S9D$;"CLOSE SERVFL">500:(1):(2)S1MXIT$(S))::HD$::(22):(26): X:6 ZD$;"OPEN SERVMX"L ]D$;"READ SERVMX"T gMXk qD$;"CLOSE SERVMX"q vy : D$;"OPEN SERVMX" D$;"WRITE SERVMX" MX D$;"CLOSE SERVMX"  : D$;"OPEN SERVFL" D$;"READ SERVFL"(S):S Y!  MENU STROBE ) P07 16368,0C NLNL2L C65\ QYYNL2g PQĞ| (Q):(C);:(1) CC1 PQĝ KS(16384) KS127KSKS128:KS$(KS):16368,0: Q PP2 PYNLPY 404 (1T$(100) b c600 d1000, I1MXC S(C$(I)):STSTSJ IP x SO(O$(1)):EO(O$(MX)):ODEOSO: ,: .D$;"OPEN CT PG ";PG 1D$;"READ CT PG ";PG 6S123 ;A$(S) @S ED$;"CLOSE CT PG ";PG J TS123:A$STROBE VAR" ' NL-STROBE # LINES6 ( C -STROBE VARJ ) Q -STROBE VARa * Y -STROBE LINE #x + KS-DEC SELECTION , SC-SERVICE COST/MILE - H -LINE # ^: _HD$"SERVICE COST RECORD" `D$(4) aA$(100):O$(100):C$(100):R$(100):I  U$ -UNDER OR BLANK2  R$ -REASON FOR EXPL  I -LOOP CONTROL VARb  MX-LAST ENTRY # S -COST/LOOP CTL/ITEM # ! ST-COST TOTAL " SO-STARTING ODOMETER # EO-ENDING ODOMETER $ OD-TOT DRIVING DISTANCE % PG-PAGE # & P - SERVICE COST RECORD7 *********************S VARIABLE DESCRIPTIONSe HD$-HEADINGy D$ -CONTROL D A$ -SCREEN ARRAY C$ -COST ARRAY O$ -ODOMETER ARRAY KS$-CHAR SELECTION IT$-ITEM ARRAY  Q$ -SELECTION    ŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠԠŠĠӠԠӍϠҠ̠ǠӮӠ٠٠ϠōŠŠԠĠŠ̍ĠĠ٠ŠԍӭȠҠ̠ӠƍŠΠҠנԮŠŠ̠נŭŭĠΠҠŠŮҠŠӠԠҍ٠ ŠĠӠԠӍϠҠ̠ǠӮӠ٠٠ϠōŠŠԠĠŠ̍ĠĠ٠ŠԍӭȠҠ̠ӠƍŠΠҠנԮŠŠ̠נŭŭĠΠҠŠŮҠŠӠԠҍ٠  ٠ԠӍ®ҠנԍîΠϠΠՍҠҠō BETTER THAN A DISK":"DRIVE. SEE YOUR CHEVROLET DEALER TODAY.":Q$:::"SEE YOU SOON":,2 S512S54 2380= S6$"A"ĺD$;"RUN CT PART A"_ S6$"B"ĺD$;"RUN CT FINANCE"~ S6$"C"ĺD$;"RUN CT ECON" S6$"D"ĺD$;"RUN SERVICE COST RECORD" S6$"E"ė:: D$;"BLOAD CT1 TXT.PIC,A$2000"Z (21):"A TEST DRIVE IS EVENST RECORD"" :"E. END PROGRAM"H (23)::"PLEASE ENTER SELECTION"[ B S54:16368,0e L S465t V S34122 ` S5S3Ğ j (S3):(S4) t S4S41 ~ S5S3ĝ S6(16384) S6127S6S6128:S6$(S6):16368,0::2500 S3 S5S5 S4-STROBE/VAR"  S5-STROBE/VAR@  S6-STROBE/DEC SELECTIONL dD$(4)q n:"DISK DRIVE TODAYS CHEVROLET" x::"A. SELECT YOUR NEW CHEVROLET" :"B. FINANCE YOUR NEW CHEVROLET" :"C. ECONOMIES IN FUEL AND REPAIRS" :"D. SERVICE CO[ ********************2 MAIN MENUM KELLY MELLO- CT.MAINh ******************** VARIABLE DESCRIPTION D$-CONTROL D S6$-CHAR SELECTION S1-STROBE/START LN # S2-STROBE/ADDT'L LN*2 S3-STROBE/VAR     ŭέԍSF1$;22);Y$(S)'F2$""ī1024=F2$;22);Z$(S):SCTR0:EE3:1026]1027Z$(S)""ĺ:CTR0:EE2:10261021E14ĂS(23)::"PRESS ANY KEY TO CONTINUE"16368,0IN(16384) IN127ININ128:IN$CH$;"CLOSE CT.STND")CTR9:1027H(FL$,MOD,1)"1"SS1:SpQQ1:ACCUM$(Q)"S"Y$(S)" "Z$(S)CTR8ė:HD$;VN$::(10):"CURRENT VEHICLE PRICE - $";A::"THE STANDARD FEATURES INCLUDE:"::CTR0CTR0F1$Y$(S):F2$Z$(S):CTR1:M"(B)(A1$(MOD),T)AAB) ***A *** STND FEATURESK ***YE0:CTR8qCH$;"OPEN CT.STND"CH$;"READ CT.STND"S120A$(S),B$(S),C$(S),D$(S),E$(S),Y$(S),Z$(S)2290(FL$,MOD,1)"9"ī1014CTR1ĺF1$:F2$RETURN TO THE VEHICLE SELECTION MENU"3z::(23)R"PLEASE ENTER SELECTION "gS2(S1)2:2340q::S6$AL$ī490S6$AL$ī680S6$"A"ī680MODS664B((A1$(MOD),2,5))T(A1$(MOD))((B))1QQ1:ACCUM$(Q)"50 (A1$(S),1)VE$SS1:S:(A1$(S),1)VE$ī850JAL$(S64)e PRICE((A1$(S),2,5))*T(A1$(S))1((PRICE))4VE$"E"TT1>AL$;". ";(A1$(S),T);34);"$";PRICEH:SRCH$;"CLOSE CT.MODELS"fAL$(S64)%pAL$;". )630 bSl490'vT(VH$(S))1;VN$(VH$(S),T)UQ1:ACCUM$(Q)"V"VN$_ ***t *** MODEL MENU~ ***HD$;VN$::S13CH$;"OPEN CT.MODELS"CH$;"READ CT.MODELS"OPT0S110A1$(S)(A1$(S),1)"9"ī8: S15T(VH$(S))1A(VH$(S),1);". ";(VH$(S),T)J:Sh"F. RETURN TO MAIN MENU"&(23)::"PLEASE ENTER SELECTION"0S14:S210:2340:VE$S6$:::DVE$"F"ī590E:CH$;"RUN CT.MAIN"NS15XVE$(VH$(S),1IMER ***%":TX$"DISC":3000N(23)::"PRESS ANY KEY TO CONTINUE"]IN$:::sTX$"DISC1":3000(22):23);"TRANSAXLE"(24)::"PRESS ANY KEY TO CONTINUE";IN$::: *** *** VEHICLE MENU ***:HD$:5):B$(25):C$(25):D$(25):E$(25):Y$(25):Z$(25)?A1$(10)TVH$(1)"ACAMARO"kVH$(2)"BCAVALIER"VH$(3)"CCELEBRITY"VH$(4)"DS-10 BLAZER"VH$(5)"ES-10 PICK-UP"CH$(4)IN(768):IN1Ĺ768,0:490 *** *** DISCLA OPT-MISC CONTROL/CTR& E X -CTY EPA7 F Y -HWY EPAH G Z -AVG EPAZ H K -EOF CTRLv I H -OPT CTRL/1-2 LINES J I -OPT CTRL/LINE # d ******************** HD$"SELECT YOUR NEW CHEVROLET " ACCUM$(100) F1$(50):F2$(50)2A$(2OBE VAR ; S5-MENU STROBE VAR@ < S6-MENU STROBE/DEC SELCTNY = PRICE-OPTION PRICEv > MOD-MODEL/KEY SELCTN # ? B -SELECTED PRICE/CTR @ A -TOTAL VEHICLE PRICE A Q -ACCUM SUBSCRIPT B E -SCREEN LINE # C CTR-MISC CONTROL/CTR DKEYS ! PR$-PRICE0 2 *********************K 3 IN-DECIMAL SELECTIONe 4 S -MISC CONTROL/CTR 5 T -MISC CONTROL/CTR 6 U -MISC CONTROL/CTR 7 S1-MENU STROBE/ST LN # 8 S2-MENU STROBE/ADD LNS*2 9 S3-MENU STROBE VAR : S4-MENU STRMODEL FILE CONDENSED,  VH$-VEHICLE TABLE@  CH$-CONTROL DY  TX$-TEXT FILE NAMEr  IN$-CHAR SELECTION  S6$-MENU STROBE CHAR SELCTN  VE$-VEHICLE SELCTN CHAR  VN$-VEHICLE SELCTN NAME  AL$-SELECTION CHAR FL$-APPROPRIATE OLD DESC2B  A$ -CAM KEYS/TRM-VEH CHR/ACCUM-VEH/TEXT SCREEN VARn  B$ -CAV KEYS/TRM-VEH KEYS/ACCUM-PRICE  C$ -CEL KEYS/TRM-DESC/ACCUM-EPA  D$ -BLA KEYS/ACCUM-PYMT  E$ -PIC KEYS  Y$ -DESCRIPTION 1  Z$ -DESCRIPTION 2  A1$-ҠנŠԍҠҠō®٠ŠčîŠӍĮΠϠΠՍҠҠōҠŠ٠ҮԠӠŠԠϠōӠΠӭ̭ԭӠĠӮŠԠϠōӠΠӭ̭ԭӠĠӮԠҠנԍŠĠӠŠōҧӠĠ̠ӍӠƠ٠ĠŠ׍ŠРĠΠӮحŠĠ̠ԍŠ̮ŠŠĠǠҠΠӮŠҠԠҠҠӠΠӠŠŠƠӮ٠٠ϠōԧӠРӠŠԍŠΠŠٮӠǠ͠ŠԠԍɧԠϠŠ̭ō٠ƠŠĠōŠħӠԠΠӠҮӠ͠ӭӠϠ͍٠˧ ĺF1$:F2$#CH$;"CLOSE CT.STND"3CTR9:1027R(FL$,MOD,1)"1"SS1:SzQQ1:ACCUM$(Q)"S"Y$(S)" "Z$(S)A10000PR$"$ "(A):1018PR$"$"(A)UCTR8ė::HD$;VN$:::(10):"CURRENT VEHICLE PRICE - ";PR$::"THE STANDARD CCUM$(Q)"M"(B)(A1$(MOD),T))AAB3 ***K *** STND FEATURESU ***cE0:CTR8{CH$;"OPEN CT.STND"CH$;"READ CT.STND"S120A$(S),B$(S),C$(S),D$(S),E$(S),Y$(S),Z$(S)2290(FL$,MOD,1)"9"ī1014 CTR1 RETURN TO THE VEHICLE SELECTION MENU"2z:(24)8\"PLEASE ENTER SELECTION";:(1)qS2(S1)2:2340{::S6$AL$ī490S6$AL$ī680S6$"A"ī680MODS664B((A1$(MOD),2,5))T(A1$(MOD))((B))1QQ1:A850AL$(S64)/ PRICE((A1$(S),2,5))W#PRICE10000PR$"$ "(PRICE):810l&PR$"$"(PRICE)*T(A1$(S))1((PRICE))4VE$"E"TT1>AL$;". ";(A1$(S),T);34);PR$H:SRCH$;"CLOSE CT.MODELS"fAL$(S64)&pAL$;".)Q1:ACCUM$(Q)"V"VN$% ***: *** MODEL MENUD ***\:HD$;VN$:::S13vCH$;"OPEN CT.MODELS"CH$;"READ CT.MODELS"OPT0S110A1$(S)(A1$(S),1)"9"ī850(A1$(S),1)VE$SS1:S(A1$(S),1)VE$:S&"F. RETURN TO MAIN MENU",!V&(24):"PLEASE ENTER SELECTION";:(1)k0S14:S210:2340{:VE$S6$::DVE$"F"ī590E:CH$;"RUN CT.MAIN"NS15XVE$(VH$(S),1)630bSl490vT(VH$(S))1VN$(VH$(S),TIN$::TX$"DISC1":3000-(1)::HD$K(22)::24);"TRANSAXLE"u(24)::"PRESS ANY KEY TO CONTINUE";IN$:: *** *** VEHICLE MENU ***::HD$:::S15T(VH$(S))1(VH$(S),1);". ";(VH$(S),T)R"VH$(3)"CCELEBRITY"4VH$(4)"DS-10 BLAZER"OVH$(5)"ES-10 PICK-UP"\CH$(4)|IN(768):IN1Ĺ768,0:490 *** *** DISCLAIMER ***":TX$"DISC":3000,(1)::HD$(24):"PRESS ANY KEY TO CONTINUE";PTIONSL HJ-HOLD SORT FIELD:d ********************_HD$"SELECT YOUR NEW CHEVROLET "pACCUM$(100)F1$(50):F2$(50)A$(25):B$(25):C$(25):D$(25):E$(25):Y$(25):Z$(25)A1$(10):J(25)VH$(1)"ACAMARO"VH$(2)"BCAVALIEICLE PRICE# A Q -ACCUM SUBSCRIPT: B E -SCREEN LINE #U C CTR-MISC CONTROL/CTRp D OPT-MISC CONTROL/CTR E X -CTY EPA F Y -HWY EPA G Z -AVG EPA H K -EOF CTRL I H -OPT CTRL/1-2 LINES J I -OPT CTRL/LINE #K J -SORT FIELD-ONU STROBE/ST LN #0 8 S2-MENU STROBE/ADD LNS*2I 9 S3-MENU STROBE VARb : S4-MENU STROBE VAR{ ; S5-MENU STROBE VAR < S6-MENU STROBE/DEC SELCTN = PRICE-OPTION PRICE > MOD-MODEL/KEY SELCTN # ? B -SELECTED PRICE/CTR @ A -TOTAL VEHKEYS ! PR$-PRICE- " O$ -OPTION HEADINGE # CD$-NO PRICE TEXTZ $ T1$-TRIM HDG-1o % T2$-TRIM HDG-2 2 ********************* 3 IN-DECIMAL SELECTION 4 S -MISC CONTROL/CTR 5 T -MISC CONTROL/CTR 6 U -MISC CONTROL/CTR 7 S1-MEMODEL FILE CONDENSED,  VH$-VEHICLE TABLE@  CH$-CONTROL DY  TX$-TEXT FILE NAMEr  IN$-CHAR SELECTION  S6$-MENU STROBE CHAR SELCTN  VE$-VEHICLE SELCTN CHAR  VN$-VEHICLE SELCTN NAME  AL$-SELECTION CHAR FL$-APPROPRIATE OLD DESC2B  A$ -CAM KEYS/TRM-VEH CHR/ACCUM-VEH/TEXT SCREEN VARn  B$ -CAV KEYS/TRM-VEH KEYS/ACCUM-PRICE  C$ -CEL KEYS/TRM-DESC/ACCUM-EPA  D$ -BLA KEYS/ACCUM-PYMT  E$ -PIC KEYS  Y$ -DESCRIPTION 1  Z$ -DESCRIPTION 2  A1$-Y, **********************7 VEHICLE MODULET KELLY MELLO- CT PART Aq ********************** VARIABLE DESCRIPTIONS ********************* ACCUM$-SELCTD FTR&OPT HD$-HEADING F1$-STD/HOLD DESC1  F2$-STD/H               SES"."__________________________________":$:1145J)(10):40)*(23):39):39);:(1):(24):"ENTER IN FORMAT 999 AND PRESS RETURN";:(1).(11):"ENTER CURRENT MONTHLY PAYMENTS ";NN$:MO(NN$):(11):(34):7):40)/MO9999ī107A 575) XXXXXXXXXXXXXXXXXXXXXE CHEVY TECHb ECONOMIES-OTHER EXP 'S~ C.G.WEITZMANN XXXXXXXXXXXXXXXXXXXXX : "ECONOMIES OF PURCHASING A NEW CHEVROLET":"CALCULATE OTHER OPERATING EXPEN EST MPG-NEW VEHICLE ";EPA|(23):"EITHER ENTER DIFFERENT EPA EST MPG AND":"PRESS RETURN OR SIMPLY PRESS RETURN";:(1)8:32"";A$A$" "700A(A$)A0700A999ī700705AEPA8:329)8:32(NFC) g9l"EST. ANNUAL FUEL EXPENSE- NEW $";NFCaq:OFCGAS(MILESACT).5:OFC(OFC)gv{"EST. ANNUAL FUEL EXPENSE- OLD $";OFC:"PRESS ANY KEY TO CONTINUE";:B$: PROCEED TO REPAIRS MODULE1000"ENTER EPA):"ENTER IN FORMAT 99999 AND PRESS RETURN":(1)X(13):"ENTER ANNUAL MILES DRIVEN ";MM$:MILES(MM$):(13):(32):9):40)YMILES999999ī599ZMILES1ī599](13):(32):MILES^(23):39):(1):(14)b:NFCGAS(MILESA).5:NFCD(9):(32):ACTaI(23):39):(23):(1):"ENTER IN FORMAT 9.99 AND PRESS RETURN":(11):(1)N"ENTER FUEL COST PER GALLON ";LL$:GAS(LL$):(11):(33):8):40)OGAS999ī585PGAS0ī585S(11):(33):GAS0W(23):39):(23):(1E FUEL EXPENSE"-5"______________________"=::(8):660?(23):39):39);:(23):(1):"ENTER IN FORMAT 99 AND PRESS RETURN":(9):(1)@"ENTER ACTUAL MPG-OLD VEHICLE ";KK$:ACT(KK$):(9):(32):9):40)AACT999ī575BACT1ī575CONTINUE":B$:/ PROCEED TO FUEL MODULEL XXXXXXXXXXXXXXXXXXXXXXd CHEVY TECH| ECONOMIES- FUEL C.G.WEITZMANN XXXXXXXXXXXXXXXXXXXXXX !"ECONOMIES OF PURCHASING A NEW CHEVROLET"&:0"CALCULAT,"ADDITIONAL. SEE YOUR LOCAL CHEVROLET"W"DEALER TO MAKE YOUR BEST DEAL !!!":"THE EPA EST MPG IS THE COMBINED EPA FOR""THE VEHICLE AND SHOULD BE USED FOR""COMPARISON. YOUR MILEAGE MAY DIFFER."(23):"PRESS ANY KEY TO OUGH THE VEHICLE SELECTION PROGRAM."* Q "THE PRICE IS THE MANUFACTURER'S"} "SUGGESTED RETAIL PRICE AS OF JANUARY" "1985 AND INCLUDES DESTINATION CHARGES-":"DEALER PREP AND YOUR SELECTION OF ""OPTIONAL EQUIPMENT. TAX AND LICENSE ARE"EVY TECH$  ECONOMIES-DISCLAIMERA  C.G.WEITZMANN^  XXXXXXXXXXXXXXXXXXXXXX ::"ECONOMIES OF PURCHASING A NEW CHEVROLET" :: "THE NEW VEHICLE PRICE AND EPA EST MPG" "SHOWN IS ESTABLISHED BY YOUR LAST TIME"$ "THR , Y -SPACING CONTROL0 - OT-OLD TOTAL EXPG . NT-NEW TOTAL EXPe / P -EDITED ADJ NEW PYMTSq <D$(4) AD$;"OPEN CT.ACCUM" FD$;"READ CT.ACCUM" KCHEVY$,PR$,EPA,MP _D$;"CLOSE CT.ACCUM"  XXXXXXXXXXXXXXXXXXXXXX  CHST " MILES-EDITED ANN MILES7 # NFC-NEW FUEL COSTO $ OFC-OLD FUEL COST` % A -NEW EPA} & MO-OLD MONTHLY PAYMENT ' AMT-EDITED REPAIR EXP ( OP-OLD ANN PAYMENTS ) NP-NEW ANN PAYMENTS * VL-EDITED OLD VALUE + X -SPACING CONTROL  A$ -IP NEW EPA.  NN$-IP OLD MON PYMTSJ  OO$-IP REPAIR EXPENSE]  YR$-OLD YEARr  MDL$-OLD MODEL  VL$-OLD VALUE  AP$-ADJUSTED NEW PYMTS  EPA-AVG EPA  MP-MONTHLY PAYMENT ACT-EDITED OLD EPA ! GAS-EDITED FUEL CO *******************/ CT ECONI *******************e VARIABLE DESCRIPTIONSy D$ -CONTROL D CHEVY$-VEHICLE PR$-PRICE B$ -ANY KEY TO CONT KK$-IP OLD EPA LL$-IP FUEL COST MM$-IP ANNUAL MILES          "";A$A$" "700"A(A$)/A0700?A999ī700H705RAEPA]8:32f9)q8:32xA575 XXXXXXXXXXXXXXXXXXXXX CHEVY TECH ECONOMIES-OTHER EXP 'S C.G.WEITZMANN XXXXXXX- NEW $";NFC6q:OFCGAS(MILESACT).5:OFC(OFC)<vi{"EST. ANNUAL FUEL EXPENSE- OLD $";OFCq:"PRESS ANY KEY TO CONTINUE";:B$: PROCEED TO REPAIRS MODULE1000"ENTER MPG (EPA)-NEW VEHICLE ";EPA8:32GAS0ī585 S(11):(33):GASuX(13):"ENTER ANNUAL MILES DRIVEN ";MM$:MILES(MM$):(13):(32):9):40)YMILES999999ī600ZMILES1ī600](13):(32):MILESb:NFCGAS(MILESA).5:NFC(NFC)gl"EST. ANNUAL FUEL EXPENSE):660?(9)[@"ENTER ACTUAL MPG-OLD VEHICLE ";KK$:ACT(KK$):(9):(32):9):40)mAACT999ī575}BACT1ī575D(9):(32):ACTI(11)N"ENTER FUEL COST PER GALLON ";LL$:GAS(LL$):(11):(33):8):40)OGAS999ī585 P XXXXXXXXXXXXXXXXXXXXXX3 CHEVY TECHK ECONOMIES- FUELf C.G.WEITZMANN XXXXXXXXXXXXXXXXXXXXXX!"ECONOMIES OF PURCHASING A NEW CHEVROLET"&:0"CALCULATE FUEL EXPENSE"5"______________________"::(8*"DEALER TO MAKE YOUR BEST DEAL !!!":Y"THE EPA MPG IS THE COMBINED EPA FOR THE""VEHICLE AND SHOULD BE USED FOR""COMPARISON. YOUR MILEAGE MAY DIFFER."(23):"PRESS ANY KEY TO CONTINUE":B$: PROCEED TO FUEL MODULE THE VEHICLE SELECTION PROGRAM."& M "THE PRICE IS THE MANUFACTURER'S"y "SUGGESTED RETAIL PRICE AS OF JANUARY" "1985 AND INCLUDES YOUR SELECTION OF" "OPTIONAL EQUIPMENT. TAX AND LICENSE ARE" "ADDITIONAL. SEE YOUR LOCAL CHEVROLET"EVY TECH$  ECONOMIES-DISCLAIMERA  C.G.WEITZMANN^  XXXXXXXXXXXXXXXXXXXXXX ::"ECONOMIES OF PURCHASING A NEW CHEVROLET" :: "THE NEW VEHICLE PRICE AND EPA MPG SHOWN" "IS ESTABLISHED BY YOUR LAST TIME" "THROUGH , Y -SPACING CONTROL0 - OT-OLD TOTAL EXPG . NT-NEW TOTAL EXPe / P -EDITED ADJ NEW PYMTSq <D$(4) AD$;"OPEN CT.ACCUM" FD$;"READ CT.ACCUM" KCHEVY$,PR$,EPA,MP _D$;"CLOSE CT.ACCUM"  XXXXXXXXXXXXXXXXXXXXXX  CHST " MILES-EDITED ANN MILES7 # NFC-NEW FUEL COSTO $ OFC-OLD FUEL COST` % A -NEW EPA} & MO-OLD MONTHLY PAYMENT ' AMT-EDITED REPAIR EXP ( OP-OLD ANN PAYMENTS ) NP-NEW ANN PAYMENTS * VL-EDITED OLD VALUE + X -SPACING CONTROL):"A TEST DRIVE IS EVEN BETTER THAN A DISK":"DRIVE. SEE YOUR CHEVROLET DEALER TODAY.":Q$:::"BUCKLE UP!":6S3 S5S52 S512S54( 2380I S6$"A"ĺD$;"RUN CT PART A"k S6$"B"ĺD$;"RUN CT FINANCE" S6$"C"ĺD$;"RUN CT ECON" S6$"D"ĺD$;"RUN SERVICE COST RECORD" S6$"E"ė:::2550 D$;"BLOAD CT1 TXT.PIC,A$2000"p (21RVICE COST RECORD"* :"E. END PROGRAM"0 T (23):"PLEASE ENTER SELECTION"g B S54:16368,0q L S465 V S34122 ` S5S3Ğ j (S3):(S4) t S4S41 ~ S5S3ĝ S6(16384) S6127S6S6128:S6$(S6):16368,0::2500 S4-STROBE/VAR"  S5-STROBE/VAR@  S6-STROBE/DEC SELECTIONL dD$(4)T i:y n"DISK DRIVE TODAYS CHEVROLET": x::"A. SELECT YOUR NEW CHEVROLET" :"B. FINANCE YOUR NEW CHEVROLET" :"C. ECONOMIES IN FUEL AND REPAIRS" :"D. SEq ********************2 MAIN MENUM KELLY MELLO- CT.MAINh ******************** VARIABLE DESCRIPTION D$-CONTROL D S6$-CHAR SELECTION S1-STROBE/START LN # S2-STROBE/ADDT'L LN*2 S3-STROBE/VAR     ``@ |Fo?|Ģ8|x?~?@`~@`8`@?`p``?8b|c`Hppp|``x`@ |??<p}xpx?p|`@p`~x>|?@@xy``?@A"@@|@`|`~{`~ՀՀՠՀՀՀ~?8|xso?@?|@||``||qD| _o@h6@|`x?@``h@O?@x`x@xpx?x?|p @| z0>|x~<0`h~`@a&~~?x` |0H$A$~ՀՀрՀx?8@08|?pp `?~xx?~`|p>@||~Cx`c?p`6 ~~@pp@``p~p~p?`@$x|~?p ~x} <|c zxx`~~@6x|`@|@ m[~pG? @ap8|vp`?тՀՀՀx<pp?|f``p@pp~x?`?|`I x@ @`~O`xx|@|`@`zxrp          AD CT.TRIM"S120.A$(S),B$(S),C$(S)CA$(S)"9"ī1580\ A$(S)VE$SS1:S}(B$(S),MOD,1)"1"SS1:S(C$(S),1)"-"ĺ:C$(S):S"(2):C$(S):S,CH$;"CLOSE CT.TRIM":(22):6"PRESS ANY KEY TO CONTINUE"JIN$:::T,2))$QQ1:ACCUM$(Q)"E"Y$(S6). ***C *** MAJOR TRIMM ***`VE$"A"ī1650sVE$"D"ī1650VE$"E"ī1650VE$"B"ī1490MOD357ī1650HD$::(10):"CURRENT VEHICLE PRICE - $";A CH$;"OPEN CT.TRIM":CH$;"RES),U);" ";PR$:S"(23):@("PLEASE ENTER SELECTION"Z<S19:S2(S2)2:2340dF::wKS6$"A"ī1110PS6$AL$ī1110dS6S664B((Y$(S6),4)):AABT(Y$(S6))5Z((Y$(S6),2)):Y((Y$(S6),T,2)):TT4:X((Y$(S6),$(S),D$(S),E$(S),Y$(S) 2290V(FL$,MOD,1)"9"ĺCH$;"CLOSE CT.ENG.TRANS":1310u(FL$,MOD,1)"1"SS1:SAL$(S64)PRICE((Y$(S),4))U(Y$(S))((PRICE))1PRICE0PR$"STD":1270PR$"$"(PRICE)AL$;". ";(Y$(**MVHD$::(10):"CURRENT VEHICLE PRICE - $";A::"ENGINE OPTIONS:":OPT0v`" L TRANS DESC **EPA MPG**"j" CYL SPD CTY HWY AVG PRICE":tCH$;"OPEN CT.ENG.TRANS"~CH$;"READ CT.ENG.TRANS"S110A$(S),B$(S),C:10261021E14ĂSF(23)::"PRESS ANY KEY TO CONTINUE"LZ16368,0kIN(16384) IN127ININ128:IN$(IN):16368,0:1038 1032CTR9ī1100E0:CTR8:S0:SL::S ***T *** ENG/TRANS MENUU *֠صΠ֠صԠ֠ϠصԠ֠ϠصԠ֠ϠصԠɠزԠɠزԠ֠زԠ֠زԠ֠شԠ̠صΠزΠ֠زԠɠزԠɠزԠɠزԠɠزԠɠزΠ֠زΠɠزΠɠزΠ֠زΠ֠زԠɠزԠɠزԠɠزΠ֠زΠ֠زΠ֠زΠɠزΠɠزΠɠزԠɠزԠɠزԠɠɠزΠɠزΠɠزΠɠزΠɠزΠɠزΠɠزΠɠزԠɠزΠ̠زΠ̠زΠ    ŠԠŬԠԠŬȠ٠ΠԬͬ٠ΠǬ͠ϭŠԬҠҬñȠԠԠͬ͠Ҡͬ͠ԠȠ̯ӠҬԠӬҠנҠҬˠĠҬԠǠ̬!!                  '"NO WARRANTY FOR ANY PURPOSE ,USE ,OR":"REASON."9.'CHEVROLET DEALER TODAY.":Q$:::"BUCKLE UP!":c':"COPYRIGHT CHEVROLET MOTOR DIVISION 1985":'"APPLE IS A TRADEMARK OF":"APPLE COMPUTER INC.":'"EPSON IS A TRADE MARK OF":"EPSON AMERICA INC.":'"THIS SOFTWARE AND IT'S DISK CARRY"3$ECON"1.Q$"D"ĺ:D$;"RUN SERVICE COST RECORD"I3Q$"E"ė:::2000=::PG3:300:(1):(1)::"DISK DRIVE TODAY'S CHEVROLET"::(22):1050D$;"BLOAD ";X$;",A$2000"(21)0"A TEST DRIVE IS EVEN BETTER THAN A DISK":"DRIVE. SEE YOUR 0 Q$:::PG2:300%16368,0oQ$:::PG3:300:(1):(1)::"DISK DRIVE TODAY'S CHEVROLET"::(22)}16368,0Y4:NL4:400Q$KS$Q$"A"ĺ:D$;"RUN CT PART A"$Q$"B"ĺ:D$;"RUN CT FINANCE")Q$"C"ĺ:D$;"RUN CT S127KSKS128:KS$(KS):16368,0:,Q6PP2FPYNLPYO404dX$"CT1 TXT.PIC"uT12000:T~100TIMBRE,16:MUSICM146:T:P:90:M16368,0:::PG1:30016368,0 Q$:::PG8:300 16368,"CLOSE CT PG ";PGJ-TS122:A$(S):S^V(23):(1)::"PRESS ANY KEY TO CONTINUE";:dYx MENU STROBE P016368,0NLNL2C65QYYNL2PQĞ(Q):(C);:(1)CC1PQĝKS(16384)%K37,32,37,32,0,64,32,32,39,64,39,32,39,32,32,64,0,32,42,32,41,160,0^ 2D$;"BLOAD MUSICDRIVER"h 71000 ZTME,T:PITCH,P:MUSIC: d:D$;"BLOAD ";X$;",A$4000": ,D$;"OPEN CT PG ";PG 1D$;"READ CT PG ";PG 6S123 ;A$(S) @SED$;766:TIMBRE765 'A$(24) ( 32,0,32,32,32,37,64,37,128,0,32,32,32,39,64,39,128,0,32,32,32,41,64,41,64,0,64,42,64,46,96,44,32,37,32,39,64,41,32,41,64,39,32,37,32,36 ) 64,37,32,36,64,34 * 32,36,64,36,32,36,32,36B + 32,0,64,36,32,37,64,37,32, CONTROL VAR8 "::"CHEVY TECH LOADING...PLEASE WAIT" #:(3):(18):" ":(15):" ":(18):" "::(4):(19):" ":(7):(15) $"LET'S GET IT":(15):"TOGETHER...":(15):"BUCKLE UP!":(1) %D$(4):10000 &MUSIC7959:PITCH767:TME-CALLED SUBR  PITCH-ADDRESS2  TME-ADDRESSG  TIMBRE-ADDRESS\  T -DATA(MUSIC)q  P -DATA(MUSIC)  Y -STROBE ST LIN #  PG-PAGE #  NL-STROBE # LINES  C -STROBE VAR  Q -STROBE VAR  KS-DEC SELECTION M -LOOPEDS-CPC TSG! AND THE SANDY CORPORATION. TINA M. BARONI-TURNER IS CREDITED WITH THE ORIGINAL CONCEPT.j  VARIABLE DESCRIPTIONS D$-CONTROL D A$-SCREEN ARRAY X$-TEXT FILE NAME  Q$-SELECTION  KS$-CHAR SELECTION  MUSIC; ( ********************************O * CHEVY TECH COPYRIGHT 1984 *v * R.CAIN & SANDY CORP. * ********************************d  THIS PROGRAM IS THE RESULT OF A COLLABRATIVE EFFORT BETWEEN CHEVROLET MOTOR DIVISION, !! ! ! ! ! !!!!!!ONTHLY PAYMENT=$";PY: 8400M::"PRESS ANY KEY TO CONTINUE ";::Q$W6000]phq216,0u:"FINANCE YOUR NEW CHEVROLET"::z"A. EXAMINE ECONOMIES"::"B. RETURN TO FINANCE MENU"::"PLEASE ENTER YOUR CHOICE "Y3:NL1:400:Q$ CHEVROLET"::Yr"YOUR APPROXIMATE MONTHLY":"PAYMENT OF ";PY;" CAN BE REDUCED....":|"ENTER A VALUE OR 0 AND PRESS RETURN KEY":" EST.TRADE-IN VALUE ";TI" DOWNPAYMENT ";DPPP(TIDP):1040::"APPROXIMATE NEW M AMOUNT TO BE FINANCED ";BP$PBPJ:(10):"ENTER INTEREST RATE ";It:(10):"ENTER NUMBER OF YEARS ";Y:~"1030,::(20):"APPROXIMATE MONTHLY PAYMENT IS $";PY::6:"PRESS ANY KEY TO CONTINUE";::Q$hm:"FINANCE YOUR NEW--------":4000 8200m"EXAMPLE 10 1/2 % ENTER AS 10.5":"ENTER ANSWER AND PRESS RETURN KEY"::"LAST VEHICLE PRICED-";E$;" $";BP:"USE THIS NUMBER (Y/N)? ";:Q$Q$"Y"ĺ::"AMOUNT TO FINANCE IS $ ";BP:4095::"ENTEROUR DEALER ABOUT GMAC":"FINANCING OPTIONS FOR YOUR NEW CHEVROLET.": "CHEVYTECH FINANCE CALCULATOR":::"PRESS ANY KEY TO CONTINUE";::Q$::: ::"FINANCE YOUR NEW CHEVROLET":::"CALCULATE MONTHLY PAYMENT":"-------------------------------DIFFERENCES WITH THE":"FINANCE METHOD YOU CHOOSE. ALSO THE":"COMPUTATIONS SHOWN HERE DO NOT INCLUDE" "SUCH FACTORS AS CREDIT LIFE INSURANCE":"OR ITEMS SUCH AS TAXES THAT CAN CHANGE":"YOUR FINANCE AMOUNT AND PAYMENTS."::E :"BE SURE TO ASK YSS ANY KEY TO CONTINUE";::A$::,V6000F::D$;"RUN CT.MAIN"p ::"FINANCE YOUR NEW CHEVROLET":: "THERE ARE MANY WAYS TO COMPUTE PAYMENTS":"AND INTEREST. THE METHOD USED IN THIS":"SEGMENT IS A COMMON ONE.":g "YOU MAY FIND SOME #PY((PY5.000001E03)100)100)$/.5/;0V2 COMPUTE PRINC. GIVENr3 INTEREST,PAYMT.,TERM y4 8NY12:II100:II12BPNPY((1(1((1I)N)))I)GPN(PN)L::"APPROXIMATE AMOUNT FINANCED IS $ ";PN:"Q::"PRE1PPQĝKS(16384)KKS127KSKS128:KS$(KS):16368,0:RQ^PPPP2pPPYNLPPYy404 COMPUTE PAYMENT GIVEN INTEREST,PRINC.,TERMNY12:II100:II12PYP(I(1(1(1I)N)))RN KEY":) e"ENTER INTEREST RATE ";I:7 iI0ī98Y n"ENTER NUMBER OF YEARS ";Y:| "ENTER MONTHLY PAYMENT ";PY: 1080  MENU STROBE PP0 16368,0 NLNL2 C65 QYYNL2 PPQĞ (Q):(C);:(1)CC ]Q$"B"ī4000- ^Q$"C"ė:216,0::12007 _:81 b::"FINANCE YOUR NEW CHEVROLET"::::"CALCULATE AMOUNT TO BE FINANCED":"---------------------------------------": c98 d"EXAMPLE 10 1/2 % ENTER AS 10.5":"ENTER ANSWER AND PRESS RETUE YOUR NEW CHEVROLET"::I R"A. HOW MUCH CAN I GET FOR MY PAYMENT ?":q SN0:Y0:I0:PY0:PN0:P0:TI0:DP0 T"B. WHAT WILL THE PAYMENTS BE ?": V"C. RETURN TO MAIN MENU": Z"PLEASE ENTER YOUR CHOICE ":Y3:NL2:400:Q$KS$ \Q$"A"98OBE # LINES # PP-STROBE VAR3 $ C -STROBE VARG % Q -STROBE VAR^ & KS-DEC SELECTIONu ' T -LOOP CTRL VAR ( BP-AMOUNT TO FINANCE JD$(4) K16368,0 L MA$(24) NFL(769) OFL1Ĺ769,0:3000:4000 P3000 Q:"FINANC MPG  H$ -MONTHLY PAYMENT5  FL-MENU SKIP VARG  N -# MONTHSe  Y -STROBE ST LN/# YEARS|  I -INTEREST RATE  PY-MONTHLY PAYMENT  PN-PRINCIPAL AMOUNT  P -FIN AMT LESS TI&DP TI-TRADE IN ! DP-DOWN PAYMENT " NL-STRN CT FINANCE. *********************J VARIABLE DESCRIPTIONS^ D$ -CONTROL D A$ -SCREEN ARRAY/KEY SELCTN Q$ -CHAR SELECTION KS$-CHAR SELECTION E$ -LAST PRICED VEHICLE F$ -LAST VEHICLE PRICE  G$ -LAST EPA"" " " " " """""""""