Measurement-computing Micro 488/EX rev.2.1 Manuel d'utilisateur télécharger pdf (Page 218)

Appendix D Sample Programs

D.4

300 ' enable Macro #4 to execute on error detection

310 PRINT#1,"on error domacro 4"

320 '

330 ' Xon Main Loop

340 '

350 PRINT#1,XON$;

360 WHILE NOT EOF(1)

370 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;

380 PRINT INPUT$(1,1);

390 ' if greater than 100 characters in buffer then Xoff

400 IF LOC(1) > 100 THEN GOTO 440

410 WEND

420 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;

430 GOTO 360

440 '

450 ' Xoff Main Loop

460 '

470 PRINT#1,XOFF$;

480 WHILE NOT EOF(1)

490 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;

500 PRINT INPUT$(1,1);

510 WEND

520 GOTO 350

1 2 ... 213 214 215 216 217 218

Pas de commentaire

Measurement-computing Micro 488/EX rev.2.1 Manuel d'utilisateur Page 218