230/T MAGIC SID MACHINE V2.2 w( A MODICATI OF 'MAGIC 2 MUSIC MACHINE' V2.0 WRITTEN < BY DAVE SCHMOLDT F  P ADAPTED SIDPLAYER + Z FILES, UG ROUTINES FROM P d THE BOOK 'ALL ABOUT THE t n COMMODE 64' VOLUME 2 x BY CRAIG CHAMBERLAIN ALL MUSIC FILES BE USED  BY THIS PROGRAM MUST HAVE THE+ '.MUS' EXTENSI AFTER THE N FIAME. p HLES UP 144 FILESDISK TERRY KRYGER [71106,221] 32086  K PL$(144),PN$(144),SE(144),TX$(5):DN8:SA780:SX781:SY782:SP783U 2160 OV$"" DO$"":RO$"":U$"" BL$" "@ O$"O O"s "OO$"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" ,F0(147) 6590:F1370 @"";:53280,0:53281,0 JS5529655335:S,0:S960,0: TS10241063:S,244:S960,244:+ ^"";:A$" THE MAGIC SID MACHINE 2.2 ":610[ hDO$;:A$" DAVE SCHMOLDT / T. KRYGER ":610q r"":F01250 |56320,16 SS,7:Q0 S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2: "";:F0640 "";:F1"";:A$BL$:610."";:A$BL$:610^"";:X15:(DO$,10X);:A$TX$(X):610:A$"""";:CO149C19CO(1(1)14):646,CO:(DO$,C1);A$;DO$;(U$,C);A$;RE$:RE$" "SS,0:DP:R0:L5427654296:L,0:.RE$" "870@RE$"^"550mSS,0:DP:L5427654296:L,0::F0:SDA|590:1250&:"";0(SS)480:DPDL5427654296:L,0::870N"";:JK123:BL$;" ";:X"";(142): b20(A$)2)A$;:lKE$:KE$""620$vV590:"";:A$"PRESS ANY KEY WHEN READY"t646,4:610:620:590:Q0S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2: "":A$"READING DIRECTORY":610:X1:15,8,15,"I0":15:A$""08,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$#8,A$:DN$DN$A$:#8,A$:C1:"DISK TITLE ---> "DN$:H14:#8,A$:#8,A$:ST0860A$""860#(A$)34740I#8,A$:(A$)34PN$PN$A$:770b #8,A$:(A$)32780y#8,A$:A$""790 (DO$,16);" ";*A$" " PN$:"";:6104(PN$,4)".MUS"840>PL$(X)PN$:XX1 HPN$""RST0730+\8:AX:NSA1;f590:"";JpSK11920YzFY11890hFG11870~FR11740:1250590V1:NSA1:Q0:NP((A1)26)1:PG0:I1A:SE(I).:S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2:("";:EP26PG26:PGNP1EP(A1);CAPG261EPjCA(PG2613)(OV$,CA10(26PG));:990(DO$,CA(26PG)4);""(CA64(26PG))RO$" ";SE(CA)"";(PL$(CA),(PL$(CA))4)""(DO$,21);A$"ENTER YOUR CHOICES IN ANY ORDER":610,(DO$,23);U$A$" RETURN=MENU SPACE=DONE"r.CA26A$"F7=MORE"A${8610B"";LAN$:AN$""1100VAN$""PGPG1:PG(NP1)PG0`AN$""590:950jAN$(13)590:1250 tAN$" "V1590:1250B~AN$" "T1V:PL$(T)PN$(T)::AV1:FY1:1800V DONE CHOOSINGt(AN$)65(AN$)901100N(AN$)64(26PG):PN$(V)PL$(N):SE(N)1NCA11100N11100N(PG2613)1230I5541855434:I(N(26PG))40,1::12403I5543755453:I(N13(26PG))40,1:CVV1:1100YTT0:"";:15|S5529655335:S,0:S960,0:(14):"";OO$;O$;:"O 1. REATE OR UPDATE A DIRECTORY FILE O";O$; "O 2. HOOSE SONGS FROM DIRECTORY FILE O";O$;5"O 3. HOOSE SONGS (NO DIRECTORY FILE) O";O$;i"O 4. LAY ALL SONGS IN DIRECTORY FILE O";O$;("O 5. LAY ALL SONGS ON DISK (NO FILE) O";O$;2"O 6. END DIRECTORY FILE TO PRINTER O";O$;<"O 7. ND O";O$;FOO$IPT1$"OOOOOOOOOOOOOOOOOOOO":B1$T1$ZT2$"OOOOOOOOOOOOOOOOOOOO":B2$T2$dR1$"OOOOOOOO"nR2$"OOOOOOO"xL1$"OOOOOOO"'L2$"OOOOOOOO"YTT$" HE AGIC ID ACHINE "B1$""T1$R1$B1$L1$:B2$""T2$R2$B2$L2$:H2B1$:B2$:TT$646,H:HH1:H16H2A$:A$""1440646,14 A$"1"FR1:SK0:FG0:FY0:6405A$"2"SK0:FG0:FY0:SD0:FR0:1570ZA$"3"SK0:FG0:FR0:FY0:640qA$"4"SK1:1570A$"5"SD0:SK0:FR0:FY0:FG1:640A$"6"SD0:SK0:FR0:FY0: FP1:1570A$"7"590:"";(142):1360 **LOAD DIR**N"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:85^Y62 DE12000: DE:590:15:1250[h8,DN$:FP14," ":4,DN$:4," "dr8,Ap|WE1A8,PL$(WE)FP14,PL$(WE)FP1FP0:4," ":4," ":4:8:590:1250SK18:15:18008:15:AA1:920 ** WRITE DIRECTORY FILE **%2820:590dA$"WRITING DIRECTORY FILE":610:8:15,8,15,"S0:SIDCAT"15: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 PRINTR"";:A$"[SPACE] WILL STOP SONG DURING PLAY":610}&(DO$,19);:A$"^ = BACK TO MENU":6100"";:A$"LOADING "PT$:610:CF(0):F$PL$(SD):LA(49)256(50)1000:1940: LOAD SONG DHK:SX,LO:SY,HI:PL:2040:310* NFG1SDSD1:SDA112509 XFG11810K bFY1SDSD1Z lSDA1250d v1810 SDSD1:SDA1250: INCREMENT COUNTER 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):E!K1(F$):584K,((F$,K)):i!SA,(F$):SX,73:SY,2:65469:!P(SA):" ERROR: ";:P4"FILE NOT FOUND":!P5"DEVICE NOT PRESENT":!ST:! ** GET TEXT **!I15:TX$(I)""::CT0"TX(SX)256(SY)#" CTCT1:CT58"PX(TX):PX0Q" PX13TXTX1:2060j"*PX32TXTX1:2070{"4PX34PX39">TX$(CT)TX$(CT)(PX):TXTX1:(TX$(CT))392060"HPX(TX):PX0"RPX13TXTX1:2060"\PX34PX39"f2110E#pSS49152:HK49423:PL49446:DP49620:" PLEASE WAIT..."r#zP1(648):648,192 :A$(34)(34)(20)#53280,8:"";::::#"@@@@@@@@@@@@@@@@@@@@@@@@@F’Xţ@@ABD@GNA@@BDEG";$"IK^XKF,O.FNV_(3=ԡL<(T@@BCEGH";/$53280,7:648,193:::"";p$"JLMOQR@@DHL@"A$"B=SC]=>]SCбN@";$")@M@FD 8Y@HкMUMV)HM\MWM]MX";$")PM^)LM_)E"A$"B)A]!)D]'=H]";5%"=E)@(QQQ)H]N]QQ)]QQ) ]T";v%"Q)]WQʒP8%XFE)@*(E]]%]";%"]XE%ȒȨCР&(-MTC-MUCؠ-M";%"-@0"A$"I@()GXL@)E"A$"C=Z";&53280,6:648,194:::"";T&"]UʒP)E0-@=+=E=E @Q=H";& "Q=KQ=NQ=TQ=WQC-Q.R,";& "SMDNKLR"A$"@-@=MN  9-@)";' "ВMCЦ-@),)HM@!=$";Y'$ "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:::"";b(V " @6В1=9]<В[=]?]6=3J=";(` "PD@]3ВP=?]6X83]3ɒ@PAHX9";(j "]9X<]<(XPBȽ]EX]H=";%)t "PXK]K=N]N @=\PAȒXZ)G";g)~ "MZXFX[M[=E=EВF <";) "-@= @1E1(%XBE]%@E]%)";) "C=]E=]HX]B)8ʽEX)J**(9";) "E";* 53280,4:648,196:::"";U* "=B)GT(9XPEXLɒLPDLƽE(%";* "9E9$H0FHPX]%]E";* ")\6=-]0V=Eݒ=H)]*PQ";+ "]*=]E=]H=$JВ5=L=]K";Z+ "=]N=O$X$XXPH=K=";+ "M[)@MZ%() EX)]$X)\(-_H\-^";+ "ВA8HF01Hк$EG0%0$]!=Q)]Q";+ "8=B)G";, 53280,3:648,197:::"";U, "C$=Q@]Q)P,)XM@X%0";, "0^0N]]N]]KPBI]]";, "PKʨ0F]M[("A$"H#H$H%H2H";-( "3H<H=HHH۬M^M_]'";Z-2 "]%]%]0MA]JPAHX]";-< "](ВD]3]<3ВO]3X]9]<)A";-F "]6]]PBȒX)GL]XM]";.P "PH]0]-00%0E ВF";9.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";/ "*H6H>H-])PI@0,]0GX)OВG";/ "X)ODHL]=-\P$]0_=Q)P2I";0 "D0.=Q)P'IB0#-\)PBIHM\0'0T";0 "ВB)H";40 53280,15:648,199:::"";u0 "JJJJQ)Q]QJJJJ])]M](ВU=";0 "EJ=E=EHВ =ݒHR";0 "(H9MGE9AE) M@-@M@HXQQ ";1 648,P1:""71 49664,157:49920,240:50176,189:53280,14=1 J1 *SORT*z1 " WANT ALPHABETIZED DIRECTORY? (Y/N)"1 A$:A$""28301 A$"N"1" A$"Y"28701, 283016 590:"SORTING "1@ I1 NS1:JI1NS2J "";I;JQ2T PL$(J)PL$(I)TE$PL$(J):PL$(J)PL$(I):PL$(I)TE$[2^ ::