API tools faq
paste
Advertisement
Guest User

Schedule Program

a guest
Mar 5th, 2014
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.12 KB | None | 0 0
raw download clone embed print report
  1. ClrDraw
  2. AxesOff
  3. Menu("THS SCHEDULE","REGULAR",A,"2 HOUR DELAY",B,"1 HOUR EARLY DISMISSAL",C,"OGT WEEK",D,"NO SCHOOL",E
  4. Lbl F
  5. getTime->L2
  6. L2(1)+.01L2(2->B
  7. 1->A
  8. Repeat B>=L3(A) and B<L3(A+1) or A=~1+dim(L3
  9. A+1->A
  10. End
  11. Text(6A+12(A>=5)+6,150,"[<|]
  12. {int(L3(A+1)),100fPart(L3(A+1)),0->L1
  13. Repeat getKey
  14. getTime->L2
  15. L1(1)-L2(1->H
  16. L1(2)-L2(2->M
  17. L1(3)-L2(3->S
  18. If S!=abs(S:Then
  19. S+60->S:M-1->M
  20. End
  21. If M!=abs(M:Then
  22. M+60->M:H-1->H
  23. End
  24. H+24(H<0->H
  25. Text(12,180,"TIME LEFT:
  26. Text(24,180,H
  27. Text(24,200,M
  28. Text(24,220,S
  29. End
  30. ClrDraw:ClrHome
  31. Stop
  32. Lbl A
  33. Text(0,0,"REGUAR SCHEDULE
  34. Text(12,0,"PERIOD 1
  35. Text(24,0,"PERIOD 2
  36. Text(36,0,"PERIOD 3
  37. Text(48,0,"PERIOD 4
  38. Text(60,0,"PERIOD 5
  39. Text(72,0," A LUNCH
  40. Text(84,0," B LUNCH
  41. Text(96,0," C LUNCH
  42. Text(108,0," D LUNCH
  43. Text(120,0,"PERIOD 6
  44. Text(132,0,"PERIOD 7
  45. Text(12,70,"7:40-8:30
  46. Text(24,70,"8:40-9:30
  47. Text(36,70,"9:35-10:25
  48. Text(48,70,"10:30-11:20
  49. Text(60,70,"11:25-12:45
  50. Text(72,70,"11:25-11:55
  51. Text(84,70,"11:45-12:15
  52. Text(96,70,"12:00-12:30
  53. Text(108,70,"12:15-12:45
  54. Text(120,70,"12:50-1:40
  55. Text(132,70,"1:45-2:35
  56. {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
  57. Goto F
  58. Lbl B
  59. Text(0,0,"2 HOUR DELAY SCHEDULE
  60. Text(12,0,"PERIOD 1
  61. Text(24,0,"PERIOD 2
  62. Text(36,0,"PERIOD 3
  63. Text(48,0,"PERIOD 4
  64. Text(60,0," A LUNCH
  65. Text(72,0," B LUNCH
  66. Text(84,0," C LUNCH
  67. Text(96,0," D LUNCH
  68. Text(108,0,"PERIOD 5
  69. Text(120,0,"PERIOD 6
  70. Text(132,0,"PERIOD 7
  71. Text(12,70,"9:40-10:10
  72. Text(24,70,"10:20-10:50
  73. Text(36,70,"10:55-11:25
  74. Text(48,70,"11:30-12:45
  75. Text(60,70,"11:30-12:00
  76. Text(72,70,"11:45-12:15
  77. Text(84,70,"12:00-12:30
  78. Text(96,70,"12:15-12:45
  79. Text(108,70,"12:50-1:20
  80. Text(120,70,"1:25-1:55
  81. Text(132,70,"2:00-2:35
  82. {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
  83. Goto F
  84. Lbl C
  85. Text(0,0,"1 HOUR EARLY DISMISSAL SCHEDULE
  86. Text(12,0,"PERIOD 1
  87. Text(24,0,"PERIOD 2
  88. Text(36,0,"PERIOD 3
  89. Text(48,0,"PERIOD 4
  90. Text(60,0,"PERIOD 5
  91. Text(72,0,"PERIOD 6
  92. Text(84,0," A LUNCH
  93. Text(96,0," B LUNCH
  94. Text(108,0," C LUNCH
  95. Text(120,0," D LUNCH
  96. Text(132,0,"PERIOD 7
  97. Text(12,70,"7:40-8:25
  98. Text(24,70,"8:35-9:15
  99. Text(36,70,"9:20-10:00
  100. Text(48,70,"10:05-10:45
  101. Text(60,70,"10:50-11:30
  102. Text(72,70,"11:35-12:50
  103. Text(84,70,"11:35-12:05
  104. Text(96,70,"11:50-12:20
  105. Text(108,70,"12:05-12:35
  106. Text(120,70,"12:20-12:50
  107. Text(132,70,"12:55-1:35
  108. {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
  109. Goto F
  110. Lbl D
  111. getDate->L3
  112. If min(L3(3)!={10,11,12,13,14:Then
  113. ClrDraw:ClrHome
  114. Disp "IT IS NOT OGT WEEK!
  115. Pause
  116. 10
  117. Menu("OVERIDE?","MONDAY",10,"TUESDAY/THURSDAY",11,"WEDNESDAY",12,"FRIDAY",14,"NO",XX
  118. Lbl XX
  119. Stop
  120. Lbl 14:Ans+2
  121. Lbl 12:Ans+1
  122. Lbl 11:Ans+1
  123. Lbl 10:Ans->L3(3
  124. End
  125. Text(0,0,"OGT WEEK SCHEDULE
  126. If 10=L3(3
  127. Then
  128. Text(0,160,"MONDAY
  129. Text(12,0,"TESTING
  130. Text(24,0,"PERIOD 1
  131. Text(36,0,"PERIOD 2
  132. Text(48,0,"PERIOD 3
  133. Text(60,0,"PERIOD 4
  134. Text(72,0," A LUNCH
  135. Text(84,0," B LUNCH
  136. Text(96,0," C LUNCH
  137. Text(108,0," D LUNCH
  138. Text(120,0,"PERIOD 5
  139. Text(132,0,"PERIOD 6
  140. Text(144,0,"PERIOD 7
  141. Text(12,70,"7:40-9:55
  142. Text(24,70,"10:00-10:30
  143. Text(36,70,"10:35-11:05
  144. Text(48,70,"11:10-11:40
  145. Text(60,70,"11:45-1:00
  146. Text(72,70,"11:45-12:15
  147. Text(84,70,"12:00-12:30
  148. Text(96,70,"12:15-12:45
  149. Text(108,70,"12:30-1:00
  150. Text(120,70,"1:05-1:35
  151. Text(132,70,"1:40-2:10
  152. Text(144,70,"2:15-2:35
  153. {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
  154. Goto F
  155. End
  156. If L3(3)=11 or 13=L3(3
  157. Then
  158. Text(0,180,"TUES/THURS
  159. Text(12,0,"TESTING
  160. Text(24,0,"PERIOD 1
  161. Text(36,0,"PERIOD 3
  162. Text(48,0," A LUNCH
  163. Text(60,0," B LUNCH
  164. Text(72,0," C LUNCH
  165. Text(84,0," D LUNCH
  166. Text(96,0,"PERIOD 5
  167. Text(108,0,"PERIOD 7
  168. Text(12,70,"7:40-9:55
  169. Text(24,70,"10:00-11:00
  170. Text(36,70,"11:10-12:30
  171. Text(48,70,"11:10-11:40
  172. Text(60,70,"11:30-12:00
  173. Text(72,70,"11:45-12:15
  174. Text(84,70,"12:00-12:30
  175. Text(96,70,"12:35-1:35
  176. Text(108,70,"1:40-2:35
  177. {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
  178. Goto F
  179. End
  180. If 12=L3(3
  181. Then
  182. Text(0,180,"WEDNESDAY
  183. Text(12,0,"TESTING
  184. Text(24,0,"PERIOD 2
  185. Text(36,0,"PERIOD 4
  186. Text(48,0," A LUNCH
  187. Text(60,0," B LUNCH
  188. Text(72,0," C LUNCH
  189. Text(84,0," D LUNCH
  190. Text(96,0,"PERIOD 5
  191. Text(108,0,"PERIOD 6
  192. Text(12,70,"7:40-9:55
  193. Text(24,70,"10:00-11:00
  194. Text(36,70,"11:10-12:30
  195. Text(48,70,"11:10-11:40
  196. Text(60,70,"11:30-12:00
  197. Text(72,70,"11:45-12:15
  198. Text(84,70,"12:00-12:30
  199. Text(96,70,"12:35-1:35
  200. Text(108,70,"1:40-2:35
  201. {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
  202. Goto F
  203. End
  204. If 14=L3(3
  205. Then
  206. Text(0,180,"FRIDAY
  207. Text(12,0,"TESTING
  208. Text(24,0,"PERIOD 2
  209. Text(36,0,"PERIOD 4
  210. Text(48,0," A LUNCH
  211. Text(60,0," B LUNCH
  212. Text(72,0," C LUNCH
  213. Text(84,0," D LUNCH
  214. Text(96,0,"PERIOD 6
  215. Text(12,70,"7:40-9:55
  216. Text(24,70,"10:00-11:00
  217. Text(36,70,"11:10-12:30
  218. Text(48,70,"11:10-11:40
  219. Text(60,70,"11:30-12:00
  220. Text(72,70,"11:45-12:15
  221. Text(84,70,"12:00-12:30
  222. Text(96,70,"12:35-1:35
  223. {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
  224. Goto F
  225. End
  226. Lbl E
  227. Disp "NO SCHOOL!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!