Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)

TOLLTIM

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
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