500 REM  "CIATEST64"  FOR 64 MODE ONLY.
510 REM  * = INTERRUPT FLAG ERROR.
520 REM  RESET AFTER TEST.
530 REM
540 N=12800:FORI=NTON+103:READA:POKEI,A:Z=Z+A
550 NEXT:IFZ<>11949THENPRINT"DATA ERROR":END
560 SYS65412:X=NOTX:POKE251,XAND255
570 PRINTCHR$(147);"ANY KEY SWITCHES TIMER."
580 PRINT"TESTING TIMER ";CHR$(65-X):SYSN
590 WAIT198,7:POKE198,0:GOTO560
600 DATA 169,  84, 162,  98,  36, 251,  48,   3
610 DATA 170, 169,  98, 160,   3, 141,   4, 221
620 DATA 140,   5, 221, 142,   6, 221, 140,   7
630 DATA 221, 169,  17, 141,  14, 221, 141,  15
640 DATA 221, 162,   2, 160,   7,  36, 251,  48
650 DATA   3, 202, 160,   5, 134, 252, 140,  77
660 DATA  50, 140,  85,  50, 138,  73, 131, 162
670 DATA  72, 160,  50, 142,  24,   3, 140,  25
680 DATA   3, 174,  13, 221, 141,  13, 221,  96
690 DATA  72, 138,  72, 152, 172,   7, 221,  72
700 DATA 173,  13, 221, 216, 204,   7, 221, 176
710 DATA  12,  13,  13, 221,  37, 252, 208,   5
720 DATA 169,  42,  32, 210, 255,  76, 188, 254