mirror of
https://github.com/equant/apple2idiot.git
synced 2024-11-05 01:07:26 +00:00
9 lines
202 B
QBasic
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 |