10 'GRENUP.BA v1 Richard Hanson May/88 Works with GREEN2.BA if available. 20 'CLUB 100 Library 510/939-1246 BBS 30 'This program was based on REVEIL.BA by Richard White, Portable 100 Mag May/88. 40 'Extensive modifications were made to fix coding errors and tune. 50 'The following line may be modified to reflect a default wakeup time. 60 DF$="06:00:00":'...now set for 6am 70 CLS:PRINT:PRINT:A$=CHR$(27)+"p G R E N U P "+CHR$(27)+"q":PRINTTAB((45-(LEN(A$)))/2)A$ 80 DIMA(66,2) 90 ONERRORGOTO530 100 PRINT:A$="- by -":PRINTTAB((40-(LEN(A$)))/2)A$ 110 PRINT:A$="Richard Hanson":PRINTTAB((40-(LEN(A$)))/2)A$ 120 GOSUB280 130 CLS:PRINT@125,"Include GREEN theme? (y/n)" 140 Z$=INKEY$:IFZ$=""THEN140 150 IFZ$="y"ORZ$="Y"ORZ$="n"ORZ$="N"THEN170 160 GOTO140 170 CLS:PRINT@122,"Set the alarm for (hh:mm:ss) ...or,":PRINT@162,"ENTER for default: "DF$ 180 PRINT@181,"";:LINEINPUTT$ 190 IFT$=""THENT$=DF$ 200 CLS 210 PRINT@130,"Alarm set for: "T$; 220 PRINT@280,CHR$(27)"p ESC to quit... "CHR$(27)"q"; 230 PRINT@217,TIME$ 240 IFTIME$=T$THEN270 250 A$=INKEY$:IFA$=CHR$(27)THENMENU 260 GOTO230 270 CLS:PRINT@134,"GET UP, GRUNT!";:PRINT@280,CHR$(27)"p ESC to quit... "CHR$(27)"q";:GOTO330 280 FORX=0TO65 290 FORY=1TO2 300 READA(X,Y) 310 NEXTY:NEXTX 320 RETURN 330 FORZ=1TO2 340 FORN=0TO65 350 PRINT@217,TIME$;:SOUNDA(N,1),A(N,2)*2 360 A$=INKEY$:IFA$=CHR$(27)THEN510 370 NEXTN 380 NEXTZ 390 GOTO510 400 DATA 4184,4,3134,4,2484,2,3134,2,4184,4 410 DATA 4184,4,3134,4,2484,2,3134,2,4184,4 420 DATA 4184,4,3134,4,2484,2,3134,2,4184,4 430 DATA 3134,4,2484,8,3134,4 440 DATA 4184,4,3134,4,2484,2,3134,2,4184,4 450 DATA 4184,4,3134,4,2484,2,3134,2,4184,4 460 DATA 4184,4,3134,4,2484,2,3134,2,4184,4,4184,4,3134,8,0,8 470 DATA 2484,4,2484,4,2484,4,2484,4,2484,4,2092,8,2484,4 480 DATA 3134,4,2484,4,3134,4,2484,4,3134,4,2484,8,3134,4,0,1 490 DATA 2484,4,2484,4,2484,4,2484,4,2484,4,2092,8,2484,4 500 DATA 4184,4,3134,4,2484,2,3134,2,4184,4,4184,4,3134,8,0,32 510 IFZ$="n"ORZ$="N"THENMENU 520 RUN"green2 530 MENU