0 'CLPLS.BA N.F. Ireland March 18, 1987
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:X=176:C=4697:D=4184:E=3728:G=6269:BO=9394
4 HR$=LEFT$(TIME$,2):IFHR$="00"THENHR$="24"
6 HR=VAL(HR$):IFHR<12ORHR=24THENGR$="Good morning!":WS$="Have a good day!":TD$="AM"ELSEIFHR>11ANDHR<19THENGR$="Good afternoon!":WS$="Have a good evening!":TD$="PM"ELSEGR$="Good evening!":WS$="Pleasant dreams!":TD$="PM"
8 IFHR>12THENHR=HR-12
10 PRINT"     ";GR$:HR$=STR$(HR)
12 READS$:READS1$:IFS$=DAY$THEN14ELSE12
14 READR$:READR1$:IFR$=LEFT$(DATE$,2)THEN16ELSE14
16 PRINT@80," Today is ";S1$;", ";R1$;" ";MID$(DATE$,4,2);", 19";RIGHT$(DATE$,2)
18 PRINT@164-LEN(HR$),"The time is";HR$;:PRINT@X-1,":";MID$(TIME$,4,5);" o'clock ";TD$
20 PRINT@240,"   ";WS$;"  Set time? (Y/N)";
22 ONINSTR(" yY",INKEY$)GOTO24,30,30:MENU
24 PRINT@X,RIGHT$(TIME$,5);:IFRIGHT$(TIME$,5)="59:59"THENFORN=0TO400:NEXT:RUN
26 IFRIGHT$(TIME$,5)="00:00"THENGOSUB70:GOTO22
28 IFRIGHT$(TIME$,5)="15:00"THENGOSUB74:GOTO22ELSEIFRIGHT$(TIME$,5)="30:00"THENGOSUB76:GOTO22ELSEIFRIGHT$(TIME$,5)="45:00"THENGOSUB78:GOTO22ELSE22
30 CLS:PRINT@45,"1. Spring..or going East"
32 PRINT@125,"2. Fall ..or going West"
34 PRINT@205,"3. Set Day, Date, Time"
36 PRINT"     Your choice:";
38 ONINSTR(" 123",INKEY$)GOTO38,40,42,50:GOTO38
40 HR=VAL(LEFT$(TIME$,2)):MS$=RIGHT$(TIME$,6):HR=HR+1:GOTO44
42 HR=VAL(LEFT$(TIME$,2)):MS$=RIGHT$(TIME$,6):HR=HR-1
44 IFHR<0THENHR=23ELSEIFHR=24THENHR=0
46 HR$=STR$(HR):HR$=RIGHT$(HR$,2):IFLEFT$(HR$,1)=" "THENHR$="0"+RIGHT$(HR$,1)
48 TIME$=HR$+MS$:RUN
50 CLS:PRINT"( Press ENTER to accept present data.)":PRINT@40,"DATE$ = ";DATE$;"   ENTER DATE$":PRINT@48,;:LINEINPUTDT$:IFDT$=""THENDT$=DATE$
52 IFLEN(DT$)<>8ORMID$(DT$,3,1)<>"/"ORMID$(DT$,6,1)<>"/"THEN50
54 PRINT@120,"DAY$ = ";DAY$;"   ENTER DAY$":PRINT@127,;:LINEINPUTDY$:IFDY$=""THENDY$=DAY$
56 IFLEN(DY$)<>3ORVAL(DY$)>0THEN54
58 PRINT@200,"TIME$ = ";TIME$;"   ENTER TIME$":PRINT@208,;:LINEINPUTTM$:IFTM$=""THENTM$=TIME$
60 IFLEN(TM$)<>8ORMID$(TM$,3,1)<>":"ORMID$(TM$,6,1)<>":"THEN58
62 TIME$=TM$:DATE$=DT$:DAY$=DY$:RUN
66 DATA"Sun","Sunday","Mon","Monday","Tue","Tuesday","Wed","Wednesday","Thu","Thursday","Fri","Friday","Sat","Saturday"
68 DATA"01","January","02","February","03","March","04","April","05","May","06","June","07","July","08","August","09","September","10","October","11","November","12","December"
70 PRINT@X,RIGHT$(TIME$,5);:SOUNDE,15:SOUNDC,15:SOUNDD,15:SOUNDG,15:PRINT@X,RIGHT$(TIME$,5);:SOUND0,20:SOUNDG,15:SOUNDD,15:SOUNDE,15:SOUNDC,15:PRINT@X,RIGHT$(TIME$,5);:SOUND0,50
72 FORN=1TOHR:SOUNDBO,20:SOUND0,28:PRINT@X,RIGHT$(TIME$,5);:NEXT:RETURN
74 PRINT@X,RIGHT$(TIME$,5);:SOUNDE,15:SOUNDC,15:SOUND0,25:RETURN
76 PRINT@X,RIGHT$(TIME$,5);:SOUNDE,15:SOUNDC,15:SOUND0,10:SOUNDE,15:PRINT@X,RIGHT$(TIME$,5);:SOUNDC,15:RETURN
78 PRINT@X,RIGHT$(TIME$,5);:SOUNDE,15:SOUNDC,15:SOUND0,10:SOUNDE,15:PRINT@X,RIGHT$(TIME$,5);:SOUNDC,15:SOUND0,10:SOUNDE,15:SOUNDC,15:RETURN