dos33fsprogs/basic/appleiibot/diamond.bas

3 lines
119 B
QBasic

10 FOR I=0 TO 15:READ D:POKE 231+I,D:NEXT:CALL 231
100 DATA 32,216,243,170,32,17,244,169,231,170,168,32,93,246,240,247