TOLLTIM

100 CLS: PRINT@6,"TELEPHONE TOLL/TIMER"
110 PRINT@6,"TELEPHONE TOLL/TIMER"
120 PRINT@64,"SELECT ONE OF THE FOLLOWING:"
130 PRINT@96,"1. FIRST 3-MINUTE RATE PLUS"
140 PRINT@131,"ADDITIONAL MINUTE RATE"
150 PRINT@160,"2. FIRST 1-MINUTE RATE PLUS"
160 PRINT@195,"ADDITIONAL MINUTE RATE"
170 PRINT@224,"WHICH ONE";: INPUT A$
180 IF A$="1" THEN M$="3": GOTO230
190 IF A$="2" THEN M$="1": GOTO230
200 PRINT@448,"IN=VALID SELECTION--TRY AGAIN"
210 FOR I=1 TO 300: NEXT I
220 PRINT@234,"": PRINT@448,"": GOTO170
230 CLS: PRINT@6,"TELEPHONE TOLL/TIMER"
240 PRINT@64,"FIRST "+M$+"-MINUTE RATE ";: INPUT B$
250 IF (VAL(B$)>O) AND (VAL(B$)<100) THEN B=VAL(B$): GOTO270
260 PRINT@85,"": GOTO240
270 PRINT@96,"ADDITIONAL MINUTE RATE";: INPUT B$
280 IF (VAL(B$)>0) AND (VAL(B$)<100) THEN C=VAL(B$): GOTO300
290 PRINT@119,"": GOTO270
300 PRINT@416,"PRESS ANY KEY TO BEGIN AFTER"
310 PRINT@448,"CALLING PARTY ANSWERS";: B$=INKEY$
320 IF B$="" THEN 310
325 PRINT@416,"PRESS ANY KEY TO END CHARGES": PRINT@448,"
330 REM - BEGIN TOLL/TIMER LOOP
335 T1=B
340 FOR HH=0 TO 12: HH$=STR$(HH)
350 FOR MM=0 TO 59: MM$=STR$(MM)
360 FOR SS=0 TO 59: SS$=STR$(SS)
370 PRINT@201,"TIME"+RIGHT$(HH$,2)+":"+RIGHT$(MM$,2)+":"+RIGHT$(SS$,2)
380 T2=INT(T1*100): T$=STR$(T2): L=LEN(T$)
390 PRINT@256,"TOTAL CHARGES= $"+LEFT$(T$,L-2)+"."+RIGHT$(T$,2)
400 REM ***CHANGE "T=1 TO 500" TO "T=1 TO 450" FOR COLOR COMPUTER***
410 FOR T=1 TO 500: NEXT T
420 IF SS=50 THEN SOUND 220,3
430 B$=INKEY$
440 IF B$<>"" THEN 520
450 NEXT SS: SS=1
460 SOUND 220,3
480 IF (MM<2) AND (A$="1") THEN 500
490 T1=T1+C
500 NEXT MM: MM=0
510 NEXT HH
520 PRINT@416,"ENTER R TO RESTART, OR JUST"
530 PRINT@448,"<ENTER> FOR SAME RATE";: INPUT B$
540 IF B$="R" THEN 100
550 IF B$="" THEN PRINT@206,"": PRINT@271,"": GOTO300
560 GOTO530