0  BEGIN PGM ALT_PAL MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+1002 ; NUMBER NC MACRO ON
2  FN 18: SYSREAD Q0 = ID510 NR2 IDX0 ; PAL No
3  FN 9: IF +Q0 EQU +1 GOTO LBL 1
4  FN 9: IF +Q0 EQU +2 GOTO LBL 2
5  FN 9: IF +0 EQU +0 GOTO LBL 3
6  LBL 1
7  M61
8  FN 9: IF +0 EQU +0 GOTO LBL 4
9  LBL 2
10 M62
11 FN 9: IF +0 EQU +0 GOTO LBL 4
12 LBL 3
13 FN 14: ERROR= 1004
14 STOP
15 LBL 4
16 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
17 END PGM ALT_PAL MM