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

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

1 2 ... 211 212 213 214 215 216 217 218

Commentaires sur ces manuels

Pas de commentaire