Category : A Collection of Games for DOS and Windows
Archive   : MUZAK.ZIP
Filename : MUZAK.BAS

ÿP
:ÙMUZAK.BAS By Aaron Priven V2.11 11/2/85a­ AêZ:Œ:¹ þ”rþ“"mbt120mn"¦(’: É Ý: º "TEMP.MUZ" ‚ … AS #:… #,DF$,DP$:»#Ý2À:Ê ,:¿ ,:‘ Î(ê(ÿ’(DP$))ô) DP$ ÎP)" ":¿ ,÷<º DF$ ‚ … AS #:…#,N"F† INK$(N),PROMPT$(N),WORDS(N),FILE$(N)<P‚ Aç Ì N:‡ INK$(A):ƒmZ‚ Aç Ì N:…#,WORDS(A),FILE$(A),PROMPT$(A):ƒƒd»:‚ Aç Ì Nê Ï ‘nÊ Aôé, x‘ INK$(A);¸‚‘ " - ";PROMPT$(A);ÂŒÊ ,(Ó–‘ INK$(Aé);ì ‘ " - ";PROMPT$(Aé)ôªƒ A ´‹ NôèæNì Í ‘ INK$(N);" - ";PROMPT$(N)^¾Ê ,:¿ ,:‘ Î);"Escape Key - End Program";ÎP):¿ ,°ÈÊ ,:¿ ,:‘ Î);"Enter Letter of Music or Return for New Menu";ÎP):¿ ,ÐҘ j, :ÙCLEAR KYBD BUFFERîÜK$ ç Þ:‹ K$ èæ "" Í ‰ ÒæK$ ç Þ:‹ K$ ç "" Í ‰ æ$ðK$çÿƒ(K$,,):FLAGçOú‹ K$èç"z" î K$æç"a" Í K$çÿ–(ÿ•(K$)ê )w
‚ Aç Ì N:‹ K$çINK$(A) Í FçA:FLAGç}
ƒ
‹ FLAGç Í ,
º"
A$çFILE$(F):‹ WORDS(F)ç Í ê
:¡ 6
ñ,
‹ K$çÿ–() Í À:þƒ :¡ ‹ K$çÿ–(
) Í ’:Š Ú :¡ Ò6
º A$ ‚ … AS #*@
À:Ê ,:‘ ÿ–(Õ)éÖ(L,Í)éÿ–(¸)NJ
Ê ,:‘ ÿ–(Ô)éÖ(L,Í)éÿ–(¾)\T
‚ Kç Ì z^
… #,K$:Tç(Pê(ÿ’(K$)))ô³h
Ê Ké,:‘ ÿ–(³);:Ê Ké,T:‘ K$;:Ê Ké,O:‘ ÿ–(³)»r
ƒ KΆ
… #,F:† P$(F)ܐ
‚ Xç Ì Fëš
… #,P$(X)ó¤
ƒ X®
»:þ“"mb"&¸
‚ Yç Ì F:þ“ P$(Y):‹ Þçÿ–() Í Š;Â
‹ YçFê Í þ“"mf"CÌ
ƒ YPÖ
þ“"mfp2"Và
Šiê
:Ù WITH WORDS|ô
º A$ ‚ … AS #¢þ
À:Ê ,:‘ ÿ–(Õ)éÖ(L,Í)éÿ–(¸)ÆÊ ,:‘ ÿ–(Ô)éÖ(L,Í)éÿ–(¾)Ô‚ Kç Ì ò… #,K$:Tç(Pê(ÿ’(K$)))ô+&Ê Ké,:‘ ÿ–(³);:Ê Ké,T:‘ K$;:Ê Ké,O:‘ ÿ–(³)30ƒ KSD… #,F:FçFë:† P$(F):Ê ,aN‚ Xç Ì FpX… #,P$(X)xbƒ X…l»:þ“"mf"—v‚ Yç Ì F Ï ¶€‹ ÿ‚(P$(Yê),)èæ"|" Í ¨ÈŠXçÿ’(P$(Yê))Ò”XçXêìž‘ ÿ(P$(Yê),X):‰ ²û¨‘ P$(Yê);²þ“ P$(Y):‹ Þçÿ–() Í Š :¡ ƒ Y-¼þ“"mfp2":ŠBÆ:ÙDATA FOR INK$˜Ð„ A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,1,2,3,4,5,6,7,8,9,0,-,=,+,*ãÚŒ:É Ý:À:Ê ,:¿ ,:‘ Î);"MUZAK: Which Group of Songs";ÎP)" ":¿ ,äº "DEFINTN.MUZ" ‚ … AS #:…#,N)î† INK$(N),PROMPT$(N),FILE$(N)Cø‚ Aç Ì N:‡ INK$(A):ƒk‚ Aç Ì N:…#,FILE$(A),PROMPT$(A):ƒ »:‚ Aç Ì Nê Ï Ê Aôé,ž ‘ INK$(A);¶*‘ " - ";PROMPT$(A);À4Ê ,(Ñ>‘ INK$(Aé);êH‘ " - ";PROMPT$(Aé)òRƒ A\‹ NôèæNì Í ‘ INK$(N);" - ";PROMPT$(N)\fÊ ,:¿ ,:‘ Î);"Escape Key - End Program";ÎP):¿ ,—pÊ ,:¿ ,:‘ Î);"Enter Letter of Music";ÎP):¿ ,·z˜ j, :ÙCLEAR KYBD BUFFERÕ„K$ ç Þ:‹ K$ èæ "" Í ‰ „òŽK$ ç Þ:‹ K$ ç "" Í ‰ „˜K$çÿƒ(K$,,):FLAGç6¢‹ K$èç"z" î K$æç"a" Í K$çÿ–(ÿ•(K$)ê )^¬‚ Aç Ì N:‹ K$çINK$(A) Í FçA:FLAGçd¶ƒwÀ‹ FLAGç Í Ô¾Êº"TEMP.MUZ" ‚ OUTPUT AS #:·#,FILE$(F),"MUZAK: "éPROMPT$(F):»#:ŠÜÔ‹ K$çÿ–() Í À:þƒ :¡ z