10 im=52768   
   20 *KEY 0 *WIPE Dummy|MY|M*WIPE DATA1|MY|M
   30 @%=&2020C
   40 *FX6
   50 MODE7
   60 PROCscreen
   70 PROCmenu
   80 IFg=6THENMODE7:END
   90 IFg<>2ANDg<>3THENGOTO70
  100 IFg=3THENVDU2
  110 MODE3
  120 PROCdisplay
  130 VDU3
  140 MODE7
  150 GOTO60
  160 :
  170 DEFPROCscreen
  180 CLS
  190 PRINTCHR$32+CHR$148+STRING$(37,CHR$255)
  200 FORi=0TO1
  210 PRINTCHR$141+CHR$148+STRING$(9,CHR$255)+CHR$135+"Motoring Expenses"+CHR$148+STRING$(9,CHR$255)
  220 NEXT
  230 PRINTCHR$32+CHR$148+CHR$255+STRING$(35,CHR$175)+CHR$255
  240 FORi=1TO18
  250 PRINTCHR$32+CHR$148+CHR$255+CHR$135+STRING$(33,CHR$32)+CHR$148+CHR$255
  260 NEXT
  270 PRINTCHR$32+CHR$148+CHR$255+STRING$(35,CHR$252)+CHR$255
  280 VDU28,4,21,36,4
  290 PRINTTAB(2,1)"Vehicle :"
  300 PRINTTAB(2,2)"Registration :"
  310 VDU28,4,21,36,7
  320 ENDPROC
  330 :
  340 DEFPROCmenu
  350 CLS
  360 PRINTTAB(4,2)"1 Add new data"
  370 PRINTTAB(4,4)"2 View existing data"
  380 PRINTTAB(4,6)"3 Print existing data"
  390 PRINTTAB(4,8)"4 Calculate miles per gallon"
  400 PRINTTAB(4,10)"5 Calculate cost per mile"
  410 PRINTTAB(4,12)"6 End"
  420 REPEAT
  430 g=GET-48
  440 UNTILg<7ANDg>0
  450 IFg=1THENPROCadd
  460 IFg=2ORg=3ORg=6THENENDPROC
  470 IFg=4THENPROCmpg
  480 IFg=5THENPROCcpm
  490 ENDPROC
  500 :
  510 DEFPROCdisplay
  520 PRINT"Motoring Expences by Steve Bodman for Public Domain May 1991."
  530 PRINT
  540 PRINT"Vehicle :"
  550 PRINT"Registration :"
  560 tf=0
  570 tc=0
  580 PRINT:PRINT
  590 f=OPENIN"Data2"
  600 PRINT"   Date             Fuel     Millage        Cost"
  610 REPEAT
  620 INPUT#f,d$,a,m,c
  630 PRINTd$,a,m,c
  640 tf=tf+a
  650 tc=tc+c
  660 UNTILEOF#f
  670 CLOSE#f
  680 tm=m-im
  690 tf=tf-a
  700 PRINT
  710 PRINT"Total fuel = ";tf" litres"
  720 PRINT"Total mileage = ";tm;" miles"
  730 PRINT"Total cost = ";tc;" pounds"
  740 PRINT:PRINT"Therefore miles per gallon = ";tm/(tf/4.5);" miles per gallon"
  750 PRINT:PRINT"Therefore cost per mile = ";tc/tm;" pounds per mile"
  760 PRINT
  770 VDU3
  780 PRINT"Press a key";
  790 a=GET
  800 ENDPROC
  810 :
  820 DEFPROCmpg
  830 tf=0
  840 CLS
  850 f=OPENIN"Data2"
  860 REPEAT
  870 INPUT#f,d$,a,m,c
  880 tf=tf+a
  890 UNTILEOF#f
  900 CLOSE#f
  910 tf=tf-a
  920 tm=m-im
  930 PRINTTAB(4,5)"Miles per gallon = ";tm/(tf/4.5)
  940 PRINTTAB(2,11)"Press a key";
  950 a=GET
  960 ENDPROC
  970 :
  980 DEFPROCcpm
  990 CLS
 1000 tc=0
 1010 f=OPENIN"Data2"
 1020 REPEAT
 1030 INPUT#f,d$,a,m,c
 1040 tc=tc+c
 1050 UNTILEOF#f
 1060 CLOSE#f
 1070 tm=m-im
 1080 PRINTTAB(4,5)"Cost per mile = ";tc/tm
 1090 PRINTTAB(2,11)"Press a key";
 1100 a=GET
 1110 ENDPROC
 1120 :
 1130 DEFPROCadd
 1140 CLS
 1150 PRINT
 1160 PRINT
 1170 x=OPENOUT"Data1"
 1180 y=OPENIN"Data2"
 1190 REPEAT
 1200 INPUT#y,d$,a,m,c
 1210 PRINT#x,d$,a,m,c
 1220 UNTILEOF#y
 1230 CLOSE#y
 1240 INPUT"  Date ",d$
 1250 INPUT"  Amount of Litres ",a 
 1260 INPUT"  Clock Mileage ",m   
 1270 INPUT"  Cost (ie. 12.23) ",c 
 1280 PRINT#x,d$,a,m,c
 1290 CLOSE#x
 1300 *RENAME DATA2 DATA3
 1310 *RENAME DATA1 Data2
 1320 *RENAME DATA3 Dummy
 1330 *FX138,0,128
 1340 ENDPROC