0 'USA.BA - AUTHOR UNKNOWN 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS 20 R$=CHR$(27)+CHR$(112) 30 N$=CHR$(27)+CHR$(113) 40 PRINT@10,TIME$" "DATE$ 50 PRINT@204,R$" The All American Alarm Clock "N$ 60 PRINT@287,R$" Club 100 (415)939-1246 "N$; 70 PRINT@40,"Set Alarm (24 Hour Clock 00:00 - 23:59)" 80 PRINT 90 INPUT"Time: ";A$ 100 A=VAL(LEFT$(A$,2)) 110 B=VAL(RIGHT$(A$,2)) 120 IFLEN(A$)<>5ORMID$(A$,3,1)<>":"ORA>23ORB>59THENBEEP:CLS:PRINT@160,"Bad Time Format":FORA=1TO1000:NEXT:GOTO10 130 CLS 140 LINE(10,10)-(110,61),1,B 150 FORA=0TO6 160 LINE(10,10+A*2*4)-(110,13+A*2*4),1,BF 170 IFA<3THENLINE(10,14+A*2*4)-(46,17+A*2*4),1,BF 180 NEXT 190 FORC=0TO4 200 B=12+C*2*3 210 FORA=0TO6 220 LINE(6+A*6,B)-(8+A*6,B),0 230 LINE(7+A*6,B-1)-(7+A*6,B+1),0 240 NEXT 250 IFC<4THENB=15+C*2*3:FORA=1TO5:LINE(9+A*6,B)-(11+A*6,B),0:LINE(10+A*6,B-1)-(10+A*6,B+1),0:NEXT 260 NEXT 270 PRINT@60,"Alarm Set: "+A$+":00 280 PRINT@145,"Time: 290 PRINT@225,"Date: 300 PRINT@151,TIME$ 310 PRINT@231,DATE$ 320 IFTIME$<>A$+":00"THEN300 330 IFTIME$<"12"THENB$="Morning"ELSEIFTIME$<"18"THENB$="Afternoon"ELSEB$="Evening 340 PRINT@60,CHR$(27)+CHR$(75) 350 PRINT@14,"Good "B$ 360 ONERRORGOTO450 370 READA,B 380 IFA=-2ANDZ=1THEN370ELSEIFA=-2ANDZ=0THENRESTORE:Z=1:GOTO370ELSEA=A*1.2:B=B*2.8:SOUNDA,B:GOTO370 390 DATA6269,4,7456,4,9394,8,7456,8,6269,8,4697,16,3718,4,4184,4,4697,8,7456,8,6642,8,6269,16,6269,4,6269,4,3718,12 400 DATA4184,4,4697,8,4968,16,5586,4,4968,4,4697,8,4697,8,6269,8,7456,8,9394,8,0,1,-2,0 410 DATA3718,4,3718,4,3718,8,3516,8,3134,8,3134,16,3516,4,3718,4,4184,8,3718,8,3516,8,3516,16,3516,8,3718,12,4184,4 420 DATA4697,8,4968,16,5586,4,4968,4,4697,8,7456,8,6642,8,6269,16,0,1,6269,6,6269,2,4697,8,4697,8,4697,4,4968,4,5586,8,5586,8 430 DATA5586,6,5586,2,4184,8,3516,4,3718,4,4184,4,4697,4,4697,8,4968,16,0,6,6269,4,6269,4,4697,12,4184,4,3718,4,3516,4,3134,16 440 DATA0,8,4697,4,4184,4,3718,12,3516,4,4184,12,4697,4,4697,16 450 FORA=55TO5STEP-1 460 LINE(A+55,10)-(A+55,61),0 470 LINE(A+54,10)-(A+54,61) 480 LINE(A+5,10)-(A+5,61),1 490 NEXT 500 FORA=0TO25 510 LINE(10,10+A)-(60,10+A),0 520 NEXT 530 FORA=10TO60 540 LINE(A,35)-(A,61),0 550 NEXT 560 MENU