18-11-88/ATSCAL

Home » CEEFAX disks » telesoftware10.adl » 18-11-88/ATSCAL

18-11-88/ATSCAL

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware10.adl
Filename:	18-11-88/ATSCAL
Read OK:	✔
File size:	1F03 bytes
Load address:	FFFF1A00
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

CEEFAX disks » telesoftware10.adl » 18-11-88/ATSCAL
CEEFAX disks » telesoftware16.adl » 10-06-89/ATScal

File contents

   10MODE7
   20 HIMEM=&5000:J%=0:D%=&5466
   30*LOAD DUMPS 5000
   40ON ERROR GOTO 3170
   50PROCgetdata
   60REPEAT:PROCMENU:UNTIL0
   70 END
   80DEF PROCMC
   90 DIM FRED &40
  100FOR N=0 TO 2 STEP 2
  110P%=FRED
  120[OPTN
  130.OSWORD
  140LDX#0:LDY#&09:LDA#&7A
  150JSR&FFF1:RTS
  160.TTXON
  170LDA#13:STA&0900
  180JSR OSWORD:RTS
  190.STATUS
  200LDA#17:STA&0900
  210JSR OSWORD:RTS 
  220.DATE
  230LDA#22:STA&0900
  240JSR OSWORD
  250LDA&090C
  260CMP#0:BNE DATE
  270RTS
  280.TTXOFF:LDA#12:STA&0900:JSR OSWORD:RTS
  290]:NEXT
  300ENDPROC
  310DEF PROCgetdata
  320CLS
  330PROCMC
  340 
  350CALL STATUS:IF ?&0901<>0 THEN PROCENDIT
  360PROCget_date_data
  370*TTXOFF
  380 
  390date=day%
  400month=month%
  410year=year%
  420leapflag=year MOD 4
  430day=W+1
  440 
  450 
  460 
  470 
  480 
  490 
  500CLS:PROCday(day):PRINT day$:PRINT D$:PRINT:PRINT"Is this data correct?" 
  510I=GET:IF I=ASC"N" OR I=ASC"n" THENRUN
  520PROCfirstday
  530PROClength(Z)
  540ENDPROC
  550ENDPROC
  560 DEF PROCenter(X$):A$=""
  570PRINTTAB(3,12)"         "
  580 
  590PRINTTAB(3,10)"PLEASE ENTER THE ";X$;" AS 2 FIGS"   
  600FOR N= 1 TO 2
  610I=GET:IF I<48 OR I>57 THEN 610
  620A$=A$+CHR$(I):PRINTTAB(3,12)A$ 
  630NEXT
  640ENDPROC
  650DEF PROCday(number)
  660DATA Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday
  670RESTORE 660
  680FOR N=1 TO number
  690READ day$:NEXT
  700ENDPROC
  710DEF PROCfirstday
  720X=1:Y=day+1:Z=month:ZZ=year
  730 IF Y>7 THEN Y=1
  740FORN=date TO 1 STEP -1
  750Y=Y-1:IF Y=0 THEN Y=7
  760NEXT
  770 ENDPROC
  780DEF PROCmonth(number)
  790DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  800RESTORE 790
  810FOR N=1 TO number
  820READ month$:NEXT
  830ENDPROC
  840DEF PROClength(number)
  850DATA 31,28,31,30,31,30,31,31,30,31,30,31
  860RESTORE 850
  870FOR N=1 TO number
  880READ len:NEXT
  890IF number=2 AND leapflag=0 THEN len=29
  900ENDPROC
  910DEF PROCpday
  920Y=Y+1:IF Y>7 THEN Y=1
  930ENDPROC
  940DEF PROCmday 
  950Y=Y-1:IF Y<1 THEN Y=7
  960ENDPROC
  970DEF PROCback
  980PROCmday
  990Z=Z-1:IF Z<1 THEN ZZ=ZZ-1
 1000IF Z<1 THEN Z=12
 1010leapflag=ZZ MOD 4
 1020PROClength(Z):X=1
 1030FOR N=len-1TO 1 STEP -1
 1040PROCmday:NEXT
 1050ENDPROC
 1060DEF PROCforward
 1070FOR N=1 TO len
 1080PROCpday:NEXT
 1090Z=Z+1:IF Z>12 THEN ZZ=ZZ+1
 1100IF Z>12 THEN Z=1
 1110leapflag=ZZ MOD 4
 1120PROClength(Z)
 1130ENDPROC
 1140DEF PROCSCREEN
 1150IF J%=1 THEN PROCJOTTER
 1160IF J%=1 THEN ENDPROC
 1170IF J%=3 THEN PROCTHREE
 1180IF J%=3 THEN ENDPROC
 1190CLS:PROCmonth(Z):PRINTTAB(3,0)CHR$(141);"�";month$;:PRINTTAB(3,1)CHR$(141);"�";month$;:PRINTTAB(20,0)CHR$(141);"�";ZZ:PRINTTAB(20,1)CHR$(141);"�";ZZ 
 1200PRINTTAB(0,2)"�    SUN  MON  TUE  WED  THR  FRI  SAT"
 1210X=1:yy=3:FOR N=Y TO 7
 1220PRINTTAB(N*5,yy)CHR$(141);:PROCscreen 
 1230PRINTTAB(N*5,yy+1)CHR$(141);:PROCscreen
 1240X=X+1:NEXT
 1250FOR J=1 TO 5:yy=yy+4:FOR N=1 TO 7
 1260PRINTTAB(N*5,yy)CHR$(141);:PROCscreen
 1270PRINTTAB(N*5,yy+1)CHR$(141);:PROCscreen
 1280IF X=0 THEN X=-1
 1290X=X+1:NEXT:NEXT
 1300PRINTTAB(23,38);
 1310ENDPROC
 1320DEF PROCscreen
 1330IF X>len THEN X=0
 1340IF X<10 THEN X$="0"+STR$(X)
 1350IF X>9 THEN X$=STR$(X)
 1360IF X=0 THEN X$=""
 1370PRINT X$;
 1380ENDPROC
 1390DEF PROCnmonth
 1400PROCforward
 1410PROCSCREEN
 1420ENDPROC
 1430DEF PROClmonth
 1440PROCback
 1450PROCSCREEN
 1460ENDPROC
 1470DEF PROCMANUAL
 1480 PROCSCREEN
 1490REPEAT
 1500*FX15,0
 1510I=GET
 1520PROCcheckthree
 1530 IF I=ASC">" OR I=ASC"." THEN PROCnmonth
 1540IF I=ASC"<" OR I=ASC"," THEN PROClmonth
 1550 IF I=ASC"P"OR I=ASC"p" THEN CALLD%
 1560IF I=ASC"P"ORI=ASC"p"THEN PROCnmonth
 1570 
 1580UNTIL I=32
 1590ENDPROC
 1600DEF PROCTHISYEAR
 1610 IFJ%=3 THEN J%=0
 1620FOR N%=Z TO 1 STEP -1
 1630PROCback:NEXT
 1640CALL&5773
 1650FORN%=1TO12:PROCforward:PROCSCREEN:CALL&5794:NEXT
 1660ENDPROC
 1670DEFPROCSETPAGE
 1680 
 1690CLS
 1700PRINT'"���   ���ﰪ￥�굪￥꿯���"
 1710PRINT"���   ���굠굠��굠굠굠���"
 1720PRINT"���   꿯�����굠����굠꿯����"
 1730PRINT"���   굠��봠굠�뵠굠굠���"
 1740PRINT"���   ����������������������������"
 1750PRINT"      ����������������������������"
 1760PRINT"�1...high�2...double�3...single�4...quad";
 1770PRINT'"�5...A4HIGH�6...A4DOUBLE�7...A4QUAD"
 1780PRINT"����������������������������������������";
 1790PRINT''"��8....SUPER THREE ACROSS ONE PAGE"
 1800PRINT"��8....SUPER THREE ACROSS ONE PAGE"
 1810PRINT"      �Best not to use the shades"
 1820PRINT"����������������������������������������";
 1830PRINT'" ��(O)PTIONS (M)ARGIN (H)EIGHT�for A4."
 1840PRINT" ��(O)PTIONS (M)ARGIN (H)EIGHT�"
 1850PRINT"����������������������������������������";
 1860PRINT'"�Please select density ect.��<space>";
 1870REPEAT
 1880II=GET
 1890IF II=ASC"1" THEN D%=&51A9 
 1900IF II=ASC"2" THEN D%=&518B
 1910IF II=ASC"3" THEN D%=&5027
 1920IF II=ASC"4" THEN D%=&51C7
 1930IF II=ASC"5" THEN D%=&5466
 1940IF II=ASC"6" THEN D%=&5486
 1950IF II=ASC"7" THEN D%=&54A6
 1960IF II=ASC"8" THEN D%=&5794
 1970IF II=ASC"8" THEN CALL&5773
 1980 
 1990IF II=ASC"O" THEN CALL&5941
 2000IF II=ASC"M" THEN CALL&59C4
 2010IF II=ASC"H" THEN CALL&5A1E
 2020VDU2,1,7,3
 2030 IFII=ASC"1"THENPRINTTAB(0,0)"�HIGH SPEED GRAPHICS narrow dump        "
 2040 IFII=ASC"2"THENPRINTTAB(0,0)"�DOUBLE DENSITY GRAPHICS narrow dump    " 
 2050IFII=ASC"3"THENPRINTTAB(0,0)"�SINGLE GRAPHICS narrow dump            "
 2060IFII=ASC"4"THENPRINTTAB(0,0)"�QUAD DENSITY narrow dump               "
 2070IFII=ASC"5"THENPRINTTAB(0,0)"�A4 HIGH SPEED GRAPHICS �� (set height) "
 2080IFII=ASC"6"THENPRINTTAB(0,0)"�A4 DOUBLE DENSITY GRAPHS.�(set height) "
 2090IFII=ASC"7"THENPRINTTAB(0,0)"�A4 QUAD DENSITY GRAPHS.  �(set height) "
 2100IFII=ASC"8"THENPRINTTAB(0,0)"�THREE DUMPS ACROSS ONE PAGE SELECTED   "
 2110UNTIL II=32
 2120ENDPROC
 2130DEF PROCTHREEMONTHS
 2140PROCfirstday:PROClength(Z)
 2150PROCback:PROCback
 2160CALL&5773:FOR N%=1TO3
 2170PROCforward:PROCSCREEN:CALL&5794:NEXT
 2180ENDPROC
 2190DEF PROCLASTYEAR
 2200 IF J%=3 THEN J%=0
 2210FOR N%=Z TO 1 STEP -1
 2220PROCback:NEXT 
 2230PROCback
 2240FOR N%=Z TO 1 STEP -1   
 2250PROCback:NEXT
 2260CALL&5773
 2270FORN%=1TO12:PROCforward:PROCSCREEN :CALL&5794:NEXT
 2280ENDPROC
 2290DEF PROCNEXTYEAR
 2300 IF J%=3 THEN J%=0 
 2310FOR N%=Z TO 11
 2320PROCforward:NEXT
 2330CALL&5773
 2340FOR N%=1TO12:PROCforward
 2350PROCSCREEN:CALL&5794:NEXT
 2360ENDPROC
 2370DEF PROCJOTTER:CLS:JY=Y
 2380PROCmonth(Z):PRINTTAB(5,0)"�";month$:PRINTTAB(17,0);"�";ZZ   
 2390FORN=1TO24:PRINTTAB(13,N)":";TAB(26,N)":";:NEXT
 2400PRINTTAB(0,1)STRING$(40,"-")
 2410PRINTTAB(0,24)STRING$(39,"-");
 2420X=1
 2430FOR K=2 TO 22 STEP 2  
 2440PROCday(JY):PROCpJY:PRINTTAB(0,K)LEFT$(day$,3);" ";STR$(X);:X=X+1:NEXT 
 2450FOR K=2 TO 22 STEP 2 
 2460PROCday(JY):PROCpJY:PRINTTAB(14,K)LEFT$(day$,3);" ";STR$(X);:X=X+1:NEXT
 2470FOR K=2 TO 22 STEP 2
 2480PROCday(JY):PROCpJY:PRINTTAB(27,K)LEFT$(day$,3);" ";STR$(X);:X=X+1
 2490IF X>len THEN K=22
 2500NEXT
 2510ENDPROC
 2520DEF PROCpJY
 2530JY=JY+1:IF JY>7 THEN JY=1
 2540ENDPROC
 2550DEF PROCTHREE:CLS
 2560PROCback
 2570FOR KK=1TO3:PROCforward
 2580PROCmonth(Z):PRINTTAB(3);"�";month$;:PRINTTAB(20)"�";ZZ
 2590PRINT"�    SUN  MON  TUE  WED  THR  FRI  SAT"
 2600X=1:FOR N=Y TO 7
 2610PRINTTAB(N*5)" ";:PROCscreen
 2620X=X+1:NEXT
 2630FOR J=1 TO 5:FOR N=1 TO 7
 2640PRINTTAB(N*5)" ";:PROCscreen
 2650IF X=0 THEN X=-1
 2660X=X+1:NEXT:NEXT
 2670NEXT: ENDPROC  
 2680DEF PROCcheckthree
 2690IF J%<>3 THEN ENDPROC
 2700IF I=ASC"<" OR I=ASC"," THEN PROCextra
 2710ENDPROC
 2720DEF PROCextra
 2730PROCback:PROCback:PROCback:PROCback
 2740ENDPROC
 2750DEFPROCMENU
 2760CALL&5810:CLS
 2770PRINT"�           �CALENDAR MENU �"
 2780PRINT"�           �CALENDAR MENU"
 2790PRINT" ���������������������������������������";
 2800PRINT"�    � 1...BROWSE OPTION"
 2810PRINT"�    � 1...BROWSE OPTION"
 2820PRINT"          �With this selection you can"
 2830PRINT"          �move forward and back with"
 2840PRINT"          �the keys < and >. If you want";
 2850PRINT"          �a printout just press 'P'. To";
 2860PRINT"          �set up the printer dump sizes";
 2870PRINT"          �press 'P' now.Three types of"
 2880PRINT"          �display are available,(T)hree";
 2890PRINT"          �(N)ormal and (J)otter which"
 2900PRINT"          �prints a jotter type cal."
 2910PRINT"          �PLEASE SELECT NOW N,T OR J."
 2920PRINT"����������������������������������������";
 2930PRINT"�         �COMPACT AUTO DUMPS"
 2940PRINT"�         �COMPACT AUTO DUMPS"
 2950PRINT"          �������������������"
 2960PRINT"�       2..THIS YEARS CALENDAR"
 2970PRINT"       �3..NEXT YEARS CALENDAR"
 2980PRINT"       �4..LAST YEARS CALENDAR"
 2990PRINT"       �5..CURRENT THREE MONTHS"
 3000 PROCfirstday:PROClength(Z)
 3010PRINT"�TO-DAYS DATE SHOULD BE:";
 3020PROCday(day):PRINTTAB(28,0);"�";day$
 3030PRINTTAB(25,23)D$;
 3040I%=GET
 3050IF I%=ASC"2" THEN PROCTHISYEAR
 3060IF I%=ASC"3" THEN PROCNEXTYEAR
 3070IF I%=ASC"4" THEN PROCLASTYEAR
 3080IF I%=ASC"5" THEN PROCTHREEMONTHS
 3090IF I%=ASC"P" THEN PROCSETPAGE
 3100IF I%=ASC"N" THEN J%=0
 3110IF I%=ASC"J" THEN J%=1
 3120IF I%=ASC"T" THEN J%=3
 3130IF I%=ASC"1" THEN PROCMANUAL
 3140I%=0
 3150VDU7:GOTO2760
 3160ENDPROC
 3170PROCfirstday:PROClength(Z)
 3180*FX15,0
 3190GOTO60
 3200DEF PROCENDIT
 3210PRINT"PLEASE CHECK YOUR TELETEXT UNIT"'"THEN START AGAIN"
 3220 
 3230END
 3240DEF PROCset_varables
 3250DIM info% 15
 3260*TTXON
 3270*BBC1
 3280TIME=0:REPEAT:UNTIL TIME>150  
 3290ENDPROC
 3300DEF FNTSDPdate
 3310A%=&7A:X%=info%MOD256:Y%=info%DIV256
 3320?info%=15:CALL&FFF1
 3330BB1$=RIGHT$(STR$~(info%?8),1)
 3340BB2$=STR$~(info%?9):IF LEN(BB2$)=1 BB2$="0"+BB2$
 3350BB3$=STR$~(info%?10):IF LEN(BB3$)=1 BB3$="0"+BB3$
 3360JD=VAL(BB1$+BB2$+BB3$)
 3370IF JD<47226="Date not avilable"
 3380Y1=(100*(JD-15078.2))DIV36525
 3390M1=INT((JD-14956.1-INT(365.25*Y1))/30.6001)
 3400day%=JD-14956-INT(365.25*Y1)-INT(30.6*M1):K=INT(0.7+(1/(17-M1)))
 3410month%=M1-1-12*K
 3420year%=1900+Y1+K
 3430=RIGHT$("0"+STR$(day%),2)+"/"+RIGHT$("0"+STR$(month%),2)+"/"+RIGHT$("0"+STR$(year%),4) 
 3440DEF PROCinterpret_date(d%,m%,y%,MJD)
 3450W=(MJD+3) MOD 7
 3460 RESTORE 3530
 3470FOR dd%=1 TO W
 3480READ day$:NEXT
 3490 RESTORE 3540
 3500FOR mm%=1TOm%
 3510READ month$:NEXT
 3520year$=STR$(year%)
 3530DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
 3540DATA January,February,March,April,May,June,July,August,September,October,November,December
 3550ENDPROC
 3560DEF PROCget_date_data
 3570PROCset_varables
 3580D$=FNTSDPdate
 3590PROCinterpret_date(day%,month%,year%,JD)
 3600ENDPROC


�7
 �=&5000:J%=0:D%=&5466
*LOAD DUMPS 5000
(� � � �DbL
2�getdata
<�:�MENU:�0
F �
P	� �MC
Z � FRED &40
d� N=0 � 2 � 2
nP%=FRED
x	[OPTN
�.OSWORD
�LDX#0:LDY#&09:LDA#&7A
�JSR&FFF1:RTS
�
.TTXON
�LDA#13:STA&0900
�JSR OSWORD:RTS
�.STATUS
�LDA#17:STA&0900
�JSR OSWORD:RTS 
�	.DATE
�LDA#22:STA&0900
�JSR OSWORD
�LDA&090C
CMP#0:BNE DATE
RTS
*.TTXOFF:LDA#12:STA&0900:JSR OSWORD:RTS
"]:�
,�
6� �getdata
@�
J�MC
T 
^!� STATUS:� ?&0901<>0 � �ENDIT
h�get_date_data
r*TTXOFF
| 
�
date=day%
�month=month%
�year=year%
�leapflag=year � 4
�day=W+1
� 
� 
� 
� 
� 
� 
�7�:�day(day):� day$:� D$:�:�"Is this data correct?" 
�I=�:� I=�"N" � I=�"n" ��

�firstday
�length(Z)
�
&�
0 � �enter(X$):A$=""
:�3,12)"         "
D 
N1�3,10)"PLEASE ENTER THE ";X$;" AS 2 FIGS"   
X� N= 1 � 2
bI=�:� I<48 � I>57 � �DbB
lA$=A$+�(I):�3,12)A$ 
v�
��
�� �day(number)
�>� Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday
�
� �tTB
�� N=1 � number
�� day$:�
��
�� �firstday
�X=1:Y=day+1:Z=month:ZZ=year
� � Y>7 � Y=1
��N=date � 1 � -1
�Y=Y-1:� Y=0 � Y=7
��
 �
� �month(number)
[� JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
 
� �TVC
*� N=1 � number
4� month$:�
>�
H� �length(number)
R)� 31,28,31,30,31,30,31,31,30,31,30,31
\
� �DRC
f� N=1 � number
p� len:�
z$� number=2 � leapflag=0 � len=29
��
�� �pday
�Y=Y+1:� Y>7 � Y=1
��
�� �mday 
�Y=Y-1:� Y<1 � Y=7
��
�� �back
�	�mday
�Z=Z-1:� Z<1 � ZZ=ZZ-1
�� Z<1 � Z=12
�leapflag=ZZ � 4
��length(Z):X=1
� N=len-1� 1 � -1
�mday:�
�
$� �forward
.� N=1 � len
8�pday:�
BZ=Z+1:� Z>12 � ZZ=ZZ+1
L� Z>12 � Z=1
Vleapflag=ZZ � 4
`�length(Z)
j�
t
� �SCREEN
~� J%=1 � �JOTTER
�� J%=1 � �
�� J%=3 � �THREE
�� J%=3 � �
�l�:�month(Z):�3,0)�(141);"�";month$;:�3,1)�(141);"�";month$;:�20,0)�(141);"�";ZZ:�20,1)�(141);"�";ZZ 
�2�0,2)"�    SUN  MON  TUE  WED  THR  FRI  SAT"
�X=1:yy=3:� N=Y � 7
��N*5,yy)�(141);:�screen 
��N*5,yy+1)�(141);:�screen
�X=X+1:�
�� J=1 � 5:yy=yy+4:� N=1 � 7
��N*5,yy)�(141);:�screen
��N*5,yy+1)�(141);:�screen
� X=0 � X=-1


X=X+1:�:�

�23,38);
�
(
� �screen
2� X>len � X=0
<� X<10 � X$="0"+�(X)
F� X>9 � X$=�(X)
P� X=0 � X$=""
Z	� X$;
d�
n
� �nmonth
x�forward
��SCREEN
��
�
� �lmonth
�	�back
��SCREEN
��
�
� �MANUAL
� �SCREEN
��
�*FX15,0
�I=�
��checkthree
�  � I=�">" � I=�"." � �nmonth
� I=�"<" � I=�"," � �lmonth
 � I=�"P"� I=�"p" � �D%
� I=�"P"�I=�"p"� �nmonth
" 
,
� I=32
6�
@� �THISYEAR
J �J%=3 � J%=0
T� N%=Z � 1 � -1
^�back:�
h
�&5773
r&�N%=1�12:�forward:�SCREEN:�&5794:�
|�
�
��SETPAGE
� 
��
�*�'"���   ���ﰪ￥�굪￥꿯���"
�)�"���   ���굠굠�굠굠굠���"
�)�"���   꿯����굠���굠꿯���"
�)�"���   굠��봠굠�뵠굠굠���"
�)�"���   ����������������������������"
�)�"      ����������������������������"
�0�"�1...high�2...double�3...single�4...quad";
�+�'"�5...A4HIGH�6...A4DOUBLE�7...A4QUAD"
�0�"����������������������������������������";
�+�''"��8....SUPER THREE ACROSS ONE PAGE"
)�"��8....SUPER THREE ACROSS ONE PAGE"
(�"      �Best not to use the shades"
0�"����������������������������������������";
&.�'" ��(O)PTIONS (M)ARGIN (H)EIGHT�for A4."
0&�" ��(O)PTIONS (M)ARGIN (H)EIGHT�"
:0�"����������������������������������������";
D-�'"�Please select density ect.��<space>";
N�
XII=�
b� II=�"1" � D%=&51A9 
l� II=�"2" � D%=&518B
v� II=�"3" � D%=&5027
�� II=�"4" � D%=&51C7
�� II=�"5" � D%=&5466
�� II=�"6" � D%=&5486
�� II=�"7" � D%=&54A6
�� II=�"8" � D%=&5794
�� II=�"8" � �&5773
� 
�� II=�"O" � �&5941
�� II=�"M" � �&59C4
�� II=�"H" � �&5A1E
��2,1,7,3
�> �II=�"1"��0,0)"�HIGH SPEED GRAPHICS narrow dump        "
�? �II=�"2"��0,0)"�DOUBLE DENSITY GRAPHICS narrow dump    " 
=�II=�"3"��0,0)"�SINGLE GRAPHICS narrow dump            "
=�II=�"4"��0,0)"�QUAD DENSITY narrow dump               "
=�II=�"5"��0,0)"�A4 HIGH SPEED GRAPHICS �� (set height) "
 =�II=�"6"��0,0)"�A4 DOUBLE DENSITY GRAPHS.�(set height) "
*=�II=�"7"��0,0)"�A4 QUAD DENSITY GRAPHS.  �(set height) "
4=�II=�"8"��0,0)"�THREE DUMPS ACROSS ONE PAGE SELECTED   "
>� II=32
H�
R� �THREEMONTHS
\�firstday:�length(Z)
f�back:�back
p�&5773:� N%=1�3
z�forward:�SCREEN:�&5794:�
��
�� �LASTYEAR
� � J%=3 � J%=0
�� N%=Z � 1 � -1
��back:� 
�	�back
�� N%=Z � 1 � -1   
��back:�
�
�&5773
�'�N%=1�12:�forward:�SCREEN :�&5794:�
��
�� �NEXTYEAR
� � J%=3 � J%=0 
	� N%=Z � 11
	�forward:�
	
�&5773
	$� N%=1�12:�forward
	.�SCREEN:�&5794:�
	8�
	B� �JOTTER:�:JY=Y
	L0�month(Z):�5,0)"�";month$:�17,0);"�";ZZ   
	V#�N=1�24:�13,N)":";�26,N)":";:�
	`�0,1)�40,"-")
	j�0,24)�39,"-");
	tX=1
	~� K=2 � 22 � 2  
	�3�day(JY):�pJY:�0,K)�day$,3);" ";�(X);:X=X+1:� 
	�� K=2 � 22 � 2 
	�3�day(JY):�pJY:�14,K)�day$,3);" ";�(X);:X=X+1:�
	�� K=2 � 22 � 2
	�1�day(JY):�pJY:�27,K)�day$,3);" ";�(X);:X=X+1
	�� X>len � K=22
	��
	��
	�
� �pJY
	�JY=JY+1:� JY>7 � JY=1
	��
	�� �THREE:�
	�back

� KK=1�3:�forward
*�month(Z):�3);"�";month$;:�20)"�";ZZ
-�"�    SUN  MON  TUE  WED  THR  FRI  SAT"
(X=1:� N=Y � 7
2�N*5)" ";:�screen
<X=X+1:�
F� J=1 � 5:� N=1 � 7
P�N*5)" ";:�screen
Z� X=0 � X=-1
d
X=X+1:�:�
n
�: �  
x� �checkthree
�� J%<>3 � �
�� I=�"<" � I=�"," � �extra
��
�� �extra
��back:�back:�back:�back
��
�
��MENU
��&5810:�
�#�"�           �CALENDAR MENU �"
�!�"�           �CALENDAR MENU"
�0�" ���������������������������������������";
��"�    � 1...BROWSE OPTION"
��"�    � 1...BROWSE OPTION"
-�"          �With this selection you can"
,�"          �move forward and back with"
0�"          �the keys < and >. If you want";
"0�"          �a printout just press 'P'. To";
,0�"          �set up the printer dump sizes";
6.�"          �press 'P' now.Three types of"
@0�"          �display are available,(T)hree";
J-�"          �(N)ormal and (J)otter which"
T+�"          �prints a jotter type cal."
^-�"          �PLEASE SELECT NOW N,T OR J."
h0�"����������������������������������������";
r$�"�         �COMPACT AUTO DUMPS"
|$�"�         �COMPACT AUTO DUMPS"
�$�"          �������������������"
�%�"�       2..THIS YEARS CALENDAR"
�%�"       �3..NEXT YEARS CALENDAR"
�%�"       �4..LAST YEARS CALENDAR"
�&�"       �5..CURRENT THREE MONTHS"
� �firstday:�length(Z)
� �"�TO-DAYS DATE SHOULD BE:";
��day(day):�28,0);"�";day$
��25,23)D$;
�I%=�
�� I%=�"2" � �THISYEAR
�� I%=�"3" � �NEXTYEAR
�� I%=�"4" � �LASTYEAR
� I%=�"5" � �THREEMONTHS
� I%=�"P" � �SETPAGE
� I%=�"N" � J%=0
&� I%=�"J" � J%=1
0� I%=�"T" � J%=3
:� I%=�"1" � �MANUAL
DI%=0
N�7:�dHJ
X�
b�firstday:�length(Z)
l*FX15,0
v	�T|@
�� �ENDIT
�9�"PLEASE CHECK YOUR TELETEXT UNIT"'"THEN START AGAIN"
� 
��
�� �set_varables
�� info% 15
�
*TTXON
�	*BBC1
��=0:�:� �>150  
��
�� �TSDPdate
�$A%=&7A:X%=info%�256:Y%=info%�256
�?info%=15:�&FFF1

BB1$=��~(info%?8),1)

.BB2$=�~(info%?9):� �(BB2$)=1 BB2$="0"+BB2$

/BB3$=�~(info%?10):� �(BB3$)=1 BB3$="0"+BB3$

 JD=�(BB1$+BB2$+BB3$)

*"� JD<47226="Date not avilable"

4Y1=(100*(JD-15078.2))�36525

>+M1=�((JD-14956.1-�(365.25*Y1))/30.6001)

H>day%=JD-14956-�(365.25*Y1)-�(30.6*M1):K=�(0.7+(1/(17-M1)))

Rmonth%=M1-1-12*K

\year%=1900+Y1+K

f@=�"0"+�(day%),2)+"/"+�"0"+�(month%),2)+"/"+�"0"+�(year%),4) 

p#� �interpret_date(d%,m%,y%,MJD)

zW=(MJD+3) � 7

� � �dJM

�� dd%=1 � W

�� day$:�

� � �dTM

�� mm%=1�m%

�� month$:�

�year$=�(year%)

�>� Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday

�[� January,February,March,April,May,June,July,August,September,October,November,December

��

�� �get_date_data

��set_varables

�D$=�TSDPdate
)�interpret_date(day%,month%,year%,JD)
�
�

00000000  0d 00 0a 06 eb 37 0d 00  14 1a 20 d3 3d 26 35 30  |.....7.... .=&50|
00000010  30 30 3a 4a 25 3d 30 3a  44 25 3d 26 35 34 36 36  |00:J%=0:D%=&5466|
00000020  0d 00 1e 14 2a 4c 4f 41  44 20 44 55 4d 50 53 20  |....*LOAD DUMPS |
00000030  35 30 30 30 0d 00 28 0e  ee 20 85 20 e5 20 8d 44  |5000..(.. . . .D|
00000040  62 4c 0d 00 32 0c f2 67  65 74 64 61 74 61 0d 00  |bL..2..getdata..|
00000050  3c 0e f5 3a f2 4d 45 4e  55 3a fd 30 0d 00 46 06  |<..:.MENU:.0..F.|
00000060  20 e0 0d 00 50 09 dd 20  f2 4d 43 0d 00 5a 0f 20  | ...P.. .MC..Z. |
00000070  de 20 46 52 45 44 20 26  34 30 0d 00 64 11 e3 20  |. FRED &40..d.. |
00000080  4e 3d 30 20 b8 20 32 20  88 20 32 0d 00 6e 0b 50  |N=0 . 2 . 2..n.P|
00000090  25 3d 46 52 45 44 0d 00  78 09 5b 4f 50 54 4e 0d  |%=FRED..x.[OPTN.|
000000a0  00 82 0b 2e 4f 53 57 4f  52 44 0d 00 8c 19 4c 44  |....OSWORD....LD|
000000b0  58 23 30 3a 4c 44 59 23  26 30 39 3a 4c 44 41 23  |X#0:LDY#&09:LDA#|
000000c0  26 37 41 0d 00 96 10 4a  53 52 26 46 46 46 31 3a  |&7A....JSR&FFF1:|
000000d0  52 54 53 0d 00 a0 0a 2e  54 54 58 4f 4e 0d 00 aa  |RTS.....TTXON...|
000000e0  13 4c 44 41 23 31 33 3a  53 54 41 26 30 39 30 30  |.LDA#13:STA&0900|
000000f0  0d 00 b4 12 4a 53 52 20  4f 53 57 4f 52 44 3a 52  |....JSR OSWORD:R|
00000100  54 53 0d 00 be 0b 2e 53  54 41 54 55 53 0d 00 c8  |TS.....STATUS...|
00000110  13 4c 44 41 23 31 37 3a  53 54 41 26 30 39 30 30  |.LDA#17:STA&0900|
00000120  0d 00 d2 13 4a 53 52 20  4f 53 57 4f 52 44 3a 52  |....JSR OSWORD:R|
00000130  54 53 20 0d 00 dc 09 2e  44 41 54 45 0d 00 e6 13  |TS .....DATE....|
00000140  4c 44 41 23 32 32 3a 53  54 41 26 30 39 30 30 0d  |LDA#22:STA&0900.|
00000150  00 f0 0e 4a 53 52 20 4f  53 57 4f 52 44 0d 00 fa  |...JSR OSWORD...|
00000160  0c 4c 44 41 26 30 39 30  43 0d 01 04 12 43 4d 50  |.LDA&090C....CMP|
00000170  23 30 3a 42 4e 45 20 44  41 54 45 0d 01 0e 07 52  |#0:BNE DATE....R|
00000180  54 53 0d 01 18 2a 2e 54  54 58 4f 46 46 3a 4c 44  |TS...*.TTXOFF:LD|
00000190  41 23 31 32 3a 53 54 41  26 30 39 30 30 3a 4a 53  |A#12:STA&0900:JS|
000001a0  52 20 4f 53 57 4f 52 44  3a 52 54 53 0d 01 22 07  |R OSWORD:RTS..".|
000001b0  5d 3a ed 0d 01 2c 05 e1  0d 01 36 0e dd 20 f2 67  |]:...,....6.. .g|
000001c0  65 74 64 61 74 61 0d 01  40 05 db 0d 01 4a 07 f2  |etdata..@....J..|
000001d0  4d 43 0d 01 54 05 20 0d  01 5e 21 d6 20 53 54 41  |MC..T. ..^!. STA|
000001e0  54 55 53 3a e7 20 3f 26  30 39 30 31 3c 3e 30 20  |TUS:. ?&0901<>0 |
000001f0  8c 20 f2 45 4e 44 49 54  0d 01 68 12 f2 67 65 74  |. .ENDIT..h..get|
00000200  5f 64 61 74 65 5f 64 61  74 61 0d 01 72 0b 2a 54  |_date_data..r.*T|
00000210  54 58 4f 46 46 0d 01 7c  05 20 0d 01 86 0d 64 61  |TXOFF..|. ....da|
00000220  74 65 3d 64 61 79 25 0d  01 90 10 6d 6f 6e 74 68  |te=day%....month|
00000230  3d 6d 6f 6e 74 68 25 0d  01 9a 0e 79 65 61 72 3d  |=month%....year=|
00000240  79 65 61 72 25 0d 01 a4  15 6c 65 61 70 66 6c 61  |year%....leapfla|
00000250  67 3d 79 65 61 72 20 83  20 34 0d 01 ae 0b 64 61  |g=year . 4....da|
00000260  79 3d 57 2b 31 0d 01 b8  05 20 0d 01 c2 05 20 0d  |y=W+1.... .... .|
00000270  01 cc 05 20 0d 01 d6 05  20 0d 01 e0 05 20 0d 01  |... .... .... ..|
00000280  ea 05 20 0d 01 f4 37 db  3a f2 64 61 79 28 64 61  |.. ...7.:.day(da|
00000290  79 29 3a f1 20 64 61 79  24 3a f1 20 44 24 3a f1  |y):. day$:. D$:.|
000002a0  3a f1 22 49 73 20 74 68  69 73 20 64 61 74 61 20  |:."Is this data |
000002b0  63 6f 72 72 65 63 74 3f  22 20 0d 01 fe 1c 49 3d  |correct?" ....I=|
000002c0  a5 3a e7 20 49 3d 97 22  4e 22 20 84 20 49 3d 97  |.:. I=."N" . I=.|
000002d0  22 6e 22 20 8c f9 0d 02  08 0d f2 66 69 72 73 74  |"n" .......first|
000002e0  64 61 79 0d 02 12 0e f2  6c 65 6e 67 74 68 28 5a  |day.....length(Z|
000002f0  29 0d 02 1c 05 e1 0d 02  26 05 e1 0d 02 30 17 20  |).......&....0. |
00000300  dd 20 f2 65 6e 74 65 72  28 58 24 29 3a 41 24 3d  |. .enter(X$):A$=|
00000310  22 22 0d 02 3a 16 f1 8a  33 2c 31 32 29 22 20 20  |""..:...3,12)"  |
00000320  20 20 20 20 20 20 20 22  0d 02 44 05 20 0d 02 4e  |       "..D. ..N|
00000330  31 f1 8a 33 2c 31 30 29  22 50 4c 45 41 53 45 20  |1..3,10)"PLEASE |
00000340  45 4e 54 45 52 20 54 48  45 20 22 3b 58 24 3b 22  |ENTER THE ";X$;"|
00000350  20 41 53 20 32 20 46 49  47 53 22 20 20 20 0d 02  | AS 2 FIGS"   ..|
00000360  58 0e e3 20 4e 3d 20 31  20 b8 20 32 0d 02 62 1c  |X.. N= 1 . 2..b.|
00000370  49 3d a5 3a e7 20 49 3c  34 38 20 84 20 49 3e 35  |I=.:. I<48 . I>5|
00000380  37 20 8c 20 8d 44 62 42  0d 02 6c 19 41 24 3d 41  |7 . .DbB..l.A$=A|
00000390  24 2b bd 28 49 29 3a f1  8a 33 2c 31 32 29 41 24  |$+.(I):..3,12)A$|
000003a0  20 0d 02 76 05 ed 0d 02  80 05 e1 0d 02 8a 12 dd  | ..v............|
000003b0  20 f2 64 61 79 28 6e 75  6d 62 65 72 29 0d 02 94  | .day(number)...|
000003c0  3e dc 20 53 75 6e 64 61  79 2c 4d 6f 6e 64 61 79  |>. Sunday,Monday|
000003d0  2c 54 75 65 73 64 61 79  2c 57 65 64 6e 65 73 64  |,Tuesday,Wednesd|
000003e0  61 79 2c 54 68 75 72 73  64 61 79 2c 46 72 69 64  |ay,Thursday,Frid|
000003f0  61 79 2c 53 61 74 75 72  64 61 79 0d 02 9e 0a f7  |ay,Saturday.....|
00000400  20 8d 74 54 42 0d 02 a8  12 e3 20 4e 3d 31 20 b8  | .tTB..... N=1 .|
00000410  20 6e 75 6d 62 65 72 0d  02 b2 0c f3 20 64 61 79  | number..... day|
00000420  24 3a ed 0d 02 bc 05 e1  0d 02 c6 0f dd 20 f2 66  |$:........... .f|
00000430  69 72 73 74 64 61 79 0d  02 d0 1f 58 3d 31 3a 59  |irstday....X=1:Y|
00000440  3d 64 61 79 2b 31 3a 5a  3d 6d 6f 6e 74 68 3a 5a  |=day+1:Z=month:Z|
00000450  5a 3d 79 65 61 72 0d 02  da 10 20 e7 20 59 3e 37  |Z=year.... . Y>7|
00000460  20 8c 20 59 3d 31 0d 02  e4 14 e3 4e 3d 64 61 74  | . Y=1.....N=dat|
00000470  65 20 b8 20 31 20 88 20  2d 31 0d 02 ee 15 59 3d  |e . 1 . -1....Y=|
00000480  59 2d 31 3a e7 20 59 3d  30 20 8c 20 59 3d 37 0d  |Y-1:. Y=0 . Y=7.|
00000490  02 f8 05 ed 0d 03 02 06  20 e1 0d 03 0c 14 dd 20  |........ ...... |
000004a0  f2 6d 6f 6e 74 68 28 6e  75 6d 62 65 72 29 0d 03  |.month(number)..|
000004b0  16 5b dc 20 4a 41 4e 55  41 52 59 2c 46 45 42 52  |.[. JANUARY,FEBR|
000004c0  55 41 52 59 2c 4d 41 52  43 48 2c 41 50 52 49 4c  |UARY,MARCH,APRIL|
000004d0  2c 4d 41 59 2c 4a 55 4e  45 2c 4a 55 4c 59 2c 41  |,MAY,JUNE,JULY,A|
000004e0  55 47 55 53 54 2c 53 45  50 54 45 4d 42 45 52 2c  |UGUST,SEPTEMBER,|
000004f0  4f 43 54 4f 42 45 52 2c  4e 4f 56 45 4d 42 45 52  |OCTOBER,NOVEMBER|
00000500  2c 44 45 43 45 4d 42 45  52 0d 03 20 0a f7 20 8d  |,DECEMBER.. .. .|
00000510  54 56 43 0d 03 2a 12 e3  20 4e 3d 31 20 b8 20 6e  |TVC..*.. N=1 . n|
00000520  75 6d 62 65 72 0d 03 34  0e f3 20 6d 6f 6e 74 68  |umber..4.. month|
00000530  24 3a ed 0d 03 3e 05 e1  0d 03 48 15 dd 20 f2 6c  |$:...>....H.. .l|
00000540  65 6e 67 74 68 28 6e 75  6d 62 65 72 29 0d 03 52  |ength(number)..R|
00000550  29 dc 20 33 31 2c 32 38  2c 33 31 2c 33 30 2c 33  |). 31,28,31,30,3|
00000560  31 2c 33 30 2c 33 31 2c  33 31 2c 33 30 2c 33 31  |1,30,31,31,30,31|
00000570  2c 33 30 2c 33 31 0d 03  5c 0a f7 20 8d 44 52 43  |,30,31..\.. .DRC|
00000580  0d 03 66 12 e3 20 4e 3d  31 20 b8 20 6e 75 6d 62  |..f.. N=1 . numb|
00000590  65 72 0d 03 70 0b f3 20  6c 65 6e 3a ed 0d 03 7a  |er..p.. len:...z|
000005a0  24 e7 20 6e 75 6d 62 65  72 3d 32 20 80 20 6c 65  |$. number=2 . le|
000005b0  61 70 66 6c 61 67 3d 30  20 8c 20 6c 65 6e 3d 32  |apflag=0 . len=2|
000005c0  39 0d 03 84 05 e1 0d 03  8e 0b dd 20 f2 70 64 61  |9.......... .pda|
000005d0  79 0d 03 98 15 59 3d 59  2b 31 3a e7 20 59 3e 37  |y....Y=Y+1:. Y>7|
000005e0  20 8c 20 59 3d 31 0d 03  a2 05 e1 0d 03 ac 0c dd  | . Y=1..........|
000005f0  20 f2 6d 64 61 79 20 0d  03 b6 15 59 3d 59 2d 31  | .mday ....Y=Y-1|
00000600  3a e7 20 59 3c 31 20 8c  20 59 3d 37 0d 03 c0 05  |:. Y<1 . Y=7....|
00000610  e1 0d 03 ca 0b dd 20 f2  62 61 63 6b 0d 03 d4 09  |...... .back....|
00000620  f2 6d 64 61 79 0d 03 de  19 5a 3d 5a 2d 31 3a e7  |.mday....Z=Z-1:.|
00000630  20 5a 3c 31 20 8c 20 5a  5a 3d 5a 5a 2d 31 0d 03  | Z<1 . ZZ=ZZ-1..|
00000640  e8 10 e7 20 5a 3c 31 20  8c 20 5a 3d 31 32 0d 03  |... Z<1 . Z=12..|
00000650  f2 13 6c 65 61 70 66 6c  61 67 3d 5a 5a 20 83 20  |..leapflag=ZZ . |
00000660  34 0d 03 fc 12 f2 6c 65  6e 67 74 68 28 5a 29 3a  |4.....length(Z):|
00000670  58 3d 31 0d 04 06 15 e3  20 4e 3d 6c 65 6e 2d 31  |X=1..... N=len-1|
00000680  b8 20 31 20 88 20 2d 31  0d 04 10 0b f2 6d 64 61  |. 1 . -1.....mda|
00000690  79 3a ed 0d 04 1a 05 e1  0d 04 24 0e dd 20 f2 66  |y:........$.. .f|
000006a0  6f 72 77 61 72 64 0d 04  2e 0f e3 20 4e 3d 31 20  |orward..... N=1 |
000006b0  b8 20 6c 65 6e 0d 04 38  0b f2 70 64 61 79 3a ed  |. len..8..pday:.|
000006c0  0d 04 42 1a 5a 3d 5a 2b  31 3a e7 20 5a 3e 31 32  |..B.Z=Z+1:. Z>12|
000006d0  20 8c 20 5a 5a 3d 5a 5a  2b 31 0d 04 4c 10 e7 20  | . ZZ=ZZ+1..L.. |
000006e0  5a 3e 31 32 20 8c 20 5a  3d 31 0d 04 56 13 6c 65  |Z>12 . Z=1..V.le|
000006f0  61 70 66 6c 61 67 3d 5a  5a 20 83 20 34 0d 04 60  |apflag=ZZ . 4..`|
00000700  0e f2 6c 65 6e 67 74 68  28 5a 29 0d 04 6a 05 e1  |..length(Z)..j..|
00000710  0d 04 74 0d dd 20 f2 53  43 52 45 45 4e 0d 04 7e  |..t.. .SCREEN..~|
00000720  14 e7 20 4a 25 3d 31 20  8c 20 f2 4a 4f 54 54 45  |.. J%=1 . .JOTTE|
00000730  52 0d 04 88 0e e7 20 4a  25 3d 31 20 8c 20 e1 0d  |R..... J%=1 . ..|
00000740  04 92 13 e7 20 4a 25 3d  33 20 8c 20 f2 54 48 52  |.... J%=3 . .THR|
00000750  45 45 0d 04 9c 0e e7 20  4a 25 3d 33 20 8c 20 e1  |EE..... J%=3 . .|
00000760  0d 04 a6 6c db 3a f2 6d  6f 6e 74 68 28 5a 29 3a  |...l.:.month(Z):|
00000770  f1 8a 33 2c 30 29 bd 28  31 34 31 29 3b 22 81 22  |..3,0).(141);"."|
00000780  3b 6d 6f 6e 74 68 24 3b  3a f1 8a 33 2c 31 29 bd  |;month$;:..3,1).|
00000790  28 31 34 31 29 3b 22 81  22 3b 6d 6f 6e 74 68 24  |(141);".";month$|
000007a0  3b 3a f1 8a 32 30 2c 30  29 bd 28 31 34 31 29 3b  |;:..20,0).(141);|
000007b0  22 85 22 3b 5a 5a 3a f1  8a 32 30 2c 31 29 bd 28  |".";ZZ:..20,1).(|
000007c0  31 34 31 29 3b 22 85 22  3b 5a 5a 20 0d 04 b0 32  |141);".";ZZ ...2|
000007d0  f1 8a 30 2c 32 29 22 82  20 20 20 20 53 55 4e 20  |..0,2)".    SUN |
000007e0  20 4d 4f 4e 20 20 54 55  45 20 20 57 45 44 20 20  | MON  TUE  WED  |
000007f0  54 48 52 20 20 46 52 49  20 20 53 41 54 22 0d 04  |THR  FRI  SAT"..|
00000800  ba 16 58 3d 31 3a 79 79  3d 33 3a e3 20 4e 3d 59  |..X=1:yy=3:. N=Y|
00000810  20 b8 20 37 0d 04 c4 1d  f1 8a 4e 2a 35 2c 79 79  | . 7......N*5,yy|
00000820  29 bd 28 31 34 31 29 3b  3a f2 73 63 72 65 65 6e  |).(141);:.screen|
00000830  20 0d 04 ce 1e f1 8a 4e  2a 35 2c 79 79 2b 31 29  | ......N*5,yy+1)|
00000840  bd 28 31 34 31 29 3b 3a  f2 73 63 72 65 65 6e 0d  |.(141);:.screen.|
00000850  04 d8 0b 58 3d 58 2b 31  3a ed 0d 04 e2 1f e3 20  |...X=X+1:...... |
00000860  4a 3d 31 20 b8 20 35 3a  79 79 3d 79 79 2b 34 3a  |J=1 . 5:yy=yy+4:|
00000870  e3 20 4e 3d 31 20 b8 20  37 0d 04 ec 1c f1 8a 4e  |. N=1 . 7......N|
00000880  2a 35 2c 79 79 29 bd 28  31 34 31 29 3b 3a f2 73  |*5,yy).(141);:.s|
00000890  63 72 65 65 6e 0d 04 f6  1e f1 8a 4e 2a 35 2c 79  |creen......N*5,y|
000008a0  79 2b 31 29 bd 28 31 34  31 29 3b 3a f2 73 63 72  |y+1).(141);:.scr|
000008b0  65 65 6e 0d 05 00 10 e7  20 58 3d 30 20 8c 20 58  |een..... X=0 . X|
000008c0  3d 2d 31 0d 05 0a 0d 58  3d 58 2b 31 3a ed 3a ed  |=-1....X=X+1:.:.|
000008d0  0d 05 14 0d f1 8a 32 33  2c 33 38 29 3b 0d 05 1e  |......23,38);...|
000008e0  05 e1 0d 05 28 0d dd 20  f2 73 63 72 65 65 6e 0d  |....(.. .screen.|
000008f0  05 32 11 e7 20 58 3e 6c  65 6e 20 8c 20 58 3d 30  |.2.. X>len . X=0|
00000900  0d 05 3c 18 e7 20 58 3c  31 30 20 8c 20 58 24 3d  |..<.. X<10 . X$=|
00000910  22 30 22 2b c3 28 58 29  0d 05 46 13 e7 20 58 3e  |"0"+.(X)..F.. X>|
00000920  39 20 8c 20 58 24 3d c3  28 58 29 0d 05 50 11 e7  |9 . X$=.(X)..P..|
00000930  20 58 3d 30 20 8c 20 58  24 3d 22 22 0d 05 5a 09  | X=0 . X$=""..Z.|
00000940  f1 20 58 24 3b 0d 05 64  05 e1 0d 05 6e 0d dd 20  |. X$;..d....n.. |
00000950  f2 6e 6d 6f 6e 74 68 0d  05 78 0c f2 66 6f 72 77  |.nmonth..x..forw|
00000960  61 72 64 0d 05 82 0b f2  53 43 52 45 45 4e 0d 05  |ard.....SCREEN..|
00000970  8c 05 e1 0d 05 96 0d dd  20 f2 6c 6d 6f 6e 74 68  |........ .lmonth|
00000980  0d 05 a0 09 f2 62 61 63  6b 0d 05 aa 0b f2 53 43  |.....back.....SC|
00000990  52 45 45 4e 0d 05 b4 05  e1 0d 05 be 0d dd 20 f2  |REEN.......... .|
000009a0  4d 41 4e 55 41 4c 0d 05  c8 0c 20 f2 53 43 52 45  |MANUAL.... .SCRE|
000009b0  45 4e 0d 05 d2 05 f5 0d  05 dc 0b 2a 46 58 31 35  |EN.........*FX15|
000009c0  2c 30 0d 05 e6 07 49 3d  a5 0d 05 f0 0f f2 63 68  |,0....I=......ch|
000009d0  65 63 6b 74 68 72 65 65  0d 05 fa 20 20 e7 20 49  |eckthree...  . I|
000009e0  3d 97 22 3e 22 20 84 20  49 3d 97 22 2e 22 20 8c  |=.">" . I=."." .|
000009f0  20 f2 6e 6d 6f 6e 74 68  0d 06 04 1f e7 20 49 3d  | .nmonth..... I=|
00000a00  97 22 3c 22 20 84 20 49  3d 97 22 2c 22 20 8c 20  |."<" . I=."," . |
00000a10  f2 6c 6d 6f 6e 74 68 0d  06 0e 1b 20 e7 20 49 3d  |.lmonth.... . I=|
00000a20  97 22 50 22 84 20 49 3d  97 22 70 22 20 8c 20 d6  |."P". I=."p" . .|
00000a30  44 25 0d 06 18 1c e7 20  49 3d 97 22 50 22 84 49  |D%..... I=."P".I|
00000a40  3d 97 22 70 22 8c 20 f2  6e 6d 6f 6e 74 68 0d 06  |=."p". .nmonth..|
00000a50  22 05 20 0d 06 2c 0a fd  20 49 3d 33 32 0d 06 36  |". ..,.. I=32..6|
00000a60  05 e1 0d 06 40 0f dd 20  f2 54 48 49 53 59 45 41  |....@.. .THISYEA|
00000a70  52 0d 06 4a 11 20 e7 4a  25 3d 33 20 8c 20 4a 25  |R..J. .J%=3 . J%|
00000a80  3d 30 0d 06 54 13 e3 20  4e 25 3d 5a 20 b8 20 31  |=0..T.. N%=Z . 1|
00000a90  20 88 20 2d 31 0d 06 5e  0b f2 62 61 63 6b 3a ed  | . -1..^..back:.|
00000aa0  0d 06 68 0a d6 26 35 37  37 33 0d 06 72 26 e3 4e  |..h..&5773..r&.N|
00000ab0  25 3d 31 b8 31 32 3a f2  66 6f 72 77 61 72 64 3a  |%=1.12:.forward:|
00000ac0  f2 53 43 52 45 45 4e 3a  d6 26 35 37 39 34 3a ed  |.SCREEN:.&5794:.|
00000ad0  0d 06 7c 05 e1 0d 06 86  0d dd f2 53 45 54 50 41  |..|........SETPA|
00000ae0  47 45 0d 06 90 05 20 0d  06 9a 05 db 0d 06 a4 2a  |GE.... ........*|
00000af0  f1 27 22 81 9d 95 20 20  20 ea bf ef b0 ea bf ef  |.'"...   .......|
00000b00  b0 aa ef bf a5 ea b5 ea  b5 aa ef bf a5 ea bf af  |................|
00000b10  a5 ea bf ef b0 22 0d 06  ae 29 f1 22 81 9d 95 20  |....."...)."... |
00000b20  20 20 ea b5 ea b5 ea b5  ea b5 a0 ea b5 a0 ea fd  |  ..............|
00000b30  ea b5 a0 ea b5 a0 ea b5  a0 a0 ea b5 ea b5 22 0d  |..............".|
00000b40  06 b8 29 f1 22 81 9d 95  20 20 20 ea bf af a0 ea  |..)."...   .....|
00000b50  bf ff a0 a0 ea b5 a0 ea  bf ff b5 a0 ea b5 a0 ea  |................|
00000b60  bf af a0 ea bf ff a0 22  0d 06 c2 29 f1 22 81 9d  |......."...)."..|
00000b70  95 20 20 20 ea b5 a0 a0  ea b5 eb b4 a0 ea b5 a0  |.   ............|
00000b80  ea b5 eb b5 a0 ea b5 a0  ea b5 a0 a0 ea b5 eb b4  |................|
00000b90  22 0d 06 cc 29 f1 22 81  9d 95 20 20 20 aa a5 a0  |"...)."...   ...|
00000ba0  a0 aa a5 aa a5 aa af af  a5 aa a5 aa a5 a0 aa a5  |................|
00000bb0  a0 aa af af a5 aa a5 aa  a5 22 0d 06 d6 29 f1 22  |........."...)."|
00000bc0  20 20 20 20 20 20 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |      ..........|
00000bd0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |................|
00000be0  a0 a0 22 0d 06 e0 30 f1  22 82 31 2e 2e 2e 68 69  |.."...0.".1...hi|
00000bf0  67 68 84 32 2e 2e 2e 64  6f 75 62 6c 65 85 33 2e  |gh.2...double.3.|
00000c00  2e 2e 73 69 6e 67 6c 65  82 34 2e 2e 2e 71 75 61  |..single.4...qua|
00000c10  64 22 3b 0d 06 ea 2b f1  27 22 87 35 2e 2e 2e 41  |d";...+.'".5...A|
00000c20  34 48 49 47 48 86 36 2e  2e 2e 41 34 44 4f 55 42  |4HIGH.6...A4DOUB|
00000c30  4c 45 85 37 2e 2e 2e 41  34 51 55 41 44 22 0d 06  |LE.7...A4QUAD"..|
00000c40  f4 30 f1 22 91 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |.0."............|
00000c50  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00000c60  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 22 3b 0d 06  |............";..|
00000c70  fe 2b f1 27 27 22 8d 85  38 2e 2e 2e 2e 53 55 50  |.+.''"..8....SUP|
00000c80  45 52 20 54 48 52 45 45  20 41 43 52 4f 53 53 20  |ER THREE ACROSS |
00000c90  4f 4e 45 20 50 41 47 45  22 0d 07 08 29 f1 22 8d  |ONE PAGE"...).".|
00000ca0  85 38 2e 2e 2e 2e 53 55  50 45 52 20 54 48 52 45  |.8....SUPER THRE|
00000cb0  45 20 41 43 52 4f 53 53  20 4f 4e 45 20 50 41 47  |E ACROSS ONE PAG|
00000cc0  45 22 0d 07 12 28 f1 22  20 20 20 20 20 20 82 42  |E"...(."      .B|
00000cd0  65 73 74 20 6e 6f 74 20  74 6f 20 75 73 65 20 74  |est not to use t|
00000ce0  68 65 20 73 68 61 64 65  73 22 0d 07 1c 30 f1 22  |he shades"...0."|
00000cf0  91 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00000d00  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00000d10  f0 f0 f0 f0 f0 f0 f0 f0  22 3b 0d 07 26 2e f1 27  |........";..&..'|
00000d20  22 20 8d 86 28 4f 29 50  54 49 4f 4e 53 20 28 4d  |" ..(O)PTIONS (M|
00000d30  29 41 52 47 49 4e 20 28  48 29 45 49 47 48 54 8c  |)ARGIN (H)EIGHT.|
00000d40  66 6f 72 20 41 34 2e 22  0d 07 30 26 f1 22 20 8d  |for A4."..0&." .|
00000d50  86 28 4f 29 50 54 49 4f  4e 53 20 28 4d 29 41 52  |.(O)PTIONS (M)AR|
00000d60  47 49 4e 20 28 48 29 45  49 47 48 54 8c 22 0d 07  |GIN (H)EIGHT."..|
00000d70  3a 30 f1 22 91 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |:0."............|
00000d80  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00000d90  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 22 3b 0d 07  |............";..|
00000da0  44 2d f1 27 22 83 50 6c  65 61 73 65 20 73 65 6c  |D-.'".Please sel|
00000db0  65 63 74 20 64 65 6e 73  69 74 79 20 65 63 74 2e  |ect density ect.|
00000dc0  87 88 3c 73 70 61 63 65  3e 22 3b 0d 07 4e 05 f5  |..<space>";..N..|
00000dd0  0d 07 58 08 49 49 3d a5  0d 07 62 19 e7 20 49 49  |..X.II=...b.. II|
00000de0  3d 97 22 31 22 20 8c 20  44 25 3d 26 35 31 41 39  |=."1" . D%=&51A9|
00000df0  20 0d 07 6c 18 e7 20 49  49 3d 97 22 32 22 20 8c  | ..l.. II=."2" .|
00000e00  20 44 25 3d 26 35 31 38  42 0d 07 76 18 e7 20 49  | D%=&518B..v.. I|
00000e10  49 3d 97 22 33 22 20 8c  20 44 25 3d 26 35 30 32  |I=."3" . D%=&502|
00000e20  37 0d 07 80 18 e7 20 49  49 3d 97 22 34 22 20 8c  |7..... II=."4" .|
00000e30  20 44 25 3d 26 35 31 43  37 0d 07 8a 18 e7 20 49  | D%=&51C7..... I|
00000e40  49 3d 97 22 35 22 20 8c  20 44 25 3d 26 35 34 36  |I=."5" . D%=&546|
00000e50  36 0d 07 94 18 e7 20 49  49 3d 97 22 36 22 20 8c  |6..... II=."6" .|
00000e60  20 44 25 3d 26 35 34 38  36 0d 07 9e 18 e7 20 49  | D%=&5486..... I|
00000e70  49 3d 97 22 37 22 20 8c  20 44 25 3d 26 35 34 41  |I=."7" . D%=&54A|
00000e80  36 0d 07 a8 18 e7 20 49  49 3d 97 22 38 22 20 8c  |6..... II=."8" .|
00000e90  20 44 25 3d 26 35 37 39  34 0d 07 b2 16 e7 20 49  | D%=&5794..... I|
00000ea0  49 3d 97 22 38 22 20 8c  20 d6 26 35 37 37 33 0d  |I=."8" . .&5773.|
00000eb0  07 bc 05 20 0d 07 c6 16  e7 20 49 49 3d 97 22 4f  |... ..... II=."O|
00000ec0  22 20 8c 20 d6 26 35 39  34 31 0d 07 d0 16 e7 20  |" . .&5941..... |
00000ed0  49 49 3d 97 22 4d 22 20  8c 20 d6 26 35 39 43 34  |II=."M" . .&59C4|
00000ee0  0d 07 da 16 e7 20 49 49  3d 97 22 48 22 20 8c 20  |..... II=."H" . |
00000ef0  d6 26 35 41 31 45 0d 07  e4 0c ef 32 2c 31 2c 37  |.&5A1E.....2,1,7|
00000f00  2c 33 0d 07 ee 3e 20 e7  49 49 3d 97 22 31 22 8c  |,3...> .II=."1".|
00000f10  f1 8a 30 2c 30 29 22 81  48 49 47 48 20 53 50 45  |..0,0)".HIGH SPE|
00000f20  45 44 20 47 52 41 50 48  49 43 53 20 6e 61 72 72  |ED GRAPHICS narr|
00000f30  6f 77 20 64 75 6d 70 20  20 20 20 20 20 20 20 22  |ow dump        "|
00000f40  0d 07 f8 3f 20 e7 49 49  3d 97 22 32 22 8c f1 8a  |...? .II=."2"...|
00000f50  30 2c 30 29 22 82 44 4f  55 42 4c 45 20 44 45 4e  |0,0)".DOUBLE DEN|
00000f60  53 49 54 59 20 47 52 41  50 48 49 43 53 20 6e 61  |SITY GRAPHICS na|
00000f70  72 72 6f 77 20 64 75 6d  70 20 20 20 20 22 20 0d  |rrow dump    " .|
00000f80  08 02 3d e7 49 49 3d 97  22 33 22 8c f1 8a 30 2c  |..=.II=."3"...0,|
00000f90  30 29 22 83 53 49 4e 47  4c 45 20 47 52 41 50 48  |0)".SINGLE GRAPH|
00000fa0  49 43 53 20 6e 61 72 72  6f 77 20 64 75 6d 70 20  |ICS narrow dump |
00000fb0  20 20 20 20 20 20 20 20  20 20 20 22 0d 08 0c 3d  |           "...=|
00000fc0  e7 49 49 3d 97 22 34 22  8c f1 8a 30 2c 30 29 22  |.II=."4"...0,0)"|
00000fd0  84 51 55 41 44 20 44 45  4e 53 49 54 59 20 6e 61  |.QUAD DENSITY na|
00000fe0  72 72 6f 77 20 64 75 6d  70 20 20 20 20 20 20 20  |rrow dump       |
00000ff0  20 20 20 20 20 20 20 20  22 0d 08 16 3d e7 49 49  |        "...=.II|
00001000  3d 97 22 35 22 8c f1 8a  30 2c 30 29 22 85 41 34  |=."5"...0,0)".A4|
00001010  20 48 49 47 48 20 53 50  45 45 44 20 47 52 41 50  | HIGH SPEED GRAP|
00001020  48 49 43 53 20 87 88 20  28 73 65 74 20 68 65 69  |HICS .. (set hei|
00001030  67 68 74 29 20 22 0d 08  20 3d e7 49 49 3d 97 22  |ght) ".. =.II=."|
00001040  36 22 8c f1 8a 30 2c 30  29 22 86 41 34 20 44 4f  |6"...0,0)".A4 DO|
00001050  55 42 4c 45 20 44 45 4e  53 49 54 59 20 47 52 41  |UBLE DENSITY GRA|
00001060  50 48 53 2e 88 28 73 65  74 20 68 65 69 67 68 74  |PHS..(set height|
00001070  29 20 22 0d 08 2a 3d e7  49 49 3d 97 22 37 22 8c  |) "..*=.II=."7".|
00001080  f1 8a 30 2c 30 29 22 81  41 34 20 51 55 41 44 20  |..0,0)".A4 QUAD |
00001090  44 45 4e 53 49 54 59 20  47 52 41 50 48 53 2e 20  |DENSITY GRAPHS. |
000010a0  20 88 28 73 65 74 20 68  65 69 67 68 74 29 20 22  | .(set height) "|
000010b0  0d 08 34 3d e7 49 49 3d  97 22 38 22 8c f1 8a 30  |..4=.II=."8"...0|
000010c0  2c 30 29 22 83 54 48 52  45 45 20 44 55 4d 50 53  |,0)".THREE DUMPS|
000010d0  20 41 43 52 4f 53 53 20  4f 4e 45 20 50 41 47 45  | ACROSS ONE PAGE|
000010e0  20 53 45 4c 45 43 54 45  44 20 20 20 22 0d 08 3e  | SELECTED   "..>|
000010f0  0b fd 20 49 49 3d 33 32  0d 08 48 05 e1 0d 08 52  |.. II=32..H....R|
00001100  12 dd 20 f2 54 48 52 45  45 4d 4f 4e 54 48 53 0d  |.. .THREEMONTHS.|
00001110  08 5c 18 f2 66 69 72 73  74 64 61 79 3a f2 6c 65  |.\..firstday:.le|
00001120  6e 67 74 68 28 5a 29 0d  08 66 0f f2 62 61 63 6b  |ngth(Z)..f..back|
00001130  3a f2 62 61 63 6b 0d 08  70 13 d6 26 35 37 37 33  |:.back..p..&5773|
00001140  3a e3 20 4e 25 3d 31 b8  33 0d 08 7a 1d f2 66 6f  |:. N%=1.3..z..fo|
00001150  72 77 61 72 64 3a f2 53  43 52 45 45 4e 3a d6 26  |rward:.SCREEN:.&|
00001160  35 37 39 34 3a ed 0d 08  84 05 e1 0d 08 8e 0f dd  |5794:...........|
00001170  20 f2 4c 41 53 54 59 45  41 52 0d 08 98 12 20 e7  | .LASTYEAR.... .|
00001180  20 4a 25 3d 33 20 8c 20  4a 25 3d 30 0d 08 a2 13  | J%=3 . J%=0....|
00001190  e3 20 4e 25 3d 5a 20 b8  20 31 20 88 20 2d 31 0d  |. N%=Z . 1 . -1.|
000011a0  08 ac 0c f2 62 61 63 6b  3a ed 20 0d 08 b6 09 f2  |....back:. .....|
000011b0  62 61 63 6b 0d 08 c0 16  e3 20 4e 25 3d 5a 20 b8  |back..... N%=Z .|
000011c0  20 31 20 88 20 2d 31 20  20 20 0d 08 ca 0b f2 62  | 1 . -1   .....b|
000011d0  61 63 6b 3a ed 0d 08 d4  0a d6 26 35 37 37 33 0d  |ack:......&5773.|
000011e0  08 de 27 e3 4e 25 3d 31  b8 31 32 3a f2 66 6f 72  |..'.N%=1.12:.for|
000011f0  77 61 72 64 3a f2 53 43  52 45 45 4e 20 3a d6 26  |ward:.SCREEN :.&|
00001200  35 37 39 34 3a ed 0d 08  e8 05 e1 0d 08 f2 0f dd  |5794:...........|
00001210  20 f2 4e 45 58 54 59 45  41 52 0d 08 fc 13 20 e7  | .NEXTYEAR.... .|
00001220  20 4a 25 3d 33 20 8c 20  4a 25 3d 30 20 0d 09 06  | J%=3 . J%=0 ...|
00001230  0f e3 20 4e 25 3d 5a 20  b8 20 31 31 0d 09 10 0e  |.. N%=Z . 11....|
00001240  f2 66 6f 72 77 61 72 64  3a ed 0d 09 1a 0a d6 26  |.forward:......&|
00001250  35 37 37 33 0d 09 24 16  e3 20 4e 25 3d 31 b8 31  |5773..$.. N%=1.1|
00001260  32 3a f2 66 6f 72 77 61  72 64 0d 09 2e 14 f2 53  |2:.forward.....S|
00001270  43 52 45 45 4e 3a d6 26  35 37 39 34 3a ed 0d 09  |CREEN:.&5794:...|
00001280  38 05 e1 0d 09 42 14 dd  20 f2 4a 4f 54 54 45 52  |8....B.. .JOTTER|
00001290  3a db 3a 4a 59 3d 59 0d  09 4c 30 f2 6d 6f 6e 74  |:.:JY=Y..L0.mont|
000012a0  68 28 5a 29 3a f1 8a 35  2c 30 29 22 81 22 3b 6d  |h(Z):..5,0)".";m|
000012b0  6f 6e 74 68 24 3a f1 8a  31 37 2c 30 29 3b 22 84  |onth$:..17,0);".|
000012c0  22 3b 5a 5a 20 20 20 0d  09 56 23 e3 4e 3d 31 b8  |";ZZ   ..V#.N=1.|
000012d0  32 34 3a f1 8a 31 33 2c  4e 29 22 3a 22 3b 8a 32  |24:..13,N)":";.2|
000012e0  36 2c 4e 29 22 3a 22 3b  3a ed 0d 09 60 12 f1 8a  |6,N)":";:...`...|
000012f0  30 2c 31 29 c4 34 30 2c  22 2d 22 29 0d 09 6a 14  |0,1).40,"-")..j.|
00001300  f1 8a 30 2c 32 34 29 c4  33 39 2c 22 2d 22 29 3b  |..0,24).39,"-");|
00001310  0d 09 74 07 58 3d 31 0d  09 7e 14 e3 20 4b 3d 32  |..t.X=1..~.. K=2|
00001320  20 b8 20 32 32 20 88 20  32 20 20 0d 09 88 33 f2  | . 22 . 2  ...3.|
00001330  64 61 79 28 4a 59 29 3a  f2 70 4a 59 3a f1 8a 30  |day(JY):.pJY:..0|
00001340  2c 4b 29 c0 64 61 79 24  2c 33 29 3b 22 20 22 3b  |,K).day$,3);" ";|
00001350  c3 28 58 29 3b 3a 58 3d  58 2b 31 3a ed 20 0d 09  |.(X);:X=X+1:. ..|
00001360  92 13 e3 20 4b 3d 32 20  b8 20 32 32 20 88 20 32  |... K=2 . 22 . 2|
00001370  20 0d 09 9c 33 f2 64 61  79 28 4a 59 29 3a f2 70  | ...3.day(JY):.p|
00001380  4a 59 3a f1 8a 31 34 2c  4b 29 c0 64 61 79 24 2c  |JY:..14,K).day$,|
00001390  33 29 3b 22 20 22 3b c3  28 58 29 3b 3a 58 3d 58  |3);" ";.(X);:X=X|
000013a0  2b 31 3a ed 0d 09 a6 12  e3 20 4b 3d 32 20 b8 20  |+1:...... K=2 . |
000013b0  32 32 20 88 20 32 0d 09  b0 31 f2 64 61 79 28 4a  |22 . 2...1.day(J|
000013c0  59 29 3a f2 70 4a 59 3a  f1 8a 32 37 2c 4b 29 c0  |Y):.pJY:..27,K).|
000013d0  64 61 79 24 2c 33 29 3b  22 20 22 3b c3 28 58 29  |day$,3);" ";.(X)|
000013e0  3b 3a 58 3d 58 2b 31 0d  09 ba 12 e7 20 58 3e 6c  |;:X=X+1..... X>l|
000013f0  65 6e 20 8c 20 4b 3d 32  32 0d 09 c4 05 ed 0d 09  |en . K=22.......|
00001400  ce 05 e1 0d 09 d8 0a dd  20 f2 70 4a 59 0d 09 e2  |........ .pJY...|
00001410  19 4a 59 3d 4a 59 2b 31  3a e7 20 4a 59 3e 37 20  |.JY=JY+1:. JY>7 |
00001420  8c 20 4a 59 3d 31 0d 09  ec 05 e1 0d 09 f6 0e dd  |. JY=1..........|
00001430  20 f2 54 48 52 45 45 3a  db 0d 0a 00 09 f2 62 61  | .THREE:......ba|
00001440  63 6b 0d 0a 0a 15 e3 20  4b 4b 3d 31 b8 33 3a f2  |ck..... KK=1.3:.|
00001450  66 6f 72 77 61 72 64 0d  0a 14 2a f2 6d 6f 6e 74  |forward...*.mont|
00001460  68 28 5a 29 3a f1 8a 33  29 3b 22 81 22 3b 6d 6f  |h(Z):..3);".";mo|
00001470  6e 74 68 24 3b 3a f1 8a  32 30 29 22 85 22 3b 5a  |nth$;:..20)".";Z|
00001480  5a 0d 0a 1e 2d f1 22 82  20 20 20 20 53 55 4e 20  |Z...-.".    SUN |
00001490  20 4d 4f 4e 20 20 54 55  45 20 20 57 45 44 20 20  | MON  TUE  WED  |
000014a0  54 48 52 20 20 46 52 49  20 20 53 41 54 22 0d 0a  |THR  FRI  SAT"..|
000014b0  28 11 58 3d 31 3a e3 20  4e 3d 59 20 b8 20 37 0d  |(.X=1:. N=Y . 7.|
000014c0  0a 32 16 f1 8a 4e 2a 35  29 22 20 22 3b 3a f2 73  |.2...N*5)" ";:.s|
000014d0  63 72 65 65 6e 0d 0a 3c  0b 58 3d 58 2b 31 3a ed  |creen..<.X=X+1:.|
000014e0  0d 0a 46 17 e3 20 4a 3d  31 20 b8 20 35 3a e3 20  |..F.. J=1 . 5:. |
000014f0  4e 3d 31 20 b8 20 37 0d  0a 50 16 f1 8a 4e 2a 35  |N=1 . 7..P...N*5|
00001500  29 22 20 22 3b 3a f2 73  63 72 65 65 6e 0d 0a 5a  |)" ";:.screen..Z|
00001510  10 e7 20 58 3d 30 20 8c  20 58 3d 2d 31 0d 0a 64  |.. X=0 . X=-1..d|
00001520  0d 58 3d 58 2b 31 3a ed  3a ed 0d 0a 6e 0a ed 3a  |.X=X+1:.:...n..:|
00001530  20 e1 20 20 0d 0a 78 11  dd 20 f2 63 68 65 63 6b  | .  ..x.. .check|
00001540  74 68 72 65 65 0d 0a 82  0f e7 20 4a 25 3c 3e 33  |three..... J%<>3|
00001550  20 8c 20 e1 0d 0a 8c 1e  e7 20 49 3d 97 22 3c 22  | . ...... I=."<"|
00001560  20 84 20 49 3d 97 22 2c  22 20 8c 20 f2 65 78 74  | . I=."," . .ext|
00001570  72 61 0d 0a 96 05 e1 0d  0a a0 0c dd 20 f2 65 78  |ra.......... .ex|
00001580  74 72 61 0d 0a aa 1b f2  62 61 63 6b 3a f2 62 61  |tra.....back:.ba|
00001590  63 6b 3a f2 62 61 63 6b  3a f2 62 61 63 6b 0d 0a  |ck:.back:.back..|
000015a0  b4 05 e1 0d 0a be 0a dd  f2 4d 45 4e 55 0d 0a c8  |.........MENU...|
000015b0  0c d6 26 35 38 31 30 3a  db 0d 0a d2 23 f1 22 8d  |..&5810:....#.".|
000015c0  20 20 20 20 20 20 20 20  20 20 20 85 43 41 4c 45  |           .CALE|
000015d0  4e 44 41 52 20 4d 45 4e  55 20 8c 22 0d 0a dc 21  |NDAR MENU ."...!|
000015e0  f1 22 8d 20 20 20 20 20  20 20 20 20 20 20 85 43  |.".           .C|
000015f0  41 4c 45 4e 44 41 52 20  4d 45 4e 55 22 0d 0a e6  |ALENDAR MENU"...|
00001600  30 f1 22 20 94 ac ac ac  ac ac ac ac ac ac ac ac  |0." ............|
00001610  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00001620  ac ac ac ac ac ac ac ac  ac ac ac 22 3b 0d 0a f0  |...........";...|
00001630  1f f1 22 8d 20 20 20 20  83 20 31 2e 2e 2e 42 52  |..".    . 1...BR|
00001640  4f 57 53 45 20 4f 50 54  49 4f 4e 22 0d 0a fa 1f  |OWSE OPTION"....|
00001650  f1 22 8d 20 20 20 20 83  20 31 2e 2e 2e 42 52 4f  |.".    . 1...BRO|
00001660  57 53 45 20 4f 50 54 49  4f 4e 22 0d 0b 04 2d f1  |WSE OPTION"...-.|
00001670  22 20 20 20 20 20 20 20  20 20 20 83 57 69 74 68  |"          .With|
00001680  20 74 68 69 73 20 73 65  6c 65 63 74 69 6f 6e 20  | this selection |
00001690  79 6f 75 20 63 61 6e 22  0d 0b 0e 2c f1 22 20 20  |you can"...,."  |
000016a0  20 20 20 20 20 20 20 20  83 6d 6f 76 65 20 66 6f  |        .move fo|
000016b0  72 77 61 72 64 20 61 6e  64 20 62 61 63 6b 20 77  |rward and back w|
000016c0  69 74 68 22 0d 0b 18 30  f1 22 20 20 20 20 20 20  |ith"...0."      |
000016d0  20 20 20 20 83 74 68 65  20 6b 65 79 73 20 3c 20  |    .the keys < |
000016e0  61 6e 64 20 3e 2e 20 49  66 20 79 6f 75 20 77 61  |and >. If you wa|
000016f0  6e 74 22 3b 0d 0b 22 30  f1 22 20 20 20 20 20 20  |nt";.."0."      |
00001700  20 20 20 20 83 61 20 70  72 69 6e 74 6f 75 74 20  |    .a printout |
00001710  6a 75 73 74 20 70 72 65  73 73 20 27 50 27 2e 20  |just press 'P'. |
00001720  54 6f 22 3b 0d 0b 2c 30  f1 22 20 20 20 20 20 20  |To";..,0."      |
00001730  20 20 20 20 83 73 65 74  20 75 70 20 74 68 65 20  |    .set up the |
00001740  70 72 69 6e 74 65 72 20  64 75 6d 70 20 73 69 7a  |printer dump siz|
00001750  65 73 22 3b 0d 0b 36 2e  f1 22 20 20 20 20 20 20  |es";..6.."      |
00001760  20 20 20 20 83 70 72 65  73 73 20 27 50 27 20 6e  |    .press 'P' n|
00001770  6f 77 2e 54 68 72 65 65  20 74 79 70 65 73 20 6f  |ow.Three types o|
00001780  66 22 0d 0b 40 30 f1 22  20 20 20 20 20 20 20 20  |f"..@0."        |
00001790  20 20 83 64 69 73 70 6c  61 79 20 61 72 65 20 61  |  .display are a|
000017a0  76 61 69 6c 61 62 6c 65  2c 28 54 29 68 72 65 65  |vailable,(T)hree|
000017b0  22 3b 0d 0b 4a 2d f1 22  20 20 20 20 20 20 20 20  |";..J-."        |
000017c0  20 20 83 28 4e 29 6f 72  6d 61 6c 20 61 6e 64 20  |  .(N)ormal and |
000017d0  28 4a 29 6f 74 74 65 72  20 77 68 69 63 68 22 0d  |(J)otter which".|
000017e0  0b 54 2b f1 22 20 20 20  20 20 20 20 20 20 20 83  |.T+."          .|
000017f0  70 72 69 6e 74 73 20 61  20 6a 6f 74 74 65 72 20  |prints a jotter |
00001800  74 79 70 65 20 63 61 6c  2e 22 0d 0b 5e 2d f1 22  |type cal."..^-."|
00001810  20 20 20 20 20 20 20 20  20 20 83 50 4c 45 41 53  |          .PLEAS|
00001820  45 20 53 45 4c 45 43 54  20 4e 4f 57 20 4e 2c 54  |E SELECT NOW N,T|
00001830  20 4f 52 20 4a 2e 22 0d  0b 68 30 f1 22 94 ac ac  | OR J."..h0."...|
00001840  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
*
00001860  ac ac ac ac ac 22 3b 0d  0b 72 24 f1 22 8d 20 20  |.....";..r$.".  |
00001870  20 20 20 20 20 20 20 81  43 4f 4d 50 41 43 54 20  |       .COMPACT |
00001880  41 55 54 4f 20 44 55 4d  50 53 22 0d 0b 7c 24 f1  |AUTO DUMPS"..|$.|
00001890  22 8d 20 20 20 20 20 20  20 20 20 81 43 4f 4d 50  |".         .COMP|
000018a0  41 43 54 20 41 55 54 4f  20 44 55 4d 50 53 22 0d  |ACT AUTO DUMPS".|
000018b0  0b 86 24 f1 22 20 20 20  20 20 20 20 20 20 20 91  |..$."          .|
000018c0  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
000018d0  a3 a3 22 0d 0b 90 25 f1  22 86 20 20 20 20 20 20  |.."...%.".      |
000018e0  20 32 2e 2e 54 48 49 53  20 59 45 41 52 53 20 43  | 2..THIS YEARS C|
000018f0  41 4c 45 4e 44 41 52 22  0d 0b 9a 25 f1 22 20 20  |ALENDAR"...%."  |
00001900  20 20 20 20 20 86 33 2e  2e 4e 45 58 54 20 59 45  |     .3..NEXT YE|
00001910  41 52 53 20 43 41 4c 45  4e 44 41 52 22 0d 0b a4  |ARS CALENDAR"...|
00001920  25 f1 22 20 20 20 20 20  20 20 86 34 2e 2e 4c 41  |%."       .4..LA|
00001930  53 54 20 59 45 41 52 53  20 43 41 4c 45 4e 44 41  |ST YEARS CALENDA|
00001940  52 22 0d 0b ae 26 f1 22  20 20 20 20 20 20 20 86  |R"...&."       .|
00001950  35 2e 2e 43 55 52 52 45  4e 54 20 54 48 52 45 45  |5..CURRENT THREE|
00001960  20 4d 4f 4e 54 48 53 22  0d 0b b8 19 20 f2 66 69  | MONTHS".... .fi|
00001970  72 73 74 64 61 79 3a f2  6c 65 6e 67 74 68 28 5a  |rstday:.length(Z|
00001980  29 0d 0b c2 20 f1 22 84  54 4f 2d 44 41 59 53 20  |)... .".TO-DAYS |
00001990  44 41 54 45 20 53 48 4f  55 4c 44 20 42 45 3a 22  |DATE SHOULD BE:"|
000019a0  3b 0d 0b cc 1e f2 64 61  79 28 64 61 79 29 3a f1  |;.....day(day):.|
000019b0  8a 32 38 2c 30 29 3b 22  82 22 3b 64 61 79 24 0d  |.28,0);".";day$.|
000019c0  0b d6 0f f1 8a 32 35 2c  32 33 29 44 24 3b 0d 0b  |.....25,23)D$;..|
000019d0  e0 08 49 25 3d a5 0d 0b  ea 19 e7 20 49 25 3d 97  |..I%=...... I%=.|
000019e0  22 32 22 20 8c 20 f2 54  48 49 53 59 45 41 52 0d  |"2" . .THISYEAR.|
000019f0  0b f4 19 e7 20 49 25 3d  97 22 33 22 20 8c 20 f2  |.... I%=."3" . .|
00001a00  4e 45 58 54 59 45 41 52  0d 0b fe 19 e7 20 49 25  |NEXTYEAR..... I%|
00001a10  3d 97 22 34 22 20 8c 20  f2 4c 41 53 54 59 45 41  |=."4" . .LASTYEA|
00001a20  52 0d 0c 08 1c e7 20 49  25 3d 97 22 35 22 20 8c  |R..... I%=."5" .|
00001a30  20 f2 54 48 52 45 45 4d  4f 4e 54 48 53 0d 0c 12  | .THREEMONTHS...|
00001a40  18 e7 20 49 25 3d 97 22  50 22 20 8c 20 f2 53 45  |.. I%=."P" . .SE|
00001a50  54 50 41 47 45 0d 0c 1c  14 e7 20 49 25 3d 97 22  |TPAGE..... I%=."|
00001a60  4e 22 20 8c 20 4a 25 3d  30 0d 0c 26 14 e7 20 49  |N" . J%=0..&.. I|
00001a70  25 3d 97 22 4a 22 20 8c  20 4a 25 3d 31 0d 0c 30  |%=."J" . J%=1..0|
00001a80  14 e7 20 49 25 3d 97 22  54 22 20 8c 20 4a 25 3d  |.. I%=."T" . J%=|
00001a90  33 0d 0c 3a 17 e7 20 49  25 3d 97 22 31 22 20 8c  |3..:.. I%=."1" .|
00001aa0  20 f2 4d 41 4e 55 41 4c  0d 0c 44 08 49 25 3d 30  | .MANUAL..D.I%=0|
00001ab0  0d 0c 4e 0c ef 37 3a e5  8d 64 48 4a 0d 0c 58 05  |..N..7:..dHJ..X.|
00001ac0  e1 0d 0c 62 18 f2 66 69  72 73 74 64 61 79 3a f2  |...b..firstday:.|
00001ad0  6c 65 6e 67 74 68 28 5a  29 0d 0c 6c 0b 2a 46 58  |length(Z)..l.*FX|
00001ae0  31 35 2c 30 0d 0c 76 09  e5 8d 54 7c 40 0d 0c 80  |15,0..v...T|@...|
00001af0  0c dd 20 f2 45 4e 44 49  54 0d 0c 8a 39 f1 22 50  |.. .ENDIT...9."P|
00001b00  4c 45 41 53 45 20 43 48  45 43 4b 20 59 4f 55 52  |LEASE CHECK YOUR|
00001b10  20 54 45 4c 45 54 45 58  54 20 55 4e 49 54 22 27  | TELETEXT UNIT"'|
00001b20  22 54 48 45 4e 20 53 54  41 52 54 20 41 47 41 49  |"THEN START AGAI|
00001b30  4e 22 0d 0c 94 05 20 0d  0c 9e 05 e0 0d 0c a8 13  |N".... .........|
00001b40  dd 20 f2 73 65 74 5f 76  61 72 61 62 6c 65 73 0d  |. .set_varables.|
00001b50  0c b2 0e de 20 69 6e 66  6f 25 20 31 35 0d 0c bc  |.... info% 15...|
00001b60  0a 2a 54 54 58 4f 4e 0d  0c c6 09 2a 42 42 43 31  |.*TTXON....*BBC1|
00001b70  0d 0c d0 13 d1 3d 30 3a  f5 3a fd 20 91 3e 31 35  |.....=0:.:. .>15|
00001b80  30 20 20 0d 0c da 05 e1  0d 0c e4 0f dd 20 a4 54  |0  .......... .T|
00001b90  53 44 50 64 61 74 65 0d  0c ee 24 41 25 3d 26 37  |SDPdate...$A%=&7|
00001ba0  41 3a 58 25 3d 69 6e 66  6f 25 83 32 35 36 3a 59  |A:X%=info%.256:Y|
00001bb0  25 3d 69 6e 66 6f 25 81  32 35 36 0d 0c f8 14 3f  |%=info%.256....?|
00001bc0  69 6e 66 6f 25 3d 31 35  3a d6 26 46 46 46 31 0d  |info%=15:.&FFF1.|
00001bd0  0d 02 18 42 42 31 24 3d  c2 c3 7e 28 69 6e 66 6f  |...BB1$=..~(info|
00001be0  25 3f 38 29 2c 31 29 0d  0d 0c 2e 42 42 32 24 3d  |%?8),1)....BB2$=|
00001bf0  c3 7e 28 69 6e 66 6f 25  3f 39 29 3a e7 20 a9 28  |.~(info%?9):. .(|
00001c00  42 42 32 24 29 3d 31 20  42 42 32 24 3d 22 30 22  |BB2$)=1 BB2$="0"|
00001c10  2b 42 42 32 24 0d 0d 16  2f 42 42 33 24 3d c3 7e  |+BB2$.../BB3$=.~|
00001c20  28 69 6e 66 6f 25 3f 31  30 29 3a e7 20 a9 28 42  |(info%?10):. .(B|
00001c30  42 33 24 29 3d 31 20 42  42 33 24 3d 22 30 22 2b  |B3$)=1 BB3$="0"+|
00001c40  42 42 33 24 0d 0d 20 18  4a 44 3d bb 28 42 42 31  |BB3$.. .JD=.(BB1|
00001c50  24 2b 42 42 32 24 2b 42  42 33 24 29 0d 0d 2a 22  |$+BB2$+BB3$)..*"|
00001c60  e7 20 4a 44 3c 34 37 32  32 36 3d 22 44 61 74 65  |. JD<47226="Date|
00001c70  20 6e 6f 74 20 61 76 69  6c 61 62 6c 65 22 0d 0d  | not avilable"..|
00001c80  34 1f 59 31 3d 28 31 30  30 2a 28 4a 44 2d 31 35  |4.Y1=(100*(JD-15|
00001c90  30 37 38 2e 32 29 29 81  33 36 35 32 35 0d 0d 3e  |078.2)).36525..>|
00001ca0  2b 4d 31 3d a8 28 28 4a  44 2d 31 34 39 35 36 2e  |+M1=.((JD-14956.|
00001cb0  31 2d a8 28 33 36 35 2e  32 35 2a 59 31 29 29 2f  |1-.(365.25*Y1))/|
00001cc0  33 30 2e 36 30 30 31 29  0d 0d 48 3e 64 61 79 25  |30.6001)..H>day%|
00001cd0  3d 4a 44 2d 31 34 39 35  36 2d a8 28 33 36 35 2e  |=JD-14956-.(365.|
00001ce0  32 35 2a 59 31 29 2d a8  28 33 30 2e 36 2a 4d 31  |25*Y1)-.(30.6*M1|
00001cf0  29 3a 4b 3d a8 28 30 2e  37 2b 28 31 2f 28 31 37  |):K=.(0.7+(1/(17|
00001d00  2d 4d 31 29 29 29 0d 0d  52 14 6d 6f 6e 74 68 25  |-M1)))..R.month%|
00001d10  3d 4d 31 2d 31 2d 31 32  2a 4b 0d 0d 5c 13 79 65  |=M1-1-12*K..\.ye|
00001d20  61 72 25 3d 31 39 30 30  2b 59 31 2b 4b 0d 0d 66  |ar%=1900+Y1+K..f|
00001d30  40 3d c2 22 30 22 2b c3  28 64 61 79 25 29 2c 32  |@=."0"+.(day%),2|
00001d40  29 2b 22 2f 22 2b c2 22  30 22 2b c3 28 6d 6f 6e  |)+"/"+."0"+.(mon|
00001d50  74 68 25 29 2c 32 29 2b  22 2f 22 2b c2 22 30 22  |th%),2)+"/"+."0"|
00001d60  2b c3 28 79 65 61 72 25  29 2c 34 29 20 0d 0d 70  |+.(year%),4) ..p|
00001d70  23 dd 20 f2 69 6e 74 65  72 70 72 65 74 5f 64 61  |#. .interpret_da|
00001d80  74 65 28 64 25 2c 6d 25  2c 79 25 2c 4d 4a 44 29  |te(d%,m%,y%,MJD)|
00001d90  0d 0d 7a 11 57 3d 28 4d  4a 44 2b 33 29 20 83 20  |..z.W=(MJD+3) . |
00001da0  37 0d 0d 84 0b 20 f7 20  8d 64 4a 4d 0d 0d 8e 0f  |7.... . .dJM....|
00001db0  e3 20 64 64 25 3d 31 20  b8 20 57 0d 0d 98 0c f3  |. dd%=1 . W.....|
00001dc0  20 64 61 79 24 3a ed 0d  0d a2 0b 20 f7 20 8d 64  | day$:..... . .d|
00001dd0  54 4d 0d 0d ac 0e e3 20  6d 6d 25 3d 31 b8 6d 25  |TM..... mm%=1.m%|
00001de0  0d 0d b6 0e f3 20 6d 6f  6e 74 68 24 3a ed 0d 0d  |..... month$:...|
00001df0  c0 12 79 65 61 72 24 3d  c3 28 79 65 61 72 25 29  |..year$=.(year%)|
00001e00  0d 0d ca 3e dc 20 4d 6f  6e 64 61 79 2c 54 75 65  |...>. Monday,Tue|
00001e10  73 64 61 79 2c 57 65 64  6e 65 73 64 61 79 2c 54  |sday,Wednesday,T|
00001e20  68 75 72 73 64 61 79 2c  46 72 69 64 61 79 2c 53  |hursday,Friday,S|
00001e30  61 74 75 72 64 61 79 2c  53 75 6e 64 61 79 0d 0d  |aturday,Sunday..|
00001e40  d4 5b dc 20 4a 61 6e 75  61 72 79 2c 46 65 62 72  |.[. January,Febr|
00001e50  75 61 72 79 2c 4d 61 72  63 68 2c 41 70 72 69 6c  |uary,March,April|
00001e60  2c 4d 61 79 2c 4a 75 6e  65 2c 4a 75 6c 79 2c 41  |,May,June,July,A|
00001e70  75 67 75 73 74 2c 53 65  70 74 65 6d 62 65 72 2c  |ugust,September,|
00001e80  4f 63 74 6f 62 65 72 2c  4e 6f 76 65 6d 62 65 72  |October,November|
00001e90  2c 44 65 63 65 6d 62 65  72 0d 0d de 05 e1 0d 0d  |,December.......|
00001ea0  e8 14 dd 20 f2 67 65 74  5f 64 61 74 65 5f 64 61  |... .get_date_da|
00001eb0  74 61 0d 0d f2 11 f2 73  65 74 5f 76 61 72 61 62  |ta.....set_varab|
00001ec0  6c 65 73 0d 0d fc 10 44  24 3d a4 54 53 44 50 64  |les....D$=.TSDPd|
00001ed0  61 74 65 0d 0e 06 29 f2  69 6e 74 65 72 70 72 65  |ate...).interpre|
00001ee0  74 5f 64 61 74 65 28 64  61 79 25 2c 6d 6f 6e 74  |t_date(day%,mont|
00001ef0  68 25 2c 79 65 61 72 25  2c 4a 44 29 0d 0e 10 05  |h%,year%,JD)....|
00001f00  e1 0d ff                                          |...|
00001f03

18-11-88/ATSCAL.m0

18-11-88/ATSCAL.m1

18-11-88/ATSCAL.m2

18-11-88/ATSCAL.m4

18-11-88/ATSCAL.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .