Form1 Form1 Form1 Label3 %Labnotes.DLL Demo Equipment Check Terminal Label1 Printer Ports Label1 Comm Ports Label1 Drive Info Label1 Label1 Label1 Label1 Label1 Label1 Label2 Floppy Drives Label4 Math Coprocessor Label1 Network Label1 Label1 Label1 Label1 Label1 DOS Version Label1 Command3 Frame1 MK$ and CV demo List1 List2 Text1 Label5 K<- Enter a number and click here - > Integers will be mod'd with 32767 Command1 MK/CV Frame1 QCopyright (c) 1992 Jay Munro First Published in PC Magazine June 16 1992 Command1_Click5 ControlHwnd Command1 ctrle Label1_Click5 Index Form_Click @ Form_LoadZ Label1 Caption! PRNStatus LPTNum! IntNum Registers? ErrNum Interrupt PStat LabeP Printer1 Address= LoSeg GetAbs PrintPort^ PRStatus< CheckPrinter Command3_Clickm NumFloppies @ EquipList NumFlop DriveA DriveBy Monitor CoProc TempB NumFlops Caser Command2_ClickK NiceFrame HCtrl CtrlHwnd elect Frame Rect- GetClientRect9 TFrame' Left{ Right; Bottom NextOutline ColorRef hPenw CreatePen Dummyk SelectObject Form1 DrawRect Outline MoveTo LineTo DrawRectLeftTop DrawRectRightBottom DeleteObjectE OldPenP CtlHwnd[ MyHCtrl3 GetWindowRectg InitOutline MFrameX Form_Paint CFrame VOffset HOffset CommPort Command1_KeyDown KeyCode Shift Command1_GotFocus Command1_LostFocus Label5_Click Label5l SendMessage& WM_Clear WM_SetText DosVersion MyRegsE VerNumb @ DiskSpace FreeSpace* TotalSpace Drive Network Buffer Flags NetName Text1 Label6 ShowMK List1 List2 @ ClearList LB_ResetContent Frame1_DragDropZ Source List2_Click MonoPrint Command1_Click Shows conversion of numbers to strings and back usingg MK$ and CV functions Note: some strings created with MK$ will not show inn list boxx mod it incase of overflow Clear list -Fill list MKI$ = " MKL$ = " MKS$ = " MKD$ = " MKC$ = " CVI% = " CVL& = " CVS! = " CVD# = " CVC@ = " Form_Load CheckPrinter -- Uses Peek%, Inp and Out to get and check Printer Port - Get Printer port 1 LPT1 OK" LPT1 error LPT1 OK" - Get Printer port 2 LPT2 OK" LPT2 error No LPT2" - Check Com port 1 Comm1 Installed" Comm1 Not Installed" - Check Com port 2 Comm2 Installed" Comm2 Not Installed" EquipList Request info on Coprocessor and floppy types from CMOS memoryr using Inp and Outr Port 112, offset 14h start equipment list Set index port --- start with coprocessor f Installed" Not Installed" --- Now get floppy types Port 112, offset 14h start equipment list Set index port bits 0-3 = drive B, 4-7 = drive A high byte for floppy A low byte for floppy B- Drive A is 360 KB" Drive A is 1.2 MB" Drive A is 720 KB" Drive A is 1.44 MB No Drive A Drive B is 360 KB" Drive B is 1.2 MB" Drive B is 720 KB" Drive B is 1.44 MB No Drive B Command3_Click Command1_LostFocus DosVersion DosVersion uses Interrupt to get version of DOS running on the PC> no need for these regs service 30hp get version format it2 #.##00 DiskSpace DiskSpace uses Interrupt to retrieve total and free space on the specified drivee no need for these regs use passed drive$ or get default drive service 19he default drive' disk info service 36h " disk (1 = A, 2 = B etc...) Drive Info" Bytes Free" Total Bytes Network Gets name of network using Interrupt. Buffer address iss passed using SSeg and Sadd replacements no need for these regs service 5Eh make buffer to receive name) get pointer to string carry set? No Network installed Name = " ClearList resets content of list box to null Command2_Click Peek a Boo