10REM" 20REM"         40REM"     60REM" For 8 Bit software. 70REM" Use the cursors to move to the 80REM" conversion that you wish to 90REM" make. Press RETURN. Follow the 100REM" on screen instructions. 110REM" To repeat the same conversio n 120REM" answer Y. To return to th e 130REM" main menu answer N. 140REM" ----------------------------- - 150REM" This program is Public domain . 160REM" Please do not alter it in an y 170REM" way. If you use any of th e 180REM" routines, please mention m e 190REM" in the titles. Thanks, CJR . 200REM" ----------------------------- - 210REM" Idea from a program originall y 220REM" by John Ilsley. 230REM" ----------------------------- - 240DEFFNS="CONVRS2" 250ON ERROR MODE128:@%=&90A:REPORT:PRI NTERL:OSCLI"FX4":END 260@%=&0102020A 270*FX 4 1 280MODE 7:VDU23;8202;0;0;0;:P%=1:C%=0 290REPEAT:CLS:PROCmenu:PROCgetP:F%=0 300RESTORE:FORL%=1TOP%:READA$,I$,S:NEX T 310REPEAT:CLS 320IF P%=45 PROCas:F%=1 330IF P%=46 PROCat:F%=1 340IF F%<>1 PROCd("Convert "+A$+" To") :PRINT:PROCd(I$):PRINT:PROCd("How Many " +A$+"?"):INPUTTAB(13,9)" ] "A:PRINT 350IF P%=43 PROCtemp:F%=2 360IF P%=44 PROCtemp:F%=2 370IF F%=0 PROCt3 380PRINTTAB(0,21);:PROCd("Same again? Y/N.") 390UNTILGET$="N":UNTILFALSE 400DEFPROCd(B$):PRINTTAB(18-LENB$/2)"  410DEFPROCgetP 420REPEAT:PRINTTAB(C%,P%/2+.5)" %=0PRINTTAB(26,P%/2+.5);" " 430A%=GET:PRINTTAB(C%,P%/2+.5)" ":IFC %=0PRINTTAB(26,P%/2+.5);" " 440IF A%=139P%=P%-2 450IF A%=138P%=P%+2 460IF A%=137P%=P%+1 470IF A%=136P%=P%-1 480IFP%<1P%=46 ELSE IF P%>46 P%=1 490IFP%MOD2=0 C%=12 ELSE C%=0 500UNTILA%=13 510ENDPROC 520DEFPROCt3:PROCd("In "+STR$(A)+" "+A $):PRINT:PROCd("There Are"):PRINT:PROCd( STR$(A*S)+" "+I$):ENDPROC 530DEFPROCmenu:RESTORE 540PRINT" Convert. By CJR. Origin:J. Ilsley." 550REPEAT:READ G$:UNTILG$="Screendat": REPEAT:READG$,H$ 560PRINTTAB(0);TAB(2)" ";G$;TAB(14);"> ";H$;TAB(27)"> ";G$:UNTILG$="Distance": PRINTTAB(15,23)" ";TAB(25,23);" Travel time" 570PRINT" Use cursors and return to select.";:ENDPROC 580DEFPROCtemp 590IF P%=43 B=(9/5)*A+32 ELSE B=(A-32) *5/9 600PRINT':PROCd(STR$(A)+" "+A$+" is:") 610PRINT':PROCd(STR$(B)+" "+I$) 620ENDPROC 630DEFPROCas 640PROCd("Fuel cost reckoner"):PRINT 650PROCd("Enter total distance "):INPU TTAB(13)" ] "D 660PROCd("Enter price per litre"):INPU TTAB(13)" ] "C 670PROCd("Enter your miles per litre") :INPUTTAB(13)" ] "Q:IFQ<=0:ENDPROC 680PROCd("Cost of fuel needed: £"+STR$ (D/Q*C)) 690ENDPROC 700DEFPROCat 710PROCd("Travel time reckoner."):PRIN T:PROCd("Enter total distance"):PRINT':I NPUTTAB(13)" ] "M:IFM>99999.99 M=99999. 99 720PRINT':PROCd("Enter approximate spe ed"):PRINT':INPUTTAB(13)" ] "S:IF S>992 .99 S=992.99 730CLS 740PROCd("Travel time for "+STR$M+" mi les") 750PRINTTAB(7)"  ,,4" 760PRINTTAB(7)"  Average  Time  770PRINTTAB(7)"  MPH  Hour:Minut e  780PRINTTAB(7)"  ,,5" 790FOR L%=6TO19:T=(S-12)+L% 800PRINTTAB(7)"  "; 810IF T>0 PRINTTAB(13-LEN(STR$T)/2);ST R$T; ELSE PRINT" 0.00"; 820PRINTTAB(17);"  "; 830@%=&90A 840IF T>0:PRINTTAB(24-LEN(STR$INT(M/T) )/2);STR$INT(M/T);":";STR$INT(((M/T)-INT (M/T))*60); 850IF T<=0 PRINT" 0:00"; 860@%=&0102020A 870PRINTTAB(31);" NEXT 880PRINTTAB(7)"  ££!" 890ENDPROC 900DATA Inches,Centimetres,2.540,Centi metres,Inches,0.3937 910DATA Feet,Metres,0.3048,Metres,Feet ,3.281 920DATA Yards,Metres,0.9144,Metres,Yar ds,1.094 930DATA Miles,Kilometres,1.6093,Kilome tres,Miles,0.6214 940DATA Square Inches,Square Centimetr es,6.452,Square Centimetres,Square Inche s,0.1550 950DATA Square Metres,Square Feet,10.7 6,Square Feet,Square Metres,0.0929 960DATA Square Yards,Square Metres,0.8 361,Square Metres,Square Yards,1.196 970DATA Square Miles,Square Kilometres ,2.590,Square Kilometres,Square Miles,0. 3861 980DATA Acres,Hectares,0.4047,Hectares ,Acres,2.471 990DATA Cubic Inches,Cubic Centimetres ,16.39,Cubic Centimetres,Cubic Inches,0. 06102 1000DATA Cubic Feet,Cubic Metres,0.0283 2,Cubic Metres,Cubic Feet,35.31 1010DATA Cubic Yards,Cubic Metres,0.764 6,Cubic Metres,Cubic Yards,1.308 1020DATA Cubic Inches,Litres,0.01639,Li tres,Cubic Inches,61.024 1030DATA Gallons,Litres,4.546,Litres,Ga llons,0.22 1040DATA Grains,Grammes,0.0648,Grammes, Grains,15.43 1050DATA Ounces,Grammes,28.3495,Grammes ,Ounces,0.03527 1060DATA Pounds,Grammes,453.6,Grammes,P ounds,0.002205 1070DATA Pounds,Kilogrammes,0.4536,Kilo grammes,Pounds,2.205 1080DATA Tons,Kilogrammes,1016.00,Kilog rammes,Tons,0.0009842 1090DATA Inches,Millimetres,25.400,Mill imetres,Inches,0.039 1100DATA Litres,Pints,1.760,Pints,Litre s,0.568 1110DATA Degrees Farenheit,Degrees Cent igrade,0,Degrees Centigrade,Degrees Fare nheit,1 1120DATA Distance,Fuel Cost,0 1130DATA Time,Speed,0 1140DATAScreendat 1150DATA Inches,C/Mtrs 1160DATA Feet,Metres 1170DATA Yards,Metres 1180DATA Miles,K/Mtrs 1190DATA Sq Inches,Sq C/Mtrs 1200DATA Sq Mtrs,Sq Feet 1210DATA Sq Yards,Sq Mtrs 1220DATA Sq Miles,Sq K/Mtrs 1230DATA Acres,Hectares 1240DATA Cb Inches,Cb C/Mtrs 1250DATA Cb Feet,Cb Mtrs 1260DATA Cb Yards,Cb Mtrs 1270DATA Cb Inches,Litres 1280DATA Gallons,Litres 1290DATA Grains,Grammes 1300DATA Ounces,Grammes 1310DATA Pounds,Grammes 1320DATA Pounds,K/Grammes 1330DATA Tons,K/Grammes 1340DATA Inches,Mill/mtr 1350DATA Litres,Pints 1360DATA Deg F,Deg C 1370DATA Distance,Fuel Cost