10 REM" [0x16]  [0x07]  [0x0E] 
   20 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] Convert weights and measures
   30 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ƒConvert weights and measures
   40 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]      By C.J.Richardson.
   50 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]      ƒBy C.J.Richardson.
   60 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] †     For 8 Bit software.
   70 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚Use the cursors to move to the
   80 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚conversion  that  you wish  to
   90 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚make. PressRETURN.‚Follow the
  100 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08] ‚   on screen instructions.
  110 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ‚To repeat  the same conversion
  120 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ‚answer Y. ‚To  return  to the
  130 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ‚     main menu answerN.
  140 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  †------------------------------
  150 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ƒThis program is Public domain.
  160 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ƒPlease do not  alter it in any
  170 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ƒway.  If  you  use  any of the
  180 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ƒroutines,  please  mention  me
  190 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ƒin  the  titles.  Thanks,CJR.
  200 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  †------------------------------
  210 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ‚Idea from a program originally
  220 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  ‚       by John Ilsley.
  230 REM" [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  [0x08]  †------------------------------
  240 DEFFNS="CONVRS2"
  250 ON ERROR MODE128:@%=&90A:REPORT:PRINTERL:OSCLI"FX4":END
  260 @%=&0102020A
  270 *FX 4 1
  280 MODE 7:VDU23;8202;0;0;0;:P%=1:C%=0
  290 REPEAT:CLS:PROCmenu:PROCgetP:F%=0
  300 RESTORE:FORL%=1TOP%:READA$,I$,S:NEXT
  310 REPEAT:CLS
  320 IF P%=45 PROCas:F%=1
  330 IF P%=46 PROCat:F%=1
  340 IF F%<>1 PROCd("Convert "+A$+" To"):PRINT:PROCd(I$):PRINT:PROCd("How Many "+A$+"?"):INPUTTAB(13,9)"†ˆ]‰"A:PRINT
  350 IF P%=43 PROCtemp:F%=2
  360 IF P%=44 PROCtemp:F%=2
  370 IF F%=0 PROCt3
  380 PRINTTAB(0,21);:PROCd("Same again? Y/N.")
  390 UNTILGET$="N":UNTILFALSE
  400 DEFPROCd(B$):PRINTTAB(18-LENB$/2)"";B$'TAB(18-LENB$/2)"ƒ";B$:ENDPROC
  410 DEFPROCgetP
  420 REPEAT:PRINTTAB(C%,P%/2+.5)"„":IFC%=0PRINTTAB(26,P%/2+.5);"œ"
  430 A%=GET:PRINTTAB(C%,P%/2+.5)"  ":IFC%=0PRINTTAB(26,P%/2+.5);" "
  440 IF A%=139P%=P%-2
  450 IF A%=138P%=P%+2
  460 IF A%=137P%=P%+1
  470 IF A%=136P%=P%-1
  480 IFP%<1P%=46 ELSE IF P%>46 P%=1
  490 IFP%MOD2=0 C%=12 ELSE C%=0
  500 UNTILA%=13
  510 ENDPROC
  520 DEFPROCt3:PROCd("In "+STR$(A)+" "+A$):PRINT:PROCd("There Are"):PRINT:PROCd(STR$(A*S)+" "+I$):ENDPROC
  530 DEFPROCmenu:RESTORE
  540 PRINT"ƒConvert. By CJR. Origin:J.Ilsley."
  550 REPEAT:READ G$:UNTILG$="Screendat":REPEAT:READG$,H$
  560 PRINTTAB(0);TAB(2)"†";G$;TAB(14);">†";H$;TAB(27)"> ";G$:UNTILG$="Distance":PRINTTAB(15,23)" ";TAB(25,23);"† Travel time"
  570 PRINT"ƒUse cursors and return to select.";:ENDPROC
  580 DEFPROCtemp
  590 IF P%=43 B=(9/5)*A+32 ELSE B=(A-32)*5/9
  600 PRINT':PROCd(STR$(A)+" "+A$+" is:")
  610 PRINT':PROCd(STR$(B)+" "+I$)
  620 ENDPROC
  630 DEFPROCas
  640 PROCd("Fuel cost reckoner"):PRINT
  650 PROCd("Enter total distance "):INPUTTAB(13)"†ˆ]‰"D
  660 PROCd("Enter price per litre"):INPUTTAB(13)"†ˆ]‰"C
  670 PROCd("Enter your miles per litre"):INPUTTAB(13)"†ˆ]‰"Q:IFQ<=0:ENDPROC
  680 PROCd("Cost of fuel needed: `"+STR$(D/Q*C))
  690 ENDPROC
  700 DEFPROCat
  710 PROCd("Travel time reckoner."):PRINT:PROCd("Enter total distance"):PRINT':INPUTTAB(13)"†ˆ]‰"M:IFM>99999.99 M=99999.99
  720 PRINT':PROCd("Enter approximate speed"):PRINT':INPUTTAB(13)"†ˆ]‰"S:IF S>992.99 S=992.99
  730 CLS
  740 PROCd("Travel time for "+STR$M+" miles")
  750 PRINTTAB(7)"–¼¬¬¬¬¬¬¬¬¬¼¬¬¬¬¬¬¬¬¬¬¬¬¬“"
  760 PRINTTAB(7)"–µ‚Average–µ‚   Time    –µ"
  770 PRINTTAB(7)"–µ‚  MPH  –µ‚Hour:Minute–µ"
  780 PRINTTAB(7)"–½¬¬¬¬¬¬¬¬¬½¬¬¬¬¬¬¬¬¬¬¬¬¬µ"
  790 FOR L%=6TO19:T=(S-12)+L%
  800 PRINTTAB(7)"–µƒ";
  810 IF T>0 PRINTTAB(13-LEN(STR$T)/2);STR$T; ELSE PRINT" 0.00";
  820 PRINTTAB(17);"–µƒ";
  830 @%=&90A
  840 IF T>0:PRINTTAB(24-LEN(STR$INT(M/T))/2);STR$INT(M/T);":";STR$INT(((M/T)-INT(M/T))*60);
  850 IF T<=0 PRINT"   0:00";
  860 @%=&0102020A
  870 PRINTTAB(31);"–µ":NEXT
  880 PRINTTAB(7)"–££££££££££££££££££££££££”"
  890 ENDPROC
  900 DATA Inches,Centimetres,2.540,Centimetres,Inches,0.3937
  910 DATA Feet,Metres,0.3048,Metres,Feet,3.281
  920 DATA Yards,Metres,0.9144,Metres,Yards,1.094
  930 DATA Miles,Kilometres,1.6093,Kilometres,Miles,0.6214
  940 DATA Square Inches,Square Centimetres,6.452,Square Centimetres,Square Inches,0.1550
  950 DATA Square Metres,Square Feet,10.76,Square Feet,Square Metres,0.0929
  960 DATA Square Yards,Square Metres,0.8361,Square Metres,Square Yards,1.196
  970 DATA Square Miles,Square Kilometres,2.590,Square Kilometres,Square Miles,0.3861
  980 DATA Acres,Hectares,0.4047,Hectares,Acres,2.471
  990 DATA Cubic Inches,Cubic Centimetres,16.39,Cubic Centimetres,Cubic Inches,0.06102
 1000 DATA Cubic Feet,Cubic Metres,0.02832,Cubic Metres,Cubic Feet,35.31
 1010 DATA Cubic Yards,Cubic Metres,0.7646,Cubic Metres,Cubic Yards,1.308
 1020 DATA Cubic Inches,Litres,0.01639,Litres,Cubic Inches,61.024
 1030 DATA Gallons,Litres,4.546,Litres,Gallons,0.22
 1040 DATA Grains,Grammes,0.0648,Grammes,Grains,15.43
 1050 DATA Ounces,Grammes,28.3495,Grammes,Ounces,0.03527
 1060 DATA Pounds,Grammes,453.6,Grammes,Pounds,0.002205
 1070 DATA Pounds,Kilogrammes,0.4536,Kilogrammes,Pounds,2.205
 1080 DATA Tons,Kilogrammes,1016.00,Kilogrammes,Tons,0.0009842
 1090 DATA Inches,Millimetres,25.400,Millimetres,Inches,0.039
 1100 DATA Litres,Pints,1.760,Pints,Litres,0.568
 1110 DATA Degrees Farenheit,Degrees Centigrade,0,Degrees Centigrade,Degrees Farenheit,1
 1120 DATA Distance,Fuel Cost,0
 1130 DATA Time,Speed,0
 1140 DATAScreendat
 1150 DATA Inches,C/Mtrs
 1160 DATA Feet,Metres
 1170 DATA Yards,Metres
 1180 DATA Miles,K/Mtrs
 1190 DATA Sq Inches,Sq C/Mtrs
 1200 DATA Sq Mtrs,Sq Feet
 1210 DATA Sq Yards,Sq Mtrs
 1220 DATA Sq Miles,Sq K/Mtrs
 1230 DATA Acres,Hectares
 1240 DATA Cb Inches,Cb C/Mtrs
 1250 DATA Cb Feet,Cb Mtrs
 1260 DATA Cb Yards,Cb Mtrs
 1270 DATA Cb Inches,Litres
 1280 DATA Gallons,Litres
 1290 DATA Grains,Grammes
 1300 DATA Ounces,Grammes
 1310 DATA Pounds,Grammes
 1320 DATA Pounds,K/Grammes
 1330 DATA Tons,K/Grammes
 1340 DATA Inches,Mill/mtr
 1350 DATA Litres,Pints
 1360 DATA Deg F,Deg C
 1370 DATA Distance,Fuel Cost