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  STROBE LIGHT ADDED BY ) DAN SWITZER 7886 N PL$(144),PN$(144),SE(144),TX$(5):DN8:SA780:SX781:SY782:SP783 2160 OV$""& DO$"":RO$"":U$""X BL$" " O$"O O" "OO$"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" ,F0(147) 6590:F1370 @"";:53280,0:53281,0 JS5529655335:S,0:S960,0:D TS10241063:S,244:S960,244:u ^"";:A$" THE MAGIC SID MACHINE 2.2 ":610 hDO$;:A$" DAVE SCHMOLDT / T. KRYGER ":610 r"":F01250 w"" y"" |56320,16 SS,7:Q0(S5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2:="";:F0640K"";:F1m"";:A$BL$:610"";:A$BL$:610"";:X15:(DO$,10X);:A$TX$(X):610:" """;:CO149C19 53281,0: 53280,03DERT101:DERTK 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:SDA590:1250"&:"";10(SS)4809:DPXDL5427654296:L,0::870xN"";:JK123:BL$;" ";:X"";(142):b20(A$)2)A$;:lKE$:KE$""620v590:"";:A$"PRESS ANY KEY WHEN READY" 646,4:610:620:590:Q0MS5529655335:CO(1(1)14):S,CO:S(999Q),CO:QQ2: v"":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$4DN$DN$A$:#8,A$:DN$DN$A$:#8,A$:#8,A$:DN$DN$"/"A$p#8,A$:DN$DN$A$:#8,A$:C1:"DISK TITLE ---> "DN$:H14:#8,A$:#8,A$:ST0860A$""860(A$)34740#8,A$:(A$)34PN$PN$A$:770 #8,A$:(A$)32780#8,A$:A$""790K (DO$,16);" ";j*A$" " PN$:"";:6104(PN$,4)".MUS"840>PL$(X)PN$:XX1HPN$""RST0730\8:AX:NSA1f590:"";pSK11920zFY11890FG11870FR11740:1250 590ZV1: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$" ";PSE(CA)"";p(PL$(CA),(PL$(CA))4)""v(DO$,21);A$"ENTER YOUR CHOICES IN ANY ORDER":610(DO$,23);$A$" RETURN=MENU SPACE=DONE" .CA26A$"F7=MORE"A$8610B"";4LAN$:AN$""1100YVAN$""PGPG1:PG(NP1)PG0p`AN$""590:950jAN$(13)590:1250tAN$" "V1590:1250~AN$" "T1V:PL$(T)PN$(T)::AV1:FY1:1800 DONE CHOOSING (AN$)65(AN$)901100;N(AN$)64(26PG):PN$(V)PL$(N):SE(N)1LNCA11100ZN11100qN(PG2613)1230I5541855434:I(N(26PG))40,1::1240I5543755453:I(N13(26PG))40,1:VV1:1100TT0:"";:15S5529655335:S,0:S960,0:-(14):"";OO$;fO$;:"O 1. REATE OR UPDATE A DIRECTORY FILE O";O$; "O 2. HOOSE SONGS FROM DIRECTORY FILE O";O$;"O 3. HOOSE SONGS (NO DIRECTORY FILE) O";O$;"O 4. LAY ALL SONGS IN DIRECTORY FILE O";O$;6("O 5. LAY ALL SONGS ON DISK (NO FILE) O";O$;j2"O 6. END DIRECTORY FILE TO PRINTER O";O$;<"O 7. ND O";O$;FOO$PT1$"OOOOOOOOOOOOOOOOOOOO":B1$T1$ZT2$"OOOOOOOOOOOOOOOOOOOO":B2$T2$GdR1$"OOOOOOOO"onR2$"OOOOOOO"xL1$"OOOOOOO"L2$"OOOOOOOO"TT$" HE AGIC ID ACHINE "0B1$""T1$R1$B1$L1$:B2$""T2$R2$B2$L2$:H2CB1$:B2$:TT$^646,H:HH1:H16H2rA$:A$""1440~646,14A$"1"FR1:SK0:FG0:FY0:640A$"2"SK0:FG0:FY0:SD0:FR0:1570A$"3"SK0:FG0:FR0:FY0:640 A$"4"SK1:15704A$"5"SD0:SK0:FR0:FY0:FG1:640`A$"6"SD0:SK0:FR0:FY0: FP1:1570A$"7"590:"";(142):1360 **LOAD DIR**"590:A$"READING DIRECTORY FILE.....":"":610:8,15,8,15,"I0:":8,8,8,"SIDCAT,S,R":15,Y,B$,C,D:15.6Y621620B@FP14:4,4,7gJ8:8,8,8,"SIDCAT,S,R": ""TY62"":A$"YOU MUST CREATE A FILE FIRST":610:8^Y62 DE12000: DE:590:15:1250h8,DN$:FP14," ":4,DN$:4," "r8,A |WE1A8,PL$(WE)-FP14,PL$(WE)3aFP1FP0:4," ":4," ":4:8:590:1250xSK18:15:18008:15:AA1:920 ** WRITE DIRECTORY FILE **2820:590A$"WRITING DIRECTORY FILE":610:8:15,8,15,"S0:SIDCAT"15:8,8,8,"SIDCAT,S,W"+8,DN$:8,A1FQW1A1:8,PL$(QW):X8:R0:590:j590:F1:SD1PT$(PL$(SD),(PL$(SD))4):F1: PT$=FILE NAME TO PRINT"";:A$"[SPACE] WILL STOP SONG DURING PLAY":610 &(DO$,19);:A$"^ = BACK TO MENU":610F 0"";: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:SDA11250 XFG11810 bFY1SDSD1 lSDA1250 v1810)!SDSD1:SDA1250: INCREMENT COUNTER3!1810W!SA,1:SX,DN:SY,0:65466:1980u!HI(LA256):LOLA256HI!SA,0:SX,LO:SY,HI:65493:(SP)12000!LA(SX)256(SY):!K1(F$):584K,((F$,K)):"SA,(F$):SX,73:SY,2:65469:5"P(SA):" ERROR: ";:P4"FILE NOT FOUND":V"P5"DEVICE NOT PRESENT":`"ST:u" ** GET TEXT **"I15:TX$(I)""::CT0"TX(SX)256(SY)" CTCT1:CT5"PX(TX):PX0" PX13TXTX1:2060#*PX32TXTX1:2070#4PX34PX39J#>TX$(CT)TX$(CT)(PX):TXTX1:(TX$(CT))392060_#HPX(TX):PX0x#RPX13TXTX1:2060#\PX34PX39#f2110#pSS49152:HK49423:PL49446:DP49620:" PLEASE WAIT..." $zP1(648):648,192 :A$(34)(34)(20)&$53280,8:"";::::o$"@@@@@@@@@@@@@@@@@@@@@@@@@F’Xţ@@ABD@GNA@@BDEG";$"IK^XKF,O.FNV_(3=ԡL<(T@@BCEGH";$53280,7:648,193:::""; %"JLMOQR@@DHL@"A$"B=SC]=>]SCбN@";K%")@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]]%]";Q&"]XE%ȒȨCР&(-MTC-MUCؠ-M";&"-@0"A$"I@()GXL@)E"A$"C=Z";&53280,6:648,194:::"";&"]UʒP)E0-@=+=E=E @Q=H";.' "Q=KQ=NQ=TQ=WQC-Q.R,";p' "SMDNKLR"A$"@-@=MN  9-@)";' "ВMCЦ-@),)HM@!=$";'$ "0ВP='ݒ!PH=Q)]Q=*J=E01-";4(. "]E(=H0]HXݒP3=]E=";v(8 "]H)@]*XP_-]E=H0]H=";(B "ݒE=H0P=3";(L 53280,5:648,195:::"";(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";*~ "MZXFX[M[=E=EВF <";A* "-@= @1E1(%XBE]%@E]%)";* "C=]E=]HX]B)8ʽEX)J**(9";* "E";* 53280,4:648,196:::"";* "=B)GT(9XPEXLɒLPDLƽE(%";/+ "9E9$H0FHPX]%]E";p+ ")\6=-]0V=Eݒ=H)]*PQ";+ "]*=]E=]H=$JВ5=L=]K";+ "=]N=O$X$XXPH=K=";4, "M[)@MZ%() EX)]$X)\(-_H\-^";u, "ВA8HF01Hк$EG0%0$]!=Q)]Q";, "8=B)G";, 53280,3:648,197:::"";, "C$=Q@]Q)P,)XM@X%0";/- "0^0N]]N]]KPBI]]";q- "PKʨ0F]M[("A$"H#H$H%H2H";-( "3H<H=HHH۬M^M_]'";-2 "]%]%]0MA]JPAHX]";5.< "](ВD]3]<3ВO]3X]9]<)A";v.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";U/n "=ݒI(%YA%YM$9)*E9YE00";/x "4(%YY%Y)=ݒIM()@YM)0,)(M@";/ "JJJJ\)\P])O]M]0(WH";0 "*H6H>H-])PI@0,]0GX)OВG";Y0 "X)ODHL]=-\P$]0_=Q)P2I";0 "D0.=Q)P'IB0#-\)PBIHM\0'0T";0 "ВB)H";0 53280,15:648,199:::"";1 "JJJJQ)Q]QJJJJ])]M](ВU=";O1 "EJ=E=EHВ =ݒHR";1 "(H9MGE9AE) M@-@M@HXQQ ";1 648,P1:""1 49664,157:49920,240:50176,189:53280,141 1 *SORT*2 " WANT ALPHABETIZED DIRECTORY? (Y/N)"'2 A$:A$""283052 A$"N"F2" A$"Y"2870P2, 2830v26 590:"SORTING "2@ I1 NS1:JI1NS2J "";I;J2T PL$(J)PL$(I)TE$PL$(J):PL$(J)PL$(I):PL$(I)TE$2^ ::