apple2idiot/examples/00_ram_tools-basic/STRREAD.SUB.BAS

13 lines
385 B
QBasic
Raw Normal View History

2021-09-19 17:47:33 +00:00
11000 REM ============ WRITE STRING TO RAM =================
11001 REM RA ADDRESS TO START READ
11002 REM MAXSTR IS LIMIT TO STR SIZE WE READ
11020 IF MAXSTR = 0 THEN MAXSTR = 250
11040 RS$ = ""
11060 FOR N = 0 TO MAXSTR
11080 P = RA +N
11100 C = PEEK(P)
11120 IF C = 3 THEN GOTO 400
11140 S$ = S$ + CHR$(C)
11160 REM PRINT N+1,P,C, CHR$ (C)
11180 NEXT N
11200 RETURN