C&K SOFTWARE'S MUSIC PLAYER 2.1 (c)1990, 1991 BY KEVIN MATZ, C&K SOFTWARE, INC. --SHAREWARE-- : P: ,,: :: N( ,:"Music Player 2.1":"(C)opyright 1990, 1991 - C&K Software Technologies."2"Music Player and MP21 are trademarks of C&K Software Technologies.":"Programming and Documentation by Kevin Matz"<"Shareware Unregistered Copy": X : X.F"MP21.PIC": ,!:"Press any key!";:A$$()EP:EXT$"MUS": (#Z: GFILE$"" " - Exiting Music Player 2.1 -":::d:  ,:"Loading ";GFILE$: PPP : PPPn Xx GFILE$ AS 1 () :   #,P$7  ,:"Playing ";GFILE$: P$A :"ERROR! Encountered a Note Error in MUSic file - MP ERROR CODE 3": P$:: P X"File Opening Error - Cannot locate ";GFILE$;" - MP ERROR CODE 2"b::(# ** GRABFILE SUBROUTINE ***-# 'C2#: ,:"*."EXT$<# GX : (GX,) GLGX: GX,: (): (): F#F# GX:GROW:GCOL: ,: ,:"<= This file? Use arrows to move, to select, or ."P# (GROW,GCOL) #PZ#GFILE$"": GX  :GFILE$GFILE$((GROW,GCOLGX)): GXd# ,: GROW,GCOL :"<-": ,: ,: (GFILE$,)n#GKEY$(,): GKEY$"" n#x# GKEY$() GFILE$"": ## GKEY$( ) # # ("HPKM",GKEY$) n#&# GROW,GCOL : ()W# GKEY$"H" GROWGROW: GROW GROWGL# GKEY$"P" GROWGROW: GROWGL GROW# GKEY$"K" GCOLGCOL: GCOL GCOL7# GKEY$"M" GCOLGCOL: GCOL7 GCOL# P##': ,:" ERROR ": ,:#''::"No files with the extension of ";EXT$;" are found - MUSPLAYR terminated. MP ERROR CODE 1"::::