home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / DEC.WRITE.bas < prev    next >
BASIC Source File  |  2000-01-01  |  678b  |  9 lines
  1. 10 Q$ =  CHR$(34):D$ =  CHR$(4): PRINT D$;"OPEN DEC": PRINT D$;"WRITE DEC": PRINT "NOMONICO"
  2. 13  PRINT "VTABPEEK(37)-2"
  3. 15  PRINT "VTABPEEK(37)-2:IFLEN(A$)<4THENA$=CHR$(48)+A$"
  4. 16  PRINT "VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$"
  5. 17  PRINT "VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$"
  6. 18  PRINT "VTABPEEK(37)-1:IFLEN(A$)<4THENA$=CHR$(48)+A$"
  7. 20  PRINT "W=ASC(LEFT$(A$,1)):X=ASC(MID$(A$,2,1)):Y=ASC(MID$(A$,3,1)):Z=ASC(RIGHT$(A$,1)):A=W-48-7*(W>57):B=X-48-7*(X>57):C=Y-48-7*(Y>57):D=Z-48-7*(Z>57):V=A*4096+B*256+C*16+D:VTABPEEK(37)-1:PRINTCHR$(36);A$;CHR$(61);V;CHR$(32);"
  8. 30  PRINT "IFV>32767THENVTABPEEK(37)-1:HTAB13:PRINTCHR$(40);V-65536;CHR$(41)"
  9. 1000  PRINT D$;"CLOSE"