dos33fsprogs/basic/cube/cheat.bas

8 lines
112 B
QBasic
Raw Normal View History

2021-03-29 11:58:01 +00:00
1HGR:HCOLOR=3:DEFFNP(X)=PEEK(2054+I*5+X)-32
5HPLOTFNP(0),FNP(1)
6FORI=0TO12:HPLOTTOFNP(I*2),FNP(I*2+1):NEXT