A.N.A.L.O.G. Magazine 1989 March/89_mar.atr/gdw6.lst

File List | 2023-02-26 | 810b | 1 lines

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¢