'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::: ::: '::: ::: '::: PROGRAM: GETN.BAS ::: '::: AUTHOR: Mike Shaffer ::: '::: DATE: Feb 2, 1991 ::: '::: VERSION: 2.0 ::: '::: PURPOSE: Tests the GETNET2.SUB subroutine ::: '::: REVISIONS: ::: '::: ::: '::: ::: '::: ::: '::: NOTES: This program assumes you're using PDQ from ::: '::: Crescent Software. If not (shame on you!) ::: '::: than you can modify the interrupt call to ::: '::: use INT86 as provided with QuickBASIC, and ::: '::: take out the reference to PDQDECL.BAS ::: '::: ::: '::: Compile using: ::: '::: ::: '::: BC getn/o/s; ::: '::: LINK /NOD/NOE getn,,,pdq[386].lib ::: '::: ::: '::: or similar... ::: '::: ::: '::: ::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ' '$include: 'pdqdecl.bas' call getnet2(a%,a$) print a%,a$ end '$include: 'getnet2.sub'