All topics
2
Yes No
Hide topic messages
Yes No
Enable infinite scrolling
DanySoft posted 1 day ago at 9:34 pm
5 REM save "a.bas
10 CLS
20 C=130:X=0:Y=0:A$="wash":GOSUB1000
21 C=131:X=0:Y=8:A$="man":GOSUB1000
30 END
1000 REM
1010 REM
1020 REM
1030 A=Y:T$=CHR$(C)
1040 FOR J=1 TO LEN(A$)
1050 FOR Z=0 TO 7
1060 V=ASC(MID$(A$,J,1)):B$=RIGHT$("00000000"+BIN$(VPEEK(V*8+Z
)), 8 )
1070 FOR G=1 TO 8
1080 IF MID$(B$,G,1)="1"THEN MID$(B$,G,1)=T$ ELSE MID$(B$,G,1)=" "
10
0replies
3views
All posts under this topic will be deleted ?
With selected deselect topics
Pending draft ... Click to resume editing
Discard draft