2 SCREEN0:MAXFILES=1:CLS:C=3037:INPUT"Clear<3037>";C:CLEARC:DEFINTA-Z:DEFSTRS:CM=19:RM=20:INPUT"cm<19>";CM:INPUT"rm<20>";RM:SU="S":GOSUB800:GOSUB770:GOSUB90:GOTO70'SPAT02.WM3