0 'M0NEY.BA JERRY KOHL 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' Requires RATES.DO file with up to 3 ' five exchange rates. 9 CLEAR1000:MAXFILES=1:E$=CHR$(27):R$=E$+"p":N$=E$+"q":ONERRORGOTO23 10 CLS:PRINT@10,R$" MONEY CONVERSION "N$:OPEN"rates"FORINPUTAS1 11 IFEOF(1)THEN14 12 INPUT#1,A$:IFINSTR(1,A$,"$$")THEN13 13 G=G+1:D=INSTR(A$,":"):A(G)=VAL(MID$(A$,D+2)):PRINTG"."MID$(A$,3,D-3):PRINT@G*40+22,USING"####.##";A(G):GOTO11 14 CLOSE1 15 PRINT@280,R$"Fm:$"N$" "R$"To:$"N$;:PRINT@315,R$"Menu"N$;:KEYON:ONKEYGOSUB18,20,,,,,,22 16 AA$=INKEY$:GOTO16 17 LINEINPUT" ";B$:B=VAL(B$):RETURN 18 PRINT@240,SPACE$(39);:PRINT@240,R$" How many US $ to convert?:"N$;:GOSUB17:IFB<.001THEN18 19 PRINT@30,R$" From US $"N$;:FORI=1TOG:PRINT@I*40+29,USING"$$######.##";A(I)*B;:NEXT:GOTO15 20 PRINT@240,SPACE$(39);:PRINT@240,R$" How many FOREIGN $ to convert?:"N$;:GOSUB17:IFB<.001GOTO20 21 PRINT@30," "R$" To US $"N$;:FORI=1TOG:PRINT@I*40+29,USING"$$######.##";B/A(I);:NEXT:GOTO15 22 MENU 23 IFERR=52THENPRINT@82,R$" RATES.DO file is required..."N$:D$=INPUT$(1):MENU 24 IFERRTHENRESUMENEXT