10REM MENU for MPG
20 MODE135
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"
60PRINT'SPC(4)" 1. MPG Calculator"
70PRINT'SPC(4)" 2. MPGs 1/2/93-10/11/
93"
80PRINT'SPC(4)" 3. MPGs / / 94- /
/94"
90PRINT'SPC(4)" 4. MPGs "
100PRINT'SPC(4)" 5. MPGs "
150PRINT'SPC(4)" I. Instructions to SA
VE screen."
170G=GET-48: IF G=25 THEN G=10
175 IF G<1 OR G>10 THEN 170
180 MODE1
190ON G GOTO 200,210,230,250,270,290,3
10,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
370MODE135:PROCinst
380 GOTO440
390DEFPROCinst
400PRINT'';CHR$(130);"To SAVE Screen"
410PRINT''" Press ESCAPE"''" Clear scr
een of unwanted bits using"''" CTRL+H(le
ft),I(right),K(up),J(down)"''" and SPACE
and DELETE to delete."''" Enter *SAVE N
ame 3000 8000"''" Use CTRL+J to scroll a
bove off screen."''" Hit RETURN"
420 PRINT''" TO LOAD -MODE1- *LO. Name
3000 -RET. or enter Name etc. in MENU"
430ENDPROC
440 PRINT" To continue press SPACE"
'" or to EXIT any key."
450 K=GET
460 IF K=32 THEN 20 ELSE CLS:PRINT'"BY
E":END