dos33fsprogs/basic/appleiibot/pumpkin.bas

3 lines
280 B
QBasic

0GR:POKE49234,0:FORI=0TO13:READC,A,B,Q,Z:COLOR=C:FORY=QTOZ:HLINA,BATY:NEXTY,I
9DATA 1,0,39,31,47,9,11,27,10,44,9,8,30,13,42,9,6,32,16,37,9,5,33,20,30,4,17,21,4,9,13,11,15,18,22,13,24,28,18,22,13,10,28,31,34,13,12,26,35,36,9,14,15,31,33,9,22,23,34,36,13,19,20,22,27,13,17,22,26,27