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)

TIMPGM: Difference between revisions

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
(Created page with " 100 HH=0: MM=0: SS=0: TD$=" " 110 CLS 120 PRINT@6,"TIMER/CLOCK PROGRAM" 130 PRINT@64,"ENTER C TO BEGIN THE CLOCK, OR T FOR THE TIMER"; 140 INPUT CT$ 150 IF CT$="T"...")
 
(Category)
 
Line 38: Line 38:
  470 HH=1: MM1: SS=1
  470 HH=1: MM1: SS=1
  480 GOTO 290
  480 GOTO 290
[[Category:BASIC]]

Latest revision as of 21:35, 10 September 2015

100 HH=0: MM=0: SS=0: TD$="  "
110 CLS
120 PRINT@6,"TIMER/CLOCK PROGRAM"
130 PRINT@64,"ENTER C TO BEGIN THE CLOCK,      OR T FOR THE TIMER";
140 INPUT CT$
150 IF CT$="T" THEN 290
160 IF CT$="C" THEN 200
170 PRINT@160,"INVALID CLOCK OR TIMER INPUT -- TRY AGAIN"
180 FOR T=1 TO 400: NEXT T
190 PRINT@160,"": PRINT: GOTO130
200 PRINT@160,"ENTER HOURS, MINUTES, SECONDS,     AM OR PM"
210 PRINT@224,"(HH,MM,SS,AM/PM)";
220 INPUT HH,MM,SS,TD$
230 IF (HH<=-1) OR (HH>12) OR (MM<=-1) OR (MM>59) OR (SS<=-1) THEN 260
240 IF (SS>59) OR ((TD$<>"AM") AND (TD$<>"PM")) THEN 260
250 GOTO 290
260 PRINT@288,"INVALID TIME--TRY AGAIN"
270 FOR T=1 TO 400: NEXT T
280 PRINT@288,"";: PRINT: PRINT@241,"";: PRINT: GOTO200
290 REM TIMING LOOP
300 FOR HH=HH TO 12: HH$=STR$(HH)
310 FOR MM=MM TO 59: MM$=STR$(MM)
320 FOR SS=SS TO 59: SS$=STR$(SS)
330 PRINT@394,RIGHT$(HH$,2) ;":";RIGHT$(MM$,2);":";RIGHT$(SS$,2)
340 IF CT$="C" THEN PRINT@402,":";TD$
350 REM***CHANGE "T=1 TO 500" TO "T=1 TO 450" FOR COLOR COMPUTER***
360 FOR T=1 TO 500: NEXT T: SOUND 220,3
370 REM MONITOR KEYBOARD INPUT
380 A$=INKEY$
390 IF A$<>"" THEN 100
400 IF NOT(HH=11 AND MM=59 AND SS=59) THEN 430
410 IF TD$="AM" THEN TD$="PM": GOTO 430
420 TD$="AM"
430 NEXT SS: SS=1
440 SOUND 220,3
450 NEXT MM: MM=0
460 NEXT HH
470 HH=1: MM1: SS=1
480 GOTO 290