Apple-2-HW
/
apple2idiot
mirror of https://github.com/equant/apple2idiot.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changing to use NULL terminated strings

This commit is contained in:
Nathanial Hendler 2021-09-21 12:29:28 -07:00 committed by GitHub
parent ddb8ecf415
commit b962b9df0c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/weather/WEATHER.BAS
View File

@ -62,16 +62,16 @@
4177 REM PRINT
4180 REM PRINT WD1$ + ", " + WD2$
4500 GOTO 100
10000 REM WRITE WS$ TO WA
10000 REM ============ WRITE WS$ TO WA IN RAM ================
10010 FOR N = 0 TO LEN(WS$) -1
10020 P = WA +N
10030 C$ = MID$ (WS$,N +1,1)
10040 REM PRINT C$, ASC (C$)
10050 POKE P, ASC(C$)
10060 NEXT N
10070 POKE P +1,3
10070 POKE P +1,0
10080 RETURN
11000 REM ============ WRITE STRING TO RAM =================
11000 REM ============ READ STRING FROM 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
@ -79,8 +79,8 @@
11060 FOR N = 0 TO MAXSTR
11080 P = RA +N
11100 C = PEEK(P)
11120 IF C = 3 THEN GOTO 11200
11120 IF C = 0 THEN GOTO 11200
11140 RS$ = RS$ + CHR$(C)
11160 REM PRINT N+1,P,C, CHR$ (C)
11180 NEXT N
11200 RETURN
11200 RETURN