beautypg.com

Measurement Computing Micro 488/EX rev.2.1 User Manual

Page 216

background image

Appendix D

Sample Programs

D.2

340 ' Main Loop
350 '
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 /RTS
400 IF LOC(1) > 100 THEN OUT MCR,RTSOFF
410 WEND
420 ' buffer is empty - RTS
430 OUT MCR,RTSON
440 K$ = INKEY$ : PRINT#1,K$; : PRINT K$;
450 GOTO 360

See also other documents in the category Measurement Computing Hardware: