1270 IF COARSE<>4 AND COARSE<>-2 THEN 1330›1280 CHANGE=-CHANGE:POKE 1791,129-PEEK(1791)›1290 IF CHANGE=1 THEN 1330›1300 POKE 1685,235:POKE 1686,240:SAUCER=1›1310 POKE 675,11›1370 IF SAUCER=1 AND PEEK(1686)<40 THEN SAUCER=0:POKE 675,15›3290 FOR BYTE=30 TO 38:READ DAT:POKE PA+1280+BYTE,DAT:READ DAT:POKE PA+1536+BYTE,DAT:NEXT BYTE›3300 DATA 15,16,31,24,63,28,106,22,106,22,255,31,255,31,56,28,16,8›5300 POKE 1664,0:POKE 1665,43:POKE 1666,43:POKE 1667,255›5310 POKE 1668,50:POKE 1669,0:POKE 1670,5:POKE 1672,200:POKE 1673,235:POKE 1674,240›5320 POKE 1676,201:POKE 1677,30:POKE 1678,30:POKE 1680,201:POKE 1681,30:POKE 1682,30›5330 POKE 1684,128:POKE 1685,0:POKE 1686,5:POKE 1688,201:POKE 1689,30:POKE 1690,30›5365 POKE 675,15›5440 POKE 704,15:POKE 705,40:POKE 706,40›5450 POKE 53248,128:POKE 53249,0:POKE 53250,5›