$CPU 8086 ' make compatible with XT systems $LIB ALL OFF ' turn off all PowerBASIC libraries $ERROR ALL OFF ' turn off all PowerBASIC error checking $OPTIMIZE SIZE ' optimize for smaller code $COMPILE UNIT ' compile to a UNIT (.PBU) '$COMPILE EXE ' compile to a UNIT (.PBU) DEFINT A-Z ' Required for all numeric functions, forces PB to not ' include floating point in UNIT (makes it smaller) '/*------------------------------------------------------------------*/ $CODE SEG "MLIB5" '/*------------------------------------------------------------------*/ FUNCTION GETERRORLEVEL() PUBLIC AS INTEGER reg 1,&h4d00 call interrupt &h21 ret.code=reg(1) FUNCTION = ret.code mod &h100 END FUNCTION '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' CLS ' PRINT "CALLING BATCH PROGRAM " ' SHELL "C:\BATCH\CDPLAY.BAT" ' T = GETERRORLEVEL ' PRINT T ' Y$ = GETKEY