Radio Shack TRS-80 Trsdos & Disk Basic Reference Manual page 111

DISK BASIC
109
•-
PROGRAM: USR1
110
-'
EXAMPLE
OF A
USER MACHINE LANGUAGE FUNCTION
115
'
DEPRESS THE '<?' KEV WHILE NUMBERS ARE PRINTING TO STOP
128
'
130
-
*******
F'OKE
MACHINE PROGRAM INTO
MEMORY *******
148
'
156 DEFUSR1 = .&H7D0O
160 FOR X = 32O00 TO 32013
'7D0O
HEX EQUAL 32000 DECIMAL
170 READ
A
180 POKE
X,
A
190 NEXT X
192
'
194 '
******* CLEAR SCREEN
&
PRINT NUMBERS
1
THRU 100 *******
196
•'
200 CLS
205 PRINT TAB<15);
M
WHITE-OUT USER ROUTINE": PRINT
210 FOR X
= 1
TO 100
220 PRINT
X;
225
A* =
INKEY*:
IF
A*
= "§"
THEN END
230 NEXT
X
240
•'
250 '
******* JUMP TO WHITE-OUT SUBROUTINE *******
260
'
270 X = USR1
(0)
280 FOR X =
1
TO 1000: NEXT X
"DELAY
LOOP
290 GOTO 200
300
'
310 '
******* DATA
IS
DEMICAL CODE FOR HEX PROGRAM *******
320
'
330 DATA
33,
O,
60, 54, 255, 17,
1,
60,
1,
255,
3,
237, 176,
201
RUN
the
program.
An
equivalent
BASIC
white out
routine takes
a
long time
by comparison!
7-25