P731 CEEFAX 731 Wed 27 Jan 21:00/11 |B2201208 —91÷X|s—:1 LD LE TELEPRINTER LISTING LNE M R LNF 1-2-1987 LNE LD FL "—5—E—) F BBCB B MASTER PL +—F—) W DFS  ADFS ZLUE W TFS  ATS LUEW SE COND PROCESSOR ATS LE  L"—,—D LF TYPE TI F or LF F   ÷|—÷L"—,—E H] R^C \ 900:code=&6700 @   F  Q H DISK >4hnl=—6"TPINDEX":len=—L£hnl:÷1£0:÷?len\ >0 LTA H F JQ  s*SAVE TPINDEX   Y\F  dFB YHJODE ÷Jlsge:÷G31,34,13,32,31,34,14,32,31,5,22 ,152,31,5,24,152:hnl=—V"SCREENS":÷Mscrns =scrns+1:÷;L=15—|—16:÷I—224,L)scrns-1:÷F :—w£hnl=scrns*960:÷U0 Y J sc("DELETE TPINDEXLQ Y
P731 CEEFAX 731 Wed 27 Jan 21:01/07 |B2202208 |s—91÷X|s—:1 L=0—|—scrns*4—04:!(&68003L) =L/4*&10000:÷E:÷Jindx:next=0 YJ :÷Lscrn:÷?—Lget(19,12,48,53)=9 TA Y6?ch=x-48:÷G31,7,13,160,31,7,14,160:÷?— Lgft(16,14,48,37)=9 TA Y@ )*100:÷?—Lget 17,14,47,58)=9 TA YJ pa=pa3(x-48)*10:÷?—Lgdt 18,14,47,58)=9 —4—5TlA YTS G 0)3(pa L 800+L*4)—(&FFFF)<>search DA Y snd=L:L=next:÷E:÷Jdis:÷=—5TlA Y]E Y ||÷s÷?next=scrns J\@ YVN sc("CH" —k ch)):÷Losc("PAGE"+—k(pa)):÷G3 1,7,15,160,31,7,16,160:high=1:*TRANSFER 7480 YHGL t:÷?st=—a GIDATA ERROR ÷=—5tFA YBJ JH nt:÷=—5TlA YLNPAGETR ANSFER  YVXL I 220,24)—e136"—)DATA ERRORA ?pre=st  ZA 
P731 CEEFAX 731 Wed 27 Jan 21:00/15 |B2203208 |s—91÷X|s—:1 ÷Y—|—F÷;L=1—|—high:÷??(&680 0+(next3L-1)*4)=0 LEAE :÷G7:÷Jcat:÷=—5D^A Y] YJ nt:*DISPLAY  YGIF 5 YIPRINT YN  M  &20)-32:÷?x<>89  YBG  :—3÷;L=0—|—22:x=&74A8+L*40 YL  LL F YV ÷??x<140    ZEL (pa FX Z =13:÷I$pagf;$&7848:store$="":?&7868=?tp: ÷;L=1—|—23:x=&7868+L*40:?x=13:÷?store$=$ (x-40) II $ ZLEIFX Z ÷]÷9 Z] ZRLO  &7F:tfn=?&7483 FMKU —,d2=0:one=d1:÷?d2=0  ZDOMK 2:÷Ud2=ten   ZN $page=—k(pa)+"0000   9page?6=one348 ZX  Z bk÷40,&15,1,2,2,&49,3,&5E,4,&64,5,&73,6, &38,7,&2F,8,&50,9,&47,10,&C,11,&1B,1|c
P731 CEEFAX 731 Wed 27 Jan 21:11/21 |B2204208 |s—91÷X|s—:1 2,&21,13,&36,14,&7D,15,&6A, 0,0 Z] ZJ ZDISK Z {hnl=—6"SCREENS":÷Josg(3):÷Jtsoft:last=— Lham:÷Jprint:÷?found=scrns  und+1:÷?(!(&6800+found*4)—(&FFFF)<>searc h @B Z] ZFDISK ZP ÷1£0:÷?—G=17 G L  :?(&6800+L*4)=0:÷=—5TlA ZZHOFF Z ÷r÷3:÷N:÷I''"   F Z :scrns=scrns-1:÷=—5T A Z] ZJ osc($tp):X%=tp Y FFF :÷9 Z] ZFJ t-1:÷?last=0  ZP ound*4)<>0 TCDISK [Z >high  [ s [ xt:—3x=&6800+found*4:?x=ch*10+pa  ?1=pa SCREENSXY  236:A%=&C0:hnl=—b(&FF D8—(&FF:÷Losg(1) [ DISPLAY  [GI [4÷]: [SLIFP ÷D—d—L÷T—T—L÷T—H—H÷T—T—L÷T÷D—X÷T÷D—X|c
P731 CEEFAX 731 Wed 27 Jan 21:00/01 |B2205208 |s—91÷X|s—:1 ÷D—d÷@—\÷@—\—T÷T—T÷@—d—T÷@— d÷L—H—H—D—<—E—?—H÷B—]—H÷W—T—H÷W—H—H÷W—T— H÷W—V—I÷W÷F—Y÷B—]÷B—g÷V—]—H÷W—H÷B—e—L÷B— e÷O—H—N—E—<—E—?—H—R—M—H—c—T—L—k—T—L—k—T— L—k—H—H—k—R—M—V—U—R—M—R—M—H—k—H—R—U—T—R— M—k—H—N—F":÷G31,0,5,130,160:÷I—l36,—e(12 4)); [HCGLGL 2,150,160,157,148:÷D:÷;L2=8—|—19:÷G31,0, L2,131,137,159,129,31,30,L2,134,157:÷F:÷ G31,0,20,150,160:÷I—l28,—f(124))—l10,—f( 255)):÷G31,3,22,132 [RIP ESCAP E>   GI ")—e133;:÷I—19"Press TAB  E ÷;L2=11—|—12:÷G31,8,L2,141:÷I"Channel  :÷G31,7,L2+2,152,141:÷I"Pagf G L2+2,132,141 [\[IGL 4,152,141:÷I"+aiting...":÷D:÷G31,22,6,13 2:÷I  MJRFX  [] [p÷]: [JFLESOFT [H ON [F ^B [@] [L] [—T÷o÷5÷Jinit:*LO. TPINDEX [^F n/4:next=scrns:÷;L=0—|—scrns-1:÷??(&|c
P731 CEEFAX 731 Wed 27 Jan 21:00/05 |B2206208 |s—91÷X|s—:1 6800+L*4)=0 LL ÷[—h÷#÷E:÷9 [] [NJ :next=0:÷Lscrn:÷O—5DnE:÷Jmsge:÷G31,3,22, 152,31,5,24,152:÷Jspc:*DISK [] [ @÷]: [JJODEJJ [TF Q \^] \] \ 5÷Jcat:*DISK \U gh:÷Jindx:÷Jtsoft:÷9 \] \J t:*DISK \B JLM ÷G31,5,24,132:L=L+1:search=(!(&6800+L*4) —(&FFFF):ch= ?(&6800+L*4))—)10:pa=( ?(&6 800+L*4))—+10)*100+?(&6801+L*4) \LL =11—|—12:÷I—217,L2)":  L 0)—214,L2+2)": GLI D elete YN EM  89  \VYLGLF :÷?x<>89 LLMLLUL &FFFF)<>search:÷UL>next-2:÷9 \ ch<>(!(&6800+L*4+4)—(&FFFF)÷=—5D|÷D \K ÷;L2=15—|—16:÷G31,7,L2,141:÷I" A  YN  EM   \LGLE \
P731 CEEFAX 731 Wed 27 Jan 21:00/07 |B2207208 e|s—91÷X|s—:1 |÷÷i÷M:÷?x=89 D \ Afound=L:hnl=—6"SCREENS":÷Josg(3):÷Jtsof t:last=—Lham:*DISPLAY  \DISK \—D÷l÷G30:÷I$pagd:*F 13 \NID ELETE YN  M  =78 \XG LLDD \ —Mprf=!(&6800+L*4):÷;L2=L L 800+L2*4)=!(&6800+L2*4+4):÷E:!(&6800+nex t*4-4)=(pre  :÷?x=89 LGL ÷Iscrns-next:÷E \ULF FFF)<>sfarch:÷?x=78 J \L L=L-1:÷UL>next-2:÷9 \] \J :÷O—5tBE:÷Llsge:÷Lspc:÷9 \D] \N ÷Nlsge:÷;L=11—|—15—02:÷Kd$:÷G31,4,L,141: ÷Id$:÷G31,4,L+1,141:÷Id$:÷F:÷9 ] ] ] ÷b÷j÷5÷Jspc:÷M÷U—M=32:÷9 ]] ] ÷Josg(x):A%=x:X%=tp:Y%=tp  !(tp+1)=&7480:!(tp+5)=960:!(tp+9)=(!(&68 02+found*4)—(&FFF)*960:÷.&FFD1:÷1£0:÷9 ](÷]: ]JNSAVE TPINDEX 800+"+—k|÷ scrns*4)):÷9 ]] ]F
P731 CEEFAX 731 Wed 27 Jan 21:12/05 |B2208208413E9|s—<1÷ e|s—91÷X|s—:1 —Lget(p1,p2,p3,p4):÷G31,p1 ,p2:÷Mx=—M8÷?x=9 UJ ]PU >p3 G ÷]Z÷]: ]J DISK BEING INITIALISED PLEASE BE PATIENTMAXIMUM SCREENS ]F LN@D TELEPRINTER DISK O R BLANK DISK THEN PRESS SPACE ]F 4 NO OOM LEFT ON DISK LOAD NE DISK"," OR USE EDITOR ]A THER F ARE NO SCREENS TO EDIT P D S SPACE 
P731 CEEFAX 731 Wed 27 Jan 20:01/21 |B2208208413E9|s—<1÷ e|s—91÷X|s—:1 —Lget(p1,p2 p3 p4):÷G31,p1 p2:÷Mx=—M:÷?x<8 UH ]PU >p3 G ÷]Z÷]: ]J DISK BEING INI HA H ED"," PLEASE BE PATIENTMAXIMUM SCREENS ]F LOAD DLEPRINTER DISK O R BLANK DISK THEN P D S S@ CE" ]D 4 NO OOM LEFT ON DISI LOAD D DISK"," OR USE EDI NP" ]A THER D ARE NO SCREENS TO EDIT P @S S@@CE 
P731 CEEFAX 731 Wed 27 Jan 21:20/01 |B2208208|a17TPrint2|i13BAS|m413E9|s—<1÷ e|s—91÷X|s—:1 —Lget(p1,p2,p3,p4):÷G31,p1 ,p2:÷Mx=—M:÷?x=9 UJ ]PU >p3 G ÷]Z÷]: ]J DISK BEING INITIALISED PLEASE BE PATIENTMAXIMUM SCREENQ ]F LOAD TELEPRINTER DISK O R BLANK DISK THEN PRESS SPACE ]F 4 NO OOM LEFT ON DISK LOAD NE DISK"," OR USE EDITOR ]A THER E ARE NO SCREENS TO EDIT P DS SPACE 