mirror of
https://github.com/equant/apple2idiot.git
synced 2024-11-19 01:07:42 +00:00
13 lines
385 B
QBasic
13 lines
385 B
QBasic
|
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
|