"":53280,0:53281,0D 8)"-͒ VERSION 3"h7)"PUBLIC DOMAIN"" ""UPDATED ON ANUARY 8, 1989""CREATED ON CTOBER 20, 1988""BY:IRK OOK" "WITH HELP FROM:ETER ITCHCOCK" E ""HIS PROGRAM USES MILITARY TIME"K #l ("O SET TIME USE 6 DIGITS." -"EXAMPLE: 8:05 AM WOULD BE 080500" 2" 2:10 PM WOULD BE 141000" 6 7 8"[ƞ]ILE WAKE" <"[ɞ]NSTRUCTIONS" ="[͞]USIC TEST/PLAYER"0 >"[]LARM TEST"] F"[מ]AKE TO MUSIC .MUS FILE(S)y G"[О]EIRCING ALARM" H"[Þ]LOCK ONLY" I"[ў]UIT J Z$: Z$"" 74 K Z$"W" 86 L Z$"I" 2920 M Z$"F" 3049 N Z$"Q" 3020 P Z$"C" 90/ Q Z$"P" 84C R Z$"M" 219W S Z$"A" 190 T"LEASE SET THE TIME TO WAKE UP.";X$ U 150 V"LEASE SET THE TIME TO WAKE UP.";X$ Z"LEASE SET TIME";TI$ ["ANT TO SEE THE CLOCK";A$ \ A$"N" 646,0 ] A$"Y" 646,8$ _""C d"";15)"";TI$X i TI$X$ 120w n"";15)"";TI$ s 100 x 54296,15 219 "LEASE SET TIME";TI$ "ANT TO SEE CLOCK";A$ A$"Y" 646,13 A$"N" 646,0 ""+ "";15)"";TI$@ TI$X$ 180_ "";15)"";TI$i 160x 54296,15~ 19,54: I5427254296:I,0::54272,12 "Š!!!" 54296,15:54277,0:54278,240:54275,8:54276,6554273,1/53280,0:53281,0J I1 100:54273,I:`53280,2:53281,2 I100 1 1:54273,I:194 220230PL$(144),PN$(144),SE(144),TX$(5):DN8:SA780:SX781:SY782:SP7832160'OV$""sDO$"":RO$"":U$""BL$" "O$" " "OO$" ",F0(147)-6590:F1370I@"";:53280,0:53281,0lJS5529655335:S,0:S960,0:TS10241063:S,244:S960,244:^"";:A$"":610hDO$;:A$"":610r"":F01250w""y""|56320,16SS,7:Q0?S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2:T"";:F0640b"";:F1"";:A$BL$:610"";:A$BL$:610"";:X15:(DO$,10X);:A$TX$(X):610:" """;:CO149C195 53281,0: 53280,0JDERT101:DERTb 53281,1: 53280,1CO(1(1)14):646,CO:(DO$,C1);DO$;(U$,C);RE$:RE$" "SS,0:DP:R0:L5427654296:L,0:RE$" "870RE$"^"550SS,0:DP:L5427654296:L,0::F0:SDA,590:12509&:"";H0(SS)480P:DPoDL5427654296:L,0::870N"";:JK123:BL$;" ";:X"";(142):b20(A$)2)A$;:lv590:"";646,4:610:620:590:Q06S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2: _"":A$"READING DIRECTORY":610:X1:15,8,15,"I0":15:A$""8,8,0,"$0":C18:#8,A$::C1:DN$"":C116#8,A$:DN$DN$A$::#8,A$:#8,A$:#8,A$DN$DN$A$:#8,A$:DN$DN$A$:#8,A$:#8,A$:DN$DN$"/"A$Y#8,A$:DN$DN$A$:#8,A$:C1:"DISK TITLE ---> "DN$:mH14:#8,A$:#8,A$:ST0860A$""860(A$)34740#8,A$:(A$)34PN$PN$A$:770 #8,A$:(A$)32780#8,A$:A$""7904 (DO$,16);" ";S*A$" " PN$:"";:610m4(PN$,4)".MUS"840>PL$(X)PN$:XX1HPN$""RST0730\8:AX:NSA1f590:"";pSK11920zFY11890FG11870FR11740:1250 590CV1:NSA1:Q0:NP((A1)26)1:PG0:I1A:SE(I).:S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2:"";:EP26PG26:PGNP1EP(A1)CAPG261EPCA(PG2613)(OV$,CA10(26PG));:990(DO$,CA(26PG)4);'""(CA64(26PG))RO$" ";9SE(CA)"";Y(PL$(CA),(PL$(CA))4)""_o(DO$,21);(DO$,23);$A$" RETURN=MENU SPACE=DONE".CA26A$"F7=MORE"A$8610B"";LAN$:AN$""1100VAN$""PGPG1:PG(NP1)PG0*`AN$""590:950DjAN$(13)590:1250`tAN$" "V1590:1250~AN$" "T1V:PL$(T)PN$(T)::AV1:FY1:1800 DONE CHOOSING(AN$)65(AN$)901100N(AN$)64(26PG):PN$(V)PL$(N):SE(N)1NCA11100N11100+N(PG2613)1230ZI5541855434:I(N(26PG))40,1::1240I5543755453:I(N13(26PG))40,1:VV1:1100TT0:"";:15S5529655335:S,0:S960,0:(14):"";FOO$646,H:HH1:H16H2 1520646,14CA$"1"FR1:SK0:FG0:FY0:640nA$"2"SK0:FG0:FY0:SD0:FR0:1570A$"3"SK0:FG0:FR0:FY0:640A$"4"SK1:1570SD0:SK0:FR0:FY0:FG1:640A$"6"SD0:SK0:FR0:FY0: FP1:1570"A$"7"590:"";(142):b"590:A$"READING DIRECTORY FILE.....":"":610:8,15,8,15,"I0:":8,8,8,"SIDCAT,S,R":15,Y,B$,C,D:156Y621620@FP14:4,4,7J8:8,8,8,"SIDCAT,S,R": ""TY62"":A$"YOU MUST CREATE A FILE FIRST":610:8I^Y62 DE12000: DE:590:15:1250oh8,DN$:FP14," ":4,DN$:4," "xr8,A|WE1A8,PL$(WE)FP14,PL$(WE)FP1FP0:4," ":4," ":4:8:590:1250SK18:15:1800 8:15:AA1:9202820:590WA$"WRITING DIRECTORY FILE":610:8:15,8,15,"S0:SIDCAT"s15:8,8,8,"SIDCAT,S,W"8,DN$:8,A1QW1A1:8,PL$(QW):8:R0:590:590:F1:SD1PT$(PL$(SD),(PL$(SD))4):F1: PT$=FILE NAME TO PRINT?"";:A$"[SPACE] WILL GO TO NEXT SONG":610j&(DO$,19);:A$"^ = NEW SID-DISK":6100"";:A$"LOADING "PT$:610:CF(0):F$PL$(SD):LA(49)256(50)1000:1940: LOAD SONGDHK:SX,LO:SY,HI:PL:2040:310 NFG1SDSD1:SDA11250& XFG118108 bFY1SDSD1G lSDA1250Q v1810i SDSD1:SDA1250s 1810 SA,1:SX,DN:SY,0:65466:1980 HI(LA256):LOLA256HI SA,0:SX,LO:SY,HI:65493:(SP)12000 LA(SX)256(SY):!K1(F$):584K,((F$,K)):B!SA,(F$):SX,73:SY,2:65469:u!P(SA):" ERROR: ";:P4"FILE NOT FOUND":!P5"DEVICE NOT PRESENT":!ST:!I15:TX$(I)""::CT0!TX(SX)256(SY)! CTCT1:CT5!PX(TX):PX0" PX13TXTX1:2060."*PX32TXTX1:2070?"4PX34PX39u">TX$(CT)TX$(CT)(PX):TXTX1:(TX$(CT))392060"HPX(TX):PX0"RPX13TXTX1:2060"\PX34PX39"f2110 #pSS49152:HK49423:PL49446:DP49620:"PLEASE WAIT..."7#zP1(648):648,192 :A$(34)(34)(20)R#53280,8:"";::::#"@@@@@@@@@@@@@@@@@@@@@@@@@F’Xţ@@ABD@GNA@@BDEG";#"IK^XKF,O.FNV_(3=ԡL<(T@@BCEGH";#53280,7:648,193:::"";5$"JLMOQR@@DHL@"A$"B=SC]=>]SCбN@";w$")@M@FD 8Y@HкMUMV)HM\MWM]MX";$")PM^)LM_)E"A$"B)A]!)D]'=H]";$"=E)@(QQQ)H]N]QQ)]QQ) ]T";;%"Q)]WQʒP8%XFE)@*(E]]%]";}%"]XE%ȒȨCР&(-MTC-MUCؠ-M";%"-@0"A$"I@()GXL@)E"A$"C=Z";%53280,6:648,194:::"";&"]UʒP)E0-@=+=E=E @Q=H";Z& "Q=KQ=NQ=TQ=WQC-Q.R,";& "SMDNKLR"A$"@-@=MN  9-@)";& "ВMCЦ-@),)HM@!=$";'$ "0ВP='ݒ!PH=Q)]Q=*J=E01-";`'. "]E(=H0]HXݒP3=]E=";'8 "]H)@]*XP_-]E=H0]H=";'B "ݒE=H0P=3";'L 53280,5:648,195:::"";'(V " @6В1=9]<В[=]?]6=3J=";h(` "PD@]3ВP=?]6X83]3ɒ@PAHX9";(j "]9X<]<(XPBȽ]EX]H=";(t "PXK]K=N]N @=\PAȒXZ)G";,)~ "MZXFX[M[=E=EВF <";m) "-@= @1E1(%XBE]%@E]%)";) "C=]E=]HX]B)8ʽEX)J**(9";) "E";) 53280,4:648,196:::"";* "=B)GT(9XPEXLɒLPDLƽE(%";[* "9E9$H0FHPX]%]E";* ")\6=-]0V=Eݒ=H)]*PQ";* "]*=]E=]H=$JВ5=L=]K";+ "=]N=O$X$XXPH=K=";`+ "M[)@MZ%() EX)]$X)\(-_H\-^";+ "ВA8HF01Hк$EG0%0$]!=Q)]Q";+ "8=B)G";+ 53280,3:648,197:::"";, "C$=Q@]Q)P,)XM@X%0";[, "0^0N]]N]]KPBI]]";, "PKʨ0F]M[("A$"H#H$H%H2H";,( "3H<H=HHH۬M^M_]'";-2 "]%]%]0MA]JPAHX]";a-< "](ВD]3]<3ВO]3X]9]<)A";-F "]6]]PBȒX)GL]XM]";-P "PH]0]-00%0E ВF";-Z 53280,10:648,198:::"";@.d "JJJJ OEX0I=TE]T=WE]W0,0E";.n "=ݒI(%YA%YM$9)*E9YE00";.x "4(%YY%Y)=ݒIM()@YM)0,)(M@";/ "JJJJ\)\P])O]M]0(WH";D/ "*H6H>H-])PI@0,]0GX)OВG";/ "X)ODHL]=-\P$]0_=Q)P2I";/ "D0.=Q)P'IB0#-\)PBIHM\0'0T";/ "ВB)H";/ 53280,15:648,199:::"";:0 "JJJJQ)Q]QJJJJ])]M](ВU=";{0 "EJ=E=EHВ =ݒHR";0 "(H9MGE9AE) M@-@M@HXQQ ";0 648,P1:""0 49664,157:49920,240:50176,189:53280,141 1 A$:A$""2830$1 A$"N"51" A$"Y"2870?1, 2830e16 590:"SORTING "~1@ I1 NS1:JI1NS1J "";I;J1T PL$(J)PL$(I)TE$PL$(J):PL$(J)PL$(I):PL$(I)TE$1^ ::1h ""2m 15)"Ӓ"2r 2w B2| "USIC TESTER/PLAYER, AND ALARM TEST"o2~ "ARE SO YOU MAY ADJUST YOUR VOLUME FOR"2 "YOUR WAKE-UP."2 "HE MUSIC TESTER/PLAYER WILL"2 "AUTOMATICALLY PLAY ALL .MUS FILES ON"3 "YOUR DISK...SO YOU MUST LEAVE A DISK"3 "IN YOUR DRIVE!"M3 "OU MAY ALSO USE IT AS A MUSIC-PLAYER,"{3 "IT WILL PLAY .MUS FILES FROM THE"3 "FIRST TO THE LAST."3 "FTER YOU TEST OUT EITHER THE MUSIC OR"3 "THE PEIRCING ALARM, SIMPLY RESET YOUR"'4 "COMPUTER, AND WITH YOUR VOLUME ADJUSTED"O4 ",SELECT YOUR FAVORITE WAKE-UP!"U4 x4 10)"IT 1 TO CONTINUE"4 F$: F$"" 29724 F$"1" 29804 "OU MAY NOW WAKE TO ANY PROGRAM"4 "YOU WISH! IMPLY TYPE IN THE PROGRAM"+5 "NAME WHEN YOU SELLECT FILE WAKE, AND"Z5 "WHEN YOU WISH TO WAKE-UP, -͜"5 "WILL LOAD AND RUN THAT PROGRAM."5 5 5 "HIS PROGRAM IS PUBLIC DOMAIN"5 " DON'T ASK FOR ANY MONEY FOR IT,"6 "BUT IF YOU HAVE ANY QUESTIONS OR"66 " OR WOULD LIKE TO TRADE, WRITE ME AT:"<6 Z6 5)"5607 EAR RD. -6"~6 5)"ORTH YRACUSE, 13212"6 6 9)"IT Û TO CONTINUE"6 C$: C$"" 30106 C$"C" 55006 58266 7 5)"HANK YOU FOR USING UPER-LARM."7 7 B$?7 "HAT PROGRAM TO WAKE TO";B$j7 "LEASE SET THE TIME TO WAKE UP.";X$7 "LEASE SET TIME";TI$7 "ANT TO SEE THE CLOCK";A$7 A$"Y" 646,117 A$"N" 646,07 ""7 "";15)"";TI$8 TI$X$ 3085.8 "";15)"";TI$98 3065H8 54296,15N8 ^8 B$,8,1,:8|" UPER-LARM WAS COMPILED"8"AND HAD SOME BUGS IN IT, BUT SINCE THIS"8"ONE IS IN BASIC FORMAT, IT WORKS FINE!"9"O YOU MAY STOP THE SOUND OF THE ALARMS"B9" HAVE ALLOWED THE RUNSTOP KEY TO"n9"WORK. UT ONCE THAT KEY IS PRESSED,"9"THE SOUND CONTINUES, SO JUST HIT"9"THE RUNSTOP KEY AND RESTORE AT"9"THE SAME TIME. HE PROGRAM WILL":"STILL BE IN MEMORY, SO YOU JUST"*:"HAVE TO TYPE RUN."Q:"OR VERSION THREE HAVE ADDED"x:"AN OPTION NOT TO HAVE THE CLOCK":"ON THE SCREEN.  ALSO ADDED A":"BETTER ENDING SCREEN.":: 8)"IT Ғ TO RETURN TO MAIN MENU"; U$: U$""5575; U$"R" 23