Measurement-computing Micro 488/EX rev.2.1 Instrukcja Użytkownika Pobierz pdf (Strona 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

Komentarze do niniejszej Instrukcji

Brak uwag