10 REM MENU for MPG
   20  MODE135
   30  VDU19,0,4,0,0,0
   40 PRINT''CHR$(141);CHR$(130);SPC(1)"PETROL CONSUMPTION CALCULATOR"
   50 PRINTCHR$(141);CHR$(130);SPC(1)"PETROL CONSUMPTION CALCULATOR"'"      by WEJ"
   60 PRINT'SPC(4)" 1. MPG Calculator"
   70 PRINT'SPC(4)" 2. MPGs 1/2/93-10/11/93"
   80 PRINT'SPC(4)" 3. MPGs   / / 94-  / /94"
   90 PRINT'SPC(4)" 4. MPGs    "
  100 PRINT'SPC(4)" 5. MPGs    "
  150 PRINT'SPC(4)" I. Instructions to SAVE screen."
  170 G=GET-48: IF G=25 THEN G=10
  175  IF G<1 OR G>10 THEN 170
  180  MODE1
  190 ON G GOTO 200,210,230,250,270,290,310,330,350,370
  200  CHAIN"MPG2"
  210  *LO. C1 3000
  220  GOTO440
  230  *LO. C2 3000
  240  GOTO440
  250  *LO. C3 3000
  260  GOTO 440
  270  *LO. C4 3000
  280  GOTO440
  290  *LO. C5 3000
  300  GOTO440
  310  *LO. C6 3000
  320  GOTO440
  330  *LO. C7 3000
  340  GOTO440
  350  *LO. C8 3000
  360  GOTO440
  370 MODE135:PROCinst
  380  GOTO440
  390 DEFPROCinst
  400 PRINT'';CHR$(130);"To SAVE Screen"
  410 PRINT''" Press ESCAPE"''" Clear screen of unwanted bits using"''" CTRL+H(left),I(right),K(up),J(down)"''" and SPACE and DELETE to delete."''" Enter *SAVE Name 3000 8000"''" Use CTRL+J to scroll above off screen."''" Hit RETURN"
  420  PRINT''" TO LOAD -MODE1- *LO. Name 3000 -RET. or enter Name etc. in MENU"
  430 ENDPROC
  440  PRINT"    To continue press SPACE"'"     or to EXIT any key."
  450  K=GET
  460  IF K=32 THEN 20 ELSE CLS:PRINT'"BYE":END