Publicité
Programme test :
CLS
DEFINT A-X
counter = 0
OPEN "COM2:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" FOR RANDOM AS #1
KEY ON KEY(1) ON
KEY 1, "GO TO":
ON KEY(1) GOSUB key1
KEY(2) ON
KEY 2, "SYNC"
ON KEY(2) GOSUB KEY2
KEY(3) ON
KEY 3, "SLEW"
ON KEY(3) GOSUB key3
KEY(4) ON
KEY 4, "FIND"
ON KEY(4) GOSUB KEY4
KEY(5) ON
KEY 5, "CNTR"
ON KEY(5) GOSUB KEY5
KEY(6) ON
KEY 6, "GUIDE"
ON KEY(6) GOSUB KEY6
KEY(11) ON
ON KEY(11) GOSUB key11
KEY(12) ON
ON KEY(12) GOSUB key12
KEY(13) ON
ON KEY(13) GOSUB key13
KEY(14) ON
ON KEY(14) GOSUB key14
GOSUB status
GOSUB key3
GOSUB help
20 GOSUB telpos
GOSUB OBDRAW
GOSUB TIME
50 key$ = INKEY$: IF key$ = "" THEN GO TO 20
- 75 -
Publicité
