Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClrDraw
- AxesOff
- Menu("THS SCHEDULE","REGULAR",A,"2 HOUR DELAY",B,"1 HOUR EARLY DISMISSAL",C,"OGT WEEK",D,"NO SCHOOL",E
- Lbl F
- getTime->L2
- L2(1)+.01L2(2->B
- 1->A
- Repeat B>=L3(A) and B<L3(A+1) or A=~1+dim(L3
- A+1->A
- End
- Text(6A+12(A>=5)+6,150,"[<|]
- {int(L3(A+1)),100fPart(L3(A+1)),0->L1
- Repeat getKey
- getTime->L2
- L1(1)-L2(1->H
- L1(2)-L2(2->M
- L1(3)-L2(3->S
- If S!=abs(S:Then
- S+60->S:M-1->M
- End
- If M!=abs(M:Then
- M+60->M:H-1->H
- End
- H+24(H<0->H
- Text(12,180,"TIME LEFT:
- Text(24,180,H
- Text(24,200,M
- Text(24,220,S
- End
- ClrDraw:ClrHome
- Stop
- Lbl A
- Text(0,0,"REGUAR SCHEDULE
- Text(12,0,"PERIOD 1
- Text(24,0,"PERIOD 2
- Text(36,0,"PERIOD 3
- Text(48,0,"PERIOD 4
- Text(60,0,"PERIOD 5
- Text(72,0," A LUNCH
- Text(84,0," B LUNCH
- Text(96,0," C LUNCH
- Text(108,0," D LUNCH
- Text(120,0,"PERIOD 6
- Text(132,0,"PERIOD 7
- Text(12,70,"7:40-8:30
- Text(24,70,"8:40-9:30
- Text(36,70,"9:35-10:25
- Text(48,70,"10:30-11:20
- Text(60,70,"11:25-12:45
- Text(72,70,"11:25-11:55
- Text(84,70,"11:45-12:15
- Text(96,70,"12:00-12:30
- Text(108,70,"12:15-12:45
- Text(120,70,"12:50-1:40
- Text(132,70,"1:45-2:35
- {7.4,8.3,8.4,9.3,9.35,10.25,10.3,11.2,11.25,11.55,11.45,12.15,12,12.3,12.15,12.45,12.5,13.4,13.45,14.35->L3
- Goto F
- Lbl B
- Text(0,0,"2 HOUR DELAY SCHEDULE
- Text(12,0,"PERIOD 1
- Text(24,0,"PERIOD 2
- Text(36,0,"PERIOD 3
- Text(48,0,"PERIOD 4
- Text(60,0," A LUNCH
- Text(72,0," B LUNCH
- Text(84,0," C LUNCH
- Text(96,0," D LUNCH
- Text(108,0,"PERIOD 5
- Text(120,0,"PERIOD 6
- Text(132,0,"PERIOD 7
- Text(12,70,"9:40-10:10
- Text(24,70,"10:20-10:50
- Text(36,70,"10:55-11:25
- Text(48,70,"11:30-12:45
- Text(60,70,"11:30-12:00
- Text(72,70,"11:45-12:15
- Text(84,70,"12:00-12:30
- Text(96,70,"12:15-12:45
- Text(108,70,"12:50-1:20
- Text(120,70,"1:25-1:55
- Text(132,70,"2:00-2:35
- {9.4,10.1,10.2,10.5,10.55,11.25,11.3,12,11.45,12.15,12,12.3,12.15,12.45,12.5,13.2,13.25,13.55,14,14.35->L3
- Goto F
- Lbl C
- Text(0,0,"1 HOUR EARLY DISMISSAL SCHEDULE
- Text(12,0,"PERIOD 1
- Text(24,0,"PERIOD 2
- Text(36,0,"PERIOD 3
- Text(48,0,"PERIOD 4
- Text(60,0,"PERIOD 5
- Text(72,0,"PERIOD 6
- Text(84,0," A LUNCH
- Text(96,0," B LUNCH
- Text(108,0," C LUNCH
- Text(120,0," D LUNCH
- Text(132,0,"PERIOD 7
- Text(12,70,"7:40-8:25
- Text(24,70,"8:35-9:15
- Text(36,70,"9:20-10:00
- Text(48,70,"10:05-10:45
- Text(60,70,"10:50-11:30
- Text(72,70,"11:35-12:50
- Text(84,70,"11:35-12:05
- Text(96,70,"11:50-12:20
- Text(108,70,"12:05-12:35
- Text(120,70,"12:20-12:50
- Text(132,70,"12:55-1:35
- {7.4,8.25,8.35,9.15,9.2,10,10.05,10.45,10.5,11.3,11.35,12.05,11.5,12.2,12.05,12.35,12.2,12.5,12.55,13.35->L3
- Goto F
- Lbl D
- getDate->L3
- If min(L3(3)!={10,11,12,13,14:Then
- ClrDraw:ClrHome
- Disp "IT IS NOT OGT WEEK!
- Pause
- 10
- Menu("OVERIDE?","MONDAY",10,"TUESDAY/THURSDAY",11,"WEDNESDAY",12,"FRIDAY",14,"NO",XX
- Lbl XX
- Stop
- Lbl 14:Ans+2
- Lbl 12:Ans+1
- Lbl 11:Ans+1
- Lbl 10:Ans->L3(3
- End
- Text(0,0,"OGT WEEK SCHEDULE
- If 10=L3(3
- Then
- Text(0,160,"MONDAY
- Text(12,0,"TESTING
- Text(24,0,"PERIOD 1
- Text(36,0,"PERIOD 2
- Text(48,0,"PERIOD 3
- Text(60,0,"PERIOD 4
- Text(72,0," A LUNCH
- Text(84,0," B LUNCH
- Text(96,0," C LUNCH
- Text(108,0," D LUNCH
- Text(120,0,"PERIOD 5
- Text(132,0,"PERIOD 6
- Text(144,0,"PERIOD 7
- Text(12,70,"7:40-9:55
- Text(24,70,"10:00-10:30
- Text(36,70,"10:35-11:05
- Text(48,70,"11:10-11:40
- Text(60,70,"11:45-1:00
- Text(72,70,"11:45-12:15
- Text(84,70,"12:00-12:30
- Text(96,70,"12:15-12:45
- Text(108,70,"12:30-1:00
- Text(120,70,"1:05-1:35
- Text(132,70,"1:40-2:10
- Text(144,70,"2:15-2:35
- {7.4,9.55,10,10.3,10.35,11.05,11.1,11.4,11.45,12.15,12,12.3,12.15,12.45,12.3,13,13.05,13.35,13.4,14.1,14.15,14.35->L3
- Goto F
- End
- If L3(3)=11 or 13=L3(3
- Then
- Text(0,180,"TUES/THURS
- Text(12,0,"TESTING
- Text(24,0,"PERIOD 1
- Text(36,0,"PERIOD 3
- Text(48,0," A LUNCH
- Text(60,0," B LUNCH
- Text(72,0," C LUNCH
- Text(84,0," D LUNCH
- Text(96,0,"PERIOD 5
- Text(108,0,"PERIOD 7
- Text(12,70,"7:40-9:55
- Text(24,70,"10:00-11:00
- Text(36,70,"11:10-12:30
- Text(48,70,"11:10-11:40
- Text(60,70,"11:30-12:00
- Text(72,70,"11:45-12:15
- Text(84,70,"12:00-12:30
- Text(96,70,"12:35-1:35
- Text(108,70,"1:40-2:35
- {7.4,9.55,10,11,11.1,11.4,11.3,12,11.45,12.15,12,12.3,12.35,13.35,13.4,14.35->L3
- Goto F
- End
- If 12=L3(3
- Then
- Text(0,180,"WEDNESDAY
- Text(12,0,"TESTING
- Text(24,0,"PERIOD 2
- Text(36,0,"PERIOD 4
- Text(48,0," A LUNCH
- Text(60,0," B LUNCH
- Text(72,0," C LUNCH
- Text(84,0," D LUNCH
- Text(96,0,"PERIOD 5
- Text(108,0,"PERIOD 6
- Text(12,70,"7:40-9:55
- Text(24,70,"10:00-11:00
- Text(36,70,"11:10-12:30
- Text(48,70,"11:10-11:40
- Text(60,70,"11:30-12:00
- Text(72,70,"11:45-12:15
- Text(84,70,"12:00-12:30
- Text(96,70,"12:35-1:35
- Text(108,70,"1:40-2:35
- {7.4,9.55,10,11,11.1,11.4,11.3,12,11.45,12.15,12,12.3,12.35,13.35,13.4,14.35->L3
- Goto F
- End
- If 14=L3(3
- Then
- Text(0,180,"FRIDAY
- Text(12,0,"TESTING
- Text(24,0,"PERIOD 2
- Text(36,0,"PERIOD 4
- Text(48,0," A LUNCH
- Text(60,0," B LUNCH
- Text(72,0," C LUNCH
- Text(84,0," D LUNCH
- Text(96,0,"PERIOD 6
- Text(12,70,"7:40-9:55
- Text(24,70,"10:00-11:00
- Text(36,70,"11:10-12:30
- Text(48,70,"11:10-11:40
- Text(60,70,"11:30-12:00
- Text(72,70,"11:45-12:15
- Text(84,70,"12:00-12:30
- Text(96,70,"12:35-1:35
- {7.4,9.55,10,11,11.1,11.4,11.3,12,11.45,12.15,12,12.3,12.35,13.35->L3
- Goto F
- End
- Lbl E
- Disp "NO SCHOOL!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement