10REM MENU for MPG 20 MODE7 30 VDU19,0,4,0,0,0 40PRINT''CHR$(141);CHR$(130);SPC(1)"P ETROL CONSUMPTION CALCULATOR" 50PRINTCHR$(141);CHR$(130);SPC(1)"PET ROL CONSUMPTION CALCULATOR"'" by WE J (K2V)" 60PRINT'SPC(4)" 1. MPG Calculator" 70PRINT'SPC(4)" 2. MPGs 31/7/95-5/10/ 95" 80PRINT'SPC(4)" 3. MPGs D/M/Y - D/M/ Y" 90PRINT'SPC(4)" 4. MPGs " 100PRINT'SPC(4)" 5. MPGs " 110PRINT'SPC(4)" 9. How to use MPG" 120PRINT'SPC(4)"10. Instructions to SA VE screen." 130INPUT'SPC(4) G 140 IF G<1 OR G>10 THEN 130 150 MODE1 160ON G GOTO 170,180,200,220,240,260,2 80,300,320,420 170 CHAIN"MPG" 180 *LO. C1 3000 190 GOTO500 200 *LO. C2 3000 210 GOTO500 220 *LO. C3 3000 230 GOTO 500 240 *LO. C4 3000 250 GOTO500 260 *LO. C5 3000 270 GOTO500 280 *LO. C6 3000 290 GOTO500 300 *LO. C7 3000 310 GOTO500 320MODE7:PROCread 330 GOTO500 340DEFPROCread 350PRINT';CHR$(130);"To use MPG" 360PRINT'" Select 1 from menu."'" At p rompt, Load previous MPG file?,"'" give N for starting a new file." 370PRINT" Enter vehicle number, mileag e, date"'" and quantity filled at prompt s." 380PRINT" Enter quantity of fuel and d istance"'" travelled between fill-ups fr om"'" FULL to FULL."'" The vehicle numbe r GX1 is fictitious"'" and may be delete d after trial runs." 390PRINT" C1 is a SAVED screen which m ay be"'" overwritten with your own scree n."'" Note that the screen must be SAVED "'" every 10 fill-ups for continuity." 400PRINT" The dates of later screens a re"'" entered in MPGmenu." 410ENDPROC 420MODE7:PROCinst 430 GOTO500 440DEFPROCinst 450PRINT'';CHR$(130);"To SAVE and LOAD Screen" 460PRINT'" Press ESCAPE"''" Clear scre en of unwanted bits using"''" CTRL+H(lef t),I(right),K(up),J(down)"''" and SPACE and DELETE to delete."''" Enter *SAVE Na me 3000 8000"''" Use CTRL+J to scroll ab ove off screen."''" Hit RETURN" 470 PRINT''" TO LOAD -MODE1- *LO. Name 3000 -RET. or enter Name etc. in MPGmen u" 480PRINT 490ENDPROC 500 PRINT;CHR$(130);" To continue p ress SPACE"'CHR$(130);" or to EXIT a ny key." 510 K=GET 520 IF K=32 THEN 20 ELSE CLS:PRINT'"BY E":END