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
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