1 ! +++++++++++++++++++++++++++++++++++ 2 ! Program .... F[RGKART.800 3 ! Utg}va 1.0 1982-04-18 4 ! av (c) Bo Kullmar 8 ! Ins{nt av Bo Kullmar, 1789. 9 ! +++++++++++++++++++++++++++++++++++ 10 ! F{rgkarta f|r ABC800 C 20 Z=FNF{rgkart 65000 DEF FNF{rgkart 65010 ; RED NWBG YEL SPACE$(1) GHOL; 65020 ; GRN NWBG YEL SPACE$(1) GHOL; 65030 ; YEL NWBG YEL SPACE$(1) GHOL; 65040 ; BLU NWBG YEL SPACE$(1) GHOL; 65050 ; MAG NWBG YEL SPACE$(1) GHOL; 65060 ; CYA NWBG YEL SPACE$(1) GHOL; 65070 ; WHT NWBG YEL SPACE$(1) 65080 ; RED 'RED'; : ; GRN ' GRN'; : ; YEL ' YEL'; : ; BLU ' BLU'; : ; MAG ' MAG'; : ; CYA ' CYA'; : ; WHT ' WHT' 65090 ; RED NWBG RED ' '; : ; GRN 'GRN'; : ; YEL 'YEL'; : ; BLU 'BLU'; : ; MAG 'MAG'; : ; CYA 'CYA'; : ; WHT 'WHT' 65100 ; GRN NWBG RED 'RED'; : ; GRN ' '; : ; YEL 'YEL'; : ; BLU 'BLU'; : ; MAG 'MAG'; : ; CYA 'CYA'; : ; WHT 'WHT' 65110 ; YEL NWBG RED 'RED'; : ; GRN 'GRN'; : ; YEL ' '; : ; BLU 'BLU'; : ; MAG 'MAG'; : ; CYA 'CYA'; : ; WHT 'WHT' 65120 ; BLU NWBG RED 'RED'; : ; GRN 'GRN'; : ; YEL 'YEL'; : ; BLU ' '; : ; MAG 'MAG'; : ; CYA 'CYA'; : ; WHT 'WHT' 65130 ; MAG NWBG RED 'RED'; : ; GRN 'GRN'; : ; YEL 'YEL'; : ; BLU 'BLU'; : ; MAG ' '; : ; CYA 'CYA'; : ; WHT 'WHT' 65140 ; CYA NWBG RED 'RED'; : ; GRN 'GRN'; : ; YEL 'YEL'; : ; BLU 'BLU'; : ; MAG 'MAG'; : ; CYA ' '; : ; WHT 'WHT' 65150 ; WHT NWBG RED 'RED'; : ; GRN 'GRN'; : ; YEL 'YEL'; : ; BLU 'BLU'; : ; MAG 'MAG'; : ; CYA 'CYA' 65160 RETURN 0 65170 FNEND