%%HP: T(1)A(D)F(.);
DIR
  CAR
     TITLE PICT
STO { # 0d # 0d }
PVIEW 2 WAIT
BEGINMILES 0
      IF ==
      THEN
"Type the 1st odometer reading"
"" INPUT OBJ DUP
'MILATLAST' STO
'BEGINMILES' STO
      ELSE CLEAR
      END
"Car Care" { GAS
OIL REPAIR } 1
CHOOSE DROP EVAL
"You have gone"
CURMILES OILMILES -
STR "  miles" + ""
SWAP ""
"On this oil change."
""
      IF CURMILES
OILMILES - 3000 
      THEN
"TIME FOR A CHANGE!!!!"
      ELSE
"ENGINE IS SAFE!!!!"
      END "" 8 DISP
7 DISP 6 DISP 5
DISP 4 DISP 3 DISP
2 DISP 1 DISP 3
FREEZE
    
  GAS
    
"How much gas?" {
FILLED PARTWAY } 1
CHOOSE DROP EVAL 1
DROP
    
  OIL
    
"Odometer reading?"
"" INPUT OBJ
'OILMILES' STO
    
  FILLED
     CLEAR
"Price per gallon?"
"" INPUT OBJ
'CURPRICE' STO
"How many gallons?"
"" INPUT OBJ
'CURGALS' STO
CURGALS GALSINLAST
+ 'GALSINLAST' STO
CURGALS CUMGALLONS
+ 'CUMGALLONS' STO
CURPRICE CURGALS *
CUMPRICE +
'CUMPRICE' STO
"Odometer reading?"
"" INPUT OBJ
'CURMILES' STO
CURMILES MILATLAST
- CURMILES
'MILATLAST' STO
GALSINLAST / 2 RND
STR "      " SWAP
+ " " SWAP
"Current MPG is:"
SWAP CURMILES
BEGINMILES -
CUMGALLONS /
"Total MPG is:"
SWAP 2 RND STR
"      " SWAP +
CUMPRICE CUMGALLONS
/ 2 RND
"Average price is:"
SWAP STR "      "
SWAP + " " 0
'GALSINLAST' STO 8
DISP 7 DISP 6 DISP
5 DISP 4 DISP 3
DISP 2 DISP 1 DISP
5 WAIT
    
  PARTWAY
    
"Price per gallon?"
"" INPUT OBJ
'CURPRICE' STO
"How many gallons?"
"" INPUT OBJ
'CURGALS' STO
CURGALS CURPRICE *
CUMPRICE +
'CUMPRICE' STO
CURGALS CUMGALLONS
+ 'CUMGALLONS' STO
CURGALS GALSINLAST
+ 'GALSINLAST' STO
"Odometer reading?"
"" INPUT OBJ
'CURMILES' STO
    
  NEW
     RPAR LIST 1
+ "Enter the part:"
"" INPUT OBJ DUP
DUP "2" + OBJ
(-6.5,3.2) SWAP STO
'BLA' SWAP STO SWAP
LIST 'RPAR' STO {
CAR } ORDER REPAIR
    
  REPAIR
    
"What repair?" RPAR
1 CHOOSE DROP DUP
      IF 'NEW' SAME
      THEN EVAL
      ELSE 'EDT'
EVAL
      END
    
  EDT
    
"Enter the new repair:"
"" INPUT 1 GROB
SWAP DUP DUP STR
'TEMP' STO "2" +
SWAP EVAL SWAP OBJ
ROT GOR DUP PICT
STO TEMP OBJ STO {
# 0d # 0d } PVIEW 7
WAIT TEMP OBJ "2"
+ OBJ (0,.6) -
TEMP OBJ "2" +
UPDIR OBJ GAS STO
    
  TEMP "'TIRES'"
  BLA
GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  RPAR { NEW }
  TITLE
GROB 131 64 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000083EC3083EC3F100000000000000000000044154044154100000000000000000000004015404015410000000000000000000000401540401541000000000000000000000040FD3040FD3F000000000000000000000040151040151100000000000000000000004015204015210000000000000FFF7FFF10441540441541000000000000C00080002083154083154F100000000000300080074000000000000000000000000C000080888000000000000000000000000300008044110000000000000000000000C000008040110000000000000000000000300000804C12000000000000000000000C00000080880400002000000000000000030000008007080000200C000000000000C0000000800A371000E98C000000000000300000008002C820002A800000000000080000000080028840002A8C00000000000800000000800288800022FC000000000008000000008002078000E18000000000000800000000800200010000700000000000080000000080020002000000000000000008000000008FFFFFFFF70000000000000008000000000000000004000000000000000800000000000000000400C8453000000008000EF0000008F3000400455550000000080081030000060C0004004D5550000000080040040000010010040045945000000008002C78000080F1200400C4943000000008001FF1100048F740040000000000000008088FF320002EFF8004000000000000000808CFF720002FFF9004000000000000000804EFFF40009FFF3104000000000000000804E7CF40009F1F31040000CCCD54700008F7F38F5000DF0E710400004555D610000000F10F9FFFC70C7FF70000CC455570000000F11F1000C74C7000000045555410000000F10F1000C70C70000000C4DD5470000000F38F1000CF0E7000000000000000000000E7CF00008F1F3000000000000000000000EFFF00008FFF3000000000000000000000CFF700000FFF10000000000000000000008FF300000EFF00000000000000000000000FF100000CF700000000000000000000000C70000000F1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000066EE2AB903315CD4100000000000000000AAAA6B8A8451544510000000000000000066AAAABA86515C55100000000000000000AAAA2A8A805154451000000000000000006AEE2AB937377DDC100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  PPAR {
(-6.5,-3.1)
(6.5,3.2) X 0 (0,0)
FUNCTION Y }
  OILMILES 0
  BEGINMILES 0
  CUMGALLONS 0
  CUMPRICE 0
  CURGALS 10
  CURMILES 400
  CURPRICE 1.15
  GALSINLAST 0
  MILATLAST 0
END
