4000 poke65299,208:poke216,0:poke217,237
5000 print "HAVE YOU UPDATED THE TABLE AND ADDED    DIRECTIVE ?";
5020 get key A$:print A$
5030 if A$<>"Y" then end
10000 *A,10020
10010 end
10020 "*M
10030 " ORG $1FA7
10040 "OBJSTR: BYT 25;0
10050 " WOR $E0D
10060 " BYT 25 ;1
10070 " WOR $C6A
10080 " BYT 25 ;2
10090 " WOR $CDB
10100 " BYT 25 ;3
10110 " WOR $E18
10120 " BYT 25 ;4
10130 " WOR $E16
10140 " BYT 25 ;5
10150 " WOR $E14
10160 " BYT 25 ;6
10170 " WOR $E12
10180 " BYT 25 ;7
10190 " WOR $EB7
10200 "
10210 "OBJDAT: RES 24
10220 "
10230 "TABL:
10240 "WOR S0,S1,S2,S3,S4
10250 "ORG *+100
10260 "