dos33fsprogs/textmode/mousetext/mt.bas

7 lines
121 B
QBasic

5 HOME
10 POKE 49167,0
20 FOR A=0 TO 15:POKE 1024+A,64+A:NEXT A
30 FOR A=0 TO 15:POKE 1280+A,80+A:NEXT A
40 PRINT:PRINT