home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / grenup.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  54 lines
  1. 10 'GRENUP.BA v1 Richard Hanson May/88      Works with GREEN2.BA if available.
  2. 20 'CLUB 100 Library 510/939-1246 BBS
  3. 30 'This program was based on REVEIL.BA     by Richard White, Portable 100 Mag      May/88.
  4. 40 'Extensive modifications were made to    fix coding errors and tune.
  5. 50 'The following line may be modified      to reflect a default wakeup time.
  6. 60 DF$="06:00:00":'...now set for 6am
  7. 70 CLS:PRINT:PRINT:A$=CHR$(27)+"p G R E N U P "+CHR$(27)+"q":PRINTTAB((45-(LEN(A$)))/2)A$
  8. 80 DIMA(66,2)
  9. 90 ONERRORGOTO530
  10. 100 PRINT:A$="- by -":PRINTTAB((40-(LEN(A$)))/2)A$
  11. 110 PRINT:A$="Richard Hanson":PRINTTAB((40-(LEN(A$)))/2)A$
  12. 120 GOSUB280
  13. 130 CLS:PRINT@125,"Include GREEN theme? (y/n)"
  14. 140 Z$=INKEY$:IFZ$=""THEN140
  15. 150 IFZ$="y"ORZ$="Y"ORZ$="n"ORZ$="N"THEN170
  16. 160 GOTO140
  17. 170 CLS:PRINT@122,"Set the alarm for (hh:mm:ss) ...or,":PRINT@162,"ENTER for default: "DF$
  18. 180 PRINT@181,"";:LINEINPUTT$
  19. 190 IFT$=""THENT$=DF$
  20. 200 CLS
  21. 210 PRINT@130,"Alarm set for: "T$;
  22. 220 PRINT@280,CHR$(27)"p ESC to quit... "CHR$(27)"q";
  23. 230 PRINT@217,TIME$
  24. 240 IFTIME$=T$THEN270
  25. 250 A$=INKEY$:IFA$=CHR$(27)THENMENU
  26. 260 GOTO230
  27. 270 CLS:PRINT@134,"GET UP, GRUNT!";:PRINT@280,CHR$(27)"p ESC to quit... "CHR$(27)"q";:GOTO330
  28. 280 FORX=0TO65
  29. 290 FORY=1TO2
  30. 300 READA(X,Y)
  31. 310 NEXTY:NEXTX
  32. 320 RETURN
  33. 330 FORZ=1TO2
  34. 340 FORN=0TO65
  35. 350 PRINT@217,TIME$;:SOUNDA(N,1),A(N,2)*2
  36. 360 A$=INKEY$:IFA$=CHR$(27)THEN510
  37. 370 NEXTN
  38. 380 NEXTZ
  39. 390 GOTO510
  40. 400 DATA 4184,4,3134,4,2484,2,3134,2,4184,4
  41. 410 DATA 4184,4,3134,4,2484,2,3134,2,4184,4
  42. 420 DATA 4184,4,3134,4,2484,2,3134,2,4184,4
  43. 430 DATA 3134,4,2484,8,3134,4
  44. 440 DATA 4184,4,3134,4,2484,2,3134,2,4184,4
  45. 450 DATA 4184,4,3134,4,2484,2,3134,2,4184,4
  46. 460 DATA 4184,4,3134,4,2484,2,3134,2,4184,4,4184,4,3134,8,0,8
  47. 470 DATA 2484,4,2484,4,2484,4,2484,4,2484,4,2092,8,2484,4
  48. 480 DATA 3134,4,2484,4,3134,4,2484,4,3134,4,2484,8,3134,4,0,1
  49. 490 DATA 2484,4,2484,4,2484,4,2484,4,2484,4,2092,8,2484,4
  50. 500 DATA 4184,4,3134,4,2484,2,3134,2,4184,4,4184,4,3134,8,0,32
  51. 510 IFZ$="n"ORZ$="N"THENMENU
  52. 520 RUN"green2
  53. 530 MENU
  54.