Measurement-computing Micro 488/EX rev.2.1 Uživatelský manuál Strana 216

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 218
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 215
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
Zobrazit stránku 215
1 2 ... 211 212 213 214 215 216 217 218

Komentáře k této Příručce

Žádné komentáře