Radio Shack TRS-80 Voxbox - Page 15

Running the
Application
Programs
Inventory Demo Program (Continued)
2425
U=U*1
2430 GOTO 2330
2500
PRINT
SPRINT
"
OK"
2505 PRINTS
512.
"
2510
GOTO 2005
2600
REM
BACKSPACE
2610
C=C-l:D=D-LKC>
2620
PRINTSDi
"
"
;
2640 IF U=0 THEN 2005
2645 C=C-1
2650 U=U-i
2660 GOTO 2120
2700 C=C-1
:D=D-L1 (C)
2710 PRINT3Di
"
"
5
2730 IF
U=0 THEN
2120
2740 OC--1
2745 U=U-i
2750
GOTO 2330
2800
PRINT
SPRINT
"
SCRATCH"
28 1
P R I NT 85 1 2 »
ST R I NG* <
32
,
"
"
)
2820 GOTO 2005
6000
POKE
16526^3
6010 POKE 16527
5
Rl
6015 SET
(0*0)
6020
X=USR(0)
6025 RESET
(0,0)
6030
X=PEEK(B1
)
6040 IF X>V
THEN 6000
6050
W*=WD*(X)
6052 C=C+ 1
:
P
1
* < C
)
:
==W*
:
L
1
<
C
)
=2*LEN
<
W* )
6080
RETURN
7000 REM INITIALIZE
TABLES
70 1 WD*
( 1 )
=•
"
SCRAT
CH
"
7020 WD*<2)="PART"
7030 WD*
<
3
)
=
" QUANT
I T
Y
"
7040
WD*(4)="0K"
7050 WD* ( 5
)
=
" BACKSPACE
"
7060 WD* <6)
=
"
OK"
7070
WD*<7)="SAVE"
7080
WD*(S)="0"
7090 WD*(9)="1"
7100 WD*(10>="2"
7110 WD*(11)="3"
7120 WD*U2)
=
"4"
13