0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 10 'REPIPE CALCULATOR 20 'BY RUSS HALL, AUGUST, 1987 30 MAXFILES=2 100 CLEAR500 120 DIMX(20),Z(20),X$(20),Y$(20) 190 PRINT 200 PRINT"INSTRUCTIONS? (Y/N)";:GOSUB1000 210 IFK$=" yes"THEN3000 220 CLS:PRINT:PRINT"ENTER RECIPE FILE NAME":INPUT"PRESS ONLY FOR 'REPIPE'";A$:IFA$=""THENA$="RECIPE" 230 OPENA$FORINPUTAS1 240 PRINT:PRINT"ENTER OUTPUT FILE NAME":INPUT"PRESS ONLY FOR 'NEWREP'";B$:IFB$=""THENB$="NEWREP" 250 OPENB$FOROUTPUTAS2 252 PRINT:INPUT"HOW MANY SERVINGS ALLOWED";A 254 PRINT:INPUT"HOW MANY SERVINGS REQUIRED";B 260 IFEOF(1)THEN300 265 ONERRORGOTO365 270 INPUT#1,X(T),X$(T) 280 T=T+1:GOTO260 300 R=T:C=B/A:ONERRORGOTO365 305 FORT=0TOR-1 310 X(T)=C*X(T):Y$(T)=LEFT$(X$(T),3) 320 IFY$(T)="tsp"ANDX(T)>3THENY$(T)="tbl":X(T)=INT((X(T)/3)*100)/100:Z(T)=1 330 IFY$(T)="tbl"ANDX(T)>4THENY$(T)="cup":X(T)=INT((X(T)/16)*100)/100:Z(T)=1 340 IFY$(T)="cup"ANDX(T)>4THENY$(T)="qts":X(T)=INT((X(T)/4)*100)/100:Z(T)=1 350 IFY$(T)="qts"ANDX(T)>7THENY$(T)="gal":X(T)=INT((X(T)/4)*100)/100:Z(T)=1 355 IFY$(T)="ozs"ANDX(T)>16THENY$(T)="lbs":X(T)=INT((X(T)/16)*100)/100:Z(T)=1 360 IFY$(T)="egg"ANDX(T)>24THENY$(T)="doz":X(T)=INT((X(T)/12)*100)/100:Z(T)=1 361 IFMID$(X$(T),4,1)=" "ORMID$(X$(T),5,1)=" "THENZ(T)=1 362 NEXT:GOTO367 365 RESUME366 366 BEEP:PRINT:PRINT"ERROR IN READING FILE...":END 367 PRINT#2," NEW RECIPE FOR"B"SERVINGS":PRINT#2,"" 370 FORT=0TOR-1 376 I=X(T):IFZ(T)=0THENZ$=X$(T):Y$(T)=" ":GOTO390 380 Z$=RIGHT$(X$(T),(LEN(X$(T))-3)):IFY$(T)="doz"THENZ$=" eggs":GOTO390 382 IFLEFT$(Z$,2)="s "THENZ$=RIGHT$(X$(T),(LEN(X$(T))-4)) 384 IFLEFT$(Z$,2)=" "THENZ$=RIGHT$(Z$,(LEN(Z$)-1)) 390 PRINT#2,USING" ###.## ";I;:PRINT#2,Y$(T);" "Z$:NEXT 400 MENU 1000 K$=INKEY$:IFK$=""THEN1000 1010 IFK$="Y"ORK$="y"THENK$=" yes":PRINTK$:GOSUB2000:RETURN 1020 IFK$="N"ORK$="n"THENK$=" no":PRINTK$:GOSUB2000:RETURN 1030 RETURN 2000 FORF=1TO150:NEXT:RETURN 3000 CLS:PRINT"Create a text file using this format:" 3010 PRINT" 4, tsp salt":PRINT" 6.5, cup flour":PRINT" 2.3, lbs meat" 3030 PRINT"Enter the comma after the amount, and fractions only in decimal form." 3040 PRINT"Please use no capitals in the quanities:tsp, tbl, cup, qts, gal, ozs or lbs."; 3050 GOSUB1000 3055 CLS:PRINT:PRINT"PRESS 'Y' IF READY TO CONTINUE...";:GOSUB1000:IFK$=" yes"THEN220ELSEMENU