10 IFA=.THENA=1:LOAD"MAIN.ML",8,1
20 IFA=1THENA=2:LOAD"EDIT.ML",8,1
30 POKE53281,0:POKE53280,0:CLR
40 PRINT"[147]"TAB(14)"EYE-CATCHER"
50 PRINT"             COPYRIGHT 1990"
51 PRINT"     COMPUTE PUBLICATIONS INT'L LTD."
52 PRINT"           ALL RIGHTS RESERVED"
60 PRINT"1) ENTER MESSAGES":PRINT"2) SET TIME":PRINT"3) START DISPLAY"
70 GETA$:IFA$="1"THENSYS8378:GOTO40
80 IFA$="2"THEN150
90 IFA$="3"THEN110
100 GOTO70
110 PRINT"[147]HOW WOULD YOU LIKE THE TIME SHOWN?"
120 PRINT"1) SHOOTING COLOUR":PRINT"2) FADING":PRINT"3) NORMAL
130 [133]V:[139]V[177]3[176]V[179]1[167]130
140 [151]829,V:[158]16640
150 [133]"PRINTWHAT HOUR IS IT (1-12)";H$:[139]H$[178]""[167]150
160 H[178]0:[139][195](H$)[177]1[167]H[178]16
170 HH[178][197]([201](H$,1)):H[178]H[170]HH:[151]56331,H
180 [133]"WHAT MINUTE IS IT (0-59)";M$:[139]M$[178]""[167]180
190 M[178]0:[139][195](M$)[177]1[167]M[178]16[172][197]([200](M$,1))
200 MM[178][197]([201](M$,1)):M[178]M[170]MM:[151]56330,M
210 [133]"WHAT SECOND IS IT (0-59)";S$:[139]S$[178]""[167]210
220 S[178]0:[139][195](S$)[177]1[167]S[178]16[172][197]([200](S$,1))
230 SS[178][197]([201](S$,1)):S[178]S[170]SS:[151]56329,S:[151]56328,0
240 [137]40