![background image](http://html1.mh-extra.com/html/radio-shack/trs-80-cr-510/trs-80-cr-510_operation-manual_3298152050.webp)
-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
Summary of Contents for TRS-80 CR-510
Page 1: ......
Page 8: ......
Page 12: ...Figure 7 Baud Rate Switch Positions...
Page 17: ...Figure 10 Card Specifications Chart 1 3...
Page 24: ...20...
Page 34: ...30...
Page 39: ...35...
Page 40: ...36...
Page 41: ...37...
Page 42: ...38...
Page 43: ...39...
Page 44: ...40...
Page 45: ...4 1...
Page 46: ...42...
Page 47: ...43...
Page 48: ...44...
Page 51: ...A 1...
Page 52: ...A 2...
Page 53: ...A 3...
Page 54: ...A 4...
Page 55: ...B 1 Figure B1 General Purpose Card Appendix B Card Specification...
Page 56: ...B2...
Page 58: ...C2...
Page 60: ...D 2 Card Trailing Edge Card Must Be Placed Face Down In the Card Hopper Card Left Card Right...
Page 63: ......