IOString - Удобное Чтение/Запись Строк
- 010 REM WRITE_STRING
- 020 REM C%,S$,L%,A$,I%
- 030 READ C%
- 040 READ S$
- 050 L%=LEN(S$)
- 060 FOR I%=1 TO L%
- 070 A$=MID$(S$,I%,1)
- 080 PUT #C%,ASC(A$)
- 090 NEXT I%
- 100 RETURN
- 110 REM READ_STRING
- 120 REM C%,L%,S$,A%,I%
- 130 READ C%
- 140 READ L%
- 150 S$=""
- 160 FOR I%=1 TO L%
- 170 GET #C%,A%
- 180 S$=S$+CHR$(A%)
- 190 NEXT I%
- 200 RETURN
Строки 020, 120 указывают переменные, изменяемые определёной подпрограммой.
Запись строки:
Перед вызовом подпрограммы в data передаём аргументы, где первый - номер канала, а второй - строка.
Чтение строки:
Перед вызовом подпрограммы в data передаём аргументы, где первый - номер канала, а второи - количество байтов, которые нужно прочесть. Прочтённая строка находится в переменной s$.
Запись строки:
- 0 op #0,"hw.txt","OUTPUT"
- 1 data 0,helloworld
- 2 gs 010
- 3 cl #0
Чтение строки:
- 0 op #0,"hw.txt","INPUT"
- 1 data 0,10
- 2 gs 110
- 3 cl #0
- 4 pr s$
- 5 re
