55000 KEY OFF:CLS 55001 WIDTH 40:DEF SEG=0:A=PEEK(&H410):POKE &H410, A OR &H30 55002 WIDTH 80:LOCATE ,,1,12,13:KEY ON:REM coltomon.bas pgm.