0 'SPREAD.BA 06/19/84 Copyright 1984 by Woods Martin, Houston TX 713/682-3651 Orig by Terry Dettman with ideas from Don Hergert, Gary Bender, Chris Young & Joel Hassel
200 CLOSE:PRINTSI"Cmd: Hd Ed In De Re Bl Fm Gl Pr St Me ";:U=1:E=0:GOSUB61:ONINSTR("HEIDRBFGPSM",S)+1GOSUB780,118,250,300,310,600,760,500,550,700,400,770:RETURN
550 PRINTSI"Global: O F W ";:GOSUB61:IFS="O"THENPRINTSI"Recalc Order: R C ";:GOSUB61:Z=INSTR("CR",S):IFZTHENO=Z-1ELSE780ELSEIFS="F"THENGOSUB560:G=AELSEIFS<>"W"ORR2=5THEN780ELSEC2=3-(C2=3)*(4+(7-CM)*(CM<7)):WIDTH40-40*(C2>3):GOSUB80
555 GOTO785
560 PRINTSI"Format: Decimal 0-7 or S ";:GOSUB61:A=A-47+27*(A=83):IFA<1ORA>9THENA=G:GOTO780ELSERETURN
805 CLS:U=1:RM=W/(CM+1):GOSUB795:PRINT"<ENTER or new cm?";:GOSUB61:IFKTHENIFSU="S"THENDEFSNGVELSEDEFDBLVELSEIFA<68ORA>90THENBEEP:GOTO805ELSECM=A-65:PRINT:PRINT"precision: SorD p=";:GOSUB61:SU=CHR$(83+15*(A=68)):GOTO805