Home » CEEFAX disks » telesoftware14.adl » 12-03-89/TVDiary
12-03-89/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 » telesoftware14.adl |
| Filename: | 12-03-89/TVDiary |
| Read OK: | ✔ |
| File size: | 2BB5 bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware14.adl » 12-03-89/TVDiary
- CEEFAX disks » telesoftware8.adl » 19-08-88/TVDIARY
File contents
5*KEY9VDU 23;11,255;0;0;0|M 10REM " �TVDIARY":VERSION 2 20REM " �by Jeffrey Wallis" 30REM " �October 1987" 31 REM "�With ammendments suggested 32 REM "� by F.D.Moore" 40*TV255 50MODE7 60VDU14 70DIMP(100):DIMP$(100):DIMC(100):DIMrec$(100) 75 DIM block%12 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);"�" 450UNTILINKEY(-74) 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(21,ypos%+3);dur;" mins" 685 PROC_getrec 687 PROC_message(0,23,131," ") 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(35) 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(12,ypos%+3)ET 1240PROC_timecheck1(ET,12,ypos%+3) 1250IFtimeflag%=FALSEGOTO1230 1260C(pc%)=C(pc%)+ET 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 1370 IF dataflag%=FALSE THEN VDU7: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 1430FORX%=1TOpc% 1440@%=&00020207 1450PROCdecode(P(X%),C(X%)) 1460IFP(X%)DIV100<>P(X%-1)DIV100 PRINT:PRINT"�";d$;:ct=0 1470PRINT'"�";ST;" to ";ET; 1480PRINT" ";ch$; 1490@%=&00000007 1500PROC_duration(ST,ET) 1510PRINT,dur;" mins" 1520PRINT"�";P$(X%); 1530IFct-ST>=.001 THENPRINT'"�Overlaps ";ELSE PRINT'" "; 1540IF rec$(X%)="Y" OR rec$(X%)="y" THEN PRINT "�Record" ELSE PRINT '" "; 1550IFct<ET ct=ET 1560NEXT 1565PRINT 1570VDU3 1580PROC_message(10,17,130,"Press M for menu") 1590REPEAT:UNTILINKEY(-102) 1600VDU26 1610ENDPROC 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%),rec$(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%),rec$(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 RECORD?" 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):t1$=rec$(A) 2420P(A)=P(E):P$(A)=P$(E):C(A)=C(E):rec$(A)=rec$(E) 2430P(E)=T:P$(E)=t$:C(E)=T1:rec$(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 19:READ T$:PRINT"�";T$:NEXT 2790DATA " "," ","TVDIARY produces your own personal","schedule of TV viewing, indicating","programmes to be recorded if required."," ","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 2852 PROC_title(131) 2855PROC_txcheck:IF txflag%=FALSE THEN PROC_message(9,12,133,"NO TELETEXT RECEPTION�"):PROC_delay(150):ENDPROC 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 3900 DEF PROC_getrec 3905 PROC_message(0,24,131," ") 3910 PROC_message(14,23,131,"""Y"" or ""N""") 3920 VDU31,35,(ypos%+3):rec$(pc%)=GET$:IF rec$(pc%)<>"Y" AND rec$(pc%)<>"y":rec$(pc%)="N" 3925 PRINTrec$(pc%):IFrec$(pc%)="N":rec$(pc%)=" " 3928VDU23;11,0;0;0;0 3930 ENDPROC 4000 DEF PROC_print 4010 IF dataflag%=FALSE THEN VDU7:PROC_message(8,12,133,"NO PROGRAMMES TO PRINT"):PROC_delay(200):ENDPROC 4020 IF sortflag%=FALSE:PROC_sort 4030 PROC_title(148) 4040 PROC_message(8,11,131,"����PRINTING �") 4050 PROC_message(8,12,131,"����PRINTING �") 4060 VDU2,1,27,1,108,1,6,1,27,1,77 4080 VDU1,27,1,45,1,1 4085 *FX3,10 4090 PRINT"TV DIARY"; 4095 *FX3,0 4100 VDU1,27,1,45,1,0 4110 VDU10,10 4115 *FX3,10 4120 FOR X%=1 TO pc% 4130 @%=&20207 4140 PROCdecode(P(X%),C(X%)) 4150 IF P(X%) DIV100<> P(X%-1) DIV100:PRINTd$:ct=0 4160 PRINTTAB(0);ST;" to ";ET;TAB(16);ch$; 4170 @%=&7:PROC_duration(ST,ET) 4180 PRINTTAB(22);dur;" mins";TAB(31);P$(X%); 4190 IF ct-ST>=.001 THEN PRINT TAB(63);"Overlaps"; 4200 IF ct<ET THEN ct=ET 4210 IF rec$(X%)="Y" OR rec$(X%)="y":PRINT TAB(71)" Record" ELSE PRINT " " 4220 NEXT 4230 *FX3,0 4240 VDU3 4250 ENDPROC 4260 DEF PROC_txcheck 4270 txflag%=TRUE 4280 X%=block%MOD256 4290 Y%=block%DIV256 4300 A%=&7A 4310 block%?0=17 4320 CALL &FFF1 4330 IF block%?1:txflag%=FALSE:CLS 4340 ENDPROC
*KEY9VDU 23;11,255;0;0;0|M
� " �TVDIARY":VERSION 2
� " �by Jeffrey Wallis"
� " �October 1987"
$ � "�With ammendments suggested
� "� by F.D.Moore"
(
*TV255
2�7
<�14
F'�P(100):�P$(100):�C(100):�rec$(100)
K � block%12
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);"�"
� ��(-74)
�+�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)
� �21,ypos%+3);dur;" mins"
�
�_getrec
� �_message(0,23,131," ")
�?�_message(0,24,131,"TAB=Another:M=Menu:C=Clear & re-enter")
� �:��(-97)��(-102)��(-83)
�+�11,ypos%+1);�(28);:�4,ypos%+3);�(35)
��(-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
��12,ypos%+3)ET
� �_timecheck1(ET,12,ypos%+3)
��timeflag%=��dND
�C(pc%)=C(pc%)+ET
�
��_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
ZR � 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
�
�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%);
�)�ct-ST>=.001 ��'"�Overlaps ";� �'" ";
9� rec$(X%)="Y" � rec$(X%)="y" � � "�Record" � � '" ";
�ct<ET ct=ET
�
�
"�3
,+�_message(10,17,130,"Press M for menu")
6�:��(-102)
@�26
J�
� ��_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%),rec$(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@
b F%=� 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%),rec$(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�"
H6�4,ypos%+2);"START FINISH DURATION RECORD?"
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
j'T=P(A):t$=P$(A):T1=C(A):t1$=rec$(A)
t3P(A)=P(E):P$(A)=P$(E):C(A)=C(E):rec$(A)=rec$(E)
~'P(E)=T:P$(E)=t$:C(E)=T1:rec$(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 � 19:� T$:�"�";T$:�
��� " "," ","TVDIARY produces your own personal","schedule of TV viewing, indicating","programmes to be recorded if required."," ","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
$ �_title(131)
'W�_txcheck:� txflag%=� � �_message(9,12,133,"NO TELETEXT RECEPTION�"):�_delay(150):�
, �_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;",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,":�
��
< � �_getrec
A �_message(0,24,131," ")
F* �_message(14,23,131,"""Y"" or ""N""")
PQ �31,35,(ypos%+3):rec$(pc%)=�:� rec$(pc%)<>"Y" � rec$(pc%)<>"y":rec$(pc%)="N"
U- �rec$(pc%):�rec$(pc%)="N":rec$(pc%)=" "
X�23;11,0;0;0;0
Z �
� � �_print
�T � dataflag%=� � �7:�_message(8,12,133,"NO PROGRAMMES TO PRINT"):�_delay(200):�
� � sortflag%=�:�_sort
� �_title(148)
�) �_message(8,11,131,"����PRINTING �")
�+ �_message(8,12,131,"����PRINTING �")
� �2,1,27,1,108,1,6,1,27,1,77
� �1,27,1,45,1,1
� *FX3,10
� �"TV DIARY";
� *FX3,0
�1,27,1,45,1,0
�10,10
*FX3,10
� X%=1 � pc%
" @%=&20207
, �decode(P(X%),C(X%))
6) � P(X%) �100<> P(X%-1) �100:�d$:ct=0
@ �0);ST;" to ";ET;�16);ch$;
J @%=&7:�_duration(ST,ET)
T# �22);dur;" mins";�31);P$(X%);
^' � ct-ST>=.001 � � �63);"Overlaps";
h � ct<ET � ct=ET
r: � rec$(X%)="Y" � rec$(X%)="y":� �71)" Record" � � " "
| �
� *FX3,0
� �3
� �
� � �_txcheck
� txflag%=�
� X%=block%�256
� Y%=block%�256
� A%=&7A
� block%?0=17
� � &FFF1
� � block%?1:txflag%=�:�
� �
� 00000000 0d 00 05 1e 2a 4b 45 59 39 56 44 55 20 32 33 3b |....*KEY9VDU 23;| 00000010 31 31 2c 32 35 35 3b 30 3b 30 3b 30 7c 4d 0d 00 |11,255;0;0;0|M..| 00000020 0a 1e f4 20 22 20 20 20 20 82 54 56 44 49 41 52 |... " .TVDIAR| 00000030 59 22 3a 56 45 52 53 49 4f 4e 20 32 0d 00 14 1e |Y":VERSION 2....| 00000040 f4 20 22 20 20 20 20 82 62 79 20 4a 65 66 66 72 |. " .by Jeffr| 00000050 65 79 20 57 61 6c 6c 69 73 22 0d 00 1e 1b f4 20 |ey Wallis"..... | 00000060 22 20 20 20 20 82 4f 63 74 6f 62 65 72 20 31 39 |" .October 19| 00000070 38 37 22 20 20 0d 00 1f 24 20 20 f4 20 22 82 57 |87" ...$ . ".W| 00000080 69 74 68 20 61 6d 6d 65 6e 64 6d 65 6e 74 73 20 |ith ammendments | 00000090 73 75 67 67 65 73 74 65 64 0d 00 20 1d 20 f4 20 |suggested.. . . | 000000a0 22 82 20 20 20 20 20 20 20 62 79 20 46 2e 44 2e |". by F.D.| 000000b0 4d 6f 6f 72 65 22 0d 00 28 0a 2a 54 56 32 35 35 |Moore"..(.*TV255| 000000c0 0d 00 32 06 eb 37 0d 00 3c 07 ef 31 34 0d 00 46 |..2..7..<..14..F| 000000d0 27 de 50 28 31 30 30 29 3a de 50 24 28 31 30 30 |'.P(100):.P$(100| 000000e0 29 3a de 43 28 31 30 30 29 3a de 72 65 63 24 28 |):.C(100):.rec$(| 000000f0 31 30 30 29 0d 00 4b 0f 20 de 20 62 6c 6f 63 6b |100)..K. . block| 00000100 25 31 32 0d 00 50 09 70 63 25 3d 30 0d 00 5a 13 |%12..P.pc%=0..Z.| 00000110 51 44 25 3d 31 3a 51 43 25 3d 31 20 20 20 20 0d |QD%=1:QC%=1 .| 00000120 00 64 17 64 78 70 6f 73 25 3d 31 30 3a 63 78 70 |.d.dxpos%=10:cxp| 00000130 6f 73 25 3d 33 31 0d 00 6e 0f 6b 65 65 70 66 6c |os%=31..n.keepfl| 00000140 61 67 25 3d a3 0d 00 78 0f 73 6f 72 74 66 6c 61 |ag%=...x.sortfla| 00000150 67 25 3d a3 0d 00 82 0f 64 61 74 61 66 6c 61 67 |g%=.....dataflag| 00000160 25 3d a3 0d 00 8c 10 70 72 69 6e 74 66 6c 61 67 |%=.....printflag| 00000170 25 3d a3 0d 00 96 12 ef 32 33 3b 31 31 2c 30 3b |%=......23;11,0;| 00000180 30 3b 30 3b 30 0d 00 a0 0b f2 5f 69 6e 74 72 6f |0;0;0....._intro| 00000190 0d 00 aa 09 ee 20 85 20 87 0d 00 b4 0a f2 5f 6d |..... . ......_m| 000001a0 65 6e 75 0d 00 be 09 e5 8d 74 74 40 0d 00 c8 05 |enu......tt@....| 000001b0 e0 0d 00 d2 0b dd f2 5f 6d 65 6e 75 0d 00 dc 05 |......._menu....| 000001c0 db 0d 00 e6 10 79 70 6f 73 25 3d 37 3a 51 25 3d |.....ypos%=7:Q%=| 000001d0 31 0d 00 f0 10 f2 5f 74 69 74 6c 65 28 31 34 37 |1....._title(147| 000001e0 29 0d 00 fa 38 f1 8a 34 2c 37 29 3b bd 31 34 31 |)...8..4,7);.141| 000001f0 3b 22 84 9d 87 20 20 53 45 4c 45 43 54 20 54 45 |;"... SELECT TE| 00000200 4c 45 54 45 58 54 20 50 41 47 45 22 3b 8a 33 34 |LETEXT PAGE";.34| 00000210 2c 37 29 3b 22 9c 22 20 20 0d 01 04 3a 20 f1 8a |,7);"." ...: ..| 00000220 34 2c 38 29 3b bd 31 34 31 3b 22 84 9d 87 20 20 |4,8);.141;"... | 00000230 53 45 4c 45 43 54 20 54 45 4c 45 54 45 58 54 20 |SELECT TELETEXT | 00000240 50 41 47 45 22 3b 8a 33 34 2c 38 29 3b 22 9c 22 |PAGE";.34,8);"."| 00000250 20 20 20 0d 01 0e 34 f1 8a 34 2c 39 29 3b bd 31 | ...4..4,9);.1| 00000260 34 31 3b 22 84 9d 87 20 20 20 20 45 4e 54 45 52 |41;"... ENTER| 00000270 20 50 52 4f 47 52 41 4d 4d 45 53 22 3b 8a 33 34 | PROGRAMMES";.34| 00000280 2c 39 29 3b 22 9c 22 0d 01 18 39 f1 8a 34 2c 31 |,9);"."...9..4,1| 00000290 30 29 3b bd 31 34 31 3b 22 84 9d 87 20 20 20 20 |0);.141;"... | 000002a0 45 4e 54 45 52 20 50 52 4f 47 52 41 4d 4d 45 53 |ENTER PROGRAMMES| 000002b0 22 3b 8a 33 34 2c 31 30 29 3b 22 9c 22 20 20 20 |";.34,10);"." | 000002c0 0d 01 22 35 f1 8a 34 2c 31 31 29 3b bd 31 34 31 |.."5..4,11);.141| 000002d0 3b 22 84 9d 87 20 20 20 20 4c 49 53 54 20 50 52 |;"... LIST PR| 000002e0 4f 47 52 41 4d 4d 45 53 22 3b 8a 33 34 2c 31 31 |OGRAMMES";.34,11| 000002f0 29 3b 22 9c 22 0d 01 2c 35 f1 8a 34 2c 31 32 29 |);"."..,5..4,12)| 00000300 3b bd 31 34 31 3b 22 84 9d 87 20 20 20 20 4c 49 |;.141;"... LI| 00000310 53 54 20 50 52 4f 47 52 41 4d 4d 45 53 22 3b 8a |ST PROGRAMMES";.| 00000320 33 34 2c 31 32 29 3b 22 9c 22 0d 01 36 33 f1 8a |34,12);"."..63..| 00000330 34 2c 31 33 29 3b bd 31 34 31 3b 22 84 9d 87 20 |4,13);.141;"... | 00000340 20 20 20 20 20 50 52 49 4e 54 20 44 49 41 52 59 | PRINT DIARY| 00000350 22 3b 8a 33 34 2c 31 33 29 3b 22 9c 22 0d 01 40 |";.34,13);"."..@| 00000360 33 f1 8a 34 2c 31 34 29 3b bd 31 34 31 3b 22 84 |3..4,14);.141;".| 00000370 9d 87 20 20 20 20 20 20 50 52 49 4e 54 20 44 49 |.. PRINT DI| 00000380 41 52 59 22 3b 8a 33 34 2c 31 34 29 3b 22 9c 22 |ARY";.34,14);"."| 00000390 0d 01 4a 32 f1 8a 34 2c 31 35 29 3b bd 31 34 31 |..J2..4,15);.141| 000003a0 3b 22 84 9d 87 20 20 20 20 20 20 20 4c 4f 41 44 |;"... LOAD| 000003b0 20 46 49 4c 45 22 3b 8a 33 34 2c 31 35 29 3b 22 | FILE";.34,15);"| 000003c0 9c 22 0d 01 54 32 f1 8a 34 2c 31 36 29 3b bd 31 |."..T2..4,16);.1| 000003d0 34 31 3b 22 84 9d 87 20 20 20 20 20 20 20 4c 4f |41;"... LO| 000003e0 41 44 20 46 49 4c 45 22 3b 8a 33 34 2c 31 36 29 |AD FILE";.34,16)| 000003f0 3b 22 9c 22 0d 01 5e 32 f1 8a 34 2c 31 37 29 3b |;"."..^2..4,17);| 00000400 bd 31 34 31 3b 22 84 9d 87 20 20 20 20 20 20 20 |.141;"... | 00000410 53 41 56 45 20 46 49 4c 45 22 3b 8a 33 34 2c 31 |SAVE FILE";.34,1| 00000420 37 29 3b 22 9c 22 0d 01 68 33 f1 8a 34 2c 31 38 |7);"."..h3..4,18| 00000430 29 3b bd 31 34 31 3b 22 84 9d 87 20 20 20 20 20 |);.141;"... | 00000440 20 20 53 41 56 45 20 46 49 4c 45 22 3b 8a 33 34 | SAVE FILE";.34| 00000450 2c 31 38 29 3b 22 9c 22 20 0d 01 72 34 f1 8a 34 |,18);"." ..r4..4| 00000460 2c 31 39 29 3b bd 31 34 31 3b 22 84 9d 20 20 20 |,19);.141;".. | 00000470 20 20 87 20 45 4e 44 20 50 52 4f 47 52 41 4d 22 | . END PROGRAM"| 00000480 3b 8a 33 34 2c 31 39 29 3b 22 9c 22 20 0d 01 7c |;.34,19);"." ..|| 00000490 35 f1 8a 34 2c 32 30 29 3b bd 31 34 31 3b 22 84 |5..4,20);.141;".| 000004a0 9d 20 20 20 20 20 87 20 45 4e 44 20 50 52 4f 47 |. . END PROG| 000004b0 52 41 4d 22 3b 8a 33 34 2c 32 30 29 3b 22 9c 22 |RAM";.34,20);"."| 000004c0 20 20 0d 01 86 40 f2 5f 6d 65 73 73 61 67 65 28 | ...@._message(| 000004d0 30 2c 32 34 2c 31 33 31 2c 22 55 73 65 20 75 70 |0,24,131,"Use up| 000004e0 20 61 6e 64 20 64 6f 77 6e 20 63 75 72 73 6f 72 | and down cursor| 000004f0 20 6b 65 79 73 20 2b 20 52 45 54 55 52 4e 22 29 | keys + RETURN")| 00000500 20 20 0d 01 90 05 f5 0d 01 9a 36 e7 a6 28 2d 35 | ........6..(-5| 00000510 38 29 80 79 70 6f 73 25 3e 37 79 70 6f 73 25 3d |8).ypos%>7ypos%=| 00000520 79 70 6f 73 25 2d 32 3a f2 5f 64 65 6c 61 79 28 |ypos%-2:._delay(| 00000530 32 30 29 3a 51 25 3d 51 25 2d 31 20 20 0d 01 a4 |20):Q%=Q%-1 ...| 00000540 37 e7 a6 28 2d 34 32 29 80 79 70 6f 73 25 3c 31 |7..(-42).ypos%<1| 00000550 39 79 70 6f 73 25 3d 79 70 6f 73 25 2b 32 3a f2 |9ypos%=ypos%+2:.| 00000560 5f 64 65 6c 61 79 28 32 30 29 3a 51 25 3d 51 25 |_delay(20):Q%=Q%| 00000570 2b 31 20 20 0d 01 ae 22 f1 8a 35 2c 79 70 6f 73 |+1 ..."..5,ypos| 00000580 25 29 3b 22 81 22 3b 8a 35 2c 79 70 6f 73 25 2b |%);".";.5,ypos%+| 00000590 31 29 3b 22 81 22 0d 01 b8 45 f1 8a 35 2c 79 70 |1);"."...E..5,yp| 000005a0 6f 73 25 2d 32 29 3b 22 84 22 3b 8a 35 2c 79 70 |os%-2);".";.5,yp| 000005b0 6f 73 25 2d 31 29 3b 22 84 22 3b 8a 35 2c 79 70 |os%-1);".";.5,yp| 000005c0 6f 73 25 2b 32 29 3b 22 84 22 3b 8a 35 2c 79 70 |os%+2);".";.5,yp| 000005d0 6f 73 25 2b 33 29 3b 22 84 22 20 0d 01 c2 0b fd |os%+3);"." .....| 000005e0 a6 28 2d 37 34 29 0d 01 cc 2b ee 51 25 e5 20 8d |.(-74)...+.Q%. .| 000005f0 64 56 41 2c 8d 64 60 41 2c 8d 64 6a 41 2c 8d 64 |dVA,.d`A,.djA,.d| 00000600 74 41 2c 8d 64 7e 41 2c 8d 54 48 42 2c 8d 54 52 |tA,.d~A,.THB,.TR| 00000610 42 0d 01 d6 10 f2 5f 74 65 6c 65 74 65 78 74 3a |B....._teletext:| 00000620 e1 0d 01 e0 0d f2 5f 65 6e 74 65 72 3a e1 0d 01 |......_enter:...| 00000630 ea 0e db 3a f2 5f 6c 69 73 74 3a e1 0d 01 f4 0f |...:._list:.....| 00000640 db 3a f2 5f 70 72 69 6e 74 3a e1 0d 01 fe 0c f2 |.:._print:......| 00000650 5f 6c 6f 61 64 3a e1 0d 02 08 0c f2 5f 73 61 76 |_load:......_sav| 00000660 65 3a e1 0d 02 12 31 db 3a f2 5f 6d 65 73 73 61 |e:....1.:._messa| 00000670 67 65 28 31 31 2c 31 31 2c 31 33 30 2c 22 50 52 |ge(11,11,130,"PR| 00000680 4f 47 52 41 4d 20 54 45 52 4d 49 4e 41 54 45 44 |OGRAM TERMINATED| 00000690 22 29 3a e0 0d 02 1c 0e 20 dd 20 f2 5f 65 6e 74 |"):..... . ._ent| 000006a0 65 72 0d 02 26 1d e7 20 6b 65 65 70 66 6c 61 67 |er..&.. keepflag| 000006b0 25 3d b9 20 8c 20 f2 5f 64 69 73 70 6c 61 79 0d |%=. . ._display.| 000006c0 02 30 1b 20 e7 20 6b 65 65 70 66 6c 61 67 25 3d |.0. . keepflag%=| 000006d0 b9 20 79 70 6f 73 25 3d 30 20 0d 02 3a 1d 20 e7 |. ypos%=0 ..:. .| 000006e0 20 6b 65 65 70 66 6c 61 67 25 3d a3 20 79 70 6f | keepflag%=. ypo| 000006f0 73 25 3d 31 30 3a db 0d 02 44 0d 20 f2 5f 73 63 |s%=10:...D. ._sc| 00000700 72 65 65 6e 0d 02 4e 10 20 73 6f 72 74 66 6c 61 |reen..N. sortfla| 00000710 67 25 3d a3 0d 02 58 05 f5 0d 02 62 0d 70 63 25 |g%=...X....b.pc%| 00000720 3d 70 63 25 2b 31 0d 02 6c 0c f2 5f 67 65 74 64 |=pc%+1..l.._getd| 00000730 61 79 0d 02 76 10 f2 5f 67 65 74 63 68 61 6e 6e |ay..v.._getchann| 00000740 65 6c 0d 02 80 0d f2 5f 67 65 74 70 72 6f 67 0d |el....._getprog.| 00000750 02 8a 0e f2 5f 67 65 74 73 74 61 72 74 0d 02 94 |...._getstart...| 00000760 0c f2 5f 67 65 74 65 6e 64 0d 02 9e 15 f2 5f 64 |.._getend....._d| 00000770 75 72 61 74 69 6f 6e 28 53 54 2c 45 54 29 0d 02 |uration(ST,ET)..| 00000780 a8 1d f1 8a 32 31 2c 79 70 6f 73 25 2b 33 29 3b |....21,ypos%+3);| 00000790 64 75 72 3b 22 20 6d 69 6e 73 22 0d 02 ad 0d 20 |dur;" mins".... | 000007a0 f2 5f 67 65 74 72 65 63 0d 02 af 1c 20 f2 5f 6d |._getrec.... ._m| 000007b0 65 73 73 61 67 65 28 30 2c 32 33 2c 31 33 31 2c |essage(0,23,131,| 000007c0 22 20 22 29 0d 02 b2 3f f2 5f 6d 65 73 73 61 67 |" ")...?._messag| 000007d0 65 28 30 2c 32 34 2c 31 33 31 2c 22 54 41 42 3d |e(0,24,131,"TAB=| 000007e0 41 6e 6f 74 68 65 72 3a 4d 3d 4d 65 6e 75 3a 43 |Another:M=Menu:C| 000007f0 3d 43 6c 65 61 72 20 26 20 72 65 2d 65 6e 74 65 |=Clear & re-ente| 00000800 72 22 29 0d 02 bc 1d f5 3a fd a6 28 2d 39 37 29 |r").....:..(-97)| 00000810 84 a6 28 2d 31 30 32 29 84 a6 28 2d 38 33 29 20 |..(-102)..(-83) | 00000820 0d 02 c6 2b f1 8a 31 31 2c 79 70 6f 73 25 2b 31 |...+..11,ypos%+1| 00000830 29 3b 89 28 32 38 29 3b 3a f1 8a 34 2c 79 70 6f |);.(28);:..4,ypo| 00000840 73 25 2b 33 29 3b 89 28 33 35 29 0d 02 d0 14 e7 |s%+3);.(35).....| 00000850 a6 28 2d 38 33 29 70 63 25 3d 70 63 25 2d 31 0d |.(-83)pc%=pc%-1.| 00000860 02 da 0d fd a6 28 2d 31 30 32 29 20 0d 02 e4 0f |.....(-102) ....| 00000870 64 61 74 61 66 6c 61 67 25 3d b9 0d 02 ee 05 e1 |dataflag%=......| 00000880 0d 02 f8 0d dd f2 5f 67 65 74 64 61 79 0d 03 02 |......_getday...| 00000890 24 f2 5f 6d 65 73 73 61 67 65 28 31 35 2c 32 33 |$._message(15,23| 000008a0 2c 31 33 31 2c 22 45 6e 74 65 72 20 64 61 79 22 |,131,"Enter day"| 000008b0 29 0d 03 0c 38 f2 5f 6d 65 73 73 61 67 65 28 34 |)...8._message(4| 000008c0 2c 32 34 2c 31 33 31 2c 22 55 73 65 20 4c 20 26 |,24,131,"Use L &| 000008d0 20 52 20 63 75 72 73 6f 72 20 6b 65 79 73 20 2b | R cursor keys +| 000008e0 20 52 45 54 55 52 4e 22 29 0d 03 16 05 f5 0d 03 | RETURN").......| 000008f0 20 3e e7 a6 28 2d 31 32 32 29 20 80 20 64 78 70 | >..(-122) . dxp| 00000900 6f 73 25 3c 32 32 20 64 78 70 6f 73 25 3d 64 78 |os%<22 dxpos%=dx| 00000910 70 6f 73 25 2b 32 3a 51 44 25 3d 51 44 25 2b 31 |pos%+2:QD%=QD%+1| 00000920 3a f2 5f 64 65 6c 61 79 28 32 30 29 0d 03 2a 3e |:._delay(20)..*>| 00000930 e7 a6 28 2d 32 36 29 20 80 20 64 78 70 6f 73 25 |..(-26) . dxpos%| 00000940 3e 31 30 20 64 78 70 6f 73 25 3d 64 78 70 6f 73 |>10 dxpos%=dxpos| 00000950 25 2d 32 3a 51 44 25 3d 51 44 25 2d 31 3a f2 5f |%-2:QD%=QD%-1:._| 00000960 64 65 6c 61 79 28 32 30 29 20 0d 03 34 1a 20 20 |delay(20) ..4. | 00000970 f1 8a 64 78 70 6f 73 25 2c 79 70 6f 73 25 29 3b |..dxpos%,ypos%);| 00000980 22 81 22 3b 0d 03 3e 1b 20 f1 8a 64 78 70 6f 73 |".";..>. ..dxpos| 00000990 25 2b 32 2c 79 70 6f 73 25 29 3b 22 86 22 3b 0d |%+2,ypos%);".";.| 000009a0 03 48 1b 20 f1 8a 64 78 70 6f 73 25 2d 32 2c 79 |.H. ..dxpos%-2,y| 000009b0 70 6f 73 25 29 3b 22 86 22 3b 0d 03 52 0b fd a6 |pos%);".";..R...| 000009c0 28 2d 37 34 29 0d 03 5c 14 f1 8a 33 2c 79 70 6f |(-74)..\...3,ypo| 000009d0 73 25 29 3b bd 31 33 37 3b 0d 03 66 13 50 28 70 |s%);.137;..f.P(p| 000009e0 63 25 29 3d 51 44 25 2a 31 30 30 20 0d 03 70 05 |c%)=QD%*100 ..p.| 000009f0 e1 0d 03 7a 11 dd f2 5f 67 65 74 63 68 61 6e 6e |...z..._getchann| 00000a00 65 6c 0d 03 84 29 f2 5f 6d 65 73 73 61 67 65 28 |el...)._message(| 00000a10 31 33 2c 32 33 2c 31 33 31 2c 22 45 6e 74 65 72 |13,23,131,"Enter| 00000a20 20 63 68 61 6e 6e 65 6c 22 29 20 0d 03 8e 0f f2 | channel") .....| 00000a30 5f 64 65 6c 61 79 28 32 30 29 0d 03 98 05 f5 0d |_delay(20)......| 00000a40 03 a2 3f e7 20 a6 28 2d 31 32 32 29 20 80 20 63 |..?. .(-122) . c| 00000a50 78 70 6f 73 25 3c 33 37 20 63 78 70 6f 73 25 3d |xpos%<37 cxpos%=| 00000a60 63 78 70 6f 73 25 2b 32 3a 51 43 25 3d 51 43 25 |cxpos%+2:QC%=QC%| 00000a70 2b 31 3a f2 5f 64 65 6c 61 79 28 32 30 29 0d 03 |+1:._delay(20)..| 00000a80 ac 3d e7 a6 28 2d 32 36 29 20 80 20 63 78 70 6f |.=..(-26) . cxpo| 00000a90 73 25 3e 33 31 20 63 78 70 6f 73 25 3d 63 78 70 |s%>31 cxpos%=cxp| 00000aa0 6f 73 25 2d 32 3a 51 43 25 3d 51 43 25 2d 31 3a |os%-2:QC%=QC%-1:| 00000ab0 f2 5f 64 65 6c 61 79 28 32 30 29 0d 03 b6 18 f1 |._delay(20).....| 00000ac0 8a 63 78 70 6f 73 25 2c 79 70 6f 73 25 29 3b 22 |.cxpos%,ypos%);"| 00000ad0 81 22 3b 0d 03 c0 1b 20 f1 8a 63 78 70 6f 73 25 |.";.... ..cxpos%| 00000ae0 2b 32 2c 79 70 6f 73 25 29 3b 22 86 22 3b 0d 03 |+2,ypos%);".";..| 00000af0 ca 1b f1 8a 63 78 70 6f 73 25 2d 32 2c 79 70 6f |....cxpos%-2,ypo| 00000b00 73 25 29 3b 22 86 22 3b 20 0d 03 d4 0b fd a6 28 |s%);"."; ......(| 00000b10 2d 37 34 29 0d 03 de 15 f1 8a 32 34 2c 79 70 6f |-74)......24,ypo| 00000b20 73 25 29 3b bd 31 33 37 3b 0d 03 e8 12 43 28 70 |s%);.137;....C(p| 00000b30 63 25 29 3d 51 43 25 2a 31 30 30 0d 03 f2 05 e1 |c%)=QC%*100.....| 00000b40 0d 03 fc 0e dd f2 5f 67 65 74 70 72 6f 67 0d 04 |......_getprog..| 00000b50 06 0d 2a 46 58 32 30 32 2c 34 38 0d 04 10 1b f2 |..*FX202,48.....| 00000b60 5f 6d 65 73 73 61 67 65 28 30 2c 32 34 2c 31 33 |_message(0,24,13| 00000b70 31 2c 22 20 22 29 0d 04 1a 26 f2 5f 6d 65 73 73 |1," ")...&._mess| 00000b80 61 67 65 28 31 34 2c 32 33 2c 31 33 31 2c 22 45 |age(14,23,131,"E| 00000b90 6e 74 65 72 20 74 69 74 6c 65 22 29 0d 04 24 4e |nter title")..$N| 00000ba0 e7 20 6b 65 65 70 66 6c 61 67 25 3d b9 20 8c 20 |. keepflag%=. . | 00000bb0 f2 5f 6d 65 73 73 61 67 65 28 32 2c 32 34 2c 31 |._message(2,24,1| 00000bc0 33 31 2c 22 75 73 69 6e 67 20 6b 65 79 62 6f 61 |31,"using keyboa| 00000bd0 72 64 20 6f 72 20 43 75 72 73 6f 72 20 6b 65 79 |rd or Cursor key| 00000be0 73 20 2b 20 43 4f 50 59 22 29 0d 04 2e 0f f2 5f |s + COPY")....._| 00000bf0 64 65 6c 61 79 28 32 30 29 0d 04 38 0b 2a 46 58 |delay(20)..8.*FX| 00000c00 31 35 2c 31 0d 04 42 14 ef 32 33 3b 31 31 2c 32 |15,1..B..23;11,2| 00000c10 35 35 3b 30 3b 30 3b 30 0d 04 4c 19 e8 8a 31 31 |55;0;0;0..L...11| 00000c20 2c 79 70 6f 73 25 2b 31 29 50 24 28 70 63 25 29 |,ypos%+1)P$(pc%)| 00000c30 20 0d 04 56 18 e7 20 50 24 28 70 63 25 29 3d 22 | ..V.. P$(pc%)="| 00000c40 22 20 8c 20 e5 8d 44 4c 44 0d 04 60 0d 2a 46 58 |" . ..DLD..`.*FX| 00000c50 32 30 32 2c 33 32 0d 04 6a 1c 20 f2 5f 6d 65 73 |202,32..j. ._mes| 00000c60 73 61 67 65 28 36 2c 32 33 2c 31 33 31 2c 22 20 |sage(6,23,131," | 00000c70 22 29 0d 04 74 05 e1 0d 04 7e 0f dd f2 5f 67 65 |")..t....~..._ge| 00000c80 74 73 74 61 72 74 0d 04 88 3b f2 5f 6d 65 73 73 |tstart...;._mess| 00000c90 61 67 65 28 34 2c 32 34 2c 31 33 31 2c 22 45 6e |age(4,24,131,"En| 00000ca0 74 65 72 20 74 69 6d 65 20 75 73 69 6e 67 20 32 |ter time using 2| 00000cb0 34 2e 30 30 20 68 6f 75 72 20 63 6c 6f 63 6b 22 |4.00 hour clock"| 00000cc0 29 0d 04 92 12 e8 8a 34 2c 79 70 6f 73 25 2b 33 |)......4,ypos%+3| 00000cd0 29 53 54 0d 04 9c 1e f2 5f 74 69 6d 65 63 68 65 |)ST....._timeche| 00000ce0 63 6b 31 28 53 54 2c 34 2c 79 70 6f 73 25 2b 33 |ck1(ST,4,ypos%+3| 00000cf0 29 0d 04 a6 15 e7 74 69 6d 65 66 6c 61 67 25 3d |).....timeflag%=| 00000d00 a3 e5 8d 74 52 44 0d 04 b0 14 50 28 70 63 25 29 |...tRD....P(pc%)| 00000d10 3d 50 28 70 63 25 29 2b 53 54 0d 04 ba 05 e1 0d |=P(pc%)+ST......| 00000d20 04 c4 0d dd f2 5f 67 65 74 65 6e 64 0d 04 ce 13 |....._getend....| 00000d30 e8 8a 31 32 2c 79 70 6f 73 25 2b 33 29 45 54 0d |..12,ypos%+3)ET.| 00000d40 04 d8 1f f2 5f 74 69 6d 65 63 68 65 63 6b 31 28 |...._timecheck1(| 00000d50 45 54 2c 31 32 2c 79 70 6f 73 25 2b 33 29 0d 04 |ET,12,ypos%+3)..| 00000d60 e2 15 e7 74 69 6d 65 66 6c 61 67 25 3d a3 e5 8d |...timeflag%=...| 00000d70 64 4e 44 0d 04 ec 14 43 28 70 63 25 29 3d 43 28 |dND....C(pc%)=C(| 00000d80 70 63 25 29 2b 45 54 0d 05 00 05 e1 0d 05 0a 16 |pc%)+ET.........| 00000d90 dd f2 5f 64 75 72 61 74 69 6f 6e 28 53 54 2c 45 |.._duration(ST,E| 00000da0 54 29 0d 05 14 16 e7 20 53 54 3e 45 54 20 8c 20 |T)..... ST>ET . | 00000db0 45 54 3d 45 54 2b 32 34 0d 05 1e 1f 6d 65 74 3d |ET=ET+24....met=| 00000dc0 a8 28 45 54 29 2a 36 30 2b 28 45 54 2d a8 28 45 |.(ET)*60+(ET-.(E| 00000dd0 54 29 29 2a 31 30 30 0d 05 28 1f 6d 73 74 3d a8 |T))*100..(.mst=.| 00000de0 28 53 54 29 2a 36 30 2b 28 53 54 2d a8 28 53 54 |(ST)*60+(ST-.(ST| 00000df0 29 29 2a 31 30 30 0d 05 32 15 64 75 72 3d a8 28 |))*100..2.dur=.(| 00000e00 6d 65 74 2d 6d 73 74 2b 2e 35 29 0d 05 3c 05 e1 |met-mst+.5)..<..| 00000e10 0d 05 46 0b dd f2 5f 6c 69 73 74 0d 05 50 07 ef |..F..._list..P..| 00000e20 31 34 0d 05 5a 52 20 e7 20 64 61 74 61 66 6c 61 |14..ZR . datafla| 00000e30 67 25 3d a3 20 8c 20 ef 37 3a f2 5f 6d 65 73 73 |g%=. . .7:._mess| 00000e40 61 67 65 28 38 2c 31 32 2c 31 33 33 2c 22 4e 4f |age(8,12,133,"NO| 00000e50 20 50 52 4f 47 52 41 4d 4d 45 53 20 54 4f 20 4c | PROGRAMMES TO L| 00000e60 49 53 54 22 29 3a f2 5f 64 65 6c 61 79 28 32 30 |IST"):._delay(20| 00000e70 30 29 3a e1 0d 05 64 16 e7 73 6f 72 74 66 6c 61 |0):...d..sortfla| 00000e80 67 25 3d a3 f2 5f 73 6f 72 74 0d 05 6e 10 f2 5f |g%=.._sort..n.._| 00000e90 74 69 74 6c 65 28 31 34 38 29 0d 05 78 3a f1 8a |title(148)..x:..| 00000ea0 30 2c 35 29 3b bd 31 34 38 3b 22 60 60 60 60 60 |0,5);.148;"`````| 00000eb0 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| * 00000ed0 60 60 22 20 0d 05 82 11 ef 32 38 2c 30 2c 32 34 |``" .....28,0,24| 00000ee0 2c 33 39 2c 36 0d 05 96 0d e3 58 25 3d 31 b8 70 |,39,6.....X%=1.p| 00000ef0 63 25 0d 05 a0 10 40 25 3d 26 30 30 30 32 30 32 |c%....@%=&000202| 00000f00 30 37 0d 05 aa 18 f2 64 65 63 6f 64 65 28 50 28 |07.....decode(P(| 00000f10 58 25 29 2c 43 28 58 25 29 29 0d 05 b4 2b e7 50 |X%),C(X%))...+.P| 00000f20 28 58 25 29 81 31 30 30 3c 3e 50 28 58 25 2d 31 |(X%).100<>P(X%-1| 00000f30 29 81 31 30 30 20 f1 3a f1 22 81 22 3b 64 24 3b |).100 .:.".";d$;| 00000f40 3a 63 74 3d 30 0d 05 be 17 f1 27 22 86 22 3b 53 |:ct=0.....'".";S| 00000f50 54 3b 22 20 74 6f 20 22 3b 45 54 3b 0d 05 c8 0e |T;" to ";ET;....| 00000f60 f1 22 20 20 22 3b 63 68 24 3b 0d 05 d2 10 40 25 |." ";ch$;....@%| 00000f70 3d 26 30 30 30 30 30 30 30 37 0d 05 dc 15 f2 5f |=&00000007....._| 00000f80 64 75 72 61 74 69 6f 6e 28 53 54 2c 45 54 29 0d |duration(ST,ET).| 00000f90 05 e6 11 f1 2c 64 75 72 3b 22 20 6d 69 6e 73 22 |....,dur;" mins"| 00000fa0 0d 05 f0 10 f1 22 83 22 3b 50 24 28 58 25 29 3b |.....".";P$(X%);| 00000fb0 0d 05 fa 29 e7 63 74 2d 53 54 3e 3d 2e 30 30 31 |...).ct-ST>=.001| 00000fc0 20 8c f1 27 22 85 4f 76 65 72 6c 61 70 73 20 22 | ..'".Overlaps "| 00000fd0 3b 8b 20 f1 27 22 20 22 3b 0d 06 04 39 e7 20 72 |;. .'" ";...9. r| 00000fe0 65 63 24 28 58 25 29 3d 22 59 22 20 84 20 72 65 |ec$(X%)="Y" . re| 00000ff0 63 24 28 58 25 29 3d 22 79 22 20 8c 20 f1 20 22 |c$(X%)="y" . . "| 00001000 85 52 65 63 6f 72 64 22 20 8b 20 f1 20 27 22 20 |.Record" . . '" | 00001010 22 3b 0d 06 0e 10 e7 63 74 3c 45 54 20 63 74 3d |";.....ct<ET ct=| 00001020 45 54 0d 06 18 05 ed 0d 06 1d 05 f1 0d 06 22 06 |ET............".| 00001030 ef 33 0d 06 2c 2b f2 5f 6d 65 73 73 61 67 65 28 |.3..,+._message(| 00001040 31 30 2c 31 37 2c 31 33 30 2c 22 50 72 65 73 73 |10,17,130,"Press| 00001050 20 4d 20 66 6f 72 20 6d 65 6e 75 22 29 0d 06 36 | M for menu")..6| 00001060 0e f5 3a fd a6 28 2d 31 30 32 29 0d 06 40 07 ef |..:..(-102)..@..| 00001070 32 36 0d 06 4a 05 e1 0d 06 90 0b dd f2 5f 73 61 |26..J........_sa| 00001080 76 65 0d 06 9a 11 20 f2 5f 74 69 74 6c 65 28 31 |ve.... ._title(1| 00001090 34 35 29 0d 06 a4 4e e7 64 61 74 61 66 6c 61 67 |45)...N.dataflag| 000010a0 25 3d a3 8c ef 37 3a f2 5f 6d 65 73 73 61 67 65 |%=...7:._message| 000010b0 28 38 2c 31 32 2c 31 33 33 2c 22 4e 4f 20 50 52 |(8,12,133,"NO PR| 000010c0 4f 47 52 41 4d 4d 45 53 20 54 4f 20 53 41 56 45 |OGRAMMES TO SAVE| 000010d0 22 29 3a f2 5f 64 65 6c 61 79 28 32 30 30 29 3a |"):._delay(200):| 000010e0 e1 0d 06 ae 29 20 f2 5f 6d 65 73 73 61 67 65 28 |....) ._message(| 000010f0 36 2c 39 2c 31 33 31 2c 22 45 6e 74 65 72 20 66 |6,9,131,"Enter f| 00001100 69 6c 65 6e 61 6d 65 22 20 29 0d 06 b8 0b 2a 46 |ilename" )....*F| 00001110 58 31 35 2c 30 0d 06 c2 12 e8 20 8a 36 2c 31 31 |X15,0..... .6,11| 00001120 29 22 83 22 20 66 24 0d 06 cc 3f f2 5f 6d 65 73 |)"." f$...?._mes| 00001130 73 61 67 65 28 34 2c 31 33 2c 31 33 31 2c 22 8d |sage(4,13,131,".| 00001140 81 9d 87 53 41 56 49 4e 47 20 20 9c 22 29 20 20 |...SAVING .") | 00001150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001160 20 20 20 20 20 20 0d 06 d6 38 f2 5f 6d 65 73 73 | ...8._mess| 00001170 61 67 65 28 34 2c 31 34 2c 31 33 31 2c 22 8d 81 |age(4,14,131,"..| 00001180 9d 87 53 41 56 49 4e 47 20 20 9c 22 29 20 20 20 |..SAVING .") | 00001190 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 06 | ..| 000011a0 e0 0b 46 25 3d ae 20 66 24 0d 06 ea 0c f1 23 46 |..F%=. f$.....#F| 000011b0 25 2c 70 63 25 0d 06 f4 0d e3 58 25 3d 31 b8 70 |%,pc%.....X%=1.p| 000011c0 63 25 0d 06 fe 24 f1 23 46 25 2c 50 28 58 25 29 |c%...$.#F%,P(X%)| 000011d0 2c 43 28 58 25 29 2c 50 24 28 58 25 29 2c 72 65 |,C(X%),P$(X%),re| 000011e0 63 24 28 58 25 29 0d 07 08 05 ed 0d 07 12 08 d9 |c$(X%)..........| 000011f0 23 46 25 0d 07 1c 05 e1 0d 07 26 0b dd f2 5f 6c |#F%.......&..._l| 00001200 6f 61 64 0d 07 30 10 f2 5f 74 69 74 6c 65 28 31 |oad..0.._title(1| 00001210 34 35 29 0d 07 3a 0b 2a 46 58 31 35 2c 30 0d 07 |45)..:.*FX15,0..| 00001220 44 28 20 f2 5f 6d 65 73 73 61 67 65 28 36 2c 39 |D( ._message(6,9| 00001230 2c 31 33 31 2c 22 45 6e 74 65 72 20 66 69 6c 65 |,131,"Enter file| 00001240 6e 61 6d 65 22 29 0d 07 4e 13 20 e8 20 8a 36 2c |name")..N. . .6,| 00001250 31 31 29 22 83 22 20 66 24 0d 07 58 54 ee 20 85 |11)"." f$..XT. .| 00001260 20 f1 20 8a 36 2c 31 33 29 3b bd 31 34 31 3b 22 | . .6,13);.141;"| 00001270 4e 4f 20 53 55 43 48 20 46 49 4c 45 22 3a f1 20 |NO SUCH FILE":. | 00001280 8a 36 2c 31 34 29 3b bd 31 34 31 3b 22 4e 4f 20 |.6,14);.141;"NO | 00001290 53 55 43 48 20 46 49 4c 45 22 3a f2 5f 64 65 6c |SUCH FILE":._del| 000012a0 61 79 28 32 30 30 29 3a e5 8d 74 6a 40 0d 07 62 |ay(200):..tj@..b| 000012b0 0c 46 25 3d 8e 20 66 24 20 0d 07 6c 41 f2 5f 6d |.F%=. f$ ..lA._m| 000012c0 65 73 73 61 67 65 28 34 2c 31 33 2c 31 33 31 2c |essage(4,13,131,| 000012d0 22 8d 81 9d 87 4c 4f 41 44 49 4e 47 20 20 9c 22 |"....LOADING ."| 000012e0 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) | 000012f0 20 20 20 20 20 20 20 20 20 20 0d 07 76 44 f2 5f | ..vD._| 00001300 6d 65 73 73 61 67 65 28 34 2c 31 34 2c 31 33 31 |message(4,14,131| 00001310 2c 22 8d 81 9d 87 4c 4f 41 44 49 4e 47 20 20 9c |,"....LOADING .| 00001320 22 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |") | 00001330 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 07 | ..| 00001340 80 0c e8 23 46 25 2c 70 63 25 0d 07 8a 0d e3 58 |...#F%,pc%.....X| 00001350 25 3d 31 b8 70 63 25 0d 07 94 24 e8 23 46 25 2c |%=1.pc%...$.#F%,| 00001360 50 28 58 25 29 2c 43 28 58 25 29 2c 50 24 28 58 |P(X%),C(X%),P$(X| 00001370 25 29 2c 72 65 63 24 28 58 25 29 0d 07 9e 05 ed |%),rec$(X%).....| 00001380 0d 07 a8 08 d9 23 46 25 0d 07 b2 0f 64 61 74 61 |.....#F%....data| 00001390 66 6c 61 67 25 3d b9 0d 07 bc 0a 20 ee 20 85 20 |flag%=..... . . | 000013a0 87 0d 07 c6 05 e1 0d 07 d0 10 dd f2 5f 74 69 74 |............_tit| 000013b0 6c 65 28 63 25 29 0d 07 da 05 db 0d 07 e4 31 f1 |le(c%)........1.| 000013c0 3b bd 63 25 3b 22 20 20 73 73 73 73 73 20 73 20 |;.c%;" sssss s | 000013d0 20 73 20 20 20 73 73 73 30 20 73 73 20 5f 73 73 | s sss0 ss _ss| 000013e0 30 20 73 73 73 30 20 73 20 20 73 22 0d 07 ee 31 |0 sss0 s s"...1| 000013f0 f1 3b bd 63 25 3b 22 20 20 20 20 73 20 20 20 73 |.;.c%;" s s| 00001400 20 20 73 20 20 20 73 20 20 73 20 73 73 20 73 20 | s s s ss s | 00001410 20 73 20 73 20 20 73 20 73 20 20 73 22 0d 07 f8 | s s s s s"...| 00001420 32 f1 3b bd 63 25 3b 22 20 20 20 20 73 20 20 20 |2.;.c%;" s | 00001430 73 20 20 73 20 20 20 73 20 20 73 20 73 73 20 73 |s s s s ss s| 00001440 73 73 73 20 73 73 73 31 20 22 22 73 73 21 22 0d |sss sss1 ""ss!".| 00001450 08 02 31 f1 3b bd 63 25 3b 22 20 20 20 20 73 20 |..1.;.c%;" s | 00001460 20 20 22 22 73 73 21 20 20 20 73 73 73 21 20 73 | ""ss! sss! s| 00001470 73 20 73 20 20 73 20 73 20 20 73 20 20 73 73 22 |s s s s s ss"| 00001480 0d 08 0c 05 e1 0d 08 16 0d dd f2 5f 73 63 72 65 |..........._scre| 00001490 65 6e 0d 08 20 2c e7 20 6b 65 65 70 66 6c 61 67 |en.. ,. keepflag| 000014a0 25 3d b9 20 ef 32 38 2c 30 2c 34 2c 33 39 2c 30 |%=. .28,0,4,39,0| 000014b0 20 8b 20 db 3a f2 5f 73 63 72 65 65 6e 32 0d 08 | . .:._screen2..| 000014c0 2a 5a 20 e3 20 58 25 3d 30 20 b8 20 33 3a f1 20 |*Z . X%=0 . 3:. | 000014d0 8a 30 2c 28 79 70 6f 73 25 2b 58 25 29 29 bd 31 |.0,(ypos%+X%)).1| 000014e0 33 32 3b bd 31 35 37 3b bd 31 33 34 3b 22 20 20 |32;.157;.134;" | 000014f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00001510 20 20 20 22 3b 3a ed 20 0d 08 34 3b ef 33 30 3a | ";:. ..4;.30:| 00001520 f1 8a 34 2c 79 70 6f 73 25 29 3b 22 44 41 59 20 |..4,ypos%);"DAY | 00001530 87 20 86 53 20 53 20 4d 20 54 20 57 20 54 20 46 |. .S S M T W T F| 00001540 20 86 43 48 20 20 20 20 31 20 32 20 33 20 34 22 | .CH 1 2 3 4"| 00001550 20 20 20 0d 08 3e 1b f1 8a 34 2c 28 79 70 6f 73 | ..>...4,(ypos| 00001560 25 2b 31 29 29 3b 22 54 49 54 4c 45 87 22 0d 08 |%+1));"TITLE."..| 00001570 48 36 f1 8a 34 2c 79 70 6f 73 25 2b 32 29 3b 22 |H6..4,ypos%+2);"| 00001580 53 54 41 52 54 20 20 20 46 49 4e 49 53 48 20 20 |START FINISH | 00001590 20 44 55 52 41 54 49 4f 4e 20 20 20 52 45 43 4f | DURATION RECO| 000015a0 52 44 3f 22 0d 08 52 15 f1 8a 33 2c 79 70 6f 73 |RD?"..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 27 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 3a 74 31 24 3d 72 65 63 24 28 41 29 0d 09 74 33 |:t1$=rec$(A)..t3| 00001780 50 28 41 29 3d 50 28 45 29 3a 50 24 28 41 29 3d |P(A)=P(E):P$(A)=| 00001790 50 24 28 45 29 3a 43 28 41 29 3d 43 28 45 29 3a |P$(E):C(A)=C(E):| 000017a0 72 65 63 24 28 41 29 3d 72 65 63 24 28 45 29 0d |rec$(A)=rec$(E).| 000017b0 09 7e 27 50 28 45 29 3d 54 3a 50 24 28 45 29 3d |.~'P(E)=T:P$(E)=| 000017c0 74 24 3a 43 28 45 29 3d 54 31 3a 72 65 63 24 28 |t$:C(E)=T1:rec$(| 000017d0 45 29 3d 74 31 24 0d 09 88 09 41 3d 41 2d 46 0d |E)=t1$....A=A-F.| 000017e0 09 92 0d e7 41 3c 31 e5 8d 44 4c 49 0d 09 9c 09 |....A<1..DLI....| 000017f0 e5 8d 54 78 49 0d 09 a6 0f 73 6f 72 74 66 6c 61 |..TxI....sortfla| 00001800 67 25 3d b9 0d 09 b0 05 db 0d 09 ba 05 e1 0d 09 |g%=.............| 00001810 c4 10 dd f2 5f 64 65 6c 61 79 28 74 25 29 0d 09 |...._delay(t%)..| 00001820 ce 0f d1 3d 30 3a f5 3a fd 91 3e 74 25 0d 09 d8 |...=0:.:..>t%...| 00001830 05 e1 0d 09 e2 1a dd f2 5f 74 69 6d 65 63 68 65 |........_timeche| 00001840 63 6b 31 28 54 2c 58 25 2c 59 25 29 0d 09 ec 13 |ck1(T,X%,Y%)....| 00001850 ef 20 32 33 3b 31 31 2c 30 3b 30 3b 30 3b 30 0d |. 23;11,0;0;0;0.| 00001860 09 f6 0f 74 69 6d 65 66 6c 61 67 25 3d b9 0d 0a |...timeflag%=...| 00001870 00 14 e7 54 3e 32 34 74 69 6d 65 66 6c 61 67 25 |...T>24timeflag%| 00001880 3d a3 0d 0a 0a 16 e7 54 3c 30 2e 30 31 74 69 6d |=......T<0.01tim| 00001890 65 66 6c 61 67 25 3d a3 0d 0a 14 1a e7 54 2d a8 |eflag%=......T-.| 000018a0 28 54 29 3e 2e 35 39 74 69 6d 65 66 6c 61 67 25 |(T)>.59timeflag%| 000018b0 3d a3 0d 0a 1e a5 20 e7 74 69 6d 65 66 6c 61 67 |=..... .timeflag| 000018c0 25 3d a3 20 8c 20 ef 37 3a f2 5f 6d 65 73 73 61 |%=. . .7:._messa| 000018d0 67 65 28 34 2c 32 34 2c 31 33 30 2c 22 4e 6f 74 |ge(4,24,130,"Not| 000018e0 20 75 6e 64 65 72 73 74 6f 6f 64 20 2d 20 70 6c | understood - pl| 000018f0 65 61 73 65 20 72 65 2d 65 6e 74 65 72 22 29 3a |ease re-enter"):| 00001900 f2 5f 64 65 6c 61 79 28 31 32 35 29 3a f1 8a 58 |._delay(125):..X| 00001910 25 2c 59 25 29 3b 89 28 35 29 3a f2 5f 6d 65 73 |%,Y%);.(5):._mes| 00001920 73 61 67 65 28 35 2c 32 34 2c 31 33 31 2c 22 45 |sage(5,24,131,"E| 00001930 6e 74 65 72 20 74 69 6d 65 20 75 73 69 6e 67 20 |nter time using | 00001940 32 34 2e 30 30 20 68 6f 75 72 20 63 6c 6f 63 6b |24.00 hour clock| 00001950 22 29 20 20 20 20 20 0d 0a 28 17 20 ef 20 32 33 |") ..(. . 23| 00001960 3b 31 31 2c 32 35 35 3b 30 3b 30 3b 30 20 0d 0a |;11,255;0;0;0 ..| 00001970 32 05 e1 0d 0a 3c 11 dd f2 64 65 63 6f 64 65 28 |2....<...decode(| 00001980 50 2c 43 29 0d 0a 46 14 53 54 3d 50 2d 28 50 81 |P,C)..F.ST=P-(P.| 00001990 31 30 30 29 2a 31 30 30 0d 0a 50 14 45 54 3d 43 |100)*100..P.ET=C| 000019a0 2d 28 43 81 31 30 30 29 2a 31 30 30 0d 0a 5a 09 |-(C.100)*100..Z.| 000019b0 f7 8d 74 74 4a 0d 0a 64 0f e3 51 25 3d 31 b8 50 |..ttJ..d..Q%=1.P| 000019c0 81 31 30 30 0d 0a 6e 07 f3 64 24 0d 0a 78 05 ed |.100..n..d$..x..| 000019d0 0d 0a 82 09 f7 8d 74 7e 4a 0d 0a 8c 0f e3 51 25 |......t~J.....Q%| 000019e0 3d 31 b8 43 81 31 30 30 0d 0a 96 08 f3 63 68 24 |=1.C.100.....ch$| 000019f0 0d 0a a0 05 ed 0d 0a aa 05 e1 0d 0a b4 3e dc 20 |.............>. | 00001a00 53 41 54 55 52 44 41 59 2c 53 55 4e 44 41 59 2c |SATURDAY,SUNDAY,| 00001a10 4d 4f 4e 44 41 59 2c 54 55 45 53 44 41 59 2c 57 |MONDAY,TUESDAY,W| 00001a20 45 44 4e 45 53 44 41 59 2c 54 48 55 52 53 44 41 |EDNESDAY,THURSDA| 00001a30 59 2c 46 52 49 44 41 59 0d 0a be 17 dc 20 42 42 |Y,FRIDAY..... BB| 00001a40 43 31 2c 42 42 43 32 2c 49 54 56 2c 43 48 34 0d |C1,BBC2,ITV,CH4.| 00001a50 0a c8 0c dd f2 5f 69 6e 74 72 6f 0d 0a d2 10 f2 |....._intro.....| 00001a60 5f 74 69 74 6c 65 28 31 34 37 29 0d 0a dc 26 20 |_title(147)...& | 00001a70 f7 20 8d 64 66 4a 3a e3 20 58 25 3d 31 20 b8 20 |. .dfJ:. X%=1 . | 00001a80 31 39 3a f3 20 54 24 3a f1 22 86 22 3b 54 24 3a |19:. T$:.".";T$:| 00001a90 ed 0d 0a e6 d6 dc 20 22 20 22 2c 22 20 22 2c 22 |...... " "," ","| 00001aa0 54 56 44 49 41 52 59 20 70 72 6f 64 75 63 65 73 |TVDIARY produces| 00001ab0 20 79 6f 75 72 20 6f 77 6e 20 70 65 72 73 6f 6e | your own person| 00001ac0 61 6c 22 2c 22 73 63 68 65 64 75 6c 65 20 6f 66 |al","schedule of| 00001ad0 20 54 56 20 76 69 65 77 69 6e 67 2c 20 69 6e 64 | TV viewing, ind| 00001ae0 69 63 61 74 69 6e 67 22 2c 22 70 72 6f 67 72 61 |icating","progra| 00001af0 6d 6d 65 73 20 74 6f 20 62 65 20 72 65 63 6f 72 |mmes to be recor| 00001b00 64 65 64 20 69 66 20 72 65 71 75 69 72 65 64 2e |ded if required.| 00001b10 22 2c 22 20 22 2c 22 46 6f 6c 6c 6f 77 20 74 68 |"," ","Follow th| 00001b20 65 20 70 72 6f 6d 70 74 73 20 67 69 76 65 6e 20 |e prompts given | 00001b30 61 74 20 74 68 65 20 62 6f 74 74 6f 6d 22 2c 22 |at the bottom","| 00001b40 6f 66 20 74 68 65 20 73 63 72 65 65 6e 20 61 6e |of the screen an| 00001b50 64 20 65 6e 74 65 72 20 74 68 65 20 64 65 74 61 |d enter the deta| 00001b60 69 6c 73 20 6f 66 22 0d 0a f0 c4 dc 20 22 61 6c |ils of"..... "al| 00001b70 6c 20 74 68 65 20 70 72 6f 67 72 61 6d 6d 65 73 |l the programmes| 00001b80 20 79 6f 75 20 77 69 73 68 20 74 6f 20 76 69 65 | you wish to vie| 00001b90 77 22 2c 22 66 72 6f 6d 20 54 68 65 20 52 61 64 |w","from The Rad| 00001ba0 69 6f 20 26 20 54 56 20 54 69 6d 65 73 2e 22 2c |io & TV Times.",| 00001bb0 22 20 22 2c 22 41 54 53 20 75 73 65 72 73 20 63 |" ","ATS users c| 00001bc0 61 6e 20 61 6c 73 6f 20 65 6e 74 65 72 20 64 65 |an also enter de| 00001bd0 74 61 69 6c 73 20 66 72 6f 6d 22 2c 22 74 68 65 |tails from","the| 00001be0 20 54 65 6c 65 74 65 78 74 20 54 56 20 70 61 67 | Teletext TV pag| 00001bf0 65 73 20 2d 20 74 68 65 20 72 65 71 75 69 72 65 |es - the require| 00001c00 64 22 2c 22 70 61 67 65 20 63 61 6e 20 62 65 20 |d","page can be | 00001c10 64 69 73 70 6c 61 79 65 64 20 77 68 69 6c 73 74 |displayed whilst| 00001c20 20 65 6e 74 65 72 69 6e 67 2e 22 0d 0a fa a9 dc | entering.".....| 00001c30 20 22 20 22 2c 22 54 56 44 49 41 52 59 20 77 69 | " ","TVDIARY wi| 00001c40 6c 6c 20 73 6f 72 74 20 74 68 65 20 70 72 6f 67 |ll sort the prog| 00001c50 72 61 6d 6d 65 73 20 69 6e 74 6f 22 2c 22 63 68 |rammes into","ch| 00001c60 72 6f 6e 6f 6c 6f 67 69 63 61 6c 20 6f 72 64 65 |ronological orde| 00001c70 72 20 61 6e 64 20 70 72 69 6e 74 20 6f 75 74 20 |r and print out | 00001c80 61 22 2c 22 73 63 68 65 64 75 6c 65 2c 20 28 45 |a","schedule, (E| 00001c90 70 73 6f 6e 20 63 6f 6d 70 61 74 69 62 6c 65 20 |pson compatible | 00001ca0 70 72 69 6e 74 65 72 73 29 2c 22 2c 22 77 61 72 |printers),","war| 00001cb0 6e 69 6e 67 20 6f 66 20 61 6e 79 20 70 72 6f 67 |ning of any prog| 00001cc0 72 61 6d 6d 65 73 20 6f 76 65 72 6c 61 70 70 69 |rammes overlappi| 00001cd0 6e 67 2e 22 0d 0b 04 31 f2 5f 6d 65 73 73 61 67 |ng."...1._messag| 00001ce0 65 28 34 2c 32 33 2c 31 33 30 2c 22 50 72 65 73 |e(4,23,130,"Pres| 00001cf0 73 20 53 50 41 43 45 20 74 6f 20 63 6f 6e 74 69 |s SPACE to conti| 00001d00 6e 75 65 22 29 0d 0b 0e 0d f5 3a fd a6 28 2d 39 |nue").....:..(-9| 00001d10 39 29 0d 0b 18 05 e1 0d 0b 22 10 dd 20 f2 5f 74 |9).......".. ._t| 00001d20 65 6c 65 74 65 78 74 0d 0b 24 11 20 f2 5f 74 69 |eletext..$. ._ti| 00001d30 74 6c 65 28 31 33 31 29 0d 0b 27 57 f2 5f 74 78 |tle(131)..'W._tx| 00001d40 63 68 65 63 6b 3a e7 20 74 78 66 6c 61 67 25 3d |check:. txflag%=| 00001d50 a3 20 8c 20 f2 5f 6d 65 73 73 61 67 65 28 39 2c |. . ._message(9,| 00001d60 31 32 2c 31 33 33 2c 22 4e 4f 20 54 45 4c 45 54 |12,133,"NO TELET| 00001d70 45 58 54 20 52 45 43 45 50 54 49 4f 4e 9c 22 29 |EXT RECEPTION.")| 00001d80 3a f2 5f 64 65 6c 61 79 28 31 35 30 29 3a e1 0d |:._delay(150):..| 00001d90 0b 2c 0c 20 f2 5f 74 6d 65 6e 75 0d 0b 36 0d 20 |.,. ._tmenu..6. | 00001da0 f2 5f 73 65 61 72 63 68 0d 0b 40 0d 20 f2 5f 75 |._search..@. ._u| 00001db0 70 64 61 74 65 0d 0b 4a 18 e7 20 6b 65 65 70 66 |pdate..J.. keepf| 00001dc0 6c 61 67 25 3d a3 20 e5 20 8d 44 40 4b 0d 0b 54 |lag%=. . .D@K..T| 00001dd0 0b 2a 54 54 58 4f 46 46 0d 0b 5e 05 e1 0d 0b 68 |.*TTXOFF..^....h| 00001de0 0e 20 dd 20 f2 5f 74 6d 65 6e 75 0d 0b 72 13 ef |. . ._tmenu..r..| 00001df0 20 32 33 3b 31 31 2c 30 3b 30 3b 30 3b 30 0d 0b | 23;11,0;0;0;0..| 00001e00 7c 10 79 70 6f 73 25 3d 39 3a 51 25 3d 31 0d 0b ||.ypos%=9:Q%=1..| 00001e10 86 05 db 0d 0b 90 11 20 f2 5f 74 69 74 6c 65 28 |....... ._title(| 00001e20 31 34 39 29 0d 0b 9a 2e f1 8a 35 2c 36 29 3b bd |149)......5,6);.| 00001e30 31 34 31 3b 22 83 53 45 4c 45 43 54 20 41 20 54 |141;".SELECT A T| 00001e40 45 4c 45 54 45 58 54 20 50 41 47 45 22 20 20 20 |ELETEXT PAGE" | 00001e50 20 20 0d 0b a4 2a 20 f1 8a 35 2c 37 29 3b bd 31 | ...* ..5,7);.1| 00001e60 34 31 3b 22 83 53 45 4c 45 43 54 20 41 20 54 45 |41;".SELECT A TE| 00001e70 4c 45 54 45 58 54 20 50 41 47 45 22 0d 0b ae 26 |LETEXT PAGE"...&| 00001e80 20 f1 8a 37 2c 39 29 3b 22 84 9d 87 54 4f 44 41 | ..7,9);"...TODA| 00001e90 59 20 20 20 20 20 20 20 20 42 42 43 31 20 9c 22 |Y BBC1 ."| 00001ea0 20 20 0d 0b b8 27 20 f1 8a 37 2c 31 30 29 3b 22 | ...' ..7,10);"| 00001eb0 84 9d 87 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00001ec0 42 42 43 32 20 9c 22 20 20 0d 0b c2 27 f1 8a 37 |BBC2 ." ...'..7| 00001ed0 2c 31 31 29 3b 22 84 9d 87 20 20 20 20 20 20 20 |,11);"... | 00001ee0 20 20 20 20 20 20 20 49 54 56 20 9c 22 20 20 20 | ITV ." | 00001ef0 0d 0b cc 27 f1 8a 37 2c 31 32 29 3b 22 84 9d 87 |...'..7,12);"...| 00001f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 | CH| 00001f10 34 20 9c 22 20 20 20 0d 0b d6 25 f1 8a 37 2c 31 |4 ." ...%..7,1| 00001f20 33 29 3b 22 84 9d 87 54 4f 4d 4d 4f 52 4f 57 20 |3);"...TOMMOROW | 00001f30 20 20 42 42 43 31 2f 32 20 9c 22 20 0d 0b e0 27 | BBC1/2 ." ...'| 00001f40 f1 8a 37 2c 31 34 29 3b 22 84 9d 87 20 20 20 20 |..7,14);"... | 00001f50 20 20 20 20 20 20 20 20 20 20 49 54 56 20 9c 22 | ITV ."| 00001f60 20 20 20 0d 0b ea 24 f1 8a 37 2c 31 35 29 3b 22 | ...$..7,15);"| 00001f70 84 9d 87 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00001f80 20 43 48 34 20 9c 22 0d 0b f4 25 20 f1 8a 37 2c | CH4 ."...% ..7,| 00001f90 31 36 29 3b 22 84 9d 87 44 41 59 20 41 46 54 45 |16);"...DAY AFTE| 00001fa0 52 20 20 42 42 43 31 2f 32 20 9c 22 0d 0b fe 40 |R BBC1/2 ."...@| 00001fb0 20 f2 5f 6d 65 73 73 61 67 65 28 30 2c 32 34 2c | ._message(0,24,| 00001fc0 31 33 31 2c 22 55 73 65 20 75 70 20 61 6e 64 20 |131,"Use up and | 00001fd0 64 6f 77 6e 20 63 75 72 73 6f 72 20 6b 65 79 73 |down cursor keys| 00001fe0 20 2b 20 52 45 54 55 52 4e 22 29 20 0d 0c 08 06 | + RETURN") ....| 00001ff0 20 f5 0d 0c 12 3b 20 e7 20 a6 28 2d 35 38 29 20 | ....; . .(-58) | 00002000 80 20 79 70 6f 73 25 3e 39 20 79 70 6f 73 25 3d |. ypos%>9 ypos%=| 00002010 79 70 6f 73 25 2d 31 3a f2 5f 64 65 6c 61 79 28 |ypos%-1:._delay(| 00002020 32 30 29 3a 51 25 3d 51 25 2d 31 20 20 0d 0c 1c |20):Q%=Q%-1 ...| 00002030 3b e7 20 a6 28 2d 34 32 29 20 80 20 79 70 6f 73 |;. .(-42) . ypos| 00002040 25 3c 31 36 20 79 70 6f 73 25 3d 79 70 6f 73 25 |%<16 ypos%=ypos%| 00002050 2b 31 3a f2 5f 64 65 6c 61 79 28 32 30 29 3a 51 |+1:._delay(20):Q| 00002060 25 3d 51 25 2b 31 20 20 0d 0c 26 16 20 f1 8a 37 |%=Q%+1 ..&. ..7| 00002070 2c 79 70 6f 73 25 29 3b bd 28 31 32 39 29 0d 0c |,ypos%);.(129)..| 00002080 30 18 20 f1 8a 37 2c 79 70 6f 73 25 2b 31 29 3b |0. ..7,ypos%+1);| 00002090 bd 28 31 33 32 29 0d 0c 3a 17 f1 8a 37 2c 79 70 |.(132)..:...7,yp| 000020a0 6f 73 25 2d 31 29 3b bd 28 31 33 32 29 0d 0c 44 |os%-1);.(132)..D| 000020b0 0d 20 fd 20 a6 28 2d 37 34 29 0d 0c 4e 32 20 ee |. . .(-74)..N2 .| 000020c0 51 25 20 e5 20 8d 44 62 4c 2c 8d 44 6c 4c 2c 8d |Q% . .DbL,.DlL,.| 000020d0 44 76 4c 2c 8d 74 40 4c 2c 8d 74 4a 4c 2c 8d 74 |DvL,.t@L,.tJL,.t| 000020e0 54 4c 2c 8d 74 5e 4c 2c 8d 74 68 4c 0d 0c 58 45 |TL,.t^L,.thL..XE| 000020f0 20 f4 22 82 4c 49 4e 45 53 20 33 31 37 30 20 54 | .".LINES 3170 T| 00002100 4f 20 33 32 34 30 20 41 52 45 20 54 48 45 20 20 |O 3240 ARE THE | 00002110 20 20 20 82 20 49 4e 44 45 58 20 54 4f 20 54 48 | . INDEX TO TH| 00002120 45 20 54 45 4c 45 54 45 58 54 20 50 41 47 45 53 |E TELETEXT PAGES| 00002130 2e 0d 0c 62 31 20 63 24 3d 22 42 42 43 31 22 3a |...b1 c$="BBC1":| 00002140 70 6e 24 3d 22 50 41 47 45 20 31 37 31 22 3a 63 |pn$="PAGE 171":c| 00002150 74 24 3d 22 42 42 43 20 31 20 54 4f 44 41 59 22 |t$="BBC 1 TODAY"| 00002160 3a e1 0d 0c 6c 2f 63 24 3d 22 42 42 43 31 22 3a |:...l/c$="BBC1":| 00002170 70 6e 24 3d 22 50 41 47 45 20 31 37 32 22 3a 63 |pn$="PAGE 172":c| 00002180 74 24 3d 22 42 42 43 32 20 54 4f 44 41 59 22 3a |t$="BBC2 TODAY":| 00002190 e1 0d 0c 76 2f 63 24 3d 22 49 54 56 22 3a 70 6e |...v/c$="ITV":pn| 000021a0 24 3d 22 50 41 47 45 20 32 31 33 22 3a 63 74 24 |$="PAGE 213":ct$| 000021b0 3d 22 49 54 56 20 2d 20 54 4f 44 41 59 22 3a e1 |="ITV - TODAY":.| 000021c0 0d 0c 80 2d 63 24 3d 22 49 54 56 22 3a 70 6e 24 |...-c$="ITV":pn$| 000021d0 3d 22 50 41 47 45 20 32 31 34 22 3a 63 74 24 3d |="PAGE 214":ct$=| 000021e0 22 43 48 34 20 54 4f 44 41 59 22 3a e1 0d 0c 8a |"CH4 TODAY":....| 000021f0 34 63 24 3d 22 42 42 43 31 22 3a 70 6e 24 3d 22 |4c$="BBC1":pn$="| 00002200 50 41 47 45 20 31 37 38 22 3a 63 74 24 3d 22 42 |PAGE 178":ct$="B| 00002210 42 43 31 2f 32 20 54 4f 4d 4f 52 52 4f 57 22 3a |BC1/2 TOMORROW":| 00002220 e1 0d 0c 94 31 63 24 3d 22 49 54 56 22 3a 70 6e |....1c$="ITV":pn| 00002230 24 3d 22 50 41 47 45 20 32 31 37 22 20 3a 63 74 |$="PAGE 217" :ct| 00002240 24 3d 22 49 54 56 20 54 4f 4d 4f 52 52 4f 57 22 |$="ITV TOMORROW"| 00002250 3a e1 0d 0c 9e 30 63 24 3d 22 49 54 56 22 3a 70 |:....0c$="ITV":p| 00002260 6e 24 3d 22 50 41 47 45 20 32 31 38 22 3a 63 74 |n$="PAGE 218":ct| 00002270 24 3d 22 43 48 34 20 54 4f 4d 4f 52 52 4f 57 22 |$="CH4 TOMORROW"| 00002280 3a e1 0d 0c a8 43 63 24 3d 22 42 42 43 31 22 3a |:....Cc$="BBC1":| 00002290 70 6e 24 3d 22 50 41 47 45 20 31 37 39 22 3a 63 |pn$="PAGE 179":c| 000022a0 74 24 3d 22 42 42 43 31 2f 32 20 54 48 45 20 44 |t$="BBC1/2 THE D| 000022b0 41 59 20 41 46 54 45 52 20 54 4f 4d 4f 52 52 4f |AY AFTER TOMORRO| 000022c0 57 22 3a e1 20 0d 0c b2 05 e1 0d 0c bc 0e dd 20 |W":. .......... | 000022d0 f2 5f 73 65 61 72 63 68 0d 0c c6 0f 6b 65 65 70 |._search....keep| 000022e0 66 6c 61 67 25 3d a3 0d 0c d0 12 db 3a f2 5f 74 |flag%=......:._t| 000022f0 69 74 6c 65 28 31 34 39 29 0d 0c da 4d f1 20 8a |itle(149)...M. .| 00002300 38 2c 31 30 29 3b bd 31 34 31 20 22 83 53 45 41 |8,10);.141 ".SEA| 00002310 52 43 48 49 4e 47 20 46 4f 52 20 50 41 47 45 22 |RCHING FOR PAGE"| 00002320 3a f1 20 8a 38 2c 31 31 29 3b bd 31 34 31 3b 20 |:. .8,11);.141; | 00002330 22 83 53 45 41 52 43 48 49 4e 47 20 46 4f 52 20 |".SEARCHING FOR | 00002340 50 41 47 45 22 20 0d 0c e4 0a 2a 54 54 58 4f 4e |PAGE" ....*TTXON| 00002350 0d 0c ee 0f f2 5f 6f 73 63 6c 69 28 63 24 29 0d |....._oscli(c$).| 00002360 0c f8 12 f2 5f 6f 73 63 6c 69 28 70 6e 24 29 20 |...._oscli(pn$) | 00002370 20 0d 0d 02 12 2a 54 52 41 4e 53 46 45 52 20 37 | ....*TRANSFER 7| 00002380 30 30 30 0d 0d 0c 11 2a 44 49 53 50 4c 41 59 20 |000....*DISPLAY | 00002390 37 30 30 30 0d 0d 16 13 ef 20 32 33 3b 31 31 2c |7000..... 23;11,| 000023a0 30 3b 30 3b 30 3b 30 0d 0d 20 37 f2 5f 6d 65 73 |0;0;0;0.. 7._mes| 000023b0 73 61 67 65 28 36 2c 32 33 2c 31 33 31 2c 22 50 |sage(6,23,131,"P| 000023c0 72 65 73 73 20 45 53 43 20 77 68 65 6e 20 74 68 |ress ESC when th| 000023d0 65 20 72 65 71 75 69 72 65 64 22 29 20 20 0d 0d |e required") ..| 000023e0 2a 35 f2 5f 6d 65 73 73 61 67 65 28 36 2c 32 34 |*5._message(6,24| 000023f0 2c 31 33 31 2c 22 70 61 67 65 2f 73 75 62 20 70 |,131,"page/sub p| 00002400 61 67 65 20 69 73 20 64 69 73 70 6c 61 79 65 64 |age is displayed| 00002410 2e 22 29 0d 0d 34 1b f2 5f 6d 65 73 73 61 67 65 |.")..4.._message| 00002420 28 30 2c 32 32 2c 31 33 31 2c 22 20 22 29 0d 0d |(0,22,131," ")..| 00002430 3e 05 e1 0d 0d 48 14 20 dd 20 f2 5f 6f 73 63 6c |>....H. . ._oscl| 00002440 69 28 63 6f 6d 24 29 0d 0d 52 11 20 4c 25 3d a9 |i(com$)..R. L%=.| 00002450 28 63 6f 6d 24 29 2b 31 0d 0d 5c 0b 20 de 20 43 |(com$)+1..\. . C| 00002460 20 4c 25 0d 0d 66 12 20 24 43 3d 63 6f 6d 24 2b | L%..f. $C=com$+| 00002470 bd 28 31 33 29 0d 0d 70 0f 20 58 25 3d 43 20 83 |.(13)..p. X%=C .| 00002480 20 32 35 36 0d 0d 7a 0e 20 59 25 3d 43 20 81 32 | 256..z. Y%=C .2| 00002490 35 36 0d 0d 84 0c 20 d6 20 26 46 46 46 37 0d 0d |56.... . &FFF7..| 000024a0 8e 06 20 e1 0d 0d 98 12 20 dd 20 f2 5f 64 65 6c |.. ..... . ._del| 000024b0 61 79 28 74 25 29 0d 0d a2 10 d1 3d 30 3a f5 3a |ay(t%).....=0:.:| 000024c0 fd 20 91 3e 74 25 0d 0d ac 05 e1 0d 0d b6 0f 20 |. .>t%......... | 000024d0 dd 20 f2 5f 75 70 64 61 74 65 0d 0d c0 19 ee 20 |. ._update..... | 000024e0 85 20 6b 65 65 70 66 6c 61 67 25 3d b9 3a e5 8d |. keepflag%=.:..| 000024f0 74 6a 40 0d 0d ca 08 6b 25 3d 30 0d 0d d4 0e f2 |tj@....k%=0.....| 00002500 5f 6d 65 6d 63 6f 75 6e 74 0d 0d de 0f 74 31 25 |_memcount....t1%| 00002510 3d 6d 65 6d 73 75 6d 25 0d 0d e8 05 f5 0d 0d f2 |=memsum%........| 00002520 12 2a 54 52 41 4e 53 46 45 52 20 37 30 30 30 0d |.*TRANSFER 7000.| 00002530 0d fc 0e f2 5f 6d 65 6d 63 6f 75 6e 74 0d 0e 06 |...._memcount...| 00002540 0f 74 32 25 3d 6d 65 6d 73 75 6d 25 0d 0e 10 0e |.t2%=memsum%....| 00002550 fd 20 74 31 25 3c 3e 74 32 25 0d 0e 1a 11 2a 44 |. t1%<>t2%....*D| 00002560 49 53 50 4c 41 59 20 37 30 30 30 0d 0e 24 16 ef |ISPLAY 7000..$..| 00002570 20 32 33 3b 31 31 2c 30 3b 30 3b 30 3b 30 20 20 | 23;11,0;0;0;0 | 00002580 20 0d 0e 2e 1b f2 5f 6d 65 73 73 61 67 65 28 30 | ....._message(0| 00002590 2c 32 32 2c 31 33 31 2c 22 20 22 29 0d 0e 38 36 |,22,131," ")..86| 000025a0 20 f2 5f 6d 65 73 73 61 67 65 28 36 2c 32 33 2c | ._message(6,23,| 000025b0 31 33 31 2c 22 50 72 65 73 73 20 45 53 43 20 77 |131,"Press ESC w| 000025c0 68 65 6e 20 74 68 65 20 72 65 71 75 69 72 65 64 |hen the required| 000025d0 22 29 0d 0e 42 36 20 f2 5f 6d 65 73 73 61 67 65 |")..B6 ._message| 000025e0 28 36 2c 32 34 2c 31 33 31 2c 22 70 61 67 65 2f |(6,24,131,"page/| 000025f0 73 75 62 20 70 61 67 65 20 69 73 20 64 69 73 70 |sub page is disp| 00002600 6c 61 79 65 64 2e 22 29 0d 0e 4c 11 f1 8a 30 2c |layed.")..L...0,| 00002610 32 32 29 3b 22 20 22 3b 20 0d 0e 56 05 e1 0d 0e |22);" "; ..V....| 00002620 60 10 dd 20 f2 5f 6d 65 6d 63 6f 75 6e 74 0d 0e |`.. ._memcount..| 00002630 6a 0d 6d 65 6d 73 75 6d 25 3d 30 0d 0e 74 1d 20 |j.memsum%=0..t. | 00002640 20 e3 20 58 25 3d 26 37 30 33 39 20 b8 20 26 37 | . X%=&7039 . &7| 00002650 33 38 31 20 88 20 34 30 0d 0e 7e 2e 20 e7 3f 58 |381 . 40..~. .?X| 00002660 25 3c 3e 33 32 20 80 20 3f 58 25 3c 3e 31 36 30 |%<>32 . ?X%<>160| 00002670 20 8c 20 6d 65 6d 73 75 6d 25 3d 6d 65 6d 73 75 | . memsum%=memsu| 00002680 6d 25 2b 3f 58 25 0d 0e 88 07 ed 20 20 0d 0e 92 |m%+?X%..... ...| 00002690 05 e1 0d 0e 9c 0f dd 20 f2 5f 64 69 73 70 6c 61 |....... ._displa| 000026a0 79 0d 0e a6 13 2a 44 49 53 50 4c 41 59 20 37 30 |y....*DISPLAY 70| 000026b0 30 30 20 20 0d 0e b0 15 ef 20 32 33 3b 31 31 2c |00 ..... 23;11,| 000026c0 30 3b 30 3b 30 3b 30 20 20 0d 0e ba 05 e1 0d 0e |0;0;0;0 .......| 000026d0 c4 0f dd 20 f2 5f 73 63 72 65 65 6e 32 0d 0e ce |... ._screen2...| 000026e0 10 f2 5f 74 69 74 6c 65 28 31 34 38 29 0d 0e d8 |.._title(148)...| 000026f0 47 e3 20 58 25 3d 35 20 b8 20 39 3a f1 8a 30 2c |G. X%=5 . 9:..0,| 00002700 58 25 29 3b bd 31 34 38 3b 22 2c 2c 2c 2c 2c 2c |X%);.148;",,,,,,| 00002710 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c |,,,,,,,,,,,,,,,,| * 00002730 2c 22 3a ed 0d 0e e2 4c e3 20 58 25 3d 31 34 20 |,":....L. X%=14 | 00002740 b8 20 32 32 3a f1 8a 30 2c 58 25 29 3b bd 31 34 |. 22:..0,X%);.14| 00002750 38 3b 22 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c |8;",,,,,,,,,,,,,| 00002760 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c |,,,,,,,,,,,,,,,,| 00002770 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 22 3a ed 20 20 20 |,,,,,,,,,,":. | 00002780 0d 0e ec 05 e1 0d 0f 3c 0f 20 dd 20 f2 5f 67 65 |.......<. . ._ge| 00002790 74 72 65 63 0d 0f 41 1c 20 f2 5f 6d 65 73 73 61 |trec..A. ._messa| 000027a0 67 65 28 30 2c 32 34 2c 31 33 31 2c 22 20 22 29 |ge(0,24,131," ")| 000027b0 0d 0f 46 2a 20 f2 5f 6d 65 73 73 61 67 65 28 31 |..F* ._message(1| 000027c0 34 2c 32 33 2c 31 33 31 2c 22 22 22 59 22 22 20 |4,23,131,"""Y"" | 000027d0 6f 72 20 22 22 4e 22 22 22 29 0d 0f 50 51 20 ef |or ""N""")..PQ .| 000027e0 33 31 2c 33 35 2c 28 79 70 6f 73 25 2b 33 29 3a |31,35,(ypos%+3):| 000027f0 72 65 63 24 28 70 63 25 29 3d be 3a e7 20 72 65 |rec$(pc%)=.:. re| 00002800 63 24 28 70 63 25 29 3c 3e 22 59 22 20 80 20 72 |c$(pc%)<>"Y" . r| 00002810 65 63 24 28 70 63 25 29 3c 3e 22 79 22 3a 72 65 |ec$(pc%)<>"y":re| 00002820 63 24 28 70 63 25 29 3d 22 4e 22 0d 0f 55 2d 20 |c$(pc%)="N"..U- | 00002830 20 f1 72 65 63 24 28 70 63 25 29 3a e7 72 65 63 | .rec$(pc%):.rec| 00002840 24 28 70 63 25 29 3d 22 4e 22 3a 72 65 63 24 28 |$(pc%)="N":rec$(| 00002850 70 63 25 29 3d 22 20 22 0d 0f 58 12 ef 32 33 3b |pc%)=" "..X..23;| 00002860 31 31 2c 30 3b 30 3b 30 3b 30 0d 0f 5a 06 20 e1 |11,0;0;0;0..Z. .| 00002870 0d 0f a0 0e 20 dd 20 f2 5f 70 72 69 6e 74 0d 0f |.... . ._print..| 00002880 aa 54 20 e7 20 64 61 74 61 66 6c 61 67 25 3d a3 |.T . dataflag%=.| 00002890 20 8c 20 ef 37 3a f2 5f 6d 65 73 73 61 67 65 28 | . .7:._message(| 000028a0 38 2c 31 32 2c 31 33 33 2c 22 4e 4f 20 50 52 4f |8,12,133,"NO PRO| 000028b0 47 52 41 4d 4d 45 53 20 54 4f 20 50 52 49 4e 54 |GRAMMES TO PRINT| 000028c0 22 29 3a f2 5f 64 65 6c 61 79 28 32 30 30 29 3a |"):._delay(200):| 000028d0 e1 20 0d 0f b4 19 20 e7 20 73 6f 72 74 66 6c 61 |. .... . sortfla| 000028e0 67 25 3d a3 3a f2 5f 73 6f 72 74 0d 0f be 11 20 |g%=.:._sort.... | 000028f0 f2 5f 74 69 74 6c 65 28 31 34 38 29 0d 0f c8 29 |._title(148)...)| 00002900 20 f2 5f 6d 65 73 73 61 67 65 28 38 2c 31 31 2c | ._message(8,11,| 00002910 31 33 31 2c 22 8d 81 9d 87 50 52 49 4e 54 49 4e |131,"....PRINTIN| 00002920 47 20 9c 22 29 0d 0f d2 2b 20 f2 5f 6d 65 73 73 |G .")...+ ._mess| 00002930 61 67 65 28 38 2c 31 32 2c 31 33 31 2c 22 8d 81 |age(8,12,131,"..| 00002940 9d 87 50 52 49 4e 54 49 4e 47 20 9c 22 29 20 20 |..PRINTING .") | 00002950 0d 0f dc 20 20 ef 32 2c 31 2c 32 37 2c 31 2c 31 |... .2,1,27,1,1| 00002960 30 38 2c 31 2c 36 2c 31 2c 32 37 2c 31 2c 37 37 |08,1,6,1,27,1,77| 00002970 0d 0f f0 13 20 ef 31 2c 32 37 2c 31 2c 34 35 2c |.... .1,27,1,45,| 00002980 31 2c 31 0d 0f f5 0c 20 2a 46 58 33 2c 31 30 0d |1,1.... *FX3,10.| 00002990 0f fa 11 20 f1 22 54 56 20 44 49 41 52 59 22 3b |... ."TV DIARY";| 000029a0 0d 0f ff 0b 20 2a 46 58 33 2c 30 0d 10 04 13 20 |.... *FX3,0.... | 000029b0 ef 31 2c 32 37 2c 31 2c 34 35 2c 31 2c 30 0d 10 |.1,27,1,45,1,0..| 000029c0 0e 0c 20 ef 31 30 2c 31 30 20 0d 10 13 0c 20 2a |.. .10,10 .... *| 000029d0 46 58 33 2c 31 30 0d 10 18 11 20 e3 20 58 25 3d |FX3,10.... . X%=| 000029e0 31 20 b8 20 70 63 25 0d 10 22 0e 20 40 25 3d 26 |1 . pc%..". @%=&| 000029f0 32 30 32 30 37 0d 10 2c 19 20 f2 64 65 63 6f 64 |20207..,. .decod| 00002a00 65 28 50 28 58 25 29 2c 43 28 58 25 29 29 0d 10 |e(P(X%),C(X%))..| 00002a10 36 29 20 e7 20 50 28 58 25 29 20 81 31 30 30 3c |6) . P(X%) .100<| 00002a20 3e 20 50 28 58 25 2d 31 29 20 81 31 30 30 3a f1 |> P(X%-1) .100:.| 00002a30 64 24 3a 63 74 3d 30 0d 10 40 20 20 f1 8a 30 29 |d$:ct=0..@ ..0)| 00002a40 3b 53 54 3b 22 20 74 6f 20 22 3b 45 54 3b 8a 31 |;ST;" to ";ET;.1| 00002a50 36 29 3b 63 68 24 3b 0d 10 4a 1c 20 40 25 3d 26 |6);ch$;..J. @%=&| 00002a60 37 3a f2 5f 64 75 72 61 74 69 6f 6e 28 53 54 2c |7:._duration(ST,| 00002a70 45 54 29 0d 10 54 23 20 f1 8a 32 32 29 3b 64 75 |ET)..T# ..22);du| 00002a80 72 3b 22 20 6d 69 6e 73 22 3b 8a 33 31 29 3b 50 |r;" mins";.31);P| 00002a90 24 28 58 25 29 3b 0d 10 5e 27 20 e7 20 63 74 2d |$(X%);..^' . ct-| 00002aa0 53 54 3e 3d 2e 30 30 31 20 8c 20 f1 20 8a 36 33 |ST>=.001 . . .63| 00002ab0 29 3b 22 4f 76 65 72 6c 61 70 73 22 3b 0d 10 68 |);"Overlaps";..h| 00002ac0 14 20 e7 20 63 74 3c 45 54 20 8c 20 63 74 3d 45 |. . ct<ET . ct=E| 00002ad0 54 0d 10 72 3a 20 e7 20 72 65 63 24 28 58 25 29 |T..r: . rec$(X%)| 00002ae0 3d 22 59 22 20 84 20 72 65 63 24 28 58 25 29 3d |="Y" . rec$(X%)=| 00002af0 22 79 22 3a f1 20 8a 37 31 29 22 20 52 65 63 6f |"y":. .71)" Reco| 00002b00 72 64 22 20 8b 20 f1 20 22 20 22 0d 10 7c 06 20 |rd" . . " "..|. | 00002b10 ed 0d 10 86 0b 20 2a 46 58 33 2c 30 0d 10 90 07 |..... *FX3,0....| 00002b20 20 ef 33 0d 10 9a 06 20 e1 0d 10 a4 10 20 dd 20 | .3.... ..... . | 00002b30 f2 5f 74 78 63 68 65 63 6b 0d 10 ae 0e 20 74 78 |._txcheck.... tx| 00002b40 66 6c 61 67 25 3d b9 0d 10 b8 12 20 58 25 3d 62 |flag%=..... X%=b| 00002b50 6c 6f 63 6b 25 83 32 35 36 0d 10 c2 12 20 59 25 |lock%.256.... Y%| 00002b60 3d 62 6c 6f 63 6b 25 81 32 35 36 0d 10 cc 0b 20 |=block%.256.... | 00002b70 41 25 3d 26 37 41 0d 10 d6 10 20 62 6c 6f 63 6b |A%=&7A.... block| 00002b80 25 3f 30 3d 31 37 0d 10 e0 0c 20 d6 20 26 46 46 |%?0=17.... . &FF| 00002b90 46 31 0d 10 ea 1b 20 e7 20 62 6c 6f 63 6b 25 3f |F1.... . block%?| 00002ba0 31 3a 74 78 66 6c 61 67 25 3d a3 3a db 0d 10 f4 |1:txflag%=.:....| 00002bb0 06 20 e1 0d ff |. ...| 00002bb5
12-03-89/TVDiary.m0
12-03-89/TVDiary.m1
12-03-89/TVDiary.m2
12-03-89/TVDiary.m4
12-03-89/TVDiary.m5
.