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

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

-45-
10 'BCRNOTES: BASIC Card Reader program (with comments)
20 'TRS-80 Model III - CR-510 Intelligent Card Reader Demonstration 1
/12/83
30 "Copyright TANDY CORPORATION 1983
40 'Clear string space, initialize variables, set up error trap
50 CLEAR 500: DEFINT A-Z : ON ERROR GOTO 340
60 ' Define beginning address of assembly language card reader driver
NOTE: The only difference between BCR32 and BCR48
is this beginning address
70 DEFUSR0=&HFD03
75 '
80 'Define carriage return (CR$), card reader control string character
(ZZ$), card length (CL), and initialize variable values
90 CR$=CHR$(13): ZZ$=CHR$(0): CL=40: T0$="X,PIK": TX$="X,"
100 A$=ZZ$+STRING$(2+CL+1,"-"): S$=" ": X=0
110 'Clear screen and begin demonstration
120 CLS: PRINTTAB(10)"TRS-80 CR-510 Card Reader Demonstration":PRINT:P
RINT:
PRINT"This program illustrates the software components used to read
cards with the TRS-80 CR-510 Card Reader and the TRS-80
Model III microcomputer."
130 PRINT"For listings of the program source files involved, refer to
the CR-510 Owner's Manual.":PRINT
140 PRINTTAB(5)"When the card hopper is loaded and the CR-510 is ready
,":
PRINTTAB(6)"press < ENTER > to continue, or press < X > to exit.": QQ$
=INKEY$
150 'Wait for 'X' or 'x' to exit or ENTER to continue
160 QQ$=INKEY$: IF (QQ$="X" OR QQ$="x") THEN END ELSE IF QQ$<>CHR$(13)
THEN 160
170 ' Initialize card reader
180 T1$="X,RES ASC EC0 ST1 DFD": X=VARPTR(Tl$): X=USR0(X)
190 PRINT:PRINT:PRINTTAB(15)"The card reader is initialized.":
PRINTTAB<6)"Press < START > on the CR-510 to begin reading cards.":PRI
NT
200 ' Read cards
210 MID$(T0$,l,2)=TX$: X=VARPTR(T0$): X=USR0(X)
220 MID$(A$,1,1)=ZZ$: X=VARPTR(A$): X=USR0<X)