apple2idiot/examples/00_ram_tools-basic/STRWRITE.SUB.BAS
2022-07-16 11:02:15 -07:00

9 lines
202 B
QBasic

10000 REM WRITE WS$ TO WA
10010 FOR N = 0 TO LEN(WS$) -1
10020 P = WA +N
10030 C$ = MID$ (WS$,N +1,1)
10040 PRINT C$, ASC(C$)
10050 POKE P, ASC(C$)
10060 NEXT N
10070 POKE P +1,3
10080 RETURN