dos33fsprogs/basic/appleiibot/an3.bas

5 lines
163 B
QBasic

1HGR:HTAB11:?"ANNUNCIATOR3 TEST":FORI=0TO159:C=C+1:IFC>7THENC=0
2HCOLOR=C:HPLOT0,ITO279,I:NEXT
3POKE49246,0:FORI=1TO1000:NEXT:POKE49247,1:FORI=1TO1000:NEXT:GOTO3