[Back to ENTRY SWAG index] [Back to Main SWAG index] [Original]

    Program MaxInputDemo;
    { Released for SWAG; Public Domain, written by Andrew Eigus
      Internet: aeigus@fgate.castle.riga.lv, aeigus@kristin.cclu.lv
      Fidonet: 2:5100/33 }

    Procedure lReadLn(var Str : string; MaxLength : byte); assembler;
    { Buffered string input from a standard console device }
    Asm
      push ds
      lds si,Str
      mov dx,si
      mov ah,0Ah
      mov bl,MaxLength
      inc bl
      mov [si],bl
      int 21h
      les di,Str
      cld
      inc si
      lodsb
      mov cl,al
      stosb
      xor ch,ch
      jcxz @@1
      rep movsb
    @@1:
      pop ds
    End; { lReadLn }

    var S : string;

    Begin
      Write('Enter a string (max 10 characters) : ');
      lReadln(S, 10);
      WriteLn;
      WriteLn('Entered string is "', S, '"')
    End.

[Back to ENTRY SWAG index] [Back to Main SWAG index] [Original]