10 REM *************************
   20 REM Sliding Conversion Scales
   30 REM      By Robin Nixon
   40 REM *************************
   50 REM NC200 Version
   60 REM Downloaded from Tim's Amstrad NC Users' Site
   70 REM http://www.ncus.org.uk
   80 :
   90 ON ERROR @%=fmt%:GOTO 1340
  100 VDU 26,29,0;64;:CLS:PRINT "Please wait..."
  110 PROCsetup:PROChighlight:REPEAT:PROCscan:PROCinput:UNTIL FALSE
  120 END
  130 :
  140 DEF PROCsetup
  150 fmt%=@%:@%=&2030C:input=0:scale%=1:row%=0
  160 READ lex%:DIM lex$(lex%):FOR n%=1 TO lex%:READ lex$(n%):NEXT
  170 READ max%:DIM table$(max%):DIM scale(max%):FOR n%=1 TO max%
  180   t1$=FNpad(FNconcat,22)+CHR$(179):t2$=FNpad(FNconcat,22)+CHR$(179)
  190   READ f$:scale(n%)=VAL(f$):t3$=FNpad(f$,11):table$(n%)=t1$+t2$+t3$:NEXT
  200 CLS:MOVE 0,4:DRAW 479,4:DRAW 479,59:DRAW 0,59:DRAW 0,4
  210 MOVE 123,4:DRAW 123,59:MOVE 123,43:DRAW 479,43
  220 MOVE 260,4:DRAW 260,43:MOVE 398,4:DRAW 398,43
  230 PROCwin1:PRINT TAB(1,0);CHR$(17);"Conversion Scales";CHR$(18)
  240 PRINT TAB(2,2);"Qty:";:VDU 31,1,4,65,175,66,32,61,31,1,5,66,175,65,32,61
  250 PROCwin2:VDU 31,11,0,65,31,34,0,66
  260 VDU 31,47,0,66,61,65,120,32,32,65,61,66,246
  270 PROCwin_in:CLS:PRINT input;:PROCoutput
  280 PROCwin3:PROCscreen
  290 ENDPROC
  300 :
  310 DEF PROCscan
  320 REPEAT:i%=INKEY(0):IF i%=240 AND scale%>1 PROCscroll_up
  330   IF i%=241 AND scale%<max% PROCscroll_down
  340 UNTIL i%=13:ENDPROC
  350 :
  360 DEF PROCscroll_up
  370 PROChighlight:scale%=scale%-1:row%=row%-1
  380 IF row%<0 row%=0:PROCwin3:PROCscreen
  390 PROChighlight:PROCoutput:ENDPROC
  400 :
  410 DEF PROCscroll_down
  420 PROChighlight:scale%=scale%+1:row%=row%+1
  430 IF row%=4 row%=3:PROCwin3:VDU 31,0,3,10:PRINT table$(scale%);
  440 PROChighlight:PROCoutput:ENDPROC
  450 :
  460 DEF PROCscreen
  470 FOR g%=0 TO 3:PRINT TAB(0,g%);table$(g%+scale%);:NEXT:ENDPROC
  480 :
  490 DEF PROChighlight
  500 MOVE 126,64-(row%+3)*8:PLOT 102,474,64-(row%+4)*8
  510 ENDPROC
  520 :
  530 DEF PROCinput
  540 REPEAT:UNTIL INKEY(0):PROCwin_in:CLS:INPUT""input;
  550 CLS:PRINT input;:PROCoutput:ENDPROC
  560 :
  570 DEF PROCoutput
  580 PROCwin_to:CLS:PRINT input*scale(scale%);
  590 PROCwin_from:CLS:PRINT input/scale(scale%);
  600 ENDPROC
  610 :
  620 DEF PROCwin1
  630 VDU 28,1,6,19,1:ENDPROC
  640 :
  650 DEF PROCwin2
  660 VDU 28,21,1,78,1:ENDPROC
  670 :
  680 DEF PROCwin3
  690 VDU 28,21,6,78,3:ENDPROC
  700 :
  710 DEF PROCwin_in
  720 VDU 28,7,3,19,3:ENDPROC
  730 :
  740 DEF PROCwin_to
  750 VDU 28,7,5,19,5:ENDPROC
  760 :
  770 DEF PROCwin_from
  780 VDU 28,7,6,19,6:ENDPROC
  790 :
  800 DEF FNpad(p$,p%)
  810 p$=p$+STRING$(p%-LEN(p$),CHR$(32))
  820 =p$
  830 :
  840 DEF FNconcat
  850 p$="":FOR w%=1 TO 4:READ v%:w$=lex$(v% AND 31)
  860   IF v% AND 64 w$=LEFT$(w$,LEN(w$)-1)
  870   IF v% AND 128 w$=LEFT$(w$,LEN(w$)-2)
  880   IF w$<>"" p$=p$+w$:IF w%<4 p$=p$+CHR$(32)
  890 NEXT:=p$
  900 :
  910 REM Lexicon
  920 DATA 29
  930 DATA Inches,Feet,Yards,Miles,Hectares,Acres,Gallons,Ounces
  940 DATA Pounds,Hundredweights,Long tons,Centimetres,Metres
  950 DATA Kilometres,Litres,Grammes,Kilogrammes,Tonnes,Square
  960 DATA Cubic,Nautical,UK,US,per,Minute,Hour,Pints,Kilos,cm
  970 REM Conversion Table
  980 DATA 34
  990 DATA 1,0,0,0,12,0,0,0,2.54
 1000 DATA 2,0,0,0,12,0,0,0,30.48
 1010 DATA 2,0,0,0,13,0,0,0,0.3048
 1020 DATA 3,0,0,0,13,0,0,0,0.9144
 1030 DATA 4,0,0,0,13,0,0,0,1609.3
 1040 DATA 4,0,0,0,14,0,0,0,1.609
 1050 DATA 21,4,0,0,14,0,0,0,1853.27
 1060 DATA 19,1,0,0,19,12,0,0,6.452
 1070 DATA 19,2,0,0,19,12,0,0,929.0304
 1080 DATA 19,2,0,0,19,13,0,0,0.092903
 1090 DATA 19,3,0,0,19,13,0,0,0.836
 1100 DATA 19,4,0,0,19,14,0,0,2.58999
 1110 DATA 6,0,0,0,19,13,0,0,4046.86
 1120 DATA 6,0,0,0,5,0,0,0,0.404686
 1130 DATA 6,0,0,0,19,14,0,0,0.004047
 1140 DATA 20,1,0,0,20,12,0,0,16.387
 1150 DATA 20,2,0,0,15,0,0,0,28.317
 1160 DATA 20,3,0,0,20,13,0,0,0.76
 1170 DATA 20,2,0,0,20,13,0,0,0.0283
 1180 DATA 22,27,0,0,15,0,0,0,0.5683
 1190 DATA 22,7,0,0,15,0,0,0,4.546
 1200 DATA 23,7,0,0,15,0,0,0,3.785
 1210 DATA 22,7,0,0,23,7,0,0,1.20095
 1220 DATA 8,0,0,0,16,0,0,0,28.3495
 1230 DATA 9,0,0,0,16,0,0,0,453.59237
 1240 DATA 9,0,0,0,17,0,0,0,0.45359
 1250 DATA 11,0,0,0,18,0,0,0,1.01605
 1260 DATA 11,0,0,0,17,0,0,0,1016.05
 1270 DATA 10,0,0,0,17,0,0,0,50.8
 1280 DATA 4,24,26,0,2,24,25,0,88
 1290 DATA 4,24,26,0,14,24,26,0,1.609344
 1300 DATA 4,24,22,71,14,24,79,0,0.35401
 1310 DATA 4,24,23,71,14,24,79,0,0.42514
 1320 DATA 9,24,19,129,28,24,19,29,0.0703
 1330 :
 1340 ON ERROR GOTO 1360
 1350 VDU 26:CLS:IF ERR=17 THEN CHAIN "AUTO"
 1360 REPORT:PRINT" at line ";ERL
 1370 PRINT:PRINT"Press [Function][X] for Notepad Main Menu"