home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / super-alarm iii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  12.8 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.