📄 messages.src
字号:
;
;******************************************************************************
RTEDEF SN, BE_SYNTAX, 2,"Syntax error"
RTEDEF RG, BE_RETURN, 3,"RETURN without GOSUB"
RTEDEF OD, BE_NODATA, 4,"Out of DATA"
RTEDEF FC, BE_ILLFUN, 5,"Illegal function call"
RTEDEF OV, BE_OVERFLOW, 6,"Overflow"
RTEDEF OM, BE_MEMORY, 7,"Out of memory"
RTEDEF BS, BE_SUBSCRIP, 9,"Subscript out of range"
RTEDEF <DD>,BE_REDIM, 10,"Duplicate definition" ;[23] <DD> avoids assembly confusion
RTEDEF DV0, BE_DIVIDE0, 11,"Division by zero"
RTEDEF TM, BE_TYPE, 13,"Type mismatch"
RTEDEF OS, BE_STRINGSP, 14,"Out of string space"
RTEDEF ST, BE_STRINGFO, 16,"String formula too complex"
RTEDEF NR, BE_NORESUME, 19,"No RESUME"
RTEDEF RE, BE_RESUME, 20,"RESUME without error"
RTEDEF DTO, BE_DEVTIME, 24,"Device timeout"
RTEDEF DVF, BE_DEVFAULT, 25,"Device fault"
RTEDEF OTP, BE_NOPAPER, 27,"Out of paper"
RTEDEF ,, 39,"CASE ELSE expected" ;[9]
RTEDEF RVR, BE_RECVARREQ,40,"Variable required" ;[30]
RTEDEF FOV, BE_FIELD, 50,"FIELD overflow"
RTEDEF INT, BE_INTERNAL, 51,"Internal error"
RTEDEF IFN, BE_FILENUM, 52,"Bad file name or number" ;[23]
RTEDEF FNF, BE_NOFILE, 53,"File not found"
RTEDEF BFM, BE_FILEMODE, 54,"Bad file mode"
RTEDEF FAO, BE_FILEOPEN, 55,"File already open"
RTEDEF FSA, BE_FLDACTIVE,56,"FIELD statement active" ;[9]
RTEDEF IOE, BE_DEVICEIO, 57,"Device I/O error"
RTEDEF FAE, BE_EXISTS, 58,"File already exists"
RTEDEF BRL, BE_BADRECLEN,59,"Bad record length" ;[9]
RTEDEF DFL, BE_DISKFULL, 61,"Disk full"
RTEDEF RPE, BE_PASTEND, 62,"Input past end of file" ;[23]
RTEDEF BRN, BE_BADREC, 63,"Bad record number"
RTEDEF BFN, BE_BADNAME, 64,"Bad file name"
RTEDEF TMF, BE_TOOMANY, 67,"Too many files"
RTEDEF DNA, BE_NODEVICE, 68,"Device unavailable"
RTEDEF CBO, BE_COMMBUFF, 69,"Communication-buffer overflow" ;[23]
RTEDEF FWP, BE_HANDSOFF, 70,"Permission denied" ;[23]
RTEDEF DNR, BE_NOTREADY, 71,"Disk not ready"
RTEDEF DME, BE_MEDIA, 72,"Disk-media error" ;[23]
RTEDEF AFE, BE_ADVANCED, 73,"Advanced feature unavailable" ;[23]
RTEDEF RAD, BE_RENAME, 74,"Rename across disks"
RTEDEF ACD, BE_ACCESS, 75,"Path/File access error" ;[24]
RTEDEF PNF, BE_NOTFOUND, 76,"Path not found"
RTEDEF UPE, BE_UNPRINT, 255,"Unprintable error"
;******************************************************************************
;
; MS: Internal Messages of various sorts
; These are just text messages, not necessarily related to errors.
;
;******************************************************************************
RTEDEF ,MS_BASE, 8000H ;[14]Base of messages
RTEDEF ,MS_REDO, 8000H,"Redo from start" ;[23]
RTEDEF ,MS_BYTESFREE, 8001H,<"Bytes free",ASCCR>
RTEDEF ,MS_ULPROMPT, 8002H ;"Cannot find file (" ;[22]
RTEDEF ,MS_ULPROMPTEND 8003H ;"). Input path: " ;[24]
RTEDEF ,MS_ULERR, 8004H ;"Error in loading file ( " ;[22]
RTEDEF ,MS_ULERREND, 8005H ;") - " ;[22]
RTEDEF ,MS_SEED, 8006H,<"Random-number seed (-32768 to 32767)"> ;[24]
RTEDEF ,MS_HITTORETURN,8007H,"Hit any key to return to system" ;[20]
RTEDEF ,MS_QBEND, 8007H ;[14]End of interp messages
RTEDEF ,MS_IN, 8008H," in "
RTEDEF ,MS_OF, 8009H," of "
RTEDEF ,MS_LINE, 800AH,"line "
RTEDEF ,MS_MODULE, 800BH,"module "
RTEDEF ,MS_ATADDR, 800CH," at address "
RTEDEF ,MS_BREAK, 800DH,"*Break*"
IFDEF XX_SMALERR ;[16] Messages used only by smallerr
RTEDEF ,MS_SMALERR, 800EH,"Error 00 occurred" ;[16]
RTEDEF ,MS_SMALUNP, 800FH,"Unprintable error" ;[16]
RTEDEF ,MS_SMALINT, 8010H,"Internal error" ;[16]
ENDIF ;[16] IFDEF XX_SMALERR
IFDEF XX_RTM ;[18] Message used only in runtime module
IFDEF QB4LJ ;[47]
RTEDEF NOZER,MS_SIGNON,8011H,<"Microsoft (R) QuickBasic Compiler Runtime Version 4.20",13,10> ;[50]
ENDIF ; IFDEF QB4LJ ;[47]
IFDEF QB5L ;[47]
RTEDEF NOZER,MS_SIGNON,8011H,<"Microsoft (R) QuickBASIC Compiler Runtime Version 4.50",13,10> ;[53]
ENDIF ; IFDEF QB5L ;[47]
IFDEF QB4 ;[36]
RTEDEF NOZER,MS_SIGNON,8011H,<"Microsoft (R) QuickBasic Compiler Runtime Version 4.00",13,10> ;[34]
ENDIF ; IFDEF QB4 ;[36]
IFDEF QB45LC ;[54]
RTEDEF NOZER,MS_SIGNON,8011H,<"Microsoft (R) QuickBasic (Chinese) Compiler Runtime Version 4.50",13,10> ;[54]
ENDIF ; IFDEF QB4 ;[54]
IFDEF BC6 ;[47]
RTEDEF NOZER,MS_SIGNON,8011H,<"Microsoft (R) BASIC Compiler Runtime Version 6.00",13,10> ;[38]
ENDIF ; IFDEF BC6 ;[47]
IFDEF BC7 ;[50]
RTEDEF NOZER,MS_SIGNON,8011H,<"Microsoft (R) BASIC Compiler Runtime Version 6.00",13,10> ;[50]
ENDIF ; IFDEF BC6 ;[50]
RTEDEF NOZER,, ,<"(C) Copyright Microsoft Corporation, 1982-1988.",13,10> ;[53]
RTEDEF NOZER,, ,<"All rights reserved.",13,10> ;[52]
IFDEF QB5L ;[52]
RTEDEF ,, ,<"Simultaneously published in the U.S. and Canada.",13,10> ;[52]
ENDIF ; IFDEF QB5L ;[52]
RTEDEF ,,, ;[52] zero terminator
ENDIF ;[18] IFDEF XX_RTM
;******************************************************************************
;
; FE: Fatal Errors of various sorts
;
;******************************************************************************
;
; Errors when line numbers and module names should be valid
;
;**** WARNING: If you change order, add or delete messages, make sure
;**** WARNING: that you notify the interpreter of these changes.
RTEDEF ,FE_BASE, 9000H
RTEDEF SSC,FE_CORRUPT, 9000H,"String space corrupt" ;[23]
RTEDEF ,FE_ULDISK, 9001H ;"Disk I/O error"
RTEDEF ,FE_ULINVALID, 9002H ;"Invalid format"
RTEDEF ,FE_ULSEGORDER, 9003H ;"Segment ordering problem"
RTEDEF ,FE_ULFILE, 9004H ;"Cannot find file"
RTEDEF ,FE_QBEND 9004H ;[14]End of QB FE "all valid" messages
RTEDEF EXE,FE_EXE, 9005H,"Error in EXE file" ;[10]
RTEDEF ,FE_STOP, 9006H,"STOP"
RTEDEF OSS,FE_NOSTACK, 9007H,"Out of stack space" ;[31]
;
; Errors when module name should be valid
;
RTEDEF ,FE_NOLINEBASE, 9400H
RTEDEF NOL,FE_NOLINES, 9400H,"No line number in " ;[23]
;
; QB interpreter Initialization errors after Runtime init has
; succeeded.
;
RTEDEF ,FE_QBINITBASE, 9700H ;[19]
;
; Errors when NOTHING is valid
;
RTEDEF ,FE_NOTHINGBASE, 9800H
IFNDEF DOS5 ;[49] not needed under OS/2
IFDEF OM_DOS21 ;[49]
IF OM_DOS21 ;[49]
RTEDEF DOS,FE_DOSERR, 9800H,"Requires DOS 2.10 or later" ;[49]
ELSE ;OM_DOS21 ;[49]
RTEDEF DOS,FE_DOSERR, 9800H,"Requires DOS 3.00 or later" ;[49]
ENDIF ;OM_DOS21 ;[49]
ELSE ;IFDEF OM_DOS21 ;[49]
RTEDEF DOS,FE_DOSERR, 9800H,"Requires DOS 2.10 or later" ;[37]
ENDIF ;IFNDEF OM_DOS21 ;[49]
ENDIF ;IFNDEF DOS5 ;[49]
RTEDEF LLI,FE_LLINITERR, 9801H,"Error during run-time initialization" ;[42]
RTEDEF ,FE_MEMORY, 9802H,"Out of memory" ;[21]
RTEDEF MEM,FE_DOSMEMERR, 9803H,"DOS memory-arena error"
RTEDEF FHC,FE_FHCONSIST, 9804H,"Far heap corrupt" ;[23]
;
;[17] User library loader messages
;
RTEDEF ,FE_ULMEMALLOC, 9806H ;"Memory allocation error"
RTEDEF ,FE_QBNOTHINGEND, 9806H ;[21]End of QB error messages
IFDEF RTM ;[45] Message used only in RTM.
IFDEF DOS5 ;[46] Message used only in OS/2.
IFDEF FO_BUILDRTM ;[48] Message only used with
IF FO_EXTENDRTM ;[47] Extended RTMs
RTEDEF UER,FE_USRRTM, 9807H,"Incompatible extended run-time module" ;[43]
ELSE ;IF FO_EXTENDRTM ;[48] BUILDRTM RTMs
RTEDEF UER,FE_USRRTM, 9807H,"Incompatible run-time module" ;[48]
ENDIF ;[47]IF FO_EXTENDRTM
ENDIF ;[48]IFDEF FO_BUILDRTM
ENDIF ;[46]IFDEF DOS5
ENDIF ;[45]IFDEF RTM
;[29]
; Messages that are generated by the interpeter, processed through the runtime
; error handler, and passed on to the intepreter. (9900H)
;
RTEDEF ,FE_GODIRECT, 9900H ;[29]
;[32] C message number have been given a high byte of 9Ah. All these moved
;[32] here with revision [32].
RCEDEF ,FE_STARTUPBASE,9A00H ; C startup messages
RCEDEF ,,9A00H,<'R6000',13,10,[[QBMESS_1]],13,10>
RCEDEF ,,9A02H,<'R6002',13,10,[[QBMESS_2]],13,10>
RCEDEF ,,9A03H,<'R6003',13,10,[[QBMESS_3]],13,10>
IFNDEF DOS5 ; DOS3-only messages
; Messages copied and used by DOEXEC (these 3 must be contiguous)
RXEDEF EX_MSG_BEG,,
RXEDEF ,9A05H,<13,10,[[QBMESS_4]],13,10,[[QBMESS_5]],13,10,'$'>
RXEDEF ,9A06H,<13,10,[[QBMESS_6]],13,10,[[QBMESS_7]],13,10,'$'>
RXEDEF ,9A07H,<13,10,[[QBMESS_8]],13,10,[[QBMESS_9]],13,10,'$'>
RXEDEF EX_MSG_END,,
ENDIF ; IFNDEF DOS5
;[33] The following messages are required for mixed-language processing and
;[33] internationalization.
RCEDEF ,,9A08H,<'R6008',13,10,[[QBMESS_10]],13,10>
RCEDEF ,,9A09H,<'R6009',13,10,[[QBMESS_11]],13,10>
RCEDEF ,,9A0CH,<'R6012',13,10,[[QBMESS_12]],13,10>
RCEDEF ,,9A0DH,<'R6013',13,10,[[QBMESS_13]],13,10>
RCEDEF ,,9A0EH,<'R6014',13,10,[[QBMESS_14]],13,10>
RCEDEF ,,9A0FH,<'R6015',13,10,[[QBMESS_15]],13,10>
RCEDEF ,FE_STARTUPEND,9AFFH,<13,10,[[QBMESS_16]]> ;[34]
;[34] Die "really quick" errors. These have a high byte of '9B'.
IFDEF RTM ;[34] Messages used only in RTM.
IFNDEF DOS5 ;[34] DOS3-only messages
RTEDEF ,FE_CHNMEMERR,9B00H,<13,10,'Out of memory during CHAIN',13,10>
RTEDEF ,FE_CHNFILERR,9B01H,<13,10,'Error in CHAIN file format',13,10>
ENDIF ; IFNDEF DOS5 ;[34]
ENDIF ; IFDEF RTM ;[34]
;
;[12] Runtime module loader error messages.
;
RLEDEF HeaderErrStr,<"Error in loading RTM: $"> ;[37]
RLEDEF MemAllocErrStr,<"Memory allocation error","$"> ;[23]
RLEDEF CannotFindStr,<"Cannot find file in PATH","$"> ;[23]
RLEDEF DiskIOErrStr,<"Disk I/O error","$"> ;[23]
RLEDEF InvalidStr,<"Invalid format","$"> ;[23]
RLEDEF OutOfMemStr,<"Out of memory","$"> ;[23]
RLEDEF ArenaBadStr,<"DOS memory-arena error","$"> ;[23]
IFDEF FO_BUILDRTM ;[48] Message only used with
IF FO_EXTENDRTM ;[48] Extended RTMs
RLEDEF BadUsrRtmStr,<"Incompatible extended run-time module","$"> ;[43]
ELSE ;IF FO_EXTENDRTM ;[48] BUILDRTM RTMs
RLEDEF BadUsrRtmStr,<"Incompatible run-time module","$"> ;[48]
ENDIF ;[48]IF FO_EXTENDRTM
ENDIF ;[48]IFDEF FO_BUILDRTM
RLEDEF TrailerErrStr,<".",13,10,"$">
RLEDEF PathPromptStr,<"Input run-time module path: ","$"> ;[42]
.LIST
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -