home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / clpls.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  41 lines

  1. 0 'CLPLS.BA N.F. Ireland March 18, 1987
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:X=176:C=4697:D=4184:E=3728:G=6269:BO=9394
  4. 4 HR$=LEFT$(TIME$,2):IFHR$="00"THENHR$="24"
  5. 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"
  6. 8 IFHR>12THENHR=HR-12
  7. 10 PRINT"     ";GR$:HR$=STR$(HR)
  8. 12 READS$:READS1$:IFS$=DAY$THEN14ELSE12
  9. 14 READR$:READR1$:IFR$=LEFT$(DATE$,2)THEN16ELSE14
  10. 16 PRINT@80," Today is ";S1$;", ";R1$;" ";MID$(DATE$,4,2);", 19";RIGHT$(DATE$,2)
  11. 18 PRINT@164-LEN(HR$),"The time is";HR$;:PRINT@X-1,":";MID$(TIME$,4,5);" o'clock ";TD$
  12. 20 PRINT@240,"   ";WS$;"  Set time? (Y/N)";
  13. 22 ONINSTR(" yY",INKEY$)GOTO24,30,30:MENU
  14. 24 PRINT@X,RIGHT$(TIME$,5);:IFRIGHT$(TIME$,5)="59:59"THENFORN=0TO400:NEXT:RUN
  15. 26 IFRIGHT$(TIME$,5)="00:00"THENGOSUB70:GOTO22
  16. 28 IFRIGHT$(TIME$,5)="15:00"THENGOSUB74:GOTO22ELSEIFRIGHT$(TIME$,5)="30:00"THENGOSUB76:GOTO22ELSEIFRIGHT$(TIME$,5)="45:00"THENGOSUB78:GOTO22ELSE22
  17. 30 CLS:PRINT@45,"1. Spring..or going East"
  18. 32 PRINT@125,"2. Fall ..or going West"
  19. 34 PRINT@205,"3. Set Day, Date, Time"
  20. 36 PRINT"     Your choice:";
  21. 38 ONINSTR(" 123",INKEY$)GOTO38,40,42,50:GOTO38
  22. 40 HR=VAL(LEFT$(TIME$,2)):MS$=RIGHT$(TIME$,6):HR=HR+1:GOTO44
  23. 42 HR=VAL(LEFT$(TIME$,2)):MS$=RIGHT$(TIME$,6):HR=HR-1
  24. 44 IFHR<0THENHR=23ELSEIFHR=24THENHR=0
  25. 46 HR$=STR$(HR):HR$=RIGHT$(HR$,2):IFLEFT$(HR$,1)=" "THENHR$="0"+RIGHT$(HR$,1)
  26. 48 TIME$=HR$+MS$:RUN
  27. 50 CLS:PRINT"( Press ENTER to accept present data.)":PRINT@40,"DATE$ = ";DATE$;"   ENTER DATE$":PRINT@48,;:LINEINPUTDT$:IFDT$=""THENDT$=DATE$
  28. 52 IFLEN(DT$)<>8ORMID$(DT$,3,1)<>"/"ORMID$(DT$,6,1)<>"/"THEN50
  29. 54 PRINT@120,"DAY$ = ";DAY$;"   ENTER DAY$":PRINT@127,;:LINEINPUTDY$:IFDY$=""THENDY$=DAY$
  30. 56 IFLEN(DY$)<>3ORVAL(DY$)>0THEN54
  31. 58 PRINT@200,"TIME$ = ";TIME$;"   ENTER TIME$":PRINT@208,;:LINEINPUTTM$:IFTM$=""THENTM$=TIME$
  32. 60 IFLEN(TM$)<>8ORMID$(TM$,3,1)<>":"ORMID$(TM$,6,1)<>":"THEN58
  33. 62 TIME$=TM$:DATE$=DT$:DAY$=DY$:RUN
  34. 66 DATA"Sun","Sunday","Mon","Monday","Tue","Tuesday","Wed","Wednesday","Thu","Thursday","Fri","Friday","Sat","Saturday"
  35. 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"
  36. 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
  37. 72 FORN=1TOHR:SOUNDBO,20:SOUND0,28:PRINT@X,RIGHT$(TIME$,5);:NEXT:RETURN
  38. 74 PRINT@X,RIGHT$(TIME$,5);:SOUNDE,15:SOUNDC,15:SOUND0,25:RETURN
  39. 76 PRINT@X,RIGHT$(TIME$,5);:SOUNDE,15:SOUNDC,15:SOUND0,10:SOUNDE,15:PRINT@X,RIGHT$(TIME$,5);:SOUNDC,15:RETURN
  40. 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
  41.