CeeFax/TVDIARY

Home » CEEFAX disks » telesoftware1.adl » CeeFax/TVDIARY

CeeFax/TVDIARY

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 » telesoftware1.adl
Filename:	CeeFax/TVDIARY
Read OK:	✔
File size:	26C3 bytes
Load address:	1900
Exec address:	8023

File contents

   10REM "    �TVDIARY"
   20REM "    �by Jeffrey Wallis"
   30REM "    �January 1987"  
   40*TV255
   50MODE7
   60VDU14
   70DIMP(100):DIMP$(100):DIMC(100)
   80pc%=0
   90QD%=1:QC%=1    
  100dxpos%=10:cxpos%=31
  110keepflag%=FALSE
  120sortflag%=FALSE
  130dataflag%=FALSE
  140printflag%=FALSE
  150VDU23;11,0;0;0;0
  160PROC_intro
  170ON ERROR OFF
  180PROC_menu
  190GOTO180
  200END
  210DEFPROC_menu
  220CLS
  230ypos%=7:Q%=1
  240PROC_title(147)
  250PRINTTAB(4,7);CHR$141;"���  SELECT TELETEXT PAGE";TAB(34,7);"�"  
  260 PRINTTAB(4,8);CHR$141;"���  SELECT TELETEXT PAGE";TAB(34,8);"�"   
  270PRINTTAB(4,9);CHR$141;"���    ENTER PROGRAMMES";TAB(34,9);"�"
  280PRINTTAB(4,10);CHR$141;"���    ENTER PROGRAMMES";TAB(34,10);"�"   
  290PRINTTAB(4,11);CHR$141;"���    LIST PROGRAMMES";TAB(34,11);"�"
  300PRINTTAB(4,12);CHR$141;"���    LIST PROGRAMMES";TAB(34,12);"�"
  310PRINTTAB(4,13);CHR$141;"���      PRINT DIARY";TAB(34,13);"�"
  320PRINTTAB(4,14);CHR$141;"���      PRINT DIARY";TAB(34,14);"�"
  330PRINTTAB(4,15);CHR$141;"���       LOAD FILE";TAB(34,15);"�"
  340PRINTTAB(4,16);CHR$141;"���       LOAD FILE";TAB(34,16);"�"
  350PRINTTAB(4,17);CHR$141;"���       SAVE FILE";TAB(34,17);"�"
  360PRINTTAB(4,18);CHR$141;"���       SAVE FILE";TAB(34,18);"�" 
  370PRINTTAB(4,19);CHR$141;"��     � END PROGRAM";TAB(34,19);"�" 
  380PRINTTAB(4,20);CHR$141;"��     � END PROGRAM";TAB(34,20);"�"  
  390PROC_message(0,24,131,"Use up and down cursor keys + RETURN")  
  400REPEAT
  410IFINKEY(-58)ANDypos%>7ypos%=ypos%-2:PROC_delay(20):Q%=Q%-1  
  420IFINKEY(-42)ANDypos%<19ypos%=ypos%+2:PROC_delay(20):Q%=Q%+1  
  430PRINTTAB(5,ypos%);"�";TAB(5,ypos%+1);"�"
  440PRINTTAB(5,ypos%-2);"�";TAB(5,ypos%-1);"�";TAB(5,ypos%+2);"�";TAB(5,ypos%+3);"�" 
  445*FX15,1
  450UNTILINKEY(-74)
  455*FX15,1
  460ONQ%GOTO 470,480,490,500,510,520,530
  470PROC_teletext:ENDPROC
  480PROC_enter:ENDPROC
  490CLS:PROC_list:ENDPROC
  500CLS:PROC_print:ENDPROC
  510PROC_load:ENDPROC
  520PROC_save:ENDPROC
  530CLS:PROC_message(11,11,130,"PROGRAM TERMINATED"):END
  540 DEF PROC_enter
  550IF keepflag%=TRUE THEN PROC_display
  560 IF keepflag%=TRUE ypos%=0 
  570 IF keepflag%=FALSE ypos%=10:CLS
  580 PROC_screen
  590 sortflag%=FALSE
  600REPEAT
  610pc%=pc%+1
  620PROC_getday
  630PROC_getchannel
  640PROC_getprog
  650PROC_getstart
  660PROC_getend
  670PROC_duration(ST,ET)
  680PRINTTAB(30,ypos%+3);dur;" mins"
  690PROC_message(0,24,131,"TAB=Another:M=Menu:C=Clear & re-enter")
  700REPEAT:UNTILINKEY(-97)ORINKEY(-102)ORINKEY(-83) 
  710PRINTTAB(11,ypos%+1);SPC(28);:PRINTTAB(4,ypos%+3);SPC(5);TAB(18,ypos%+3);SPC(5);TAB(30,ypos%+3);SPC(9)
  720IFINKEY(-83)pc%=pc%-1
  730UNTILINKEY(-102) 
  740dataflag%=TRUE
  750ENDPROC
  760DEFPROC_getday
  770PROC_message(15,23,131,"Enter day")
  780PROC_message(4,24,131,"Use L & R cursor keys + RETURN")
  790REPEAT
  800IFINKEY(-122) AND dxpos%<22 dxpos%=dxpos%+2:QD%=QD%+1:PROC_delay(20)
  810IFINKEY(-26) AND dxpos%>10 dxpos%=dxpos%-2:QD%=QD%-1:PROC_delay(20) 
  820  PRINTTAB(dxpos%,ypos%);"�";
  830 PRINTTAB(dxpos%+2,ypos%);"�";
  840 PRINTTAB(dxpos%-2,ypos%);"�";
  850UNTILINKEY(-74)
  860PRINTTAB(3,ypos%);CHR$137;
  870P(pc%)=QD%*100 
  880ENDPROC
  890DEFPROC_getchannel
  900PROC_message(13,23,131,"Enter channel") 
  910PROC_delay(20)
  920REPEAT
  930IF INKEY(-122) AND cxpos%<37 cxpos%=cxpos%+2:QC%=QC%+1:PROC_delay(20)
  940IFINKEY(-26) AND cxpos%>31 cxpos%=cxpos%-2:QC%=QC%-1:PROC_delay(20)
  950PRINTTAB(cxpos%,ypos%);"�";
  960 PRINTTAB(cxpos%+2,ypos%);"�";
  970PRINTTAB(cxpos%-2,ypos%);"�"; 
  980UNTILINKEY(-74)
  990PRINTTAB(24,ypos%);CHR$137;
 1000C(pc%)=QC%*100
 1010ENDPROC
 1020DEFPROC_getprog
 1030*FX202,48
 1040PROC_message(0,24,131," ")
 1050PROC_message(14,23,131,"Enter title")
 1060IF keepflag%=TRUE THEN PROC_message(2,24,131,"using keyboard or Cursor keys + COPY")
 1070PROC_delay(20)
 1080*FX15,1
 1090VDU23;11,255;0;0;0
 1100INPUTTAB(11,ypos%+1)P$(pc%) 
 1110IF P$(pc%)="" THEN GOTO1100
 1120*FX202,32
 1130 PROC_message(6,23,131," ")
 1140ENDPROC
 1150DEFPROC_getstart
 1160PROC_message(4,24,131,"Enter time using 24.00 hour clock")
 1170INPUTTAB(4,ypos%+3)ST
 1180PROC_timecheck1(ST,4,ypos%+3)
 1190IFtimeflag%=FALSEGOTO1170
 1200P(pc%)=P(pc%)+ST
 1210ENDPROC
 1220DEFPROC_getend
 1230INPUTTAB(18,ypos%+3)ET
 1240PROC_timecheck1(ET,18,ypos%+3)
 1250IFtimeflag%=FALSEGOTO1230
 1260C(pc%)=C(pc%)+ET
 1270VDU23;11,0;0;0;0
 1280ENDPROC
 1290DEFPROC_duration(ST,ET)
 1300IF ST>ET THEN ET=ET+24
 1310met=INT(ET)*60+(ET-INT(ET))*100
 1320mst=INT(ST)*60+(ST-INT(ST))*100
 1330dur=INT(met-mst+.5)
 1340ENDPROC
 1350DEFPROC_list
 1360VDU14
 1370IFdataflag%=FALSETHENVDU7:PROC_message(8,12,133,"NO PROGRAMMES TO LIST"):PROC_delay(200):ENDPROC
 1380IFsortflag%=FALSEPROC_sort
 1390PROC_title(148)
 1400PRINTTAB(0,5);CHR$148;"```````````````````````````````````````" 
 1410VDU28,0,24,39,6
 1420 IF printflag%=TRUE VDU2
 1430FORX%=1TOpc%
 1440@%=&00020207
 1450PROCdecode(P(X%),C(X%))
 1460IFP(X%)DIV100<>P(X%-1)DIV100PRINT:PRINT"�";d$:ct=0
 1470PRINT"�";ST;" to ";ET;
 1480PRINT"  ";ch$;
 1490@%=&00000007
 1500PROC_duration(ST,ET)
 1510PRINT,dur;" mins"
 1520PRINT"�";P$(X%)
 1530IFct-ST>=.001THENPRINT"�Overlaps with earlier programme"
 1540PRINT
 1550IFct<ET ct=ET
 1560NEXT
 1570VDU3
 1580PROC_message(10,17,130,"Press M for menu")
 1590REPEAT:UNTILINKEY(-102)
 1600VDU26
 1610ENDPROC
 1620DEFPROC_print
 1630IFdataflag%=FALSETHENVDU7:VDU3:PROC_message(8,12,133,"NO PROGRAMMES TO PRINT"):PROC_delay(200):ENDPROC
 1640VDU2,1,27,1,108,1,10,3
 1650printflag%=TRUE
 1660PROC_list
 1670ENDPROC
 1680DEFPROC_save
 1690 PROC_title(145)
 1700IFdataflag%=FALSETHENVDU7:PROC_message(8,12,133,"NO PROGRAMMES TO SAVE"):PROC_delay(200):ENDPROC
 1710 PROC_message(6,9,131,"Enter filename" )
 1720*FX15,0
 1730INPUT TAB(6,11)"�" f$
 1740PROC_message(4,13,131,"����SAVING  �")                        
 1750PROC_message(4,14,131,"����SAVING  �")                 
 1760F%=OPENOUT f$
 1770PRINT#F%,pc%
 1780FORX%=1TOpc%
 1790PRINT#F%,P(X%),C(X%),P$(X%)
 1800NEXT
 1810CLOSE#F%
 1820ENDPROC
 1830DEFPROC_load
 1840PROC_title(145)
 1850*FX15,0
 1860 PROC_message(6,9,131,"Enter filename")
 1870 INPUT TAB(6,11)"�" f$
 1880ON ERROR PRINT TAB(6,13);CHR$141;"NO SUCH FILE":PRINT TAB(6,14);CHR$141;"NO SUCH FILE":PROC_delay(200):GOTO170
 1890F%=OPENIN f$ 
 1900PROC_message(4,13,131,"����LOADING  �")                         
 1910PROC_message(4,14,131,"����LOADING  �")                            
 1920INPUT#F%,pc%
 1930FORX%=1TOpc%
 1940INPUT#F%,P(X%),C(X%),P$(X%)
 1950NEXT
 1960CLOSE#F%
 1970dataflag%=TRUE
 1980 ON ERROR OFF
 1990ENDPROC
 2000DEFPROC_title(c%)
 2010CLS
 2020PRINT;CHR$c%;"  sssss s  s   sss0 ss _ss0 sss0 s  s"
 2030PRINT;CHR$c%;"    s   s  s   s  s ss s  s s  s s  s"
 2040PRINT;CHR$c%;"    s   s  s   s  s ss ssss sss1 ""ss!"
 2050PRINT;CHR$c%;"    s   ""ss!   sss! ss s  s s  s  ss"
 2060ENDPROC
 2070DEFPROC_screen
 2080IF keepflag%=TRUE VDU28,0,4,39,0 ELSE CLS:PROC_screen2
 2090 FOR X%=0 TO 3:PRINT TAB(0,(ypos%+X%))CHR$132;CHR$157;CHR$134;"                                     ";:NEXT 
 2100VDU30:PRINTTAB(4,ypos%);"DAY � �S S M T W T F �CH    1 2 3 4"   
 2110PRINTTAB(4,(ypos%+1));"TITLE�"
 2120PRINTTAB(4,ypos%+2);"START        FINISH      DURATION"
 2130PRINTTAB(3,ypos%+3);"�";
 2140VDU26
 2150IF keepflag%=TRUE PROC_message(1,4,133,ct$)
 2160ENDPROC
 2170DEFPROC_message(x%,y%,c%,m$)
 2180PRINTTAB(0,y%);SPC(39);CHR$30
 2190PRINTTAB(x%,y%);CHR$c%;m$;CHR$30
 2200ENDPROC
 2210REM SHELL METZNER SORT
 2220DEFPROC_sort
 2230PROC_message(12,12,131,"����SORTING  �")
 2240PROC_message(12,13,131,"����SORTING  �")
 2250A=1
 2260N=pc%
 2270IF2^A>NGOTO2300
 2280A=A+1
 2290GOTO2270
 2300F=2^A-1
 2310F=INT(F/2)
 2320IFF=0GOTO2470
 2330D=N-F
 2340B=1
 2350A=B
 2360E=A+F
 2370IFP(A)>P(E)GOTO2410
 2380B=B+1
 2390IFB>DGOTO2310
 2400GOTO2350
 2410T=P(A):t$=P$(A):T1=C(A)
 2420P(A)=P(E):P$(A)=P$(E):C(A)=C(E)
 2430P(E)=T:P$(E)=t$:C(E)=T1
 2440A=A-F
 2450IFA<1GOTO2380
 2460GOTO2360
 2470sortflag%=TRUE
 2480CLS
 2490ENDPROC
 2500DEFPROC_delay(t%)
 2510TIME=0:REPEAT:UNTILTIME>t%
 2520ENDPROC
 2530DEFPROC_timecheck1(T,X%,Y%)
 2540VDU 23;11,0;0;0;0
 2550timeflag%=TRUE
 2560IFT>24timeflag%=FALSE
 2570IFT<0.01timeflag%=FALSE
 2580IFT-INT(T)>.59timeflag%=FALSE
 2590 IFtimeflag%=FALSE THEN VDU7:PROC_message(4,24,130,"Not understood - please re-enter"):PROC_delay(125):PRINTTAB(X%,Y%);SPC(5):PROC_message(5,24,131,"Enter time using 24.00 hour clock")     
 2600 VDU 23;11,255;0;0;0 
 2610ENDPROC
 2620DEFPROCdecode(P,C)
 2630ST=P-(PDIV100)*100
 2640ET=C-(CDIV100)*100
 2650RESTORE2740
 2660FORQ%=1TOPDIV100
 2670READd$
 2680NEXT
 2690RESTORE2750
 2700FORQ%=1TOCDIV100
 2710READch$
 2720NEXT
 2730ENDPROC
 2740DATA SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY
 2750DATA BBC1,BBC2,ITV,CH4
 2760DEFPROC_intro
 2770PROC_title(147)
 2780 RESTORE 2790:FOR X%=1 TO 18:READ T$:PRINT"�";T$:NEXT
 2790DATA " "," ","TVDIARY produces your own personal","schedule of TV viewing."," ","Follow the prompts given at the bottom","of the screen and enter the details of"
 2800DATA "all the programmes you wish to view","from The Radio & TV Times."," ","ATS users can also enter details from","the Teletext TV pages - the required","page can be displayed whilst entering."
 2810DATA " ","TVDIARY will sort the programmes into","chronological order and print out a","schedule, (Epson compatible printers),","warning of any programmes overlapping."
 2820PROC_message(4,23,130,"Press SPACE to continue")
 2830REPEAT:UNTILINKEY(-99)
 2840ENDPROC
 2850DEF PROC_teletext
 2860 PROC_tmenu
 2870 PROC_search
 2880 PROC_update
 2890IF keepflag%=FALSE GOTO 2880
 2900*TTXOFF
 2910ENDPROC
 2920 DEF PROC_tmenu
 2930VDU 23;11,0;0;0;0
 2940ypos%=9:Q%=1
 2950CLS
 2960 PROC_title(149)
 2970PRINTTAB(5,6);CHR$141;"�SELECT A TELETEXT PAGE"     
 2980 PRINTTAB(5,7);CHR$141;"�SELECT A TELETEXT PAGE"
 2990 PRINTTAB(7,9);"���TODAY        BBC1 �"  
 3000 PRINTTAB(7,10);"���             BBC2 �"  
 3010PRINTTAB(7,11);"���              ITV �"   
 3020PRINTTAB(7,12);"���              CH4 �"   
 3030PRINTTAB(7,13);"���TOMMOROW   BBC1/2 �" 
 3040PRINTTAB(7,14);"���              ITV �"   
 3050PRINTTAB(7,15);"���              CH4 �"
 3060 PRINTTAB(7,16);"���DAY AFTER  BBC1/2 �"
 3070 PROC_message(0,24,131,"Use up and down cursor keys + RETURN") 
 3080 REPEAT
 3090 IF INKEY(-58) AND ypos%>9 ypos%=ypos%-1:PROC_delay(20):Q%=Q%-1  
 3100IF INKEY(-42) AND ypos%<16 ypos%=ypos%+1:PROC_delay(20):Q%=Q%+1  
 3110 PRINTTAB(7,ypos%);CHR$(129)
 3120 PRINTTAB(7,ypos%+1);CHR$(132)
 3130PRINTTAB(7,ypos%-1);CHR$(132)
 3140 UNTIL INKEY(-74)
 3150 ONQ% GOTO 3170,3180,3190,3200,3210,3220,3230,3240
 3160 REM"�LINES 3170 TO 3240 ARE THE     � INDEX TO THE TELETEXT PAGES.
 3170 c$="BBC1":pn$="PAGE 171":ct$="BBC 1 TODAY":ENDPROC
 3180c$="BBC1":pn$="PAGE 172":ct$="BBC2 TODAY":ENDPROC
 3190c$="ITV":pn$="PAGE 213":ct$="ITV - TODAY":ENDPROC
 3200c$="ITV":pn$="PAGE 214":ct$="CH4 TODAY":ENDPROC
 3210c$="BBC1":pn$="PAGE 178":ct$="BBC1/2 TOMORROW":ENDPROC
 3220c$="ITV":pn$="PAGE 217" :ct$="ITV TOMORROW":ENDPROC
 3230c$="ITV":pn$="PAGE 218":ct$="CH4 TOMORROW":ENDPROC
 3240c$="BBC1":pn$="PAGE 179":ct$="BBC1/2 THE DAY AFTER TOMORROW":ENDPROC 
 3250ENDPROC
 3260DEF PROC_search
 3270keepflag%=FALSE
 3280CLS:PROC_title(149)
 3290PRINT TAB(8,10);CHR$141 "�SEARCHING FOR PAGE":PRINT TAB(8,11);CHR$141; "�SEARCHING FOR PAGE" 
 3300*TTXON
 3310PROC_oscli(c$)
 3320PROC_oscli(pn$)  
 3330*TRANSFER 7000
 3340*DISPLAY 7000
 3350VDU 23;11,0;0;0;0
 3360PROC_message(6,23,131,"Press ESC when the required")  
 3370PROC_message(6,24,131,"page/sub page is displayed.")
 3380PROC_message(0,22,131," ")
 3390ENDPROC
 3400 DEF PROC_oscli(com$)
 3410 L%=LEN(com$)+1
 3420 DIM C L%
 3430 $C=com$+CHR$(13)
 3440 X%=C MOD 256
 3450 Y%=C DIV256
 3460 CALL &FFF7
 3470 ENDPROC
 3480 DEF PROC_delay(t%)
 3490TIME=0:REPEAT:UNTIL TIME>t%
 3500ENDPROC
 3510 DEF PROC_update
 3520ON ERROR keepflag%=TRUE:GOTO170
 3530k%=0
 3540PROC_memcount
 3550t1%=memsum%
 3560REPEAT
 3570*TRANSFER 7000
 3580PROC_memcount
 3590t2%=memsum%
 3600UNTIL t1%<>t2%
 3610*DISPLAY 7000
 3620VDU 23;11,0;0;0;0   
 3630PROC_message(0,22,131," ")
 3640 PROC_message(6,23,131,"Press ESC when the required")
 3650 PROC_message(6,24,131,"page/sub page is displayed.")
 3660PRINTTAB(0,22);" "; 
 3670ENDPROC
 3680DEF PROC_memcount
 3690memsum%=0
 3700  FOR X%=&7039 TO &7381 STEP 40
 3710 IF?X%<>32 AND ?X%<>160 THEN memsum%=memsum%+?X%
 3720NEXT  
 3730ENDPROC
 3740DEF PROC_display
 3750*DISPLAY 7000  
 3760VDU 23;11,0;0;0;0  
 3770ENDPROC
 3780DEF PROC_screen2
 3790PROC_title(148)
 3800FOR X%=5 TO 9:PRINTTAB(0,X%);CHR$148;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":NEXT
 3810FOR X%=14 TO 22:PRINTTAB(0,X%);CHR$148;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":NEXT   
 3820ENDPROC


� "    �TVDIARY"
� "    �by Jeffrey Wallis"
� "    �January 1987"  
(
*TV255
2�7
<�14
F�P(100):�P$(100):�C(100)
P	pc%=0
ZQD%=1:QC%=1    
ddxpos%=10:cxpos%=31
nkeepflag%=�
xsortflag%=�
�dataflag%=�
�printflag%=�
��23;11,0;0;0;0
��_intro
�	� � �
�
�_menu
�	�tt@
��
���_menu
��
�ypos%=7:Q%=1
��_title(147)
�8�4,7);�141;"���  SELECT TELETEXT PAGE";�34,7);"�"  
: �4,8);�141;"���  SELECT TELETEXT PAGE";�34,8);"�"   
4�4,9);�141;"���    ENTER PROGRAMMES";�34,9);"�"
9�4,10);�141;"���    ENTER PROGRAMMES";�34,10);"�"   
"5�4,11);�141;"���    LIST PROGRAMMES";�34,11);"�"
,5�4,12);�141;"���    LIST PROGRAMMES";�34,12);"�"
63�4,13);�141;"���      PRINT DIARY";�34,13);"�"
@3�4,14);�141;"���      PRINT DIARY";�34,14);"�"
J2�4,15);�141;"���       LOAD FILE";�34,15);"�"
T2�4,16);�141;"���       LOAD FILE";�34,16);"�"
^2�4,17);�141;"���       SAVE FILE";�34,17);"�"
h3�4,18);�141;"���       SAVE FILE";�34,18);"�" 
r4�4,19);�141;"��     � END PROGRAM";�34,19);"�" 
|5�4,20);�141;"��     � END PROGRAM";�34,20);"�"  
�@�_message(0,24,131,"Use up and down cursor keys + RETURN")  
��
�6�(-58)�ypos%>7ypos%=ypos%-2:�_delay(20):Q%=Q%-1  
�7�(-42)�ypos%<19ypos%=ypos%+2:�_delay(20):Q%=Q%+1  
�"�5,ypos%);"�";�5,ypos%+1);"�"
�E�5,ypos%-2);"�";�5,ypos%-1);"�";�5,ypos%+2);"�";�5,ypos%+3);"�" 
�*FX15,1
���(-74)
�*FX15,1
�+�Q%� �dVA,�d`A,�djA,�dtA,�d~A,�THB,�TRB
��_teletext:�
�
�_enter:�
��:�_list:�
��:�_print:�
��_load:�
�_save:�
1�:�_message(11,11,130,"PROGRAM TERMINATED"):�
 � �_enter
&� keepflag%=� � �_display
0 � keepflag%=� ypos%=0 
: � keepflag%=� ypos%=10:�
D
 �_screen
N sortflag%=�
X�
b
pc%=pc%+1
l�_getday
v�_getchannel
�
�_getprog
��_getstart
��_getend
��_duration(ST,ET)
��30,ypos%+3);dur;" mins"
�?�_message(0,24,131,"TAB=Another:M=Menu:C=Clear & re-enter")
��:��(-97)��(-102)��(-83) 
�N�11,ypos%+1);�(28);:�4,ypos%+3);�(5);�18,ypos%+3);�(5);�30,ypos%+3);�(9)
��(-83)pc%=pc%-1
�
��(-102) 
�dataflag%=�
��
�
��_getday
$�_message(15,23,131,"Enter day")
8�_message(4,24,131,"Use L & R cursor keys + RETURN")
�
 >�(-122) � dxpos%<22 dxpos%=dxpos%+2:QD%=QD%+1:�_delay(20)
*>�(-26) � dxpos%>10 dxpos%=dxpos%-2:QD%=QD%-1:�_delay(20) 
4  �dxpos%,ypos%);"�";
> �dxpos%+2,ypos%);"�";
H �dxpos%-2,ypos%);"�";
R��(-74)
\�3,ypos%);�137;
fP(pc%)=QD%*100 
p�
z��_getchannel
�)�_message(13,23,131,"Enter channel") 
��_delay(20)
��
�?� �(-122) � cxpos%<37 cxpos%=cxpos%+2:QC%=QC%+1:�_delay(20)
�=�(-26) � cxpos%>31 cxpos%=cxpos%-2:QC%=QC%-1:�_delay(20)
��cxpos%,ypos%);"�";
� �cxpos%+2,ypos%);"�";
��cxpos%-2,ypos%);"�"; 
���(-74)
��24,ypos%);�137;
�C(pc%)=QC%*100
��
���_getprog

*FX202,48
�_message(0,24,131," ")
&�_message(14,23,131,"Enter title")
$N� keepflag%=� � �_message(2,24,131,"using keyboard or Cursor keys + COPY")
.�_delay(20)
8*FX15,1
B�23;11,255;0;0;0
L�11,ypos%+1)P$(pc%) 
V� P$(pc%)="" � �DLD
`
*FX202,32
j �_message(6,23,131," ")
t�
~��_getstart
�;�_message(4,24,131,"Enter time using 24.00 hour clock")
��4,ypos%+3)ST
��_timecheck1(ST,4,ypos%+3)
��timeflag%=��tRD
�P(pc%)=P(pc%)+ST
��
�
��_getend
��18,ypos%+3)ET
��_timecheck1(ET,18,ypos%+3)
��timeflag%=��dND
�C(pc%)=C(pc%)+ET
��23;11,0;0;0;0
�

��_duration(ST,ET)
� ST>ET � ET=ET+24
met=�(ET)*60+(ET-�(ET))*100
(mst=�(ST)*60+(ST-�(ST))*100
2dur=�(met-mst+.5)
<�
F��_list
P�14
ZN�dataflag%=���7:�_message(8,12,133,"NO PROGRAMMES TO LIST"):�_delay(200):�
d�sortflag%=��_sort
n�_title(148)
x:�0,5);�148;"```````````````````````````````````````" 
��28,0,24,39,6
� � printflag%=� �2
�
�X%=1�pc%
�@%=&00020207
��decode(P(X%),C(X%))
�)�P(X%)�100<>P(X%-1)�100�:�"�";d$:ct=0
��"�";ST;" to ";ET;
��"  ";ch$;
�@%=&00000007
��_duration(ST,ET)
��,dur;" mins"
��"�";P$(X%)
�4�ct-ST>=.001��"�Overlaps with earlier programme"
�
�ct<ET ct=ET
�
"�3
,+�_message(10,17,130,"Press M for menu")
6�:��(-102)
@�26
J�
T��_print
^R�dataflag%=���7:�3:�_message(8,12,133,"NO PROGRAMMES TO PRINT"):�_delay(200):�
h�2,1,27,1,108,1,10,3
rprintflag%=�
|
�_list
��
���_save
� �_title(145)
�N�dataflag%=���7:�_message(8,12,133,"NO PROGRAMMES TO SAVE"):�_delay(200):�
�) �_message(6,9,131,"Enter filename" )
�*FX15,0
�� �6,11)"�" f$
�?�_message(4,13,131,"����SAVING  �")                        
�8�_message(4,14,131,"����SAVING  �")                 
�F%=� f$
��#F%,pc%
�
�X%=1�pc%
��#F%,P(X%),C(X%),P$(X%)
�
�#F%
�
&��_load
0�_title(145)
:*FX15,0
D( �_message(6,9,131,"Enter filename")
N � �6,11)"�" f$
XT� � � �6,13);�141;"NO SUCH FILE":� �6,14);�141;"NO SUCH FILE":�_delay(200):�tj@
bF%=� f$ 
lA�_message(4,13,131,"����LOADING  �")                         
vD�_message(4,14,131,"����LOADING  �")                            
��#F%,pc%
�
�X%=1�pc%
��#F%,P(X%),C(X%),P$(X%)
��
��#F%
�dataflag%=�
�
 � � �
��
���_title(c%)
��
�1�;�c%;"  sssss s  s   sss0 ss _ss0 sss0 s  s"
�1�;�c%;"    s   s  s   s  s ss s  s s  s s  s"
�2�;�c%;"    s   s  s   s  s ss ssss sss1 ""ss!"
1�;�c%;"    s   ""ss!   sss! ss s  s s  s  ss"
�

��_screen
 ,� keepflag%=� �28,0,4,39,0 � �:�_screen2
*Z � X%=0 � 3:� �0,(ypos%+X%))�132;�157;�134;"                                     ";:� 
4;�30:�4,ypos%);"DAY � �S S M T W T F �CH    1 2 3 4"   
>�4,(ypos%+1));"TITLE�"
H4�4,ypos%+2);"START        FINISH      DURATION"
R�3,ypos%+3);"�";
\�26
f(� keepflag%=� �_message(1,4,133,ct$)
p�
z��_message(x%,y%,c%,m$)
��0,y%);�(39);�30
��x%,y%);�c%;m$;�30
��
�� SHELL METZNER SORT
���_sort
�)�_message(12,12,131,"����SORTING  �")
�)�_message(12,13,131,"����SORTING  �")
�A=1
�	N=pc%
��2^A>N�d|H
�	A=A+1
�	�d^H
�F=2^A-1
	F=�(F/2)
	
�F=0�tfI
		D=N-F
	$B=1
	.A=B
	8	E=A+F
	B�P(A)>P(E)�DjI
	L	B=B+1
	V
�B>D�TFI
	`	�TnI
	jT=P(A):t$=P$(A):T1=C(A)
	t#P(A)=P(E):P$(A)=P$(E):C(A)=C(E)
	~P(E)=T:P$(E)=t$:C(E)=T1
	�	A=A-F
	�
�A<1�DLI
	�	�TxI
	�sortflag%=�
	��
	��
	���_delay(t%)
	��=0:�:��>t%
	��
	���_timecheck1(T,X%,Y%)
	�� 23;11,0;0;0;0
	�timeflag%=�
�T>24timeflag%=�

�T<0.01timeflag%=�
�T-�(T)>.59timeflag%=�
� �timeflag%=� � �7:�_message(4,24,130,"Not understood - please re-enter"):�_delay(125):�X%,Y%);�(5):�_message(5,24,131,"Enter time using 24.00 hour clock")     
( � 23;11,255;0;0;0 
2�
<��decode(P,C)
FST=P-(P�100)*100
PET=C-(C�100)*100
Z	��ttJ
d�Q%=1�P�100
n�d$
x�
�	��t~J
��Q%=1�C�100
��ch$
��
��
�>� SATURDAY,SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY
�� BBC1,BBC2,ITV,CH4
���_intro
��_title(147)
�& � �dfJ:� X%=1 � 18:� T$:�"�";T$:�
�� " "," ","TVDIARY produces your own personal","schedule of TV viewing."," ","Follow the prompts given at the bottom","of the screen and enter the details of"
��� "all the programmes you wish to view","from The Radio & TV Times."," ","ATS users can also enter details from","the Teletext TV pages - the required","page can be displayed whilst entering."
��� " ","TVDIARY will sort the programmes into","chronological order and print out a","schedule, (Epson compatible printers),","warning of any programmes overlapping."
1�_message(4,23,130,"Press SPACE to continue")

�:��(-99)
�
"� �_teletext
, �_tmenu
6
 �_search
@
 �_update
J� keepflag%=� � �D@K
T*TTXOFF
^�
h � �_tmenu
r� 23;11,0;0;0;0
|ypos%=9:Q%=1
��
� �_title(149)
�.�5,6);�141;"�SELECT A TELETEXT PAGE"     
�* �5,7);�141;"�SELECT A TELETEXT PAGE"
�& �7,9);"���TODAY        BBC1 �"  
�' �7,10);"���             BBC2 �"  
�'�7,11);"���              ITV �"   
�'�7,12);"���              CH4 �"   
�%�7,13);"���TOMMOROW   BBC1/2 �" 
�'�7,14);"���              ITV �"   
�$�7,15);"���              CH4 �"
�% �7,16);"���DAY AFTER  BBC1/2 �"
�@ �_message(0,24,131,"Use up and down cursor keys + RETURN") 
 �
; � �(-58) � ypos%>9 ypos%=ypos%-1:�_delay(20):Q%=Q%-1  
;� �(-42) � ypos%<16 ypos%=ypos%+1:�_delay(20):Q%=Q%+1  
& �7,ypos%);�(129)
0 �7,ypos%+1);�(132)
:�7,ypos%-1);�(132)
D
 � �(-74)
N2 �Q% � �DbL,�DlL,�DvL,�t@L,�tJL,�tTL,�t^L,�thL
XE �"�LINES 3170 TO 3240 ARE THE     � INDEX TO THE TELETEXT PAGES.
b1 c$="BBC1":pn$="PAGE 171":ct$="BBC 1 TODAY":�
l/c$="BBC1":pn$="PAGE 172":ct$="BBC2 TODAY":�
v/c$="ITV":pn$="PAGE 213":ct$="ITV - TODAY":�
�-c$="ITV":pn$="PAGE 214":ct$="CH4 TODAY":�
�4c$="BBC1":pn$="PAGE 178":ct$="BBC1/2 TOMORROW":�
�1c$="ITV":pn$="PAGE 217" :ct$="ITV TOMORROW":�
�0c$="ITV":pn$="PAGE 218":ct$="CH4 TOMORROW":�
�Cc$="BBC1":pn$="PAGE 179":ct$="BBC1/2 THE DAY AFTER TOMORROW":� 
��
�� �_search
�keepflag%=�
��:�_title(149)
�M� �8,10);�141 "�SEARCHING FOR PAGE":� �8,11);�141; "�SEARCHING FOR PAGE" 
�
*TTXON
��_oscli(c$)
��_oscli(pn$)  

*TRANSFER 7000

*DISPLAY 7000

� 23;11,0;0;0;0

 7�_message(6,23,131,"Press ESC when the required")  

*5�_message(6,24,131,"page/sub page is displayed.")

4�_message(0,22,131," ")

>�

H � �_oscli(com$)

R L%=�(com$)+1

\ � C L%

f $C=com$+�(13)

p X%=C � 256

z Y%=C �256

� � &FFF7

� �

� � �_delay(t%)

��=0:�:� �>t%

��

� � �_update

�� � keepflag%=�:�tj@

�k%=0

��_memcount

�t1%=memsum%

��

�*TRANSFER 7000

��_memcount
t2%=memsum%
� t1%<>t2%
*DISPLAY 7000
$� 23;11,0;0;0;0   
.�_message(0,22,131," ")
86 �_message(6,23,131,"Press ESC when the required")
B6 �_message(6,24,131,"page/sub page is displayed.")
L�0,22);" "; 
V�
`� �_memcount
j
memsum%=0
t  � X%=&7039 � &7381 � 40
~. �?X%<>32 � ?X%<>160 � memsum%=memsum%+?X%
��  
��
�� �_display
�*DISPLAY 7000  
�� 23;11,0;0;0;0  
��
�� �_screen2
��_title(148)
�G� X%=5 � 9:�0,X%);�148;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":�
�L� X%=14 � 22:�0,X%);�148;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":�   
��
�

00000000  0d 00 0a 14 f4 20 22 20  20 20 20 82 54 56 44 49  |..... "    .TVDI|
00000010  41 52 59 22 0d 00 14 1e  f4 20 22 20 20 20 20 82  |ARY"..... "    .|
00000020  62 79 20 4a 65 66 66 72  65 79 20 57 61 6c 6c 69  |by Jeffrey Walli|
00000030  73 22 0d 00 1e 1b f4 20  22 20 20 20 20 82 4a 61  |s"..... "    .Ja|
00000040  6e 75 61 72 79 20 31 39  38 37 22 20 20 0d 00 28  |nuary 1987"  ..(|
00000050  0a 2a 54 56 32 35 35 0d  00 32 06 eb 37 0d 00 3c  |.*TV255..2..7..<|
00000060  07 ef 31 34 0d 00 46 1c  de 50 28 31 30 30 29 3a  |..14..F..P(100):|
00000070  de 50 24 28 31 30 30 29  3a de 43 28 31 30 30 29  |.P$(100):.C(100)|
00000080  0d 00 50 09 70 63 25 3d  30 0d 00 5a 13 51 44 25  |..P.pc%=0..Z.QD%|
00000090  3d 31 3a 51 43 25 3d 31  20 20 20 20 0d 00 64 17  |=1:QC%=1    ..d.|
000000a0  64 78 70 6f 73 25 3d 31  30 3a 63 78 70 6f 73 25  |dxpos%=10:cxpos%|
000000b0  3d 33 31 0d 00 6e 0f 6b  65 65 70 66 6c 61 67 25  |=31..n.keepflag%|
000000c0  3d a3 0d 00 78 0f 73 6f  72 74 66 6c 61 67 25 3d  |=...x.sortflag%=|
000000d0  a3 0d 00 82 0f 64 61 74  61 66 6c 61 67 25 3d a3  |.....dataflag%=.|
000000e0  0d 00 8c 10 70 72 69 6e  74 66 6c 61 67 25 3d a3  |....printflag%=.|
000000f0  0d 00 96 12 ef 32 33 3b  31 31 2c 30 3b 30 3b 30  |.....23;11,0;0;0|
00000100  3b 30 0d 00 a0 0b f2 5f  69 6e 74 72 6f 0d 00 aa  |;0....._intro...|
00000110  09 ee 20 85 20 87 0d 00  b4 0a f2 5f 6d 65 6e 75  |.. . ......_menu|
00000120  0d 00 be 09 e5 8d 74 74  40 0d 00 c8 05 e0 0d 00  |......tt@.......|
00000130  d2 0b dd f2 5f 6d 65 6e  75 0d 00 dc 05 db 0d 00  |...._menu.......|
00000140  e6 10 79 70 6f 73 25 3d  37 3a 51 25 3d 31 0d 00  |..ypos%=7:Q%=1..|
00000150  f0 10 f2 5f 74 69 74 6c  65 28 31 34 37 29 0d 00  |..._title(147)..|
00000160  fa 38 f1 8a 34 2c 37 29  3b bd 31 34 31 3b 22 84  |.8..4,7);.141;".|
00000170  9d 87 20 20 53 45 4c 45  43 54 20 54 45 4c 45 54  |..  SELECT TELET|
00000180  45 58 54 20 50 41 47 45  22 3b 8a 33 34 2c 37 29  |EXT PAGE";.34,7)|
00000190  3b 22 9c 22 20 20 0d 01  04 3a 20 f1 8a 34 2c 38  |;"."  ...: ..4,8|
000001a0  29 3b bd 31 34 31 3b 22  84 9d 87 20 20 53 45 4c  |);.141;"...  SEL|
000001b0  45 43 54 20 54 45 4c 45  54 45 58 54 20 50 41 47  |ECT TELETEXT PAG|
000001c0  45 22 3b 8a 33 34 2c 38  29 3b 22 9c 22 20 20 20  |E";.34,8);"."   |
000001d0  0d 01 0e 34 f1 8a 34 2c  39 29 3b bd 31 34 31 3b  |...4..4,9);.141;|
000001e0  22 84 9d 87 20 20 20 20  45 4e 54 45 52 20 50 52  |"...    ENTER PR|
000001f0  4f 47 52 41 4d 4d 45 53  22 3b 8a 33 34 2c 39 29  |OGRAMMES";.34,9)|
00000200  3b 22 9c 22 0d 01 18 39  f1 8a 34 2c 31 30 29 3b  |;"."...9..4,10);|
00000210  bd 31 34 31 3b 22 84 9d  87 20 20 20 20 45 4e 54  |.141;"...    ENT|
00000220  45 52 20 50 52 4f 47 52  41 4d 4d 45 53 22 3b 8a  |ER PROGRAMMES";.|
00000230  33 34 2c 31 30 29 3b 22  9c 22 20 20 20 0d 01 22  |34,10);"."   .."|
00000240  35 f1 8a 34 2c 31 31 29  3b bd 31 34 31 3b 22 84  |5..4,11);.141;".|
00000250  9d 87 20 20 20 20 4c 49  53 54 20 50 52 4f 47 52  |..    LIST PROGR|
00000260  41 4d 4d 45 53 22 3b 8a  33 34 2c 31 31 29 3b 22  |AMMES";.34,11);"|
00000270  9c 22 0d 01 2c 35 f1 8a  34 2c 31 32 29 3b bd 31  |."..,5..4,12);.1|
00000280  34 31 3b 22 84 9d 87 20  20 20 20 4c 49 53 54 20  |41;"...    LIST |
00000290  50 52 4f 47 52 41 4d 4d  45 53 22 3b 8a 33 34 2c  |PROGRAMMES";.34,|
000002a0  31 32 29 3b 22 9c 22 0d  01 36 33 f1 8a 34 2c 31  |12);"."..63..4,1|
000002b0  33 29 3b bd 31 34 31 3b  22 84 9d 87 20 20 20 20  |3);.141;"...    |
000002c0  20 20 50 52 49 4e 54 20  44 49 41 52 59 22 3b 8a  |  PRINT DIARY";.|
000002d0  33 34 2c 31 33 29 3b 22  9c 22 0d 01 40 33 f1 8a  |34,13);"."..@3..|
000002e0  34 2c 31 34 29 3b bd 31  34 31 3b 22 84 9d 87 20  |4,14);.141;"... |
000002f0  20 20 20 20 20 50 52 49  4e 54 20 44 49 41 52 59  |     PRINT DIARY|
00000300  22 3b 8a 33 34 2c 31 34  29 3b 22 9c 22 0d 01 4a  |";.34,14);"."..J|
00000310  32 f1 8a 34 2c 31 35 29  3b bd 31 34 31 3b 22 84  |2..4,15);.141;".|
00000320  9d 87 20 20 20 20 20 20  20 4c 4f 41 44 20 46 49  |..       LOAD FI|
00000330  4c 45 22 3b 8a 33 34 2c  31 35 29 3b 22 9c 22 0d  |LE";.34,15);".".|
00000340  01 54 32 f1 8a 34 2c 31  36 29 3b bd 31 34 31 3b  |.T2..4,16);.141;|
00000350  22 84 9d 87 20 20 20 20  20 20 20 4c 4f 41 44 20  |"...       LOAD |
00000360  46 49 4c 45 22 3b 8a 33  34 2c 31 36 29 3b 22 9c  |FILE";.34,16);".|
00000370  22 0d 01 5e 32 f1 8a 34  2c 31 37 29 3b bd 31 34  |"..^2..4,17);.14|
00000380  31 3b 22 84 9d 87 20 20  20 20 20 20 20 53 41 56  |1;"...       SAV|
00000390  45 20 46 49 4c 45 22 3b  8a 33 34 2c 31 37 29 3b  |E FILE";.34,17);|
000003a0  22 9c 22 0d 01 68 33 f1  8a 34 2c 31 38 29 3b bd  |"."..h3..4,18);.|
000003b0  31 34 31 3b 22 84 9d 87  20 20 20 20 20 20 20 53  |141;"...       S|
000003c0  41 56 45 20 46 49 4c 45  22 3b 8a 33 34 2c 31 38  |AVE FILE";.34,18|
000003d0  29 3b 22 9c 22 20 0d 01  72 34 f1 8a 34 2c 31 39  |);"." ..r4..4,19|
000003e0  29 3b bd 31 34 31 3b 22  84 9d 20 20 20 20 20 87  |);.141;"..     .|
000003f0  20 45 4e 44 20 50 52 4f  47 52 41 4d 22 3b 8a 33  | END PROGRAM";.3|
00000400  34 2c 31 39 29 3b 22 9c  22 20 0d 01 7c 35 f1 8a  |4,19);"." ..|5..|
00000410  34 2c 32 30 29 3b bd 31  34 31 3b 22 84 9d 20 20  |4,20);.141;"..  |
00000420  20 20 20 87 20 45 4e 44  20 50 52 4f 47 52 41 4d  |   . END PROGRAM|
00000430  22 3b 8a 33 34 2c 32 30  29 3b 22 9c 22 20 20 0d  |";.34,20);"."  .|
00000440  01 86 40 f2 5f 6d 65 73  73 61 67 65 28 30 2c 32  |..@._message(0,2|
00000450  34 2c 31 33 31 2c 22 55  73 65 20 75 70 20 61 6e  |4,131,"Use up an|
00000460  64 20 64 6f 77 6e 20 63  75 72 73 6f 72 20 6b 65  |d down cursor ke|
00000470  79 73 20 2b 20 52 45 54  55 52 4e 22 29 20 20 0d  |ys + RETURN")  .|
00000480  01 90 05 f5 0d 01 9a 36  e7 a6 28 2d 35 38 29 80  |.......6..(-58).|
00000490  79 70 6f 73 25 3e 37 79  70 6f 73 25 3d 79 70 6f  |ypos%>7ypos%=ypo|
000004a0  73 25 2d 32 3a f2 5f 64  65 6c 61 79 28 32 30 29  |s%-2:._delay(20)|
000004b0  3a 51 25 3d 51 25 2d 31  20 20 0d 01 a4 37 e7 a6  |:Q%=Q%-1  ...7..|
000004c0  28 2d 34 32 29 80 79 70  6f 73 25 3c 31 39 79 70  |(-42).ypos%<19yp|
000004d0  6f 73 25 3d 79 70 6f 73  25 2b 32 3a f2 5f 64 65  |os%=ypos%+2:._de|
000004e0  6c 61 79 28 32 30 29 3a  51 25 3d 51 25 2b 31 20  |lay(20):Q%=Q%+1 |
000004f0  20 0d 01 ae 22 f1 8a 35  2c 79 70 6f 73 25 29 3b  | ..."..5,ypos%);|
00000500  22 81 22 3b 8a 35 2c 79  70 6f 73 25 2b 31 29 3b  |".";.5,ypos%+1);|
00000510  22 81 22 0d 01 b8 45 f1  8a 35 2c 79 70 6f 73 25  |"."...E..5,ypos%|
00000520  2d 32 29 3b 22 84 22 3b  8a 35 2c 79 70 6f 73 25  |-2);".";.5,ypos%|
00000530  2d 31 29 3b 22 84 22 3b  8a 35 2c 79 70 6f 73 25  |-1);".";.5,ypos%|
00000540  2b 32 29 3b 22 84 22 3b  8a 35 2c 79 70 6f 73 25  |+2);".";.5,ypos%|
00000550  2b 33 29 3b 22 84 22 20  0d 01 bd 0b 2a 46 58 31  |+3);"." ....*FX1|
00000560  35 2c 31 0d 01 c2 0b fd  a6 28 2d 37 34 29 0d 01  |5,1......(-74)..|
00000570  c7 0b 2a 46 58 31 35 2c  31 0d 01 cc 2b ee 51 25  |..*FX15,1...+.Q%|
00000580  e5 20 8d 64 56 41 2c 8d  64 60 41 2c 8d 64 6a 41  |. .dVA,.d`A,.djA|
00000590  2c 8d 64 74 41 2c 8d 64  7e 41 2c 8d 54 48 42 2c  |,.dtA,.d~A,.THB,|
000005a0  8d 54 52 42 0d 01 d6 10  f2 5f 74 65 6c 65 74 65  |.TRB....._telete|
000005b0  78 74 3a e1 0d 01 e0 0d  f2 5f 65 6e 74 65 72 3a  |xt:......_enter:|
000005c0  e1 0d 01 ea 0e db 3a f2  5f 6c 69 73 74 3a e1 0d  |......:._list:..|
000005d0  01 f4 0f db 3a f2 5f 70  72 69 6e 74 3a e1 0d 01  |....:._print:...|
000005e0  fe 0c f2 5f 6c 6f 61 64  3a e1 0d 02 08 0c f2 5f  |..._load:......_|
000005f0  73 61 76 65 3a e1 0d 02  12 31 db 3a f2 5f 6d 65  |save:....1.:._me|
00000600  73 73 61 67 65 28 31 31  2c 31 31 2c 31 33 30 2c  |ssage(11,11,130,|
00000610  22 50 52 4f 47 52 41 4d  20 54 45 52 4d 49 4e 41  |"PROGRAM TERMINA|
00000620  54 45 44 22 29 3a e0 0d  02 1c 0e 20 dd 20 f2 5f  |TED"):..... . ._|
00000630  65 6e 74 65 72 0d 02 26  1d e7 20 6b 65 65 70 66  |enter..&.. keepf|
00000640  6c 61 67 25 3d b9 20 8c  20 f2 5f 64 69 73 70 6c  |lag%=. . ._displ|
00000650  61 79 0d 02 30 1b 20 e7  20 6b 65 65 70 66 6c 61  |ay..0. . keepfla|
00000660  67 25 3d b9 20 79 70 6f  73 25 3d 30 20 0d 02 3a  |g%=. ypos%=0 ..:|
00000670  1d 20 e7 20 6b 65 65 70  66 6c 61 67 25 3d a3 20  |. . keepflag%=. |
00000680  79 70 6f 73 25 3d 31 30  3a db 0d 02 44 0d 20 f2  |ypos%=10:...D. .|
00000690  5f 73 63 72 65 65 6e 0d  02 4e 10 20 73 6f 72 74  |_screen..N. sort|
000006a0  66 6c 61 67 25 3d a3 0d  02 58 05 f5 0d 02 62 0d  |flag%=...X....b.|
000006b0  70 63 25 3d 70 63 25 2b  31 0d 02 6c 0c f2 5f 67  |pc%=pc%+1..l.._g|
000006c0  65 74 64 61 79 0d 02 76  10 f2 5f 67 65 74 63 68  |etday..v.._getch|
000006d0  61 6e 6e 65 6c 0d 02 80  0d f2 5f 67 65 74 70 72  |annel....._getpr|
000006e0  6f 67 0d 02 8a 0e f2 5f  67 65 74 73 74 61 72 74  |og....._getstart|
000006f0  0d 02 94 0c f2 5f 67 65  74 65 6e 64 0d 02 9e 15  |....._getend....|
00000700  f2 5f 64 75 72 61 74 69  6f 6e 28 53 54 2c 45 54  |._duration(ST,ET|
00000710  29 0d 02 a8 1d f1 8a 33  30 2c 79 70 6f 73 25 2b  |)......30,ypos%+|
00000720  33 29 3b 64 75 72 3b 22  20 6d 69 6e 73 22 0d 02  |3);dur;" mins"..|
00000730  b2 3f f2 5f 6d 65 73 73  61 67 65 28 30 2c 32 34  |.?._message(0,24|
00000740  2c 31 33 31 2c 22 54 41  42 3d 41 6e 6f 74 68 65  |,131,"TAB=Anothe|
00000750  72 3a 4d 3d 4d 65 6e 75  3a 43 3d 43 6c 65 61 72  |r:M=Menu:C=Clear|
00000760  20 26 20 72 65 2d 65 6e  74 65 72 22 29 0d 02 bc  | & re-enter")...|
00000770  1d f5 3a fd a6 28 2d 39  37 29 84 a6 28 2d 31 30  |..:..(-97)..(-10|
00000780  32 29 84 a6 28 2d 38 33  29 20 0d 02 c6 4e f1 8a  |2)..(-83) ...N..|
00000790  31 31 2c 79 70 6f 73 25  2b 31 29 3b 89 28 32 38  |11,ypos%+1);.(28|
000007a0  29 3b 3a f1 8a 34 2c 79  70 6f 73 25 2b 33 29 3b  |);:..4,ypos%+3);|
000007b0  89 28 35 29 3b 8a 31 38  2c 79 70 6f 73 25 2b 33  |.(5);.18,ypos%+3|
000007c0  29 3b 89 28 35 29 3b 8a  33 30 2c 79 70 6f 73 25  |);.(5);.30,ypos%|
000007d0  2b 33 29 3b 89 28 39 29  0d 02 d0 14 e7 a6 28 2d  |+3);.(9)......(-|
000007e0  38 33 29 70 63 25 3d 70  63 25 2d 31 0d 02 da 0d  |83)pc%=pc%-1....|
000007f0  fd a6 28 2d 31 30 32 29  20 0d 02 e4 0f 64 61 74  |..(-102) ....dat|
00000800  61 66 6c 61 67 25 3d b9  0d 02 ee 05 e1 0d 02 f8  |aflag%=.........|
00000810  0d dd f2 5f 67 65 74 64  61 79 0d 03 02 24 f2 5f  |..._getday...$._|
00000820  6d 65 73 73 61 67 65 28  31 35 2c 32 33 2c 31 33  |message(15,23,13|
00000830  31 2c 22 45 6e 74 65 72  20 64 61 79 22 29 0d 03  |1,"Enter day")..|
00000840  0c 38 f2 5f 6d 65 73 73  61 67 65 28 34 2c 32 34  |.8._message(4,24|
00000850  2c 31 33 31 2c 22 55 73  65 20 4c 20 26 20 52 20  |,131,"Use L & R |
00000860  63 75 72 73 6f 72 20 6b  65 79 73 20 2b 20 52 45  |cursor keys + RE|
00000870  54 55 52 4e 22 29 0d 03  16 05 f5 0d 03 20 3e e7  |TURN")....... >.|
00000880  a6 28 2d 31 32 32 29 20  80 20 64 78 70 6f 73 25  |.(-122) . dxpos%|
00000890  3c 32 32 20 64 78 70 6f  73 25 3d 64 78 70 6f 73  |<22 dxpos%=dxpos|
000008a0  25 2b 32 3a 51 44 25 3d  51 44 25 2b 31 3a f2 5f  |%+2:QD%=QD%+1:._|
000008b0  64 65 6c 61 79 28 32 30  29 0d 03 2a 3e e7 a6 28  |delay(20)..*>..(|
000008c0  2d 32 36 29 20 80 20 64  78 70 6f 73 25 3e 31 30  |-26) . dxpos%>10|
000008d0  20 64 78 70 6f 73 25 3d  64 78 70 6f 73 25 2d 32  | dxpos%=dxpos%-2|
000008e0  3a 51 44 25 3d 51 44 25  2d 31 3a f2 5f 64 65 6c  |:QD%=QD%-1:._del|
000008f0  61 79 28 32 30 29 20 0d  03 34 1a 20 20 f1 8a 64  |ay(20) ..4.  ..d|
00000900  78 70 6f 73 25 2c 79 70  6f 73 25 29 3b 22 81 22  |xpos%,ypos%);"."|
00000910  3b 0d 03 3e 1b 20 f1 8a  64 78 70 6f 73 25 2b 32  |;..>. ..dxpos%+2|
00000920  2c 79 70 6f 73 25 29 3b  22 86 22 3b 0d 03 48 1b  |,ypos%);".";..H.|
00000930  20 f1 8a 64 78 70 6f 73  25 2d 32 2c 79 70 6f 73  | ..dxpos%-2,ypos|
00000940  25 29 3b 22 86 22 3b 0d  03 52 0b fd a6 28 2d 37  |%);".";..R...(-7|
00000950  34 29 0d 03 5c 14 f1 8a  33 2c 79 70 6f 73 25 29  |4)..\...3,ypos%)|
00000960  3b bd 31 33 37 3b 0d 03  66 13 50 28 70 63 25 29  |;.137;..f.P(pc%)|
00000970  3d 51 44 25 2a 31 30 30  20 0d 03 70 05 e1 0d 03  |=QD%*100 ..p....|
00000980  7a 11 dd f2 5f 67 65 74  63 68 61 6e 6e 65 6c 0d  |z..._getchannel.|
00000990  03 84 29 f2 5f 6d 65 73  73 61 67 65 28 31 33 2c  |..)._message(13,|
000009a0  32 33 2c 31 33 31 2c 22  45 6e 74 65 72 20 63 68  |23,131,"Enter ch|
000009b0  61 6e 6e 65 6c 22 29 20  0d 03 8e 0f f2 5f 64 65  |annel") ....._de|
000009c0  6c 61 79 28 32 30 29 0d  03 98 05 f5 0d 03 a2 3f  |lay(20)........?|
000009d0  e7 20 a6 28 2d 31 32 32  29 20 80 20 63 78 70 6f  |. .(-122) . cxpo|
000009e0  73 25 3c 33 37 20 63 78  70 6f 73 25 3d 63 78 70  |s%<37 cxpos%=cxp|
000009f0  6f 73 25 2b 32 3a 51 43  25 3d 51 43 25 2b 31 3a  |os%+2:QC%=QC%+1:|
00000a00  f2 5f 64 65 6c 61 79 28  32 30 29 0d 03 ac 3d e7  |._delay(20)...=.|
00000a10  a6 28 2d 32 36 29 20 80  20 63 78 70 6f 73 25 3e  |.(-26) . cxpos%>|
00000a20  33 31 20 63 78 70 6f 73  25 3d 63 78 70 6f 73 25  |31 cxpos%=cxpos%|
00000a30  2d 32 3a 51 43 25 3d 51  43 25 2d 31 3a f2 5f 64  |-2:QC%=QC%-1:._d|
00000a40  65 6c 61 79 28 32 30 29  0d 03 b6 18 f1 8a 63 78  |elay(20)......cx|
00000a50  70 6f 73 25 2c 79 70 6f  73 25 29 3b 22 81 22 3b  |pos%,ypos%);".";|
00000a60  0d 03 c0 1b 20 f1 8a 63  78 70 6f 73 25 2b 32 2c  |.... ..cxpos%+2,|
00000a70  79 70 6f 73 25 29 3b 22  86 22 3b 0d 03 ca 1b f1  |ypos%);".";.....|
00000a80  8a 63 78 70 6f 73 25 2d  32 2c 79 70 6f 73 25 29  |.cxpos%-2,ypos%)|
00000a90  3b 22 86 22 3b 20 0d 03  d4 0b fd a6 28 2d 37 34  |;"."; ......(-74|
00000aa0  29 0d 03 de 15 f1 8a 32  34 2c 79 70 6f 73 25 29  |)......24,ypos%)|
00000ab0  3b bd 31 33 37 3b 0d 03  e8 12 43 28 70 63 25 29  |;.137;....C(pc%)|
00000ac0  3d 51 43 25 2a 31 30 30  0d 03 f2 05 e1 0d 03 fc  |=QC%*100........|
00000ad0  0e dd f2 5f 67 65 74 70  72 6f 67 0d 04 06 0d 2a  |..._getprog....*|
00000ae0  46 58 32 30 32 2c 34 38  0d 04 10 1b f2 5f 6d 65  |FX202,48....._me|
00000af0  73 73 61 67 65 28 30 2c  32 34 2c 31 33 31 2c 22  |ssage(0,24,131,"|
00000b00  20 22 29 0d 04 1a 26 f2  5f 6d 65 73 73 61 67 65  | ")...&._message|
00000b10  28 31 34 2c 32 33 2c 31  33 31 2c 22 45 6e 74 65  |(14,23,131,"Ente|
00000b20  72 20 74 69 74 6c 65 22  29 0d 04 24 4e e7 20 6b  |r title")..$N. k|
00000b30  65 65 70 66 6c 61 67 25  3d b9 20 8c 20 f2 5f 6d  |eepflag%=. . ._m|
00000b40  65 73 73 61 67 65 28 32  2c 32 34 2c 31 33 31 2c  |essage(2,24,131,|
00000b50  22 75 73 69 6e 67 20 6b  65 79 62 6f 61 72 64 20  |"using keyboard |
00000b60  6f 72 20 43 75 72 73 6f  72 20 6b 65 79 73 20 2b  |or Cursor keys +|
00000b70  20 43 4f 50 59 22 29 0d  04 2e 0f f2 5f 64 65 6c  | COPY")....._del|
00000b80  61 79 28 32 30 29 0d 04  38 0b 2a 46 58 31 35 2c  |ay(20)..8.*FX15,|
00000b90  31 0d 04 42 14 ef 32 33  3b 31 31 2c 32 35 35 3b  |1..B..23;11,255;|
00000ba0  30 3b 30 3b 30 0d 04 4c  19 e8 8a 31 31 2c 79 70  |0;0;0..L...11,yp|
00000bb0  6f 73 25 2b 31 29 50 24  28 70 63 25 29 20 0d 04  |os%+1)P$(pc%) ..|
00000bc0  56 18 e7 20 50 24 28 70  63 25 29 3d 22 22 20 8c  |V.. P$(pc%)="" .|
00000bd0  20 e5 8d 44 4c 44 0d 04  60 0d 2a 46 58 32 30 32  | ..DLD..`.*FX202|
00000be0  2c 33 32 0d 04 6a 1c 20  f2 5f 6d 65 73 73 61 67  |,32..j. ._messag|
00000bf0  65 28 36 2c 32 33 2c 31  33 31 2c 22 20 22 29 0d  |e(6,23,131," ").|
00000c00  04 74 05 e1 0d 04 7e 0f  dd f2 5f 67 65 74 73 74  |.t....~..._getst|
00000c10  61 72 74 0d 04 88 3b f2  5f 6d 65 73 73 61 67 65  |art...;._message|
00000c20  28 34 2c 32 34 2c 31 33  31 2c 22 45 6e 74 65 72  |(4,24,131,"Enter|
00000c30  20 74 69 6d 65 20 75 73  69 6e 67 20 32 34 2e 30  | time using 24.0|
00000c40  30 20 68 6f 75 72 20 63  6c 6f 63 6b 22 29 0d 04  |0 hour clock")..|
00000c50  92 12 e8 8a 34 2c 79 70  6f 73 25 2b 33 29 53 54  |....4,ypos%+3)ST|
00000c60  0d 04 9c 1e f2 5f 74 69  6d 65 63 68 65 63 6b 31  |....._timecheck1|
00000c70  28 53 54 2c 34 2c 79 70  6f 73 25 2b 33 29 0d 04  |(ST,4,ypos%+3)..|
00000c80  a6 15 e7 74 69 6d 65 66  6c 61 67 25 3d a3 e5 8d  |...timeflag%=...|
00000c90  74 52 44 0d 04 b0 14 50  28 70 63 25 29 3d 50 28  |tRD....P(pc%)=P(|
00000ca0  70 63 25 29 2b 53 54 0d  04 ba 05 e1 0d 04 c4 0d  |pc%)+ST.........|
00000cb0  dd f2 5f 67 65 74 65 6e  64 0d 04 ce 13 e8 8a 31  |.._getend......1|
00000cc0  38 2c 79 70 6f 73 25 2b  33 29 45 54 0d 04 d8 1f  |8,ypos%+3)ET....|
00000cd0  f2 5f 74 69 6d 65 63 68  65 63 6b 31 28 45 54 2c  |._timecheck1(ET,|
00000ce0  31 38 2c 79 70 6f 73 25  2b 33 29 0d 04 e2 15 e7  |18,ypos%+3).....|
00000cf0  74 69 6d 65 66 6c 61 67  25 3d a3 e5 8d 64 4e 44  |timeflag%=...dND|
00000d00  0d 04 ec 14 43 28 70 63  25 29 3d 43 28 70 63 25  |....C(pc%)=C(pc%|
00000d10  29 2b 45 54 0d 04 f6 12  ef 32 33 3b 31 31 2c 30  |)+ET.....23;11,0|
00000d20  3b 30 3b 30 3b 30 0d 05  00 05 e1 0d 05 0a 16 dd  |;0;0;0..........|
00000d30  f2 5f 64 75 72 61 74 69  6f 6e 28 53 54 2c 45 54  |._duration(ST,ET|
00000d40  29 0d 05 14 16 e7 20 53  54 3e 45 54 20 8c 20 45  |)..... ST>ET . E|
00000d50  54 3d 45 54 2b 32 34 0d  05 1e 1f 6d 65 74 3d a8  |T=ET+24....met=.|
00000d60  28 45 54 29 2a 36 30 2b  28 45 54 2d a8 28 45 54  |(ET)*60+(ET-.(ET|
00000d70  29 29 2a 31 30 30 0d 05  28 1f 6d 73 74 3d a8 28  |))*100..(.mst=.(|
00000d80  53 54 29 2a 36 30 2b 28  53 54 2d a8 28 53 54 29  |ST)*60+(ST-.(ST)|
00000d90  29 2a 31 30 30 0d 05 32  15 64 75 72 3d a8 28 6d  |)*100..2.dur=.(m|
00000da0  65 74 2d 6d 73 74 2b 2e  35 29 0d 05 3c 05 e1 0d  |et-mst+.5)..<...|
00000db0  05 46 0b dd f2 5f 6c 69  73 74 0d 05 50 07 ef 31  |.F..._list..P..1|
00000dc0  34 0d 05 5a 4e e7 64 61  74 61 66 6c 61 67 25 3d  |4..ZN.dataflag%=|
00000dd0  a3 8c ef 37 3a f2 5f 6d  65 73 73 61 67 65 28 38  |...7:._message(8|
00000de0  2c 31 32 2c 31 33 33 2c  22 4e 4f 20 50 52 4f 47  |,12,133,"NO PROG|
00000df0  52 41 4d 4d 45 53 20 54  4f 20 4c 49 53 54 22 29  |RAMMES TO LIST")|
00000e00  3a f2 5f 64 65 6c 61 79  28 32 30 30 29 3a e1 0d  |:._delay(200):..|
00000e10  05 64 16 e7 73 6f 72 74  66 6c 61 67 25 3d a3 f2  |.d..sortflag%=..|
00000e20  5f 73 6f 72 74 0d 05 6e  10 f2 5f 74 69 74 6c 65  |_sort..n.._title|
00000e30  28 31 34 38 29 0d 05 78  3a f1 8a 30 2c 35 29 3b  |(148)..x:..0,5);|
00000e40  bd 31 34 38 3b 22 60 60  60 60 60 60 60 60 60 60  |.148;"``````````|
00000e50  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
00000e60  60 60 60 60 60 60 60 60  60 60 60 60 60 22 20 0d  |`````````````" .|
00000e70  05 82 11 ef 32 38 2c 30  2c 32 34 2c 33 39 2c 36  |....28,0,24,39,6|
00000e80  0d 05 8c 16 20 e7 20 70  72 69 6e 74 66 6c 61 67  |.... . printflag|
00000e90  25 3d b9 20 ef 32 0d 05  96 0d e3 58 25 3d 31 b8  |%=. .2.....X%=1.|
00000ea0  70 63 25 0d 05 a0 10 40  25 3d 26 30 30 30 32 30  |pc%....@%=&00020|
00000eb0  32 30 37 0d 05 aa 18 f2  64 65 63 6f 64 65 28 50  |207.....decode(P|
00000ec0  28 58 25 29 2c 43 28 58  25 29 29 0d 05 b4 29 e7  |(X%),C(X%))...).|
00000ed0  50 28 58 25 29 81 31 30  30 3c 3e 50 28 58 25 2d  |P(X%).100<>P(X%-|
00000ee0  31 29 81 31 30 30 f1 3a  f1 22 81 22 3b 64 24 3a  |1).100.:.".";d$:|
00000ef0  63 74 3d 30 0d 05 be 16  f1 22 86 22 3b 53 54 3b  |ct=0.....".";ST;|
00000f00  22 20 74 6f 20 22 3b 45  54 3b 0d 05 c8 0e f1 22  |" to ";ET;....."|
00000f10  20 20 22 3b 63 68 24 3b  0d 05 d2 10 40 25 3d 26  |  ";ch$;....@%=&|
00000f20  30 30 30 30 30 30 30 37  0d 05 dc 15 f2 5f 64 75  |00000007....._du|
00000f30  72 61 74 69 6f 6e 28 53  54 2c 45 54 29 0d 05 e6  |ration(ST,ET)...|
00000f40  11 f1 2c 64 75 72 3b 22  20 6d 69 6e 73 22 0d 05  |..,dur;" mins"..|
00000f50  f0 0f f1 22 83 22 3b 50  24 28 58 25 29 0d 05 fa  |...".";P$(X%)...|
00000f60  34 e7 63 74 2d 53 54 3e  3d 2e 30 30 31 8c f1 22  |4.ct-ST>=.001.."|
00000f70  85 4f 76 65 72 6c 61 70  73 20 77 69 74 68 20 65  |.Overlaps with e|
00000f80  61 72 6c 69 65 72 20 70  72 6f 67 72 61 6d 6d 65  |arlier programme|
00000f90  22 0d 06 04 05 f1 0d 06  0e 10 e7 63 74 3c 45 54  |"..........ct<ET|
00000fa0  20 63 74 3d 45 54 0d 06  18 05 ed 0d 06 22 06 ef  | ct=ET......."..|
00000fb0  33 0d 06 2c 2b f2 5f 6d  65 73 73 61 67 65 28 31  |3..,+._message(1|
00000fc0  30 2c 31 37 2c 31 33 30  2c 22 50 72 65 73 73 20  |0,17,130,"Press |
00000fd0  4d 20 66 6f 72 20 6d 65  6e 75 22 29 0d 06 36 0e  |M for menu")..6.|
00000fe0  f5 3a fd a6 28 2d 31 30  32 29 0d 06 40 07 ef 32  |.:..(-102)..@..2|
00000ff0  36 0d 06 4a 05 e1 0d 06  54 0c dd f2 5f 70 72 69  |6..J....T..._pri|
00001000  6e 74 0d 06 5e 52 e7 64  61 74 61 66 6c 61 67 25  |nt..^R.dataflag%|
00001010  3d a3 8c ef 37 3a ef 33  3a f2 5f 6d 65 73 73 61  |=...7:.3:._messa|
00001020  67 65 28 38 2c 31 32 2c  31 33 33 2c 22 4e 4f 20  |ge(8,12,133,"NO |
00001030  50 52 4f 47 52 41 4d 4d  45 53 20 54 4f 20 50 52  |PROGRAMMES TO PR|
00001040  49 4e 54 22 29 3a f2 5f  64 65 6c 61 79 28 32 30  |INT"):._delay(20|
00001050  30 29 3a e1 0d 06 68 18  ef 32 2c 31 2c 32 37 2c  |0):...h..2,1,27,|
00001060  31 2c 31 30 38 2c 31 2c  31 30 2c 33 0d 06 72 10  |1,108,1,10,3..r.|
00001070  70 72 69 6e 74 66 6c 61  67 25 3d b9 0d 06 7c 0a  |printflag%=...|.|
00001080  f2 5f 6c 69 73 74 0d 06  86 05 e1 0d 06 90 0b dd  |._list..........|
00001090  f2 5f 73 61 76 65 0d 06  9a 11 20 f2 5f 74 69 74  |._save.... ._tit|
000010a0  6c 65 28 31 34 35 29 0d  06 a4 4e e7 64 61 74 61  |le(145)...N.data|
000010b0  66 6c 61 67 25 3d a3 8c  ef 37 3a f2 5f 6d 65 73  |flag%=...7:._mes|
000010c0  73 61 67 65 28 38 2c 31  32 2c 31 33 33 2c 22 4e  |sage(8,12,133,"N|
000010d0  4f 20 50 52 4f 47 52 41  4d 4d 45 53 20 54 4f 20  |O PROGRAMMES TO |
000010e0  53 41 56 45 22 29 3a f2  5f 64 65 6c 61 79 28 32  |SAVE"):._delay(2|
000010f0  30 30 29 3a e1 0d 06 ae  29 20 f2 5f 6d 65 73 73  |00):....) ._mess|
00001100  61 67 65 28 36 2c 39 2c  31 33 31 2c 22 45 6e 74  |age(6,9,131,"Ent|
00001110  65 72 20 66 69 6c 65 6e  61 6d 65 22 20 29 0d 06  |er filename" )..|
00001120  b8 0b 2a 46 58 31 35 2c  30 0d 06 c2 12 e8 20 8a  |..*FX15,0..... .|
00001130  36 2c 31 31 29 22 83 22  20 66 24 0d 06 cc 3f f2  |6,11)"." f$...?.|
00001140  5f 6d 65 73 73 61 67 65  28 34 2c 31 33 2c 31 33  |_message(4,13,13|
00001150  31 2c 22 8d 81 9d 87 53  41 56 49 4e 47 20 20 9c  |1,"....SAVING  .|
00001160  22 29 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |")              |
00001170  20 20 20 20 20 20 20 20  20 20 0d 06 d6 38 f2 5f  |          ...8._|
00001180  6d 65 73 73 61 67 65 28  34 2c 31 34 2c 31 33 31  |message(4,14,131|
00001190  2c 22 8d 81 9d 87 53 41  56 49 4e 47 20 20 9c 22  |,"....SAVING  ."|
000011a0  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
000011b0  20 20 0d 06 e0 0b 46 25  3d ae 20 66 24 0d 06 ea  |  ....F%=. f$...|
000011c0  0c f1 23 46 25 2c 70 63  25 0d 06 f4 0d e3 58 25  |..#F%,pc%.....X%|
000011d0  3d 31 b8 70 63 25 0d 06  fe 1b f1 23 46 25 2c 50  |=1.pc%.....#F%,P|
000011e0  28 58 25 29 2c 43 28 58  25 29 2c 50 24 28 58 25  |(X%),C(X%),P$(X%|
000011f0  29 0d 07 08 05 ed 0d 07  12 08 d9 23 46 25 0d 07  |)..........#F%..|
00001200  1c 05 e1 0d 07 26 0b dd  f2 5f 6c 6f 61 64 0d 07  |.....&..._load..|
00001210  30 10 f2 5f 74 69 74 6c  65 28 31 34 35 29 0d 07  |0.._title(145)..|
00001220  3a 0b 2a 46 58 31 35 2c  30 0d 07 44 28 20 f2 5f  |:.*FX15,0..D( ._|
00001230  6d 65 73 73 61 67 65 28  36 2c 39 2c 31 33 31 2c  |message(6,9,131,|
00001240  22 45 6e 74 65 72 20 66  69 6c 65 6e 61 6d 65 22  |"Enter filename"|
00001250  29 0d 07 4e 13 20 e8 20  8a 36 2c 31 31 29 22 83  |)..N. . .6,11)".|
00001260  22 20 66 24 0d 07 58 54  ee 20 85 20 f1 20 8a 36  |" f$..XT. . . .6|
00001270  2c 31 33 29 3b bd 31 34  31 3b 22 4e 4f 20 53 55  |,13);.141;"NO SU|
00001280  43 48 20 46 49 4c 45 22  3a f1 20 8a 36 2c 31 34  |CH FILE":. .6,14|
00001290  29 3b bd 31 34 31 3b 22  4e 4f 20 53 55 43 48 20  |);.141;"NO SUCH |
000012a0  46 49 4c 45 22 3a f2 5f  64 65 6c 61 79 28 32 30  |FILE":._delay(20|
000012b0  30 29 3a e5 8d 74 6a 40  0d 07 62 0c 46 25 3d 8e  |0):..tj@..b.F%=.|
000012c0  20 66 24 20 0d 07 6c 41  f2 5f 6d 65 73 73 61 67  | f$ ..lA._messag|
000012d0  65 28 34 2c 31 33 2c 31  33 31 2c 22 8d 81 9d 87  |e(4,13,131,"....|
000012e0  4c 4f 41 44 49 4e 47 20  20 9c 22 29 20 20 20 20  |LOADING  .")    |
000012f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001300  20 20 20 20 20 0d 07 76  44 f2 5f 6d 65 73 73 61  |     ..vD._messa|
00001310  67 65 28 34 2c 31 34 2c  31 33 31 2c 22 8d 81 9d  |ge(4,14,131,"...|
00001320  87 4c 4f 41 44 49 4e 47  20 20 9c 22 29 20 20 20  |.LOADING  .")   |
00001330  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001340  20 20 20 20 20 20 20 20  20 0d 07 80 0c e8 23 46  |         .....#F|
00001350  25 2c 70 63 25 0d 07 8a  0d e3 58 25 3d 31 b8 70  |%,pc%.....X%=1.p|
00001360  63 25 0d 07 94 1b e8 23  46 25 2c 50 28 58 25 29  |c%.....#F%,P(X%)|
00001370  2c 43 28 58 25 29 2c 50  24 28 58 25 29 0d 07 9e  |,C(X%),P$(X%)...|
00001380  05 ed 0d 07 a8 08 d9 23  46 25 0d 07 b2 0f 64 61  |.......#F%....da|
00001390  74 61 66 6c 61 67 25 3d  b9 0d 07 bc 0a 20 ee 20  |taflag%=..... . |
000013a0  85 20 87 0d 07 c6 05 e1  0d 07 d0 10 dd f2 5f 74  |. ............_t|
000013b0  69 74 6c 65 28 63 25 29  0d 07 da 05 db 0d 07 e4  |itle(c%)........|
000013c0  31 f1 3b bd 63 25 3b 22  20 20 73 73 73 73 73 20  |1.;.c%;"  sssss |
000013d0  73 20 20 73 20 20 20 73  73 73 30 20 73 73 20 5f  |s  s   sss0 ss _|
000013e0  73 73 30 20 73 73 73 30  20 73 20 20 73 22 0d 07  |ss0 sss0 s  s"..|
000013f0  ee 31 f1 3b bd 63 25 3b  22 20 20 20 20 73 20 20  |.1.;.c%;"    s  |
00001400  20 73 20 20 73 20 20 20  73 20 20 73 20 73 73 20  | s  s   s  s ss |
00001410  73 20 20 73 20 73 20 20  73 20 73 20 20 73 22 0d  |s  s s  s s  s".|
00001420  07 f8 32 f1 3b bd 63 25  3b 22 20 20 20 20 73 20  |..2.;.c%;"    s |
00001430  20 20 73 20 20 73 20 20  20 73 20 20 73 20 73 73  |  s  s   s  s ss|
00001440  20 73 73 73 73 20 73 73  73 31 20 22 22 73 73 21  | ssss sss1 ""ss!|
00001450  22 0d 08 02 31 f1 3b bd  63 25 3b 22 20 20 20 20  |"...1.;.c%;"    |
00001460  73 20 20 20 22 22 73 73  21 20 20 20 73 73 73 21  |s   ""ss!   sss!|
00001470  20 73 73 20 73 20 20 73  20 73 20 20 73 20 20 73  | ss s  s s  s  s|
00001480  73 22 0d 08 0c 05 e1 0d  08 16 0d dd f2 5f 73 63  |s"..........._sc|
00001490  72 65 65 6e 0d 08 20 2c  e7 20 6b 65 65 70 66 6c  |reen.. ,. keepfl|
000014a0  61 67 25 3d b9 20 ef 32  38 2c 30 2c 34 2c 33 39  |ag%=. .28,0,4,39|
000014b0  2c 30 20 8b 20 db 3a f2  5f 73 63 72 65 65 6e 32  |,0 . .:._screen2|
000014c0  0d 08 2a 5a 20 e3 20 58  25 3d 30 20 b8 20 33 3a  |..*Z . X%=0 . 3:|
000014d0  f1 20 8a 30 2c 28 79 70  6f 73 25 2b 58 25 29 29  |. .0,(ypos%+X%))|
000014e0  bd 31 33 32 3b bd 31 35  37 3b bd 31 33 34 3b 22  |.132;.157;.134;"|
000014f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001510  20 20 20 20 20 22 3b 3a  ed 20 0d 08 34 3b ef 33  |     ";:. ..4;.3|
00001520  30 3a f1 8a 34 2c 79 70  6f 73 25 29 3b 22 44 41  |0:..4,ypos%);"DA|
00001530  59 20 87 20 86 53 20 53  20 4d 20 54 20 57 20 54  |Y . .S S M T W T|
00001540  20 46 20 86 43 48 20 20  20 20 31 20 32 20 33 20  | F .CH    1 2 3 |
00001550  34 22 20 20 20 0d 08 3e  1b f1 8a 34 2c 28 79 70  |4"   ..>...4,(yp|
00001560  6f 73 25 2b 31 29 29 3b  22 54 49 54 4c 45 87 22  |os%+1));"TITLE."|
00001570  0d 08 48 34 f1 8a 34 2c  79 70 6f 73 25 2b 32 29  |..H4..4,ypos%+2)|
00001580  3b 22 53 54 41 52 54 20  20 20 20 20 20 20 20 46  |;"START        F|
00001590  49 4e 49 53 48 20 20 20  20 20 20 44 55 52 41 54  |INISH      DURAT|
000015a0  49 4f 4e 22 0d 08 52 15  f1 8a 33 2c 79 70 6f 73  |ION"..R...3,ypos|
000015b0  25 2b 33 29 3b 22 87 22  3b 0d 08 5c 07 ef 32 36  |%+3);".";..\..26|
000015c0  0d 08 66 28 e7 20 6b 65  65 70 66 6c 61 67 25 3d  |..f(. keepflag%=|
000015d0  b9 20 f2 5f 6d 65 73 73  61 67 65 28 31 2c 34 2c  |. ._message(1,4,|
000015e0  31 33 33 2c 63 74 24 29  0d 08 70 05 e1 0d 08 7a  |133,ct$)..p....z|
000015f0  1b dd f2 5f 6d 65 73 73  61 67 65 28 78 25 2c 79  |..._message(x%,y|
00001600  25 2c 63 25 2c 6d 24 29  0d 08 84 15 f1 8a 30 2c  |%,c%,m$)......0,|
00001610  79 25 29 3b 89 28 33 39  29 3b bd 33 30 0d 08 8e  |y%);.(39);.30...|
00001620  17 f1 8a 78 25 2c 79 25  29 3b bd 63 25 3b 6d 24  |...x%,y%);.c%;m$|
00001630  3b bd 33 30 0d 08 98 05  e1 0d 08 a2 18 f4 20 53  |;.30.......... S|
00001640  48 45 4c 4c 20 4d 45 54  5a 4e 45 52 20 53 4f 52  |HELL METZNER SOR|
00001650  54 0d 08 ac 0b dd f2 5f  73 6f 72 74 0d 08 b6 29  |T......_sort...)|
00001660  f2 5f 6d 65 73 73 61 67  65 28 31 32 2c 31 32 2c  |._message(12,12,|
00001670  31 33 31 2c 22 8d 81 9d  87 53 4f 52 54 49 4e 47  |131,"....SORTING|
00001680  20 20 9c 22 29 0d 08 c0  29 f2 5f 6d 65 73 73 61  |  .")...)._messa|
00001690  67 65 28 31 32 2c 31 33  2c 31 33 31 2c 22 8d 81  |ge(12,13,131,"..|
000016a0  9d 87 53 4f 52 54 49 4e  47 20 20 9c 22 29 0d 08  |..SORTING  .")..|
000016b0  ca 07 41 3d 31 0d 08 d4  09 4e 3d 70 63 25 0d 08  |..A=1....N=pc%..|
000016c0  de 0f e7 32 5e 41 3e 4e  e5 8d 64 7c 48 0d 08 e8  |...2^A>N..d|H...|
000016d0  09 41 3d 41 2b 31 0d 08  f2 09 e5 8d 64 5e 48 0d  |.A=A+1......d^H.|
000016e0  08 fc 0b 46 3d 32 5e 41  2d 31 0d 09 06 0c 46 3d  |...F=2^A-1....F=|
000016f0  a8 28 46 2f 32 29 0d 09  10 0d e7 46 3d 30 e5 8d  |.(F/2).....F=0..|
00001700  74 66 49 0d 09 1a 09 44  3d 4e 2d 46 0d 09 24 07  |tfI....D=N-F..$.|
00001710  42 3d 31 0d 09 2e 07 41  3d 42 0d 09 38 09 45 3d  |B=1....A=B..8.E=|
00001720  41 2b 46 0d 09 42 13 e7  50 28 41 29 3e 50 28 45  |A+F..B..P(A)>P(E|
00001730  29 e5 8d 44 6a 49 0d 09  4c 09 42 3d 42 2b 31 0d  |)..DjI..L.B=B+1.|
00001740  09 56 0d e7 42 3e 44 e5  8d 54 46 49 0d 09 60 09  |.V..B>D..TFI..`.|
00001750  e5 8d 54 6e 49 0d 09 6a  1b 54 3d 50 28 41 29 3a  |..TnI..j.T=P(A):|
00001760  74 24 3d 50 24 28 41 29  3a 54 31 3d 43 28 41 29  |t$=P$(A):T1=C(A)|
00001770  0d 09 74 23 50 28 41 29  3d 50 28 45 29 3a 50 24  |..t#P(A)=P(E):P$|
00001780  28 41 29 3d 50 24 28 45  29 3a 43 28 41 29 3d 43  |(A)=P$(E):C(A)=C|
00001790  28 45 29 0d 09 7e 1b 50  28 45 29 3d 54 3a 50 24  |(E)..~.P(E)=T:P$|
000017a0  28 45 29 3d 74 24 3a 43  28 45 29 3d 54 31 0d 09  |(E)=t$:C(E)=T1..|
000017b0  88 09 41 3d 41 2d 46 0d  09 92 0d e7 41 3c 31 e5  |..A=A-F.....A<1.|
000017c0  8d 44 4c 49 0d 09 9c 09  e5 8d 54 78 49 0d 09 a6  |.DLI......TxI...|
000017d0  0f 73 6f 72 74 66 6c 61  67 25 3d b9 0d 09 b0 05  |.sortflag%=.....|
000017e0  db 0d 09 ba 05 e1 0d 09  c4 10 dd f2 5f 64 65 6c  |............_del|
000017f0  61 79 28 74 25 29 0d 09  ce 0f d1 3d 30 3a f5 3a  |ay(t%).....=0:.:|
00001800  fd 91 3e 74 25 0d 09 d8  05 e1 0d 09 e2 1a dd f2  |..>t%...........|
00001810  5f 74 69 6d 65 63 68 65  63 6b 31 28 54 2c 58 25  |_timecheck1(T,X%|
00001820  2c 59 25 29 0d 09 ec 13  ef 20 32 33 3b 31 31 2c  |,Y%)..... 23;11,|
00001830  30 3b 30 3b 30 3b 30 0d  09 f6 0f 74 69 6d 65 66  |0;0;0;0....timef|
00001840  6c 61 67 25 3d b9 0d 0a  00 14 e7 54 3e 32 34 74  |lag%=......T>24t|
00001850  69 6d 65 66 6c 61 67 25  3d a3 0d 0a 0a 16 e7 54  |imeflag%=......T|
00001860  3c 30 2e 30 31 74 69 6d  65 66 6c 61 67 25 3d a3  |<0.01timeflag%=.|
00001870  0d 0a 14 1a e7 54 2d a8  28 54 29 3e 2e 35 39 74  |.....T-.(T)>.59t|
00001880  69 6d 65 66 6c 61 67 25  3d a3 0d 0a 1e a5 20 e7  |imeflag%=..... .|
00001890  74 69 6d 65 66 6c 61 67  25 3d a3 20 8c 20 ef 37  |timeflag%=. . .7|
000018a0  3a f2 5f 6d 65 73 73 61  67 65 28 34 2c 32 34 2c  |:._message(4,24,|
000018b0  31 33 30 2c 22 4e 6f 74  20 75 6e 64 65 72 73 74  |130,"Not underst|
000018c0  6f 6f 64 20 2d 20 70 6c  65 61 73 65 20 72 65 2d  |ood - please re-|
000018d0  65 6e 74 65 72 22 29 3a  f2 5f 64 65 6c 61 79 28  |enter"):._delay(|
000018e0  31 32 35 29 3a f1 8a 58  25 2c 59 25 29 3b 89 28  |125):..X%,Y%);.(|
000018f0  35 29 3a f2 5f 6d 65 73  73 61 67 65 28 35 2c 32  |5):._message(5,2|
00001900  34 2c 31 33 31 2c 22 45  6e 74 65 72 20 74 69 6d  |4,131,"Enter tim|
00001910  65 20 75 73 69 6e 67 20  32 34 2e 30 30 20 68 6f  |e using 24.00 ho|
00001920  75 72 20 63 6c 6f 63 6b  22 29 20 20 20 20 20 0d  |ur clock")     .|
00001930  0a 28 17 20 ef 20 32 33  3b 31 31 2c 32 35 35 3b  |.(. . 23;11,255;|
00001940  30 3b 30 3b 30 20 0d 0a  32 05 e1 0d 0a 3c 11 dd  |0;0;0 ..2....<..|
00001950  f2 64 65 63 6f 64 65 28  50 2c 43 29 0d 0a 46 14  |.decode(P,C)..F.|
00001960  53 54 3d 50 2d 28 50 81  31 30 30 29 2a 31 30 30  |ST=P-(P.100)*100|
00001970  0d 0a 50 14 45 54 3d 43  2d 28 43 81 31 30 30 29  |..P.ET=C-(C.100)|
00001980  2a 31 30 30 0d 0a 5a 09  f7 8d 74 74 4a 0d 0a 64  |*100..Z...ttJ..d|
00001990  0f e3 51 25 3d 31 b8 50  81 31 30 30 0d 0a 6e 07  |..Q%=1.P.100..n.|
000019a0  f3 64 24 0d 0a 78 05 ed  0d 0a 82 09 f7 8d 74 7e  |.d$..x........t~|
000019b0  4a 0d 0a 8c 0f e3 51 25  3d 31 b8 43 81 31 30 30  |J.....Q%=1.C.100|
000019c0  0d 0a 96 08 f3 63 68 24  0d 0a a0 05 ed 0d 0a aa  |.....ch$........|
000019d0  05 e1 0d 0a b4 3e dc 20  53 41 54 55 52 44 41 59  |.....>. SATURDAY|
000019e0  2c 53 55 4e 44 41 59 2c  4d 4f 4e 44 41 59 2c 54  |,SUNDAY,MONDAY,T|
000019f0  55 45 53 44 41 59 2c 57  45 44 4e 45 53 44 41 59  |UESDAY,WEDNESDAY|
00001a00  2c 54 48 55 52 53 44 41  59 2c 46 52 49 44 41 59  |,THURSDAY,FRIDAY|
00001a10  0d 0a be 17 dc 20 42 42  43 31 2c 42 42 43 32 2c  |..... BBC1,BBC2,|
00001a20  49 54 56 2c 43 48 34 0d  0a c8 0c dd f2 5f 69 6e  |ITV,CH4......_in|
00001a30  74 72 6f 0d 0a d2 10 f2  5f 74 69 74 6c 65 28 31  |tro....._title(1|
00001a40  34 37 29 0d 0a dc 26 20  f7 20 8d 64 66 4a 3a e3  |47)...& . .dfJ:.|
00001a50  20 58 25 3d 31 20 b8 20  31 38 3a f3 20 54 24 3a  | X%=1 . 18:. T$:|
00001a60  f1 22 86 22 3b 54 24 3a  ed 0d 0a e6 a2 dc 20 22  |.".";T$:...... "|
00001a70  20 22 2c 22 20 22 2c 22  54 56 44 49 41 52 59 20  | "," ","TVDIARY |
00001a80  70 72 6f 64 75 63 65 73  20 79 6f 75 72 20 6f 77  |produces your ow|
00001a90  6e 20 70 65 72 73 6f 6e  61 6c 22 2c 22 73 63 68  |n personal","sch|
00001aa0  65 64 75 6c 65 20 6f 66  20 54 56 20 76 69 65 77  |edule of TV view|
00001ab0  69 6e 67 2e 22 2c 22 20  22 2c 22 46 6f 6c 6c 6f  |ing."," ","Follo|
00001ac0  77 20 74 68 65 20 70 72  6f 6d 70 74 73 20 67 69  |w the prompts gi|
00001ad0  76 65 6e 20 61 74 20 74  68 65 20 62 6f 74 74 6f  |ven at the botto|
00001ae0  6d 22 2c 22 6f 66 20 74  68 65 20 73 63 72 65 65  |m","of the scree|
00001af0  6e 20 61 6e 64 20 65 6e  74 65 72 20 74 68 65 20  |n and enter the |
00001b00  64 65 74 61 69 6c 73 20  6f 66 22 0d 0a f0 c4 dc  |details of".....|
00001b10  20 22 61 6c 6c 20 74 68  65 20 70 72 6f 67 72 61  | "all the progra|
00001b20  6d 6d 65 73 20 79 6f 75  20 77 69 73 68 20 74 6f  |mmes you wish to|
00001b30  20 76 69 65 77 22 2c 22  66 72 6f 6d 20 54 68 65  | view","from The|
00001b40  20 52 61 64 69 6f 20 26  20 54 56 20 54 69 6d 65  | Radio & TV Time|
00001b50  73 2e 22 2c 22 20 22 2c  22 41 54 53 20 75 73 65  |s."," ","ATS use|
00001b60  72 73 20 63 61 6e 20 61  6c 73 6f 20 65 6e 74 65  |rs can also ente|
00001b70  72 20 64 65 74 61 69 6c  73 20 66 72 6f 6d 22 2c  |r details from",|
00001b80  22 74 68 65 20 54 65 6c  65 74 65 78 74 20 54 56  |"the Teletext TV|
00001b90  20 70 61 67 65 73 20 2d  20 74 68 65 20 72 65 71  | pages - the req|
00001ba0  75 69 72 65 64 22 2c 22  70 61 67 65 20 63 61 6e  |uired","page can|
00001bb0  20 62 65 20 64 69 73 70  6c 61 79 65 64 20 77 68  | be displayed wh|
00001bc0  69 6c 73 74 20 65 6e 74  65 72 69 6e 67 2e 22 0d  |ilst entering.".|
00001bd0  0a fa a9 dc 20 22 20 22  2c 22 54 56 44 49 41 52  |.... " ","TVDIAR|
00001be0  59 20 77 69 6c 6c 20 73  6f 72 74 20 74 68 65 20  |Y will sort the |
00001bf0  70 72 6f 67 72 61 6d 6d  65 73 20 69 6e 74 6f 22  |programmes into"|
00001c00  2c 22 63 68 72 6f 6e 6f  6c 6f 67 69 63 61 6c 20  |,"chronological |
00001c10  6f 72 64 65 72 20 61 6e  64 20 70 72 69 6e 74 20  |order and print |
00001c20  6f 75 74 20 61 22 2c 22  73 63 68 65 64 75 6c 65  |out a","schedule|
00001c30  2c 20 28 45 70 73 6f 6e  20 63 6f 6d 70 61 74 69  |, (Epson compati|
00001c40  62 6c 65 20 70 72 69 6e  74 65 72 73 29 2c 22 2c  |ble printers),",|
00001c50  22 77 61 72 6e 69 6e 67  20 6f 66 20 61 6e 79 20  |"warning of any |
00001c60  70 72 6f 67 72 61 6d 6d  65 73 20 6f 76 65 72 6c  |programmes overl|
00001c70  61 70 70 69 6e 67 2e 22  0d 0b 04 31 f2 5f 6d 65  |apping."...1._me|
00001c80  73 73 61 67 65 28 34 2c  32 33 2c 31 33 30 2c 22  |ssage(4,23,130,"|
00001c90  50 72 65 73 73 20 53 50  41 43 45 20 74 6f 20 63  |Press SPACE to c|
00001ca0  6f 6e 74 69 6e 75 65 22  29 0d 0b 0e 0d f5 3a fd  |ontinue").....:.|
00001cb0  a6 28 2d 39 39 29 0d 0b  18 05 e1 0d 0b 22 10 dd  |.(-99)......."..|
00001cc0  20 f2 5f 74 65 6c 65 74  65 78 74 0d 0b 2c 0c 20  | ._teletext..,. |
00001cd0  f2 5f 74 6d 65 6e 75 0d  0b 36 0d 20 f2 5f 73 65  |._tmenu..6. ._se|
00001ce0  61 72 63 68 0d 0b 40 0d  20 f2 5f 75 70 64 61 74  |arch..@. ._updat|
00001cf0  65 0d 0b 4a 18 e7 20 6b  65 65 70 66 6c 61 67 25  |e..J.. keepflag%|
00001d00  3d a3 20 e5 20 8d 44 40  4b 0d 0b 54 0b 2a 54 54  |=. . .D@K..T.*TT|
00001d10  58 4f 46 46 0d 0b 5e 05  e1 0d 0b 68 0e 20 dd 20  |XOFF..^....h. . |
00001d20  f2 5f 74 6d 65 6e 75 0d  0b 72 13 ef 20 32 33 3b  |._tmenu..r.. 23;|
00001d30  31 31 2c 30 3b 30 3b 30  3b 30 0d 0b 7c 10 79 70  |11,0;0;0;0..|.yp|
00001d40  6f 73 25 3d 39 3a 51 25  3d 31 0d 0b 86 05 db 0d  |os%=9:Q%=1......|
00001d50  0b 90 11 20 f2 5f 74 69  74 6c 65 28 31 34 39 29  |... ._title(149)|
00001d60  0d 0b 9a 2e f1 8a 35 2c  36 29 3b bd 31 34 31 3b  |......5,6);.141;|
00001d70  22 83 53 45 4c 45 43 54  20 41 20 54 45 4c 45 54  |".SELECT A TELET|
00001d80  45 58 54 20 50 41 47 45  22 20 20 20 20 20 0d 0b  |EXT PAGE"     ..|
00001d90  a4 2a 20 f1 8a 35 2c 37  29 3b bd 31 34 31 3b 22  |.* ..5,7);.141;"|
00001da0  83 53 45 4c 45 43 54 20  41 20 54 45 4c 45 54 45  |.SELECT A TELETE|
00001db0  58 54 20 50 41 47 45 22  0d 0b ae 26 20 f1 8a 37  |XT PAGE"...& ..7|
00001dc0  2c 39 29 3b 22 84 9d 87  54 4f 44 41 59 20 20 20  |,9);"...TODAY   |
00001dd0  20 20 20 20 20 42 42 43  31 20 9c 22 20 20 0d 0b  |     BBC1 ."  ..|
00001de0  b8 27 20 f1 8a 37 2c 31  30 29 3b 22 84 9d 87 20  |.' ..7,10);"... |
00001df0  20 20 20 20 20 20 20 20  20 20 20 20 42 42 43 32  |            BBC2|
00001e00  20 9c 22 20 20 0d 0b c2  27 f1 8a 37 2c 31 31 29  | ."  ...'..7,11)|
00001e10  3b 22 84 9d 87 20 20 20  20 20 20 20 20 20 20 20  |;"...           |
00001e20  20 20 20 49 54 56 20 9c  22 20 20 20 0d 0b cc 27  |   ITV ."   ...'|
00001e30  f1 8a 37 2c 31 32 29 3b  22 84 9d 87 20 20 20 20  |..7,12);"...    |
00001e40  20 20 20 20 20 20 20 20  20 20 43 48 34 20 9c 22  |          CH4 ."|
00001e50  20 20 20 0d 0b d6 25 f1  8a 37 2c 31 33 29 3b 22  |   ...%..7,13);"|
00001e60  84 9d 87 54 4f 4d 4d 4f  52 4f 57 20 20 20 42 42  |...TOMMOROW   BB|
00001e70  43 31 2f 32 20 9c 22 20  0d 0b e0 27 f1 8a 37 2c  |C1/2 ." ...'..7,|
00001e80  31 34 29 3b 22 84 9d 87  20 20 20 20 20 20 20 20  |14);"...        |
00001e90  20 20 20 20 20 20 49 54  56 20 9c 22 20 20 20 0d  |      ITV ."   .|
00001ea0  0b ea 24 f1 8a 37 2c 31  35 29 3b 22 84 9d 87 20  |..$..7,15);"... |
00001eb0  20 20 20 20 20 20 20 20  20 20 20 20 20 43 48 34  |             CH4|
00001ec0  20 9c 22 0d 0b f4 25 20  f1 8a 37 2c 31 36 29 3b  | ."...% ..7,16);|
00001ed0  22 84 9d 87 44 41 59 20  41 46 54 45 52 20 20 42  |"...DAY AFTER  B|
00001ee0  42 43 31 2f 32 20 9c 22  0d 0b fe 40 20 f2 5f 6d  |BC1/2 ."...@ ._m|
00001ef0  65 73 73 61 67 65 28 30  2c 32 34 2c 31 33 31 2c  |essage(0,24,131,|
00001f00  22 55 73 65 20 75 70 20  61 6e 64 20 64 6f 77 6e  |"Use up and down|
00001f10  20 63 75 72 73 6f 72 20  6b 65 79 73 20 2b 20 52  | cursor keys + R|
00001f20  45 54 55 52 4e 22 29 20  0d 0c 08 06 20 f5 0d 0c  |ETURN") .... ...|
00001f30  12 3b 20 e7 20 a6 28 2d  35 38 29 20 80 20 79 70  |.; . .(-58) . yp|
00001f40  6f 73 25 3e 39 20 79 70  6f 73 25 3d 79 70 6f 73  |os%>9 ypos%=ypos|
00001f50  25 2d 31 3a f2 5f 64 65  6c 61 79 28 32 30 29 3a  |%-1:._delay(20):|
00001f60  51 25 3d 51 25 2d 31 20  20 0d 0c 1c 3b e7 20 a6  |Q%=Q%-1  ...;. .|
00001f70  28 2d 34 32 29 20 80 20  79 70 6f 73 25 3c 31 36  |(-42) . ypos%<16|
00001f80  20 79 70 6f 73 25 3d 79  70 6f 73 25 2b 31 3a f2  | ypos%=ypos%+1:.|
00001f90  5f 64 65 6c 61 79 28 32  30 29 3a 51 25 3d 51 25  |_delay(20):Q%=Q%|
00001fa0  2b 31 20 20 0d 0c 26 16  20 f1 8a 37 2c 79 70 6f  |+1  ..&. ..7,ypo|
00001fb0  73 25 29 3b bd 28 31 32  39 29 0d 0c 30 18 20 f1  |s%);.(129)..0. .|
00001fc0  8a 37 2c 79 70 6f 73 25  2b 31 29 3b bd 28 31 33  |.7,ypos%+1);.(13|
00001fd0  32 29 0d 0c 3a 17 f1 8a  37 2c 79 70 6f 73 25 2d  |2)..:...7,ypos%-|
00001fe0  31 29 3b bd 28 31 33 32  29 0d 0c 44 0d 20 fd 20  |1);.(132)..D. . |
00001ff0  a6 28 2d 37 34 29 0d 0c  4e 32 20 ee 51 25 20 e5  |.(-74)..N2 .Q% .|
00002000  20 8d 44 62 4c 2c 8d 44  6c 4c 2c 8d 44 76 4c 2c  | .DbL,.DlL,.DvL,|
00002010  8d 74 40 4c 2c 8d 74 4a  4c 2c 8d 74 54 4c 2c 8d  |.t@L,.tJL,.tTL,.|
00002020  74 5e 4c 2c 8d 74 68 4c  0d 0c 58 45 20 f4 22 82  |t^L,.thL..XE .".|
00002030  4c 49 4e 45 53 20 33 31  37 30 20 54 4f 20 33 32  |LINES 3170 TO 32|
00002040  34 30 20 41 52 45 20 54  48 45 20 20 20 20 20 82  |40 ARE THE     .|
00002050  20 49 4e 44 45 58 20 54  4f 20 54 48 45 20 54 45  | INDEX TO THE TE|
00002060  4c 45 54 45 58 54 20 50  41 47 45 53 2e 0d 0c 62  |LETEXT PAGES...b|
00002070  31 20 63 24 3d 22 42 42  43 31 22 3a 70 6e 24 3d  |1 c$="BBC1":pn$=|
00002080  22 50 41 47 45 20 31 37  31 22 3a 63 74 24 3d 22  |"PAGE 171":ct$="|
00002090  42 42 43 20 31 20 54 4f  44 41 59 22 3a e1 0d 0c  |BBC 1 TODAY":...|
000020a0  6c 2f 63 24 3d 22 42 42  43 31 22 3a 70 6e 24 3d  |l/c$="BBC1":pn$=|
000020b0  22 50 41 47 45 20 31 37  32 22 3a 63 74 24 3d 22  |"PAGE 172":ct$="|
000020c0  42 42 43 32 20 54 4f 44  41 59 22 3a e1 0d 0c 76  |BBC2 TODAY":...v|
000020d0  2f 63 24 3d 22 49 54 56  22 3a 70 6e 24 3d 22 50  |/c$="ITV":pn$="P|
000020e0  41 47 45 20 32 31 33 22  3a 63 74 24 3d 22 49 54  |AGE 213":ct$="IT|
000020f0  56 20 2d 20 54 4f 44 41  59 22 3a e1 0d 0c 80 2d  |V - TODAY":....-|
00002100  63 24 3d 22 49 54 56 22  3a 70 6e 24 3d 22 50 41  |c$="ITV":pn$="PA|
00002110  47 45 20 32 31 34 22 3a  63 74 24 3d 22 43 48 34  |GE 214":ct$="CH4|
00002120  20 54 4f 44 41 59 22 3a  e1 0d 0c 8a 34 63 24 3d  | TODAY":....4c$=|
00002130  22 42 42 43 31 22 3a 70  6e 24 3d 22 50 41 47 45  |"BBC1":pn$="PAGE|
00002140  20 31 37 38 22 3a 63 74  24 3d 22 42 42 43 31 2f  | 178":ct$="BBC1/|
00002150  32 20 54 4f 4d 4f 52 52  4f 57 22 3a e1 0d 0c 94  |2 TOMORROW":....|
00002160  31 63 24 3d 22 49 54 56  22 3a 70 6e 24 3d 22 50  |1c$="ITV":pn$="P|
00002170  41 47 45 20 32 31 37 22  20 3a 63 74 24 3d 22 49  |AGE 217" :ct$="I|
00002180  54 56 20 54 4f 4d 4f 52  52 4f 57 22 3a e1 0d 0c  |TV TOMORROW":...|
00002190  9e 30 63 24 3d 22 49 54  56 22 3a 70 6e 24 3d 22  |.0c$="ITV":pn$="|
000021a0  50 41 47 45 20 32 31 38  22 3a 63 74 24 3d 22 43  |PAGE 218":ct$="C|
000021b0  48 34 20 54 4f 4d 4f 52  52 4f 57 22 3a e1 0d 0c  |H4 TOMORROW":...|
000021c0  a8 43 63 24 3d 22 42 42  43 31 22 3a 70 6e 24 3d  |.Cc$="BBC1":pn$=|
000021d0  22 50 41 47 45 20 31 37  39 22 3a 63 74 24 3d 22  |"PAGE 179":ct$="|
000021e0  42 42 43 31 2f 32 20 54  48 45 20 44 41 59 20 41  |BBC1/2 THE DAY A|
000021f0  46 54 45 52 20 54 4f 4d  4f 52 52 4f 57 22 3a e1  |FTER TOMORROW":.|
00002200  20 0d 0c b2 05 e1 0d 0c  bc 0e dd 20 f2 5f 73 65  | .......... ._se|
00002210  61 72 63 68 0d 0c c6 0f  6b 65 65 70 66 6c 61 67  |arch....keepflag|
00002220  25 3d a3 0d 0c d0 12 db  3a f2 5f 74 69 74 6c 65  |%=......:._title|
00002230  28 31 34 39 29 0d 0c da  4d f1 20 8a 38 2c 31 30  |(149)...M. .8,10|
00002240  29 3b bd 31 34 31 20 22  83 53 45 41 52 43 48 49  |);.141 ".SEARCHI|
00002250  4e 47 20 46 4f 52 20 50  41 47 45 22 3a f1 20 8a  |NG FOR PAGE":. .|
00002260  38 2c 31 31 29 3b bd 31  34 31 3b 20 22 83 53 45  |8,11);.141; ".SE|
00002270  41 52 43 48 49 4e 47 20  46 4f 52 20 50 41 47 45  |ARCHING FOR PAGE|
00002280  22 20 0d 0c e4 0a 2a 54  54 58 4f 4e 0d 0c ee 0f  |" ....*TTXON....|
00002290  f2 5f 6f 73 63 6c 69 28  63 24 29 0d 0c f8 12 f2  |._oscli(c$).....|
000022a0  5f 6f 73 63 6c 69 28 70  6e 24 29 20 20 0d 0d 02  |_oscli(pn$)  ...|
000022b0  12 2a 54 52 41 4e 53 46  45 52 20 37 30 30 30 0d  |.*TRANSFER 7000.|
000022c0  0d 0c 11 2a 44 49 53 50  4c 41 59 20 37 30 30 30  |...*DISPLAY 7000|
000022d0  0d 0d 16 13 ef 20 32 33  3b 31 31 2c 30 3b 30 3b  |..... 23;11,0;0;|
000022e0  30 3b 30 0d 0d 20 37 f2  5f 6d 65 73 73 61 67 65  |0;0.. 7._message|
000022f0  28 36 2c 32 33 2c 31 33  31 2c 22 50 72 65 73 73  |(6,23,131,"Press|
00002300  20 45 53 43 20 77 68 65  6e 20 74 68 65 20 72 65  | ESC when the re|
00002310  71 75 69 72 65 64 22 29  20 20 0d 0d 2a 35 f2 5f  |quired")  ..*5._|
00002320  6d 65 73 73 61 67 65 28  36 2c 32 34 2c 31 33 31  |message(6,24,131|
00002330  2c 22 70 61 67 65 2f 73  75 62 20 70 61 67 65 20  |,"page/sub page |
00002340  69 73 20 64 69 73 70 6c  61 79 65 64 2e 22 29 0d  |is displayed.").|
00002350  0d 34 1b f2 5f 6d 65 73  73 61 67 65 28 30 2c 32  |.4.._message(0,2|
00002360  32 2c 31 33 31 2c 22 20  22 29 0d 0d 3e 05 e1 0d  |2,131," ")..>...|
00002370  0d 48 14 20 dd 20 f2 5f  6f 73 63 6c 69 28 63 6f  |.H. . ._oscli(co|
00002380  6d 24 29 0d 0d 52 11 20  4c 25 3d a9 28 63 6f 6d  |m$)..R. L%=.(com|
00002390  24 29 2b 31 0d 0d 5c 0b  20 de 20 43 20 4c 25 0d  |$)+1..\. . C L%.|
000023a0  0d 66 12 20 24 43 3d 63  6f 6d 24 2b bd 28 31 33  |.f. $C=com$+.(13|
000023b0  29 0d 0d 70 0f 20 58 25  3d 43 20 83 20 32 35 36  |)..p. X%=C . 256|
000023c0  0d 0d 7a 0e 20 59 25 3d  43 20 81 32 35 36 0d 0d  |..z. Y%=C .256..|
000023d0  84 0c 20 d6 20 26 46 46  46 37 0d 0d 8e 06 20 e1  |.. . &FFF7.... .|
000023e0  0d 0d 98 12 20 dd 20 f2  5f 64 65 6c 61 79 28 74  |.... . ._delay(t|
000023f0  25 29 0d 0d a2 10 d1 3d  30 3a f5 3a fd 20 91 3e  |%).....=0:.:. .>|
00002400  74 25 0d 0d ac 05 e1 0d  0d b6 0f 20 dd 20 f2 5f  |t%......... . ._|
00002410  75 70 64 61 74 65 0d 0d  c0 19 ee 20 85 20 6b 65  |update..... . ke|
00002420  65 70 66 6c 61 67 25 3d  b9 3a e5 8d 74 6a 40 0d  |epflag%=.:..tj@.|
00002430  0d ca 08 6b 25 3d 30 0d  0d d4 0e f2 5f 6d 65 6d  |...k%=0....._mem|
00002440  63 6f 75 6e 74 0d 0d de  0f 74 31 25 3d 6d 65 6d  |count....t1%=mem|
00002450  73 75 6d 25 0d 0d e8 05  f5 0d 0d f2 12 2a 54 52  |sum%.........*TR|
00002460  41 4e 53 46 45 52 20 37  30 30 30 0d 0d fc 0e f2  |ANSFER 7000.....|
00002470  5f 6d 65 6d 63 6f 75 6e  74 0d 0e 06 0f 74 32 25  |_memcount....t2%|
00002480  3d 6d 65 6d 73 75 6d 25  0d 0e 10 0e fd 20 74 31  |=memsum%..... t1|
00002490  25 3c 3e 74 32 25 0d 0e  1a 11 2a 44 49 53 50 4c  |%<>t2%....*DISPL|
000024a0  41 59 20 37 30 30 30 0d  0e 24 16 ef 20 32 33 3b  |AY 7000..$.. 23;|
000024b0  31 31 2c 30 3b 30 3b 30  3b 30 20 20 20 0d 0e 2e  |11,0;0;0;0   ...|
000024c0  1b f2 5f 6d 65 73 73 61  67 65 28 30 2c 32 32 2c  |.._message(0,22,|
000024d0  31 33 31 2c 22 20 22 29  0d 0e 38 36 20 f2 5f 6d  |131," ")..86 ._m|
000024e0  65 73 73 61 67 65 28 36  2c 32 33 2c 31 33 31 2c  |essage(6,23,131,|
000024f0  22 50 72 65 73 73 20 45  53 43 20 77 68 65 6e 20  |"Press ESC when |
00002500  74 68 65 20 72 65 71 75  69 72 65 64 22 29 0d 0e  |the required")..|
00002510  42 36 20 f2 5f 6d 65 73  73 61 67 65 28 36 2c 32  |B6 ._message(6,2|
00002520  34 2c 31 33 31 2c 22 70  61 67 65 2f 73 75 62 20  |4,131,"page/sub |
00002530  70 61 67 65 20 69 73 20  64 69 73 70 6c 61 79 65  |page is displaye|
00002540  64 2e 22 29 0d 0e 4c 11  f1 8a 30 2c 32 32 29 3b  |d.")..L...0,22);|
00002550  22 20 22 3b 20 0d 0e 56  05 e1 0d 0e 60 10 dd 20  |" "; ..V....`.. |
00002560  f2 5f 6d 65 6d 63 6f 75  6e 74 0d 0e 6a 0d 6d 65  |._memcount..j.me|
00002570  6d 73 75 6d 25 3d 30 0d  0e 74 1d 20 20 e3 20 58  |msum%=0..t.  . X|
00002580  25 3d 26 37 30 33 39 20  b8 20 26 37 33 38 31 20  |%=&7039 . &7381 |
00002590  88 20 34 30 0d 0e 7e 2e  20 e7 3f 58 25 3c 3e 33  |. 40..~. .?X%<>3|
000025a0  32 20 80 20 3f 58 25 3c  3e 31 36 30 20 8c 20 6d  |2 . ?X%<>160 . m|
000025b0  65 6d 73 75 6d 25 3d 6d  65 6d 73 75 6d 25 2b 3f  |emsum%=memsum%+?|
000025c0  58 25 0d 0e 88 07 ed 20  20 0d 0e 92 05 e1 0d 0e  |X%.....  .......|
000025d0  9c 0f dd 20 f2 5f 64 69  73 70 6c 61 79 0d 0e a6  |... ._display...|
000025e0  13 2a 44 49 53 50 4c 41  59 20 37 30 30 30 20 20  |.*DISPLAY 7000  |
000025f0  0d 0e b0 15 ef 20 32 33  3b 31 31 2c 30 3b 30 3b  |..... 23;11,0;0;|
00002600  30 3b 30 20 20 0d 0e ba  05 e1 0d 0e c4 0f dd 20  |0;0  .......... |
00002610  f2 5f 73 63 72 65 65 6e  32 0d 0e ce 10 f2 5f 74  |._screen2....._t|
00002620  69 74 6c 65 28 31 34 38  29 0d 0e d8 47 e3 20 58  |itle(148)...G. X|
00002630  25 3d 35 20 b8 20 39 3a  f1 8a 30 2c 58 25 29 3b  |%=5 . 9:..0,X%);|
00002640  bd 31 34 38 3b 22 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |.148;",,,,,,,,,,|
00002650  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00002660  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 22 3a ed  |,,,,,,,,,,,,,":.|
00002670  0d 0e e2 4c e3 20 58 25  3d 31 34 20 b8 20 32 32  |...L. X%=14 . 22|
00002680  3a f1 8a 30 2c 58 25 29  3b bd 31 34 38 3b 22 2c  |:..0,X%);.148;",|
00002690  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
*
000026b0  2c 2c 2c 2c 2c 2c 22 3a  ed 20 20 20 0d 0e ec 05  |,,,,,,":.   ....|
000026c0  e1 0d ff                                          |...|
000026c3

CeeFax/TVDIARY.m0

CeeFax/TVDIARY.m1

CeeFax/TVDIARY.m2

CeeFax/TVDIARY.m4

CeeFax/TVDIARY.m5

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