Measurement-computing Micro 488/EX rev.2.1 Bedienungsanleitung Seite 216

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 218
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 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
Seitenansicht 215
1 2 ... 211 212 213 214 215 216 217 218

Kommentare zu diesen Handbüchern

Keine Kommentare