MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

TOLLTIM

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 21:37, 10 September 2015 by Polluks (talk | contribs) (Category)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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