Radio Shack TRS-80 CR-510, Руководство по эксплуатации

Страница: 50 / 64

-46-
230 ' Get card reader status (S$) — first character in string returned
by CR-310
240 ' "4" means not reader is not ready
280 S$=MID$(A$,1,1): IF S$="4" THEN 210
330 'Status "0" means reader is not ready, "2" means hopper is empty
340 IF (S$="0" OR S$="2")=0 THEN PRINTTAB(5)"ERROR "S$" has occurred."
:
PRINTTAB(5)"Refer to the CR-310 Owner's Manual for error descriptions.
PRINT:GOTO 140
350 'Get length of text on card and print to screen (ignore status and
following
comma, start at character 3 in string returned by card reader: this co
rresponds
to column 1 on card)
360 L=INSTR(3,A$,CR$)-3: PRINT MID$(A$,3,L)
370 'Status value " 2 " means card hopper is empty
380 IF S$="2" THEN CLS: PRINTTAB(20) "The card hopper is empty.":GOTO
140 ELSE 210
390 "Trap unexpected errors and go back to read again.
400 PRINTTAB(5)"ERROR "ERR/2+1" has occurred.":
PRINTTAB(5)"Refer to the Model III BASIC Language Reference Manual
for error descriptions.":
PRINT: RESUME 140
999 END