Код:
20 GOSUB 60000
60000 REM FDOP FIX
60010 FOR I=0 TO 83
60020 READ FDOP
60030 POKE &HF6A0+I, FDOP
60040 NEXT I
60050 RETURN
60500 DATA 11, 0, 255, 255, 255, 255
60501 DATA 23, 0, 255, 255, 255, 255
60502 DATA 26, 0, 255, 255, 255, 255
60503 DATA 21, 0, 255, 255, 255, 255
60504 DATA 8, 0, 255, 255, 255, 255
60505 DATA 16, 0, 255, 255, 255, 255
60506 DATA 24, 0, 255, 255, 255, 255
60507 DATA 12, 0, 255, 255, 255, 255
60508 DATA 25, 0, 255, 255, 255, 255
60509 DATA 4, 0, 255, 255, 255, 255
60510 DATA 30, 0, 255, 255, 255, 255
60511 DATA 29, 0, 255, 255, 255, 255
60512 DATA 28, 0, 255, 255, 255, 255
60513 DATA 31, 0, 255, 255, 255, 255