home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / HEX.WRITE.bas < prev    next >
BASIC Source File  |  2000-01-01  |  393b  |  4 lines
  1. 10 D$ =  CHR$(4): PRINT D$;"OPEN HEX": PRINT D$;"WRITE HEX": PRINT "NOMONICO"
  2. 15  PRINT "VTABPEEK(37)-1:IFA<0THENA=A+65536"
  3. 20  PRINT "POKE768,INT(A/256):POKE769,A-INT(A/256)*256:VTABPEEK(37)-4:PRINTSPC(5):PRINT:PRINT:CALL-151": PRINT "300.301": PRINT "3D0G": PRINT "VTABPEEK(37)-4:PRINTA;CHR$(32);CHR$(40);A-65536;CHR$(41);CHR$(32);CHR$(61):PRINTSPC(5);CHR$(36):CALL-958"
  4. 30  PRINT D$;"CLOSE"