30 IFFL=0THENPOKE45,56:POKE46,74:CLR:FL=1
40 POKE53280,0:POKE53281,0:POKE45,56:POKE46,74:POKE650,255
50 TEXT=8198
100 IFUN=0THENUN=1:LOAD"UNPACKER",8,1
110 :
120 POKE249,224:POKE250,204
140 POKE251,0:POKE252,64
160 POKE253,0:POKE254,0
180 IFX=0THENX=1:LOAD"TITLE.SHP",8,1
200 IFX=1THENX=2:SYS51456:SYS51459
202 IFCT>0THEN900
204 IFDH>0THEN800
205 IFPO>0THEN610
206 IFBL>0THEN540
260 H%=10
320 DATA SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY
340 DIM WD%(120),MO%(120),DA%(120),TI%(120)
360 DIM NX%(120),NY%(120),SH%(120),M$(120)
380 GOSUB4240
400 DT%=1
420 I%=1
440 D=4:FORI=1TO120:WD%(I)=D:D=D+1:IFD>7THEND = 1
460 NEXT 
480 I%(1)=1:I%(2)=32:I%(3)=60:I%(4)=91
500 :
520 :
540 IFBL=0THENBL=1:A=49152:                 LOAD"HORIZONS.BDATA",8,1
560 FORI=1TO117:N=PEEK(A):IFN=255THENA=A+1:NEXT:GOTO 600
580 NX%(I)=N:A=A+1:N=PEEK(A):NY%(I)=N:A=A+1:NEXT
600 FORI=1TO120:N=PEEK(A):SH%(I)=N:A=A+1:NEXT
610 IFPO=0THENPO=1:LOAD"PLOTTER.O",8,1
620 OPEN2,8,2,"WORDY.DATA"
640 FORI=1TO120:INPUT#2,M$(I)
660 IFM$(I)="X"THENM$(I)=M$(I-1)
680 NEXT:CLOSE2
700 FORI=1TO120
720 IFI<26THENTI%(I)=1:NEXT:GOTO 800
740 IFI>105THENTI%(I)=1:NEXT:GOTO 800
760 IFI>=100 AND I<106 OR I>25 AND I<51 THEN TI%(I) = 255
780 NEXT 
800 IFDH=0THENDH=1:LOAD"DISPLAY.SHP",8,1
820 POKE249,224:POKE250,204
840 POKE251,0:POKE252,64
860 POKE253,0:POKE254,0
880 SYS51456
900 IFCT=0THENCT=1:LOAD"COMET.TABLE",8,1
1000 REM              SYS51462
1020 GOSUB 2200:HC%=8
1040 GOSUB 1440
1060 T$="DATE:"+STR$(MO%(I%))+"/"+STR$(DA%(I%))+" "+DY$+"   "
1062 IFLEN(T$)<25THENT$=T$+" ":GOTO1062
1065 SYSTEXT,T$,16,182
1080 T$="TIME:"
1100 IFTI%(I%)=0THENT$=T$+"SUNRISE":GOTO1150
1120 IFTI%(I%)=1THENT$=T$+"SUNSET ":GOTO 1150
1140 T$=T$+"-------"
1150 SYS TEXT,T$,216,182
1160 K=PEEK(198):IFK>0THEN1240
1180 IFFL%=0THENFL%=1:PLOT=8192:GOTO1220
1200 IFFL%=1THENFL%=0:PLOT=8195
1220 GOSUB3820:GOTO1160
1240 GETA$:POKE198,0
1245 IFFL%=0THENPLOT=8192:GOSUB 3820
1260 :
1280 IFA$="[133]"THENGOSUB2280:GOTO1440
1300 IFA$="[136]"THENGOSUB2400:GOTO1440
1320 IFA$="T"ORA$="T"THENGOSUB2480:GOTO1440
1340 :REM   NO INFORMATION
1360 IFA$="Q"THENGOSUB3340:GOTO1440
1380 IFA$="H"THENGOSUB3480:GOTO1440
1400 IFHC%=0THENHC%=4:GOTO1160
1420 GOTO1160
1440 PLOT=8192:GOSUB3820
1442 GOSUB 3940
1480 GOSUB 3980: GOTO 1060
2160 RETURN
2180 PRINTSPC(((42-LEN(A$))/2)):PRINTA$;:RETURN
2200 REM 
2220 DY=WD%(I%):RESTORE
2240 FORI=1TODY:READDY$:NEXT:RETURN
2260 RETURN 
2280 REM 
2300 PLOT=8195:GOSUB 3820
2320 IFI%-DT%<1THENI%=1:GOTO2360
2340 IFI%>=1+DT%THENI%=I%-DT%
2360 GOSUB2200
2380 RETURN 
2400 REM 
2420 PLOT=8195:GOSUB 3820
2440 I%=I%+DT%:IFI%>120THENI%=120
2460 GOSUB2200:RETURN
2480 REM 
2500 SYS51459:PRINT"[147]"
2520 PRINT "* TIME *
2540 [153] "  G)O TO A SPECIFIC DATE": [153] "  A)DJUST THE TIME INCREMENT";
2560 [151]198,0:[146]198,1:[161]A$:[153]
2580 [139]A$[178]"G"[167] 2640
2600 [139]A$[178]"A"[167] 2940
2620 [158]51459:[142]
2640 [143] 
2660 [153]"LOADACCEPTABLE DATES BETWEEN 1/1 AND 4/30": [153]
2680 MO$[178]"":[133]"GO TO WHICH MONTH (1-4)  > ";MO$
2700 [139]MO$[178]""[167][158]51459:[142]
2720 DA$[178]"":[133] "GO TO WHICH DAY (1-31)   > ";DA$
2740 [139]DA$[178]""[167][158]51459:[142]
2760 [139][197](MO$)[179]1[176][197](MO$)[177]4[167]3040
2780 [139][197](DA$)[179]1[176][197](DA$)[177]31[167]3040
2800 [139]MO$[178]"2"[167][139][197](DA$)[177]28[167]3040
2820 [139]MO$[178]"4"[167][139][197](DA$)[177]30[167]3040
2840 PLOT[178]8195:[141] 3820
2860 M%[178][197](MO$):D%[178][197](DA$)
2880 I%[178]I%(M%)[170]D%[171]1
2900 [141]2200
2920 [158]51459:[142]
2940 [143] 
2960 [153]"LOADCURRENT TIME INCREMENT ="DT%"DAYS PER MOVE"
2980 A$[178]"":[133]"ENTER A NEW INCREMENT -> ";A$:[139]A$[178]""[167][158]51459:[142]
3000 DT%[178][197](A$):[139]DT%[179][178]0[167]DT%[178]1
3020 [158]51459:[142]
3040 [143] 
3060 [153]"LOADBAD DATE...": [129] I [178] 1 [164] 2000: [130]
3080 [158]51459:[142]
3340 [143] 
3360 [158]51459:[153]"LOADQUIT FOR SURE? ";:[151]198,0:[146]198,1:[161]A$:[153]A$
3380 [139]A$[179][177]"Y"[175]A$[179][177]"Y"[167][158]51459:[142]
3400 [153]"LOAD"
3420 [153] "BYE!"
3440 [147]"HELLO CONNECT",8
3460 [128]
3480 [143] 
3500 [158]51459:[153]"LOAD"
3520 [153]"             * HELP! *WAIT"
3540 [153]""
3560 [153]"THIS PROGRAM DISPLAYS THE LOCATIONS"
3580 [153]"OF HALLEY'S COMET AS IT WILL APPEAR ON"
3600 [153]"THE SOUTHERN HORIZON DURING THE FIRST"
3620 [153]"120 DAYS OF 1986, JAN 1 - APR 30.":[153]:[153]
3640 [153]"        USE F1 OR F7 TO STEP"
3660 [153]"  BACKWARD AND FORWARD THROUGH TIME":[153]""
3680 [153]"PRESS <T> TO EITHER <G>O TO A SPECIFIC"
3700 [153]"DATE OR TO <A>DJUST THE TIME INCREMENT"
3720 [153]
3760 [153]"    PRESS 'Q' TO EXIT THE PROGRAM"
3765 [153]"      PRESS ANY KEY TO CONTINUE."
3780 K[178][194](198):[139]K[178]0[167]3780
3800 [158]51459:[142]
3820 [143] 
3840 [139]NX%(I%)[178]0[167][142]
3860 XD[178]93[170]NX%(I%):YD[178]144[171]NY%(I%)[172]2:         [158]PLOT,XD,YD
3880 [158]PLOT,XD[171]1,YD[171]1:[158]PLOT,XD,YD[171]1:[158]PLOT,XD[170]1,YD[171]1:[158]PLOT,XD[171]1,YD
3900 [158]PLOT,XD[170]1,YD:[158]PLOT,XD[171]1,YD[170]1:[158]PLOT,XD,YD[170]1:[158]PLOT,XD[170]1,YD[170]1
3920 [142]
3940 [151]249,224:[151]250,204
3942 [151]251,0:[151]252,64
3944 [151]253,3:[151]254,1
3950 [151]255,SH%(I%):[158]51462
3960 [142] 
3980 [143] 
4000 [151]53280,0
4010 :
4020 YP[178]190:T$[178]"                                        ":[158]TEXT,T$,0,YP
4040 XP[178]((41[171][195](M$(I%)))[173]2)[172]8:T$[178]M$(I%)
4050 [158]TEXT,T$,XP,YP
4060 [142] 
4080 [142]
4220 :
4240 [143] 
4260 M%[178]1:D%[178]1
4280 [129]I[178]1[164]120
4300 MO%(I)[178]M%:DA%(I)[178]D%
4320 D%[178]D%[170]1
4340 [139]M%[178]1[167][139]D%[177]31[167]4440
4360 [139]M%[178]2[167][139]D%[177]28[167]4440
4380 [139]M%[178]3[167][139]D%[177]31[167]4440
4400 [139]M%[178]4[167][139]D%[177]30[167]4440
4420 [130]:[142]
4440 M%[178]M%[170]1:D%[178]1
4460 [130]:[142]