home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / SUPER-ALARM-III (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.9 KB  |  399 lines
  1. 23 PRINT"[147]":POKE53280,0:POKE53281,0
  2. 24 PRINT TAB(8)"[211][213][208][197][210]-[193][204][193][210][205][146][150] VERSION 3"
  3. 25 PRINTTAB(7)"[151]P[158]UB[153]LI[129]C[151] D[156]OM[155]A[129]I[154]N"
  4. 26 PRINT"       [154][163][155][163][153][163][150][163][155][163][158][163] [163][153][163][155][163][149][163][150][163][163]"
  5. 27 PRINT"[158]UPDATED ON [202]ANUARY 8, 1989"
  6. 28 PRINT"[156]CREATED ON [207]CTOBER 20, 1988"
  7. 29 PRINT"[159]BY:[203]IRK [205]OOK"
  8. 30 PRINT"[159]WITH HELP FROM:[153][208]ETER [200]ITCHCOCK"
  9. 31 PRINT
  10. 34 PRINT"[212]HIS PROGRAM USES MILITARY TIME"
  11. 35 PRINT
  12. 40 PRINT"[212]O SET TIME USE 6 DIGITS."
  13. 45 PRINT"EXAMPLE: 8:05 AM WOULD BE 080500"
  14. 50 PRINT"         2:10 PM WOULD BE 141000"
  15. 54 PRINT
  16. 55 PRINT
  17. 56 PRINT"[158][[198][158]]ILE WAKE"
  18. 60 PRINT"[158][[201][158]]NSTRUCTIONS"
  19. 61 PRINT"[158][[205][158]]USIC TEST/PLAYER"
  20. 62 PRINT"[158][[193][158]]LARM TEST"
  21. 70 PRINT"[158][[215][158]]AKE TO MUSIC [193][206][217] [159].MUS FILE(S)
  22. 71 [153]"SYS[(null)SYS]EIRCING ALARM"
  23. 72 [153]"SYS[LENSYS]LOCK ONLY"
  24. 73 [153]"SYS[(null)SYS]UIT
  25. 74 GET Z$:IF Z$=""THEN 74
  26. 75 IF Z$="W"THEN GOTO 86
  27. 76 IF Z$="I"THEN GOTO 2920
  28. 77 IF Z$="F"THEN GOTO 3049
  29. 78 IF Z$="Q"THEN GOTO 3020
  30. 80 IF Z$="C"THEN GOTO 90
  31. 81 IF Z$="P"THEN GOTO 84
  32. 82 IF Z$="M"THEN GOTO 219
  33. 83 IF Z$="A"THEN GOTO 190
  34. 84 INPUT"[208]LEASE SET THE TIME TO WAKE UP.";X$
  35. 85 GOTO 150
  36. 86 INPUT"[208]LEASE SET THE TIME TO WAKE UP.";X$
  37. 90 INPUT"[208]LEASE SET TIME";TI$
  38. 91 INPUT"[151][215]ANT TO SEE THE CLOCK";A$
  39. 92 IF A$="N"THEN POKE646,0
  40. 93 IF A$="Y"THEN POKE646,8
  41. 95 PRINT"[147]"
  42. 100 PRINT"[147]";SPC(15)"";TI$
  43. 105 IF TI$=X$ THEN GOSUB 120
  44. 110 PRINT"[147]";SPC(15)"";TI$
  45. 115 GOTO 100
  46. 120 POKE 54296,15
  47. 130 RESTORE
  48. 131 GOTO 219
  49. 150 INPUT"[208]LEASE SET TIME";TI$
  50. 151 INPUT"[152][215]ANT TO SEE CLOCK";A$
  51. 152 IF A$="Y"THEN POKE646,13
  52. 153 IF A$="N"THEN POKE646,0
  53. 155 PRINT"[147]"
  54. 160 PRINT"[147]";SPC(15)"";TI$
  55. 165 IF TI$=X$ THEN GOSUB 180
  56. 170 PRINT"[147]";SPC(15)"";TI$
  57. 175 GOTO 160
  58. 180 POKE 54296,15
  59. 185 RESTORE
  60. 190 POKE 19,54:FOR I=54272TO54296:POKEI,0:NEXT:POKE54272,12
  61. 191 PRINT"[147][215][193][203][197][160][213][208]!!!"
  62. 192 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
  63. 193 POKE54273,1
  64. 194 POKE53280,0:POKE53281,0
  65. 195 FOR I=1 TO 100:POKE54273,I:NEXT
  66. 196 POKE53280,2:POKE53281,2
  67. 197 FOR I=100 TO 1 STEP-1:POKE54273,I:NEXT
  68. 198 GOTO194
  69. 219 GOTO 220
  70. 220 GOTO230
  71. 230 DIMPL$(144),PN$(144),SE(144),TX$(5):DN=8:SA=780:SX=781:SY=782:SP=783
  72. 240 GOSUB2160
  73. 250 OV$=""
  74. 260 DO$="":RO$="[146]":U$="[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  75. 270 BL$="                                       "
  76. 280 O$="                                        "
  77. 290 OO$="                                        "
  78. 300 IFF=0THENPRINTCHR$(147)
  79. 310 GOSUB590:IFF=1THEN370
  80. 320 PRINT"[147]";:POKE53280,0:POKE53281,0
  81. 330 FORS=55296TO55335:POKES,0:POKES+960,0:NEXT
  82. 340 FORS=1024TO1063:POKES,244:POKES+960,244:NEXT
  83. 350 PRINT"[144]";:A$="":GOSUB610
  84. 360 PRINTDO$;:A$="":GOSUB610
  85. 370 PRINT"":IFF=0THEN1250
  86. 375 PRINT"[147]"
  87. 377 PRINT""
  88. 380 WAIT56320,16
  89. 390 POKESS,7:Q=0
  90. 400 FORS=55296TO55335:CO=INT(1+RND(1)*14):POKES,CO:POKES+(999-Q),CO:Q=Q+2:NEXT
  91. 410 PRINT"";:IFF=0THENGOSUB640
  92. 420 PRINT"[146]";:F=1
  93. 430 PRINT"";:A$=BL$:GOSUB610
  94. 440 PRINT"";:A$=BL$:GOSUB610
  95. 450 PRINT"[145]";:FORX=1TO5:PRINTLEFT$(DO$,10+X);:A$=TX$(X):GOSUB610:NEXT
  96. 460 PRINT"                                        "
  97. 470 PRINT"";:CO=149
  98. 480 FORC=1TO9
  99. 481 POKE 53281,0:POKE 53280,0
  100. 482 FORDERT=1TO01:NEXTDERT
  101. 483 POKE 53281,1:POKE 53280,1
  102. 490 CO=INT(1+RND(1)*14):POKE646,CO:PRINTLEFT$(DO$,C+1);DO$;LEFT$(U$,C);
  103. 500 GETRE$:IFRE$=" "THENPOKESS,0:SYSDP:R=0:FORL=54276TO54296:POKEL,0:NEXT
  104. 510 IFRE$=" "THEN870
  105. 520 IFRE$<>"^"THEN550
  106. 530 POKESS,0:SYSDP:FORL=54276TO54296:POKEL,0:NEXT:F=0:SD=A
  107. 540 GOSUB590:GOTO1250
  108. 550 NEXT:PRINT"";
  109. 560 IFPEEK(SS)THEN480
  110. 570 SYSDP
  111. 580 FORL=54276TO54296:POKEL,0:NEXT:GOTO870
  112. 590 PRINT"";:FORJK=1TO23:PRINTBL$;" ";:NEXT
  113. 600 PRINT"";CHR$(142):RETURN
  114. 610 PRINTSPC(20-LEN(A$)/2)A$;:RETURN
  115. 620 RETURN
  116. 630 RETURN
  117. 640 GOSUB590:PRINT"[146]";
  118. 650 POKE646,4:GOSUB610:GOSUB620:GOSUB590:Q=0
  119. 660 FORS=55296TO55335:CO=INT(1+RND(1)*14):POKES,CO:POKES+(999-Q),CO:Q=Q+2: NEXT
  120. 670 PRINT"[158]":A$="READING DIRECTORY":GOSUB610:PRINT
  121. 680 X=1:OPEN15,8,15,"I0":CLOSE15:A$=""
  122. 690 OPEN8,8,0,"$0":FORC=1TO8:GET#8,A$:NEXT:C=1:DN$="":FORC=1TO16
  123. 700 GET#8,A$:DN$=DN$+A$:NEXT:GET#8,A$:GET#8,A$:GET#8,A$
  124. 710 DN$=DN$+A$:GET#8,A$:DN$=DN$+A$:GET#8,A$:GET#8,A$:DN$=DN$+"/"+A$
  125. 720 GET#8,A$:DN$=DN$+A$:GET#8,A$:C=1:PRINT"DISK TITLE ---> [156]"DN$:PRINT
  126. 730 FORH=1TO4:GET#8,A$:NEXT
  127. 740 GET#8,A$:IFST<>0THEN860
  128. 750 IFA$=""THEN860
  129. 760 IFASC(A$)<>34THEN740
  130. 770 GET#8,A$:IFASC(A$)<>34THENPN$=PN$+A$:GOTO770
  131. 780 GET#8,A$:IFASC(A$)=32THEN780
  132. 790 GET#8,A$:IFA$<>""THEN790
  133. 800 PRINTLEFT$(DO$,16);"                                      ";
  134. 810 A$="    "+ PN$:PRINT"[145]";:GOSUB610
  135. 820 IFRIGHT$(PN$,4)<>".MUS"THEN840
  136. 830 PL$(X)=PN$:X=X+1
  137. 840 PN$=""
  138. 850 IFST=0THEN730
  139. 860 CLOSE8:A=X:NS=A-1
  140. 870 GOSUB590:PRINT"";
  141. 880 IFSK=1THEN1920
  142. 890 IFFY=1THEN1890
  143. 900 IFFG=1THEN1870
  144. 910 IFFR=1THENGOSUB1740:GOTO1250
  145. 920 GOSUB590
  146. 930 V=1:NS=A-1:Q=0:NP=INT((A-1)/26)+1:PG=0:FORI=1TOA:SE(I)=.:NEXT
  147. 940 FORS=55296TO55335:CO=INT(1+RND(1)*14):POKES,CO:POKES+(999-Q),CO:Q=Q+2:NEXT
  148. 950 PRINT"[154]";:EP=26*PG+26:IFPG=NP-1THENEP=(A-1)
  149. 960 FORCA=PG*26+1TOEP
  150. 970 IFCA>(PG*26+13)THENPRINTLEFT$(OV$,CA+10-(26*PG));:GOTO990
  151. 980 PRINTLEFT$(DO$,CA-(26*PG)+4);
  152. 990 PRINT""CHR$(CA+64-(26*PG))RO$+" ";
  153. 1000 IFSE(CA)THENPRINT"";
  154. 1010 PRINTLEFT$(PL$(CA),LEN(PL$(CA))-4)"[154]"
  155. 1020 NEXT
  156. 1030 PRINTLEFT$(DO$,21);
  157. 1050 PRINTLEFT$(DO$,23);
  158. 1060 A$="   RETURN[158]=MENU   SPACE[158]=DONE"
  159. 1070 IFCA>26THENA$="F7[158]=MORE"+A$
  160. 1080 GOSUB610
  161. 1090 PRINT"[156]";
  162. 1100 GETAN$:IFAN$=""THEN1100
  163. 1110 IFAN$="[136]"THENPG=PG+1:IFPG>(NP-1)THENPG=0
  164. 1120 IFAN$="[136]"THENGOSUB590:GOTO950
  165. 1130 IFAN$=CHR$(13)THENGOSUB590:GOSUB1250
  166. 1140 IFAN$=" "ANDV=1THENGOSUB590:GOTO1250
  167. 1150 IFAN$=" "THENFORT=1TOV:PL$(T)=PN$(T):NEXT:A=V-1:FY=1:GOTO1800
  168. 1160 REM DONE CHOOSING
  169. 1170 IFASC(AN$)<65ORASC(AN$)>90THEN1100
  170. 1180 N=ASC(AN$)-64+(26*PG):PN$(V)=PL$(N):SE(N)=1
  171. 1190 IFN>CA-1THEN1100
  172. 1200 IFN<1THEN1100
  173. 1210 IFN>(PG*26+13)THEN1230
  174. 1220 FORI=55418TO55434:POKEI+(N-(26*PG))*40,1:NEXT:GOTO1240
  175. 1230 FORI=55437TO55453:POKEI+(N-13-(26*PG))*40,1:NEXT
  176. 1240 V=V+1:GOTO1100
  177. 1250 TT=0:PRINT"[158]";:CLOSE15
  178. 1260 FORS=55296TO55335:POKES,0:POKES+960,0:NEXT
  179. 1270 PRINTCHR$(14):PRINT"";
  180. 1350 PRINTOO$
  181. 1450 POKE646,H:H=H+1:IFH=16THENH=2
  182. 1460 GOTO 1520
  183. 1470 POKE646,14
  184. 1480 IFA$="1"THENFR=1:SK=0:FG=0:FY=0:GOTO640
  185. 1490 IFA$="2"THENSK=0:FG=0:FY=0:SD=0:FR=0:GOTO1570
  186. 1500 IFA$="3"THENSK=0:FG=0:FR=0:FY=0:GOTO640
  187. 1510 IFA$="4"THENSK=1:GOTO1570
  188. 1520 SD=0:SK=0:FR=0:FY=0:FG=1:GOTO640
  189. 1530 IFA$="6"THENSD=0:SK=0:FR=0:FY=0: FP=1:GOTO1570
  190. 1540 IFA$="7"THENGOSUB590:PRINT"[147][158]";CHR$(142):END
  191. 1570 GOSUB590:A$="READING DIRECTORY FILE.....":PRINT"":GOSUB610:CLOSE8
  192. 1580 OPEN15,8,15,"I0:":OPEN8,8,8,"SIDCAT,S,R":INPUT#15,Y,B$,C,D:CLOSE15
  193. 1590 IFY=62THEN1620
  194. 1600 IFFP=1THENCLOSE4:OPEN4,4,7
  195. 1610 CLOSE8:OPEN8,8,8,"SIDCAT,S,R": PRINT""
  196. 1620 IFY=62THENPRINT"":A$="YOU MUST CREATE A FILE FIRST":GOSUB610:CLOSE8
  197. 1630 IFY=62THEN FORDE=1TO2000: NEXTDE:GOSUB590:CLOSE15:GOTO1250
  198. 1640 INPUT#8,DN$:IFFP=1THENPRINT#4," ":PRINT#4,DN$:PRINT#4," "
  199. 1650 INPUT#8,A
  200. 1660 FORWE=1TOA
  201. 1670 INPUT#8,PL$(WE)
  202. 1680 IFFP=1THENPRINT#4,PL$(WE)
  203. 1690 NEXT
  204. 1700 IFFP=1THENFP=0:PRINT#4," ":PRINT#4," ":CLOSE4:CLOSE8:GOSUB590:GOTO1250
  205. 1710 IFSK=1THENCLOSE8:CLOSE15:GOTO1800
  206. 1720 CLOSE8:CLOSE15:A=A+1:GOTO920
  207. 1740 GOSUB2820:GOSUB590
  208. 1750 A$="WRITING DIRECTORY FILE":GOSUB610:CLOSE8:OPEN15,8,15,"S0:SIDCAT"
  209. 1760 CLOSE15:OPEN8,8,8,"SIDCAT,S,W"
  210. 1770 PRINT#8,DN$:PRINT#8,A-1
  211. 1780 FORQW=1TOA-1:PRINT#8,PL$(QW):NEXT
  212. 1790 CLOSE8:R=0:GOSUB590:RETURN
  213. 1800 GOSUB590:F=1:SD=1
  214. 1810 PT$=LEFT$(PL$(SD),LEN(PL$(SD))-4):F=1:REM PT$=FILE NAME TO PRINT
  215. 1820 PRINT"[158]";:A$="[SPACE] WILL GO TO NEXT SONG":GOSUB610
  216. 1830 PRINTLEFT$(DO$,19);:A$="^ = NEW SID-DISK":GOSUB610
  217. 1840 PRINT"";:A$="LOADING "+PT$:GOSUB610:CF=FRE(0)
  218. 1850 F$=PL$(SD):LA=PEEK(49)+256*PEEK(50)+1000:GOSUB1940:REM LOAD SONG
  219. 1860 SYSHK:POKESX,LO:POKESY,HI:SYSPL:GOSUB2040:GOTO310
  220. 1870 IFFG=1THENSD=SD+1:IFSD>A-1THEN1250
  221. 1880 IFFG=1THEN1810
  222. 1890 IFFY=1THENSD=SD+1
  223. 1900 IFSD>ATHEN1250
  224. 1910 GOTO1810
  225. 1920 SD=SD+1:IFSD>ATHENGOTO1250
  226. 1930 GOTO1810
  227. 1940 POKESA,1:POKESX,DN:POKESY,0:SYS65466:GOSUB1980
  228. 1950 HI=INT(LA/256):LO=LA-256*HI
  229. 1960 POKESA,0:POKESX,LO:POKESY,HI:SYS65493:IFPEEK(SP)AND1THEN2000
  230. 1970 LA=PEEK(SX)+256*PEEK(SY):RETURN
  231. 1980 FORK=1TOLEN(F$):POKE584+K,ASC(MID$(F$,K)):NEXT
  232. 1990 POKESA,LEN(F$):POKESX,73:POKESY,2:SYS65469:RETURN
  233. 2000 P=PEEK(SA):PRINT"[147] ERROR: ";:IFP=4THENPRINT"FILE NOT FOUND":END
  234. 2010 IFP=5THENPRINT"DEVICE NOT PRESENT":END
  235. 2020 PRINTST:END
  236. 2040 FORI=1TO5:TX$(I)="":NEXT:CT=0
  237. 2050 TX=PEEK(SX)+256*PEEK(SY)
  238. 2060 CT=CT+1:IFCT>5THENRETURN
  239. 2070 PX=PEEK(TX):IFPX=0THENRETURN
  240. 2080 IFPX=13THENTX=TX+1:GOTO2060
  241. 2090 IFPX=32THENTX=TX+1:GOTO2070
  242. 2100 IFPX=34THENPX=39
  243. 2110 TX$(CT)=TX$(CT)+CHR$(PX):TX=TX+1:IFLEN(TX$(CT))>39THEN2060
  244. 2120 PX=PEEK(TX):IFPX=0THENRETURN
  245. 2130 IFPX=13THENTX=TX+1:GOTO2060
  246. 2140 IFPX=34THENPX=39
  247. 2150 GOTO2110
  248. 2160 SS=49152:HK=49423:PL=49446:DP=49620:PRINT"[147]PLEASE WAIT..."
  249. 2170 P1=PEEK(648):POKE648,192 :A$=CHR$(34)+CHR$(34)+CHR$(20)
  250. 2180 POKE53280,8:PRINT"";:PRINT:PRINT:PRINT:PRINT
  251. 2190 PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@[204]F[194][146][204]X[197][163][193][146]@@[201][192][201][192][201][192][146][160]ABD@GNA@[191][146]@BDEG";
  252. 2200 PRINT"IK^XK[146][190][186][146]F,[179][166]O[184][146].FNV_(3=[200][212][161][174][189]L[146][184][164][208]<(T@@BCEGH";
  253. 2210 POKE53280,7:POKE648,193:PRINT:PRINT:PRINT"";
  254. 2220 PRINT"JLMOQR@[160][146]@DHL[185][146]@[181][146][184]"A$"[146]B=[146]SC][192][192]=>[192]][146]SC[202][208][177]N[146]@[192][146][216]";
  255. 2230 PRINT"[160])[146]@M[146]@[192]F[187]D[188] 8Y[146]@[192]H[208][186]M[146]U[212]M[146]V[212])[146]HM[146]\[192]M[146]W[212]M[146]][192]M[146]X";
  256. 2240 PRINT"[212])PM[146]^[192])[146]LM[146]_[192])[212]E[190]"A$"[146]B)[146]A][146]![192])[146]D][146]'[192]=[146]H[193]][146][190][192]";
  257. 2250 PRINT"=[205][192]E[189])[146]@(Q[189][200]Q[189][200]Q[189])[146]H][146]N[192]][146][163][192][200]Q[189][200]Q[189])[146][192]][146]Q[192]Q[189])[146] ][146]T";
  258. 2260 PRINT"[192][200]Q[189])[181]][146]W[192][200]Q[189][202][146]P8%[187][146]X[169]FE[189])[146]@*([146][165][188]E[190]][146][178][192]][146][184][192]%[189]][146][175]";
  259. 2270 PRINT"[192]][146][181][192][146]X[177][187]E[189]%[190][200][146][177][187][200][168][160][146]C[208][160]&[189]([146][160][184]-[193][192]M[146]TC-[194][192]M[146]UC[216][160]-[146]M";
  260. 2280 PRINT"[220]-[146]@[192][146]0"A$"I@([146])G[176][146]X[216]L[146]@[192])[212]E[188][146][216]"A$"[146]C=[146]Z[192]";
  261. 2290 POKE53280,6:POKE648,194:PRINT:PRINT:PRINT"";
  262. 2300 PRINT"][146]U[212][202][146]P[183])[212]E[188][176][146][180][168][146]0[172]-[146]@[192][146]=[202][192][176][146]+=[205][192]E[187]=[146]E[192] [146]@Q[187]=[146]H";
  263. 2310 PRINT"[192][200]Q[187]=[146]K[192][200]Q[187]=[146]N[192][200]Q[187]=[146]T[192][200][200]Q[187]=[146]W[192][200]Q[187][168][160][146]C[208][200]-[146]Q[192].[146]R[192],";
  264. 2320 PRINT"[146]S[192]M[146]D[212]N[146]K[212]L[146]R[212]"A$"[146]@-[146]@[192][146]=[202][192][176][146]MN[146] [192][146] 9[192]-[146]@[192][146])";
  265. 2330 PRINT"[184][208][146]M[168][160][146]C[208][166]-[146]@[192][146])[191],)[146]HM[146]@[192][146][172][193][192][146][172][195][192][255][146]![192][176][146][209]=[146]$[192]";
  266. 2340 PRINT"[146]0[179][208][146]P=[146]'[192][221][146]![192]P[146]H=[146]Q[192][146])[190]][146]Q[192]=[146]*[192][176][146][214]J=[146]E[192]0[146]1[189]-";
  267. 2350 PRINT"[192]][146]E[192](=[146]H[192][146][189]0[192]][146]H[192][146][200]X[221][146][212][192][146][168][189][146][215][192]P[146]3=[146][212][192]][146]E[192]=[146][215]";
  268. 2360 PRINT"[192]][146]H[192])[146]@][146]*[192][146]XP[146]_[176][146][181][189][146]-[192]][146]E[192]=[146]H[192][189][146]0[192]][146]H[192]=[146][212][192]";
  269. 2370 PRINT"[221][146]E[192]=[146][215][192][189][146]H[192]0[205]P[146][165]=[146]3[192]";
  270. 2380 POKE53280,5:POKE648,195:PRINT:PRINT:PRINT"";
  271. 2390 PRINT"[176][146][160] [146]@[255][146]6[192][208][146]1=[146]9[192][146]]<[192][208][146][=[146][197][192]][146]?[192]][146]6[192]=[146]3[192][146]J=[146][194]";
  272. 2400 PRINT"[192]P[146]D[201][191][146][169]@][146]3[192][208][146]P=[146]?[192]][146]6[192]X[146]8[189][146]3[192]][146]3[192][201][146]@PAH[146]X[189]9";
  273. 2410 PRINT"[192]][146]9[192][146][200]X[146][189]<[192]][146]<[192]([146][168]XP[146]B[176][146][200][189][212][192]][146]E[192]X[146][189][215][192]][146]H[192]=[146][218]";
  274. 2420 PRINT"[192][176][146]PX[189]K[192]][146]K[192]=[146][221][192][146][189]N[192]][146]N[192] [146]@=[146][169][192][176][146]\PA[200][146]X[173]Z[192][146][200])G";
  275. 2430 PRINT"M[146]Z[192][146][168][170][202][202]X[185]F[193][146]X[173][[192]M[146][[192][146][172][195][192]=[146][175][192]E[189]=[146][178][192]E[190][208][146]F[172][197][192][146] <";
  276. 2440 PRINT"[192]-[146]@[192][146]=[202][192][176][178] [146]@1[189]E[191][200]1[189](%[189][146]X[169]BE[189]][146][175][192]%[190][146][169]@E[190]][146][178][192]%[191][146])";
  277. 2450 PRINT"C[208][210]=[146][212][192]][146]E[192]=[146][215][192]][146]H[192]X][146]B[192][146])8[202][202][202][189][200][192]E[189]X[146])[192][146]J**(9[207][192]";
  278. 2460 PRINT"E[190]";
  279. 2470 POKE53280,4:POKE648,196:PRINT:PRINT:PRINT"";
  280. 2480 PRINT"=[146]B[192][146])G[176][146][166][176]T(9[210][192][146][165][190][146]X[189][203][192][146]PEX[169]L[166][189][201][146]LP[146]D[169][146]L[198][189]E[190](%";
  281. 2490 PRINT"[191][146][200]9[166][192]E[191]9[218][192]$[189]H[146]0F[198][191][146][170]H[146]P[186][146]X[189][206][192]][146][212][192]%[191][146][189][209][192]][146][215][192][146][168]E";
  282. 2500 PRINT"[191][146])\[176]6=[146]-[192][146]]0[192][176][146]V=[146]E[192][221][146][212][192]=[146]H[192][189][146][215][192])[190][146][170]][146]*[192]P[146]Q[176]";
  283. 2510 PRINT"[146][202]][146]*[192]=[146][212][192]][146]E[192]=[146][215][192]][146]H[192]=[146]$[192][146]J[208][146]5=[146][218][192][176][146]L=[146][160][192]][146]K";
  284. 2520 PRINT"[192]=[146][163][192]][146]N[192]=[146][166][192][176][146]O$[189][146]X[185][178][192]$[190][146]X[185][186][192][146]XP[146]H=[146][169][192][176][146]K=[146][172]";
  285. 2530 PRINT"[192]M[146][[192])[146]@M[146]Z[192]%[191]([146]) E[191]X[146])[192]][146]$[192]X[146])\[202][202](-[146]_[192]H[176][146]\-[146]^";
  286. 2540 PRINT"[192][208][146]A8H[176][146]F[170]0[146]1H[208][186]$[191]E[191][176][146]G[202]0[146]%[165][191]0[146]$][146]![192]=[146]Q[192][146])[182]][146]Q";
  287. 2550 PRINT"[192][146]8=[146]B[192][146])G[208]";
  288. 2560 POKE53280,3:POKE648,197:PRINT:PRINT:PRINT"";
  289. 2570 PRINT"[146]C[190]$[192]=[146]Q[192][146][169]@][146]Q[192][146][172][197][192])[146]P,)[146]XM[146]@[192][146][160]X[146][200]%[191][146][202]0[146][176][202][202]";
  290. 2580 PRINT"0[146]^[202]0[146]N][146][163][192]][146]N[192][146][168]][146][160][192]][146]K[192][146][160][202]P[146]BI[184]][146][209][192][146][168]][146][206][192]";
  291. 2590 PRINT"[146][160][202]P[146]K[202][168]0[146]F][146][172][192]M[146][[192][146][160]([176][146]"A$"[168]H[176][146]#H[176][146]$H[176][146]%H[176][146]2H";
  292. 2600 PRINT"[176][146]3H[176][146]<H[176][146]=H[176][146][217]H[176][146][218]H[176][146][219][172][199][192][146][168]M[146]^[192][146][160]M[146]_[192][146][160]][146]'[192]";
  293. 2610 PRINT"[146][160]][146][187][192]%[189]][146][181][192]%[190]][146][184][192][146][160]0[146][213]M[146]A[192][146][160]][146][218][192][146]JP[146]AHX][146][221][192]";
  294. 2620 PRINT"[146][160]][146][169][192][146][160]([208][146]D][146]3[192][146][160]][146][194][192]<[146]3[192][208][146]O][146]3[192]X][146]9[192]][146]<[192])[146]A";
  295. 2630 PRINT"][146]6[192][146][160]][146][197][192][146][160]][146][166][192][146][160][202]P[146]B[200][146]X[200])G[185]L[193]][146][200][192][146][168][202][202][202]X[185]M[193]]";
  296. 2640 PRINT"[146][203][192][146][160][202]P[146]H][146]0[192][146][168]][146]-[192][146][160][168][202]0[146][213][202]0[146]%[202]0[146]E[202] [176][208][146]F";
  297. 2650 POKE53280,10:POKE648,198:PRINT:PRINT:PRINT"";
  298. 2660 PRINT"JJJJ [146]OE[191]X0[146]I=T[192][146]E[191]][146]T[192][146][160]=W[192][146]E[191]][146]W[192][146][160][202]0[146],[202]0[146][210]E";
  299. 2670 PRINT"[191]=[146][190][192][221][146]I[193][176][146][194][190][146][190][192](%[189]YA[192]%[190]YM[192]$[191]9)[192][176][146]*E[190]9Y[192]E[189][146][160]0[146][195][202]0";
  300. 2680 PRINT"[146]4(%[189]YY[192]%[190]Y)[192]=[146][190][192][221][146]I[193][176][146]M[190][146][190][192]()[146]@YM[192][146][160])[146]0,)[146](M[146]@";
  301. 2690 PRINT"[192][146][160]JJJJ[205]\[192][146])[176][146][205]\[192]P[146][175][205]][192][146])O[205]][192]M[146]][192][146][160][202][202]0[146][163][202]([176][146]WH";
  302. 2700 PRINT"[176][146]*H[176][146]6H[176][146]>H[176][146][198]-[146]][192][146])[191]P[146][178]I@0[146][174],[146]][192]0[146]G[200]X[146])O[208][146]G";
  303. 2710 PRINT"[160]X[146])O[176][146]DHL[146]][192][146][160]=[202][192][146][201][191][146]-\[192]P[146]$][202][192]0[146]_=[146]Q[192][146])[187]P[146]2I";
  304. 2720 PRINT"D0[146].=[146]Q[192][146])[189]P[146]'IB0[146]#-[146]\[192][146])[183]P[146]BIHM[146]\[192][146][160][202]0[146]'[202]0[146]T";
  305. 2730 PRINT"[208][146]B)[146]H";
  306. 2740 POKE53280,15:POKE648,199:PRINT:PRINT:PRINT"";
  307. 2750 PRINT"JJJJ[221]Q[192][146])[176][146][221]Q[192]][146]Q[192][146][160]JJJJ[205]][192][146])[176][205]][192]M[146]][192][146][160][202]([208][146]U=[146][187]";
  308. 2760 PRINT"[192][176][146]E[255][146][187][192][176][146]J=[146][181][192]E[189]=[146][184][192]E[190][146][160]H[208][146] =[146][190][192][221][146]H[193][176][146]R[255][146][190][192]";
  309. 2770 PRINT"(H9M[192][176][146]GE[190]9A[192]E[189][146][160])[146] M[146]@[192][146][160]-[146]@[192][146][221][202][192]M[146]@[192]HXQ[187][200]Q[187][146][160] ";
  310. 2780 POKE648,P1:PRINT""
  311. 2790 POKE49664,157:POKE49920,240:POKE50176,189:POKE53280,14
  312. 2800 RETURN
  313. 2830 GETA$:IFA$=""THEN2830
  314. 2840 IFA$="N"THENRETURN
  315. 2850 IFA$="Y"THEN2870
  316. 2860 GOTO2830
  317. 2870 GOSUB590:PRINT"SORTING  "
  318. 2880 FORI=1TO NS-1:FORJ=I+1TONS
  319. 2890 PRINT"";I;J
  320. 2900 IFPL$(J)<=PL$(I)THENTE$=PL$(J):PL$(J)=PL$(I):PL$(I)=TE$
  321. 2910 NEXT:NEXT:RETURN
  322. 2920 PRINT"[147]"
  323. 2925 PRINT TAB(15)"[129][201][206][211][212][210][213][195][212][201][207][206][211][146]"
  324. 2930 PRINT
  325. 2935 PRINT
  326. 2940 PRINT"[156][205]USIC TESTER/PLAYER, [158]AND [156]ALARM TEST"
  327. 2942 PRINT"ARE SO YOU MAY ADJUST YOUR VOLUME FOR"
  328. 2944 PRINT"YOUR WAKE-UP[156]."
  329. 2946 PRINT"[212]HE MUSIC TESTER/PLAYER WILL"
  330. 2948 PRINT"AUTOMATICALLY PLAY ALL .MUS[156] FILES ON"
  331. 2950 PRINT"YOUR DISK...SO YOU MUST[146] LEAVE A DISK"
  332. 2952 PRINT"IN YOUR DRIVE!"
  333. 2954 PRINT"[217]OU MAY ALSO USE IT AS A MUSIC-PLAYER[156],"
  334. 2956 PRINT"IT WILL PLAY [193][204][204] [158].MUS[156] FILES FROM THE"
  335. 2958 PRINT"FIRST [156]TO THE LAST[156]."
  336. 2960 PRINT"[193]FTER YOU TEST OUT EITHER THE [153]MUSIC[156] OR"
  337. 2962 PRINT"THE [153]PEIRCING ALARM[156], SIMPLY RESET YOUR"
  338. 2964 PRINT"COMPUTER, AND WITH YOUR VOLUME ADJUSTED"
  339. 2966 PRINT",SELECT YOUR FAVORITE WAKE-UP[156]!"
  340. 2968 PRINT
  341. 2970 PRINT TAB(10)"[200]IT [158]1 TO CONTINUE[146]"
  342. 2972 GET F$:IF F$=""THEN 2972
  343. 2974 IF F$="1" THEN GOTO 2980
  344. 2980 PRINT"[147][159][217]OU MAY NOW WAKE TO ANY[159] PROGRAM"
  345. 2982 PRINT"YOU WISH!  [211]IMPLY TYPE IN THE PROGRAM"
  346. 2984 PRINT"NAME WHEN YOU SELLECT FILE WAKE[156], AND"
  347. 2986 PRINT"WHEN YOU WISH TO WAKE-UP, [149][211][213][208][197][210]-[193][204][193][210][205][156]"
  348. 2988 PRINT"WILL LOAD AND RUN THAT PROGRAM."
  349. 2990 PRINT
  350. 2992 PRINT
  351. 2994 PRINT"[212]HIS PROGRAM IS [158]PUBLIC DOMAIN[158]"
  352. 2996 PRINT"[156][201] DON'T ASK FOR ANY MONEY[156] FOR IT,"
  353. 2998 PRINT"BUT IF YOU HAVE ANY QUESTIONS OR"
  354. 3000 PRINT"[156] OR WOULD LIKE TO TRADE, WRITE ME AT:"
  355. 3004 PRINT
  356. 3005 PRINT TAB(5)"5607 [194]EAR RD. [195]-6"
  357. 3006 PRINT TAB(5)"[206]ORTH [211]YRACUSE, [206][217] 13212"
  358. 3007 PRINT
  359. 3008 PRINT TAB(9)"[155][200]IT [158][195][155] TO CONTINUE"
  360. 3010 GET C$:IF C$=""THEN 3010
  361. 3012 IF C$="C"THEN GOTO 5500
  362. 3020 SYS58266
  363. 3028 PRINT TAB(5)"[212]HANK YOU FOR USING [211]UPER-[193]LARM."
  364. 3038 END
  365. 3049 GET B$
  366. 3050 INPUT"[151][215]HAT PROGRAM [151]TO WAKE TO";B$
  367. 3054 INPUT"[208]LEASE SET THE TIME TO WAKE UP.";X$
  368. 3055 INPUT"[208]LEASE SET TIME";TI$
  369. 3056 INPUT"[151][215]ANT TO SEE THE CLOCK";A$
  370. 3057 IF A$="Y"THEN POKE646,11
  371. 3058 IF A$="N"THEN POKE646,0
  372. 3060 PRINT"[147]"
  373. 3065 PRINT"[147]";SPC(15)"";TI$
  374. 3070 IF TI$=X$ THEN GOSUB 3085
  375. 3075 PRINT"[147]";SPC(15)"";TI$
  376. 3080 GOTO 3065
  377. 3085 POKE 54296,15
  378. 3090 RESTORE
  379. 5006 LOAD B$,8,1,:LOAD
  380. 5500 PRINT"[147]     [150][211]UPER-[193]LARM [201][201] [153]WAS COMPILED"
  381. 5505 PRINT"AND HAD SOME BUGS IN IT, BUT SINCE THIS"
  382. 5510 PRINT"ONE IS IN BASIC [153]FORMAT, IT WORKS FINE!"
  383. 5520 PRINT"[211]O YOU MAY STOP THE SOUND OF THE ALARMS"
  384. 5525 PRINT"[201] HAVE ALLOWED THE [158]RUNSTOP[153] KEY TO"
  385. 5530 PRINT"WORK.  [194]UT ONCE THAT KEY IS PRESSED,"
  386. 5535 PRINT"THE SOUND CONTINUES, SO JUST HIT"
  387. 5540 PRINT"THE RUNSTOP[153] KEY AND RESTORE[153] AT"
  388. 5545 PRINT"THE SAME TIME.  [212]HE PROGRAM WILL"
  389. 5550 PRINT"STILL BE IN MEMORY, SO YOU JUST"
  390. 5555 PRINT"HAVE TO TYPE [158]RUN[153]."
  391. 5557 PRINT"[198]OR VERSION THREE [201] HAVE ADDED"
  392. 5559 PRINT"AN OPTION NOT TO HAVE THE CLOCK"
  393. 5561 PRINT"ON THE SCREEN.  [201] ALSO ADDED A"
  394. 5563 PRINT"BETTER ENDING SCREEN."
  395. 5565 PRINT
  396. 5570 PRINT TAB(8)"[200]IT [158][210][146] TO RETURN TO MAIN MENU"
  397. 5575 GET U$:IF U$=""THEN5575
  398. 5580 IF U$="R"THEN GOTO 23
  399.