20-05-88/TTEX

Home » CEEFAX disks » telesoftware7.adl » 20-05-88/TTEX

20-05-88/TTEX

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 » telesoftware7.adl
Filename:	20-05-88/TTEX
Read OK:	✔
File size:	2C86 bytes
Load address:	FFFF1A00
Exec address:	FFFF8023

File contents

   10PROCHEADER
   20DIMA(31):DIMA$(31):HIMEM=&4B00:T=0:X=0
   30*LOAD DUMP7
   40ON ERROR PROCMENU
   50PROCMC:PROCcheckstatus:PROCMENU
   60END
   70DEFPROCMC
   80last=9999
   90FORN=0TO2STEP2
  100P%=&4F20
  110[OPTN
  120.code
  130LDA#7:STA&4F00
  140LDA#24:STA&4F01
  150JSR OSWORD
  160LDA#3:STA&4F00
  170LDA#0:STA&4F01
  180LDA#0:STA&4F02
  190JSR OSWORD
  200LDA#5:STA&4F00
  210LDA#0:STA&4F01
  220LDA&4F09:STA&4F02
  230LDA&4F0A:STA&4F03
  240LDA#&3F:STA&4F04
  250LDA#&7F:STA&4F05
  260LDA#&00:STA&4F06
  270LDA#&4B:STA&4F07
  280JSR OSWORD
  290RTS
  300.OSWORD
  310LDX#0:LDY#&4F:LDA#&7A
  320JSR&FFF1:RTS
  330.wait
  340LDA#2:STA&4F0B
  350LDA#0:STA&4F0C
  360LDX#&0B:LDY#&4F:LDA#&7A
  370JSR&FFF1:RTS
  380.status:LDA#17:STA&4F00
  390JSR OSWORD:RTS
  400]:NEXT
  410flag=&4F0D
  420magazine=&4F09
  430page=&4F0A
  440?&4F09=1:?&4F0A=0
  450?&4F0D=0
  460CALL&59E5:?&85=0:D%=&5A06:?&80=76:auto=0
  470?&88=0:E%=0
  480ENDPROC
  490DEFPROCempty:PRINTTAB(0,24)STRING$(38," ");:ENDPROC
  500DEFPROCTELETEXT
  510*TTXON
  520CLS
  530*HON
  540PROCch
  550REPEAT
  560PRINTTAB(0,24)"�(P)RINT�(F)ILE�(U)PDATE� page�###";
  570I=GET
  580IFI=ASC"P"THENPROCprinter
  590IFI=ASC"F"THENPROCfiler
  600IFI>47ANDI<58THENPROCpage
  610IFI=ASC"U"THENPRINTTAB(26,24)"�updating";
  620IFI=ASC"U"THENPROCgrabber
  630IFI=ASC"C"THENPROCch
  640UNTILI=ASC" "
  650ENDPROC
  660DEFPROCpage
  670PRINTTAB(31,24)CHR$(I);
  680I=I-48:?magazine=I
  690I=GET
  700IFI<48ORI>57THEN690
  710PRINTTAB(32,24)CHR$(I);
  720I=I-48:temp=I*16
  730I=GET
  740IFI<48ORI>57THEN730
  750PRINTTAB(33,24)CHR$(I);
  760I=I-48:temp=temp+I
  770?page=temp:PROCgrabber
  780ENDPROC
  790DEFPROCgrabber
  800CALLcode
  810PROCdisplay
  820ENDPROC
  830DEFPROCdisplay
  840PRINTTAB(26,24)"�Searching!!";
  850REPEAT:CALLwait:J=INKEY(1):UNTIL?flag=2ORJ<>-1
  860*DISPLAY 4B00
  870A=?magazine+48:PRINTTAB(0,0)CHR$A;
  880B=?pageDIV16:B=B+48:PRINTTAB(1,0)CHR$B;
  890B=?pageMOD16:B=B+48:PRINTTAB(2,0)CHR$B;
  900ENDPROC
  910DEFPROCprinter
  920auto=auto+1
  930*TTXOFF
  940 IF E%=1 THEN PROCaddfile 
  950 IF E%=1 THEN ENDPROC
  960PROCempty
  970CALL D%
  980*TTXON
  990ENDPROC
 1000DEFPROCindex
 1010?magazine=1
 1020IFI=2THEN?magazine=2
 1030ENDPROC
 1040DEFPROCfiler
 1050*TTXOFF
 1060PROCempty
 1070PRINTTAB(2,24)"�Enter TTEX page name�"; 
 1080I$="":REPEAT:L=GET:PRINTCHR$(L);:IFL<>13THENI$=I$+CHR$(L)
 1090UNTILL=13
 1100IFLEN(I$)>7THENI$=LEFT$(I$,7)
 1110PROCempty
 1120A$="SAVE "+I$+" 7C00 +3C0"
 1130$&0C00=A$:X%=0:Y%=&0C:CALL&FFF7
 1140*TTXON
 1150ENDPROC
 1160DEFPROCfront(O)
 1170PROCempty
 1180PRINTTAB(0,24)"Waiting for ordered page.";
 1190CALLcode
 1200REPEAT:CALLwait:J=INKEY(1):UNTIL?flag=2ORJ<>-1
 1210PROCempty
 1220IFJ<>-1THENENDPROC
 1230found=?&4B04DIV16
 1240found=found*10
 1250found=found+?&4B04MOD16
 1260PRINTTAB(0,24)"�FOUND SUB-PAGE�";found;"�Waiting for page ";O;
 1270IFfound=0THENENDPROC
 1280IFfound<>OTHEN1190
 1290ENDPROC
 1300DEFPROCch
 1310PROCempty
 1320PRINTTAB(3,24);"�Enter Channel (1-4)�";
 1330I=GET:IFI<49ORI>52THEN1320
 1340I=I-48
 1350PROCempty:PROCindex
 1360A$="CH "+STR$(I)
 1370$&0C00=A$:X%=0:Y%=&0C:CALL&FFF7
 1380ENDPROC
 1390DEFPROCstring
 1400CLS
 1410*TTXON
 1420*HON
 1430PROCch
 1440M$="":N$=""
 1450INPUTTAB(0,22)"�ENTER 3 digit page number(s)�";A
 1460PRINTTAB(0,23)"�Press <RETURN> when finished."
 1470IFA=0THENENDPROC
 1480PRINTTAB(0,22)STRING$(39," ")
 1490IFA>999ORA<100THEN1450
 1500M$=M$+STR$(A):N$=N$+STR$(A)+","
 1510PRINTTAB(0,10)N$
 1520 GOTO 1450
 1530ENDPROC
 1540DEFPROCautoprint:auto=0
 1550PROCstring:LOCAL A$,A
 1560A$=LEFT$(M$,3):M$=RIGHT$(M$,LEN(M$)-3)
 1570A=VALLEFT$(A$,1):?magazine=A
 1580A=VALMID$(A$,2,1):A=A*16
 1590A=A+VALRIGHT$(A$,1):?page=A
 1600CALLcode
 1610PROCfront(1)
 1620last=?&4B04
 1630*DISPLAY 4B00
 1640PROCprinter
 1650IF?&4B04=0THEN1790
 1660REPEAT
 1670AA$="PAGE "+A$:$&0C00=AA$:X%=0:Y%=&0C:CALL&FFF7  
 1680*TRANSFER 4B00
 1690now=?&4B04:IFnow=lastTHEN1670
 1700IFnow=1THEN1780
 1710*DISPLAY 4B00
 1720PROCprinter
 1730last=now
 1740IF E%=1 THEN 1780
 1750lost=lastDIV16:lost=lost*10
 1760lost=lost+lastMOD16
 1770PROCfront(lost)
 1780UNTILnow=1
 1790IFM$<>""THEN1560
 1800IF E%=1 THEN ENDPROC
 1810IF auto MOD 3<>0 AND D%=23046 THENCALL&58A9
 1820ENDPROC
 1830DEF PROCFILE:CLS
 1840PROCempty
 1850PRINTTAB(0,24)"�Please enter file name.�";:A$="":REPEAT:I=GET
 1860IFI=13THEN1880
 1870A$=A$+CHR$(I):PRINTCHR$(I);
 1880UNTILI=13
 1890IF LEN(A$)>7 THEN A$=LEFT$(A$,7)
 1900ENDPROC
 1910DEF PROCcat:CLS
 1920*CAT
 1930ENDPROC
 1940DEF PROCopenfile
 1950PROCFILE
 1960X=OPENUP(A$)
 1970PTR#X=PTR#X+EXT#X 
 1980ENDPROC
 1990DEF PROCnewfile
 2000PROCFILE
 2010X=OPENOUT(A$)
 2020ENDPROC
 2030DEF PROCaddfile
 2040FOR N%=&7C00 TO N%+&3E7
 2050V%=?N%:BPUT#X,V% 
 2060NEXT
 2070ENDPROC
 2080DEF PROCautofile
 2090CLS:PRINTTAB(0,24)"��ENTER��(N) new file�(A) add to file.";
 2100REPEAT:I=GET:UNTIL I=ASC"N" OR I=ASC"A"OR I=ASC"C"
 2110IF I=ASC"A" THEN PROCopenfile
 2120IF I=ASC"N" THEN PROCnewfile
 2130IF I=ASC"C" THEN PROCcat
 2140auto=0:E%=1:PROCautoprint
 2150E%=0:auto=0:CLOSE#X
 2160ENDPROC
 2170DEFPROCSETPAGE
 2180DUMP1=&5239
 2190DUMP2=&54B3
 2200DUMP3=&58A9
 2210DUMPWIDE=&5572
 2220DUMPA4=&5612
 2230DUMPLARGE=&572E
 2240POSTER=&581A
 2250FIRST=&59E5
 2260FRED=&5A06
 2270PROCONE
 2280REPEAT
 2290I=GET
 2300VDU2,1,7,3
 2310IFI=ASC"1"THEN?&85=1
 2320IFI=ASC"2"THEN?&85=0
 2330IFI=ASC"3"THEN?&80=75
 2340IFI=ASC"4"THEN?&80=76
 2350IFI=ASC"5"THEN?&80=89
 2360IFI=ASC"6"THEN?&80=90
 2370IFI=ASC"7"THEND%=DUMP1
 2380IFI=ASC"8"THEND%=DUMP2
 2390IFI=ASC"9"THEND%=DUMPWIDE
 2400IFI=ASC"A"THEND%=DUMPA4
 2410IFI=ASC"B"THEND%=DUMPLARGE
 2420IFI=ASC"C"THEND%=POSTER
 2430IFI=ASC"D"THENCALLFIRST
 2440IFI=ASC"D"THEND%=FRED
 2450IFI=ASC"E"THENPROCmargin
 2460IFI=ASC"F"THENPROCTWO
 2470UNTILI=32
 2480CLS
 2490IF?&85=1THENPRINT"�TONES ON"
 2500IF?&85=0THENPRINT"�TONES OFF"
 2510PRINT
 2520IF?&80=75THENPRINT"�SINGLE DENSITY GRAPHICS SELECTED"
 2530IF?&80=76THENPRINT"�DOUBLE DENSITY GRAPHICS SELECTED"
 2540IF?&80=89THENPRINT"�HIGH SPEED GRAPHICS SELECTED"
 2550IF?&80=90THENPRINT"�QUADRUPLE DENSITY GRAPHICS SELECTED"
 2560PRINT
 2570IFD%=DUMP1 THENPRINT"�DUMP1 SELECTED"
 2580IFD%=DUMPWIDE THENPRINT"�DUMPWIDE S >3490IFD%=DUMPWIDE THENPRINT"DIVDUMPWIDE SELECTED"
 2590IFD%=DUMP2 THENPRINT"�DUMP2 SELECTED"
 2600IFD%=DUMPA4 THENPRINT"�DUMPA4 SELECTED"
 2610IFD%=DUMPLARGE THENPRINT"�DUMPLARGE SELECTED"
 2620IFD%=POSTER THENPRINT"�POSTER SIZE SELECTED
 2630IFD%=FRED THENPRINT"�THREE SCREENS ACROSS A4 PAPER SELECTED"
 2640PRINT
 2650PRINT"�THE LEFT MARGIN IS SET AT ";M%
 2660I=INKEY(800)
 2670ENDPROC
 2680DEFPROCONE
 2690CLS
 2700PRINT"�� ��꿯��￥����������꿯�"
 2710PRINT"�� 굢�굠��굠��������굢�굠�"
 2720PRINT"�� ���꿯��굠����꿯�����꿯�"
 2730PRINT"�� ��굠��굠����굠�����굠�"
 2740PRINT"�� ��������������������������������"
 2750PRINT"   ��������������������������������"
 2760PRINT"    ���1...set the tones and background"
 2770PRINT"    ���2...switch off the above.(mono)"
 2780PRINT'"    ���3...set single density graphics."
 2790PRINT"    ���4...set double density graphics."
 2800PRINT"    ���5...set high speed graphics."
 2810PRINT"    ���6...set quad density graphics."
 2820PRINT'"    ���7...dump1: 2\ x 2\ ins.(apx.size)";
 2830PRINT"    ���8...dump2: 5\ x 5\ ins.    """
 2840PRINT"    ���9...dumpwide 8 x 2\ ins.   """
 2850PRINT"    ���A...dumpa4: 8 x 11 ins.    """
 2860PRINT"    ���B...dumplarge 8 x 12 ins.  """
 2870PRINT"    ���C...poster: 8 x 22 ins.    """
 2880PRINT"    ���D...three dumps across A4 paper!!";
 2890PRINT"    ���E...set the left margin 0-10."
 2900PRINT'"    ���F...HELP PAGE! HELP PAGE!"
 2910PRINT"           �Please select�then 'SPACE'.";
 2920ENDPROC
 2930DEFPROCmargin
 2940INPUTTAB(6,22);"�ENTER A NUMBFR 0-10 ";M%
 2950PRINTTAB(6,22);"                        "
 2960IFM%>10THEN2940
 2970?&88=M%
 2980ENDPROC
 2990DEFPROCTWO
 3000CLS
 3010PRINT"����������������������������������������";
 3020PRINT"��  �   �PRINTER HELP PAGE"
 3030PRINT"�� �    �PRINTER HELP PAGE"
 3040PRINT"����������������������������������������";
 3050PRINT" �The tones may be switched off to give"
 3060PRINT"� a one tone display. This will give a"
 3070PRINT"� more clear display when using the com-";
 3080PRINT"� pact dumps. It will also give less"
 3090PRINT"� wear to your ribbon, although  the"
 3100PRINT"� wide dumps look nice with it on."
 3110PRINT'"� The dump sizes given are approximate"
 3120PRINT"� in the DOUBLE DENSITY MODE. If you"
 3130PRINT"� select SINGLE DENSITY then the sizes"
 3140PRINT"� will double in width, and when QUAD"
 3150PRINT"� DENSITY is selected the sizes will"
 3160PRINT"� half."
 3170PRINT'"� The THREE DUMP selection will only"
 3180PRINT"� operate after three screens have been"
 3190PRINT"��sent to the buffer. Nine to twelve"
 3200PRINT"� screens may be printed on A4 paper."
 3210PRINT'"            Press   Space!"
 3220J=GET:PROCONE
 3230ENDPROC
 3240DEF PROCview
 3250PROCcat
 3260PRINTTAB(0,24)"�Which file?�";
 3270 B$="":REPEAT:I=GET:IF I=13 THEN 3290
 3280PRINTCHR$(I);:B$=B$+CHR$(I)  
 3290UNTILI=13
 3300T=OPENUP(B$)
 3310REPEAT
 3320B=&7C00:CLS:PRINTTAB(5,15);"IN "B$;"!"
 3330FORN=0TO&3E7
 3340A=BGET#T:?B=A
 3350B=B+1
 3360NEXT
 3370pge=INT(PTR#T/&3E7)
 3380PRINTTAB(36,24);pge;
 3390PRINTTAB(0,24)"��(S)elect page:�(P)rint:�   page";
 3400PROCcheckkey
 3410UNTILEOF#T
 3420CLOSE#T
 3430ENDPROC
 3440DEFPROCgogetter
 3450IFB$="FILE"THENENDPROC
 3460V=INT(EXT#T/&3E7)
 3470CLS
 3480INPUT"Please enter page required. ";U
 3490IFU>V THENPRINT" Number too big."
 3500PRINT"THE FILE HAS ";V;" PAGES."
 3510IFU>V THEN3480 
 3515IFU=0THENU=1
 3520U=(U-1)*&3E8:PTR#T=U
 3530ENDPROC
 3540DEF PROCcheckkey
 3550I=GET
 3560IF I=ASC"S" THEN PROCgogetter
 3570IF I=ASC"P" THEN PROCprinter
 3580IF I=ASC"F" THEN PROCfiler
 3590ENDPROC
 3600DEFPROCthirteen
 3610FORN=&0E07TO&0EFFSTEP8
 3620?N=13
 3630NEXT
 3640ENDPROC
 3650DEFPROCstrings
 3660C=0
 3670FORN=&0E00TO&0EF0STEP8
 3680C=C+1:A$(C)=$N
 3690NEXT
 3700ENDPROC
 3710DEFPROCnumbers
 3720C=0
 3730FORN=&0F00TO&0FF0STEP8
 3740C=C+1
 3750DEFPROCHELPONE
 3760O=N+1:X=?N:Y=?O*256:A(C)=Y+X
 3770NEXT
 3780ENDPROC
 3790DEFPROCcheck
 3800FORN=1TO31
 3810PRINT~A(N);:PRINT" ";A$(N)
 3820NEXT
 3830ENDPROC
 3840DEFPROCseedisc:CLS
 3850*CAT
 3860PROCthirteen
 3870PROCstrings
 3880PROCnumbers
 3890FORN=31TO1STEP-1
 3900IF A(N)=&7C00 THEN PROCMORE
 3910NEXT
 3920ENDPROC
 3930DEF PROCMORE:CLS
 3940AA$="LOAD "+A$(N)+" 7C00":$&0C00=AA$:X%=0:Y%=&0C:CALL&FFF7
 3950Z%=GET:IF Z%=ASC"P" THEN PROCprinter
 3960 ENDPROC
 3970DEFPROCHEADER
 3980CLS
 3990PRINT'"��"
 4000PRINT"���\� ACTIVE TELETEXT FOR ATS ROM"
 4010PRINT"��� � ACTIVE TELETEXT FOR ATS ROM"
 4020PRINT"��"
 4030PRINT"����������������������������������������";
 4040PRINT"���������������ꠥ��������������������";
 4050PRINT"��������������꠵꠵꠷��������������";
 4060PRINT"����������������������������������������";
 4070PRINT"�� �����������  �쬬�  �쬬�"
 4080PRINT"������������������ ������ �����������"
 4090PRINT"����������������窱������������������"
 4100PRINT"���          ����   ����   �����������"
 4110PRINT"���쬬������������������������쬬����";
 4120PRINT"���������� �� �� �� �� � ��������";
 4130PRINT"������������ �� �� �� �� � �����������";
 4140PRINT"����������������������������������������";
 4150PRINT"��"
 4160PRINT"����Automatic full dumps + files."
 4170PRINT"����Automatic full dumps + files."
 4180PRINT"�� �"
 4190PRINT'"��              By J.W.Walsh 1987"
 4200PRINT"��              By J.W.Walsh 1987"
 4210PRINT"� �PRESS <SPACE> FOR PROMPTS.";
 4220 I=GET
 4230ENDPROC
 4240DEFPROCOPEN
 4250CLS
 4260PRINT'"���������������������������������������"
 4270PRINT"������������������������          �����"
 4280PRINT"�����������������TELETEXT PRINTER�  ���"
 4290PRINT"����������������                    ���"
 4300PRINT"�����������������   + FILER     ��  ���"
 4310PRINT"����������������          � MENU��  ���"
 4320PRINT"��������������� �               ��  ���"
 4330PRINT"���������������������������������������"
 4340PRINT"������������    ���"
 4350PRINT"       �MANUAL TELETEXT......1"
 4360PRINT"�����       ����"
 4370PRINT"      � AUTOPRINT T.TEX......2"
 4380PRINT'"       �AUTOFILE  T.TEX......3"
 4390PRINT'"��������VIEW A T.TEX FILE....4"
 4400PRINT"�"
 4410PRINT"       �SCAN DISC FOR T.TEX..5"
 4420PRINT"���"
 4430PRINT"����������������������������������������";
 4440PRINT"���    PLEASE SELECT��<H> for HELP!�����";
 4450PRINT"���    PLEASE SELECT��<H> for HELP!�����";
 4460PRINT"����������������������������������������";
 4470PRINT"";
 4480ENDPROC
 4490DEF PROCMENU
 4500CLOSE#X:CLOSE#T
 4510REPEAT:PROCOPEN
 4520PRINTTAB(0,24)"�Error code = ";ERR;
 4530PROCerror
 4540*TTXOFF
 4550men=GET
 4560IF men=ASC"1" THEN PROCTELETEXT
 4570IF men=ASC"2" THEN PROCautoprint
 4580IF men=ASC"3" THEN PROCautofile
 4590IF men=ASC"4" THEN PROCview
 4600IF men=ASC"5" THEN PROCseedisc
 4610IF men=ASC"H" THEN PROCHLP
 4620IF men=ASC"P" THEN PROCSETPAGE
 4630IF men=ASC"C" THEN PROCcat
 4640UNTIL0
 4650ENDPROC
 4660DEFPROCHLP
 4670CLS
 4680PRINT'"����������������������������������������";
 4690PRINT"���TELETEXT:�used to grab single pages��";
 4700PRINT"��         �of tex. You may print them��";
 4710PRINT"��         �or store them on a disc.  ��";
 4720PRINT"���AUTOPRINT:                         ��";
 4730PRINT"��          �Will grab all selected   ��";
 4740PRINT"��         �pages along with their sub��";
 4750PRINT"��         �pages and then print them ��";
 4760PRINT"��         �out in order.             ��";
 4770PRINT"���AUTOFILE:                          ��";
 4780PRINT"��         �As above but stores them  ��";
 4790PRINT"��         �in a ordered file.        ��";
 4800PRINT"���VIEWFILE:                          ��";
 4810PRINT"��         �Used to view any file     ��";
 4820PRINT"��         �which you have created.   ��";
 4830PRINT"���SCAN:                              ��";
 4840PRINT"��         �Will display any t.tex    ��";
 4850PRINT"��         �pages on a disc.          ��";
 4860PRINT"����NOTE�The printer may be set to    ��";
 4870PRINT"�� �many types and sizes by pressing P��";
 4880PRINT"�� �while in MENU.The default setting ��";
 4890PRINT"��� is three screens across one page. ��";
 4900PRINT"����������������������������������������";
 4910PRINT" ";:LP=GET
 4920ENDPROC
 4930DEF PROCerror
 4940ENDPROC
 4950DEF PROCcheckstatus
 4960CALL status
 4970IF ?&4F01=0 THEN ENDPROC
 4980CLS
 4990IF ?&4F01=1 THEN PRINT"NO T.V. SIGNAL."
 5000IF ?&4F01=2 THEN PRINT"T TEX UNIT NOT SWITCHED ON."
 5010IF ?&4F01=255 THEN PRINT"NO ADAPTOR CONNECTED."
 5020PRINT
 5030PRINT"Please correct, then re-load program andstart again."
 5040PRINT
 5050STOP
 5060ENDPROC


�HEADER
"�A(31):�A$(31):�=&4B00:T=0:X=0
*LOAD DUMP7
(
� � �MENU
2�MC:�checkstatus:�MENU
<�
F��MC
P
last=9999
Z�N=0�2�2
dP%=&4F20
n	[OPTN
x	.code
�LDA#7:STA&4F00
�LDA#24:STA&4F01
�JSR OSWORD
�LDA#3:STA&4F00
�LDA#0:STA&4F01
�LDA#0:STA&4F02
�JSR OSWORD
�LDA#5:STA&4F00
�LDA#0:STA&4F01
�LDA&4F09:STA&4F02
�LDA&4F0A:STA&4F03
�LDA#&3F:STA&4F04
�LDA#&7F:STA&4F05
LDA#&00:STA&4F06
LDA#&4B:STA&4F07
JSR OSWORD
"RTS
,.OSWORD
6LDX#0:LDY#&4F:LDA#&7A
@JSR&FFF1:RTS
J	.wait
TLDA#2:STA&4F0B
^LDA#0:STA&4F0C
hLDX#&0B:LDY#&4F:LDA#&7A
rJSR&FFF1:RTS
|.status:LDA#17:STA&4F00
�JSR OSWORD:RTS
�]:�
�flag=&4F0D
�magazine=&4F09
�page=&4F0A
�?&4F09=1:?&4F0A=0
�?&4F0D=0
�)�&59E5:?&85=0:D%=&5A06:?&80=76:auto=0
�?&88=0:E%=0
��
���empty:�0,24)�38," ");:�
���TELETEXT
�
*TTXON
�
*HON
�ch
&�
00�0,24)"�(P)RINT�(F)ILE�(U)PDATE� page�###";
:I=�
D�I=�"P"��printer
N�I=�"F"��filer
X�I>47�I<58��page
b �I=�"U"��26,24)"�updating";
l�I=�"U"��grabber
v�I=�"C"��ch
��I=�" "
��
�
��page
��31,24)�(I);
�I=I-48:?magazine=I
�I=�
��I<48�I>57��trB
��32,24)�(I);
�I=I-48:temp=I*16
�I=�
��I<48�I>57��dZB
��33,24)�(I);
�I=I-48:temp=temp+I
?page=temp:�grabber
�

��grabber
 	�code
*�display
4�
>
��display
H�26,24)"�Searching!!";
R!�:�wait:J=�(1):�?flag=2�J<>-1
\*DISPLAY 4B00
fA=?magazine+48:�0,0)�A;
pB=?page�16:B=B+48:�1,0)�B;
zB=?page�16:B=B+48:�2,0)�B;
��
�
��printer
�auto=auto+1
�*TTXOFF
� � E%=1 � �addfile 
� � E%=1 � �
�
�empty
�� D%
�
*TTXON
��
���index
�?magazine=1
��I=2�?magazine=2
�
��filer
*TTXOFF
$
�empty
.%�2,24)"�Enter TTEX page name�"; 
8(I$="":�:L=�:�(L);:�L<>13�I$=I$+�(L)
B	�L=13
L�(I$)>7�I$=�I$,7)
V
�empty
`A$="SAVE "+I$+" 7C00 +3C0"
j $&0C00=A$:X%=0:Y%=&0C:�&FFF7
t
*TTXON
~�
���front(O)
�
�empty
�'�0,24)"Waiting for ordered page.";
�	�code
�!�:�wait:J=�(1):�?flag=2�J<>-1
�
�empty
��J<>-1��
�found=?&4B04�16
�found=found*10
�found=found+?&4B04�16
�;�0,24)"�FOUND SUB-PAGE�";found;"�Waiting for page ";O;
��found=0��
�found<>O��tfD

�
��ch

�empty
($�3,24);"�Enter Channel (1-4)�";
2I=�:�I<49�I>52��ThE
<
I=I-48
F�empty:�index
PA$="CH "+�(I)
Z $&0C00=A$:X%=0:Y%=&0C:�&FFF7
d�
n��string
x�
�
*TTXON
�*HON
��ch
�M$="":N$=""
�-�0,22)"�ENTER 3 digit page number(s)�";A
�+�0,23)"�Press <RETURN> when finished."
�
�A=0��
��0,22)�39," ")
��A>999�A<100��tjE
�M$=M$+�(A):N$=N$+�(A)+","
�
�0,10)N$
� � �tjE
��
��autoprint:auto=0
�string:� A$,A
A$=�M$,3):M$=�M$,�(M$)-3)
"A=��A$,1):?magazine=A
,A=��A$,2,1):A=A*16
6A=A+��A$,1):?page=A
@	�code
J
�front(1)
Tlast=?&4B04
^*DISPLAY 4B00
h�printer
r�?&4B04=0��d~F
|�
�2AA$="PAGE "+A$:$&0C00=AA$:X%=0:Y%=&0C:�&FFF7  
�*TRANSFER 4B00
�now=?&4B04:�now=last��tFF
��now=1��dtF
�*DISPLAY 4B00
��printer
�last=now
�� E%=1 � �dtF
�lost=last�16:lost=lost*10
�lost=lost+last�16
��front(lost)
�
�now=1
��M$<>""��TXF
� E%=1 � �
$� auto � 3<>0 � D%=23046 ��&58A9
�
&
� �FILE:�
0
�empty
:3�0,24)"�Please enter file name.�";:A$="":�:I=�
D�I=13��DXG
NA$=A$+�(I):�(I);
X	�I=13
b� �(A$)>7 � A$=�A$,7)
l�
v� �cat:�
�*CAT
��
�� �openfile
�	�FILE
�X=�(A$)
��#X=�#X+�#X 
��
�� �newfile
�	�FILE
�X=�(A$)
��
�� �addfile
�� N%=&7C00 � N%+&3E7
V%=?N%:�#X,V% 
�
�
 � �autofile
*6�:�0,24)"��ENTER��(N) new file�(A) add to file.";
4#�:I=�:� I=�"N" � I=�"A"� I=�"C"
>� I=�"A" � �openfile
H� I=�"N" � �newfile
R� I=�"C" � �cat
\auto=0:E%=1:�autoprint
fE%=0:auto=0:�#X
p�
z
��SETPAGE
�DUMP1=&5239
�DUMP2=&54B3
�DUMP3=&58A9
�DUMPWIDE=&5572
�DUMPA4=&5612
�DUMPLARGE=&572E
�POSTER=&581A
�FIRST=&59E5
�FRED=&5A06
��ONE
��
�I=�
��2,1,7,3
	�I=�"1"�?&85=1
	�I=�"2"�?&85=0
	�I=�"3"�?&80=75
	$�I=�"4"�?&80=76
	.�I=�"5"�?&80=89
	8�I=�"6"�?&80=90
	B�I=�"7"�D%=DUMP1
	L�I=�"8"�D%=DUMP2
	V�I=�"9"�D%=DUMPWIDE
	`�I=�"A"�D%=DUMPA4
	j�I=�"B"�D%=DUMPLARGE
	t�I=�"C"�D%=POSTER
	~�I=�"D"��FIRST
	��I=�"D"�D%=FRED
	��I=�"E"��margin
	��I=�"F"��TWO
	�	�I=32
	��
	��?&85=1��"�TONES ON"
	��?&85=0��"�TONES OFF"
	��
	�1�?&80=75��"�SINGLE DENSITY GRAPHICS SELECTED"
	�1�?&80=76��"�DOUBLE DENSITY GRAPHICS SELECTED"
	�-�?&80=89��"�HIGH SPEED GRAPHICS SELECTED"
	�4�?&80=90��"�QUADRUPLE DENSITY GRAPHICS SELECTED"
�

!�D%=DUMP1 ��"�DUMP1 SELECTED"
P�D%=DUMPWIDE ��"�DUMPWIDE S >3490IFD%=DUMPWIDE THENPRINT"�DUMPWIDE SELECTED"
!�D%=DUMP2 ��"�DUMP2 SELECTED"
(#�D%=DUMPA4 ��"�DUMPA4 SELECTED"
2)�D%=DUMPLARGE ��"�DUMPLARGE SELECTED"
<'�D%=POSTER ��"�POSTER SIZE SELECTED
F8�D%=FRED ��"�THREE SCREENS ACROSS A4 PAPER SELECTED"
P�
Z%�"�THE LEFT MARGIN IS SET AT ";M%
dI=�(800)
n�
x	��ONE
��
�*�"�� ��꿯��￥����������꿯�"
�*�"�� 굢�굠��굠��������굢�굠�"
�*�"�� ���꿯��굠����꿯�����꿯�"
�*�"�� ��굠��굠����굠�����굠�"
�*�"�� ��������������������������������"
�*�"   ��������������������������������"
�.�"    ���1...set the tones and background"
�-�"    ���2...switch off the above.(mono)"
�/�'"    ���3...set single density graphics."
�.�"    ���4...set double density graphics."
�*�"    ���5...set high speed graphics."
�,�"    ���6...set quad density graphics."
1�'"    ���7...dump1: 2\ x 2\ ins.(apx.size)";
+�"    ���8...dump2: 5\ x 5\ ins.    """
+�"    ���9...dumpwide 8 x 2\ ins.   """
"+�"    ���A...dumpa4: 8 x 11 ins.    """
,+�"    ���B...dumplarge 8 x 12 ins.  """
6+�"    ���C...poster: 8 x 22 ins.    """
@0�"    ���D...three dumps across A4 paper!!";
J+�"    ���E...set the left margin 0-10."
T(�'"    ���F...HELP PAGE! HELP PAGE!"
^/�"           �Please select�then 'SPACE'.";
h�
r��margin
|&�6,22);"�ENTER A NUMBFR 0-10 ";M%
�&�6,22);"                        "
��M%>10��D|K
�?&88=M%
��
�	��TWO
��
�0�"����������������������������������������";
�!�"��  �   �PRINTER HELP PAGE"
�!�"�� �    �PRINTER HELP PAGE"
�0�"����������������������������������������";
�.�" �The tones may be switched off to give"
�-�"� a one tone display. This will give a"
�0�"� more clear display when using the com-";
+�"� pact dumps. It will also give less"
+�"� wear to your ribbon, although  the"
)�"� wide dumps look nice with it on."
&.�'"� The dump sizes given are approximate"
0+�"� in the DOUBLE DENSITY MODE. If you"
:-�"� select SINGLE DENSITY then the sizes"
D,�"� will double in width, and when QUAD"
N+�"� DENSITY is selected the sizes will"
X�"� half."
b,�'"� The THREE DUMP selection will only"
l.�"� operate after three screens have been"
v+�"��sent to the buffer. Nine to twelve"
�,�"� screens may be printed on A4 paper."
�"�'"            Press   Space!"
�J=�:�ONE
��
�� �view
��cat
��0,24)"�Which file?�";
� B$="":�:I=�:� I=13 � �dZL
��(I);:B$=B$+�(I)  
�	�I=13
�T=�(B$)
��
�!B=&7C00:�:�5,15);"IN "B$;"!"


�N=0�&3E7

A=�#T:?B=A

	B=B+1

 �

*pge=�(�#T/&3E7)

4�36,24);pge;

>/�0,24)"��(S)elect page:�(P)rint:�   page";

H
�checkkey

R��#T

\�#T

f�

p��gogetter

z�B$="FILE"��

�V=�(�#T/&3E7)

��

�%�"Please enter page required. ";U

��U>V ��" Number too big."

� �"THE FILE HAS ";V;" PAGES."

��U>V ��tXM 

��U=0�U=1

�U=(U-1)*&3E8:�#T=U

��

�� �checkkey

�I=�

�� I=�"S" � �gogetter

�� I=�"P" � �printer

�� I=�"F" � �filer
�
��thirteen
�N=&0E07�&0EFF�8
$	?N=13
.�
8�
B
��strings
LC=0
V�N=&0E00�&0EF0�8
`C=C+1:A$(C)=$N
j�
t�
~
��numbers
�C=0
��N=&0F00�&0FF0�8
�	C=C+1
�
��HELPONE
� O=N+1:X=?N:Y=?O*256:A(C)=Y+X
��
��
���check
��N=1�31
��~A(N);:�" ";A$(N)
��
��
��seedisc:�

*CAT

�thirteen
�strings
(�numbers
2�N=31�1�-1
<� A(N)=&7C00 � �MORE
F�
P�
Z
� �MORE:�
d;AA$="LOAD "+A$(N)+" 7C00":$&0C00=AA$:X%=0:Y%=&0C:�&FFF7
nZ%=�:� Z%=�"P" � �printer
x �
���HEADER
��
�
�'"��"
�(�"���\� ACTIVE TELETEXT FOR ATS ROM"
�(�"��� � ACTIVE TELETEXT FOR ATS ROM"
�	�"��"
�0�"��������������������������������������";
�0�"�������������ꠥ����������������";
�0�"������������꠵꠵꠷�����������";
�0�"����������������������������������������";
�#�"�� �����������  �쬬�  �쬬�"
�-�"��������������� ����� ����������"
�-�"����������������窱���������������"
-�"���          ����   ����   �����������"
0�"���쬬���������������������쬬���";
0�"�������� �� �� �� �� � ������";
"0�"���������� �� �� �� �� � ���������";
,0�"����������������������������������������";
6	�"��"
@(�"����Automatic full dumps + files."
J(�"����Automatic full dumps + files."
T�"�� �"
^)�'"��              By J.W.Walsh 1987"
h(�"��              By J.W.Walsh 1987"
r%�"� �PRESS <SPACE> FOR PROMPTS.";
| I=�
��
�
��OPEN
��
�/�'"�������������������������������������"
�.�"������������������������          �����"
�.�"�����������������TELETEXT PRINTER�  ���"
�.�"������������                    ���"
�.�"�������������   + FILER     ��  ���"
�.�"����������������          � MENU��  ���"
�.�"��������������� �               ��  ���"
�.�"���������������������������������������"
��"������������    ���"
�%�"       �MANUAL TELETEXT......1"
�"�����       ����"
%�"      � AUTOPRINT T.TEX......2"
&�'"       �AUTOFILE  T.TEX......3"
&&�'"��������VIEW A T.TEX FILE....4"
0�"�"
:%�"       �SCAN DISC FOR T.TEX..5"
D
�"���"
N0�"����������������������������������������";
X0�"���    PLEASE SELECT��<H> for HELP!�����";
b0�"���    PLEASE SELECT��<H> for HELP!�����";
l0�"����������������������������������������";
v�"";
��
�� �MENU
��#X:�#T
��:�OPEN
��0,24)"�Error code = ";�;
�
�error
�*TTXOFF
�	men=�
�� men=�"1" � �TELETEXT
�� men=�"2" � �autoprint
�� men=�"3" � �autofile
�� men=�"4" � �view
�� men=�"5" � �seedisc
� men=�"H" � �HLP
� men=�"P" � �SETPAGE
� men=�"C" � �cat
 �0
*�
4	��HLP
>�
H1�'"����������������������������������������";
R0�"���TELETEXT:�used to grab single pages��";
\0�"��         �of tex. You may print them��";
f0�"��         �or store them on a disc.  ��";
p0�"���AUTOPRINT:                         ��";
z0�"��          �Will grab all selected   ��";
�0�"��         �pages along with their sub��";
�0�"��         �pages and then print them ��";
�0�"��         �out in order.             ��";
�0�"���AUTOFILE:                          ��";
�0�"��         �As above but stores them  ��";
�0�"��         �in a ordered file.        ��";
�0�"���VIEWFILE:                          ��";
�0�"��         �Used to view any file     ��";
�0�"��         �which you have created.   ��";
�0�"���SCAN:                              ��";
�0�"��         �Will display any t.tex    ��";
�0�"��         �pages on a disc.          ��";
�0�"����NOTE�The printer may be set to    ��";
0�"�� �many types and sizes by pressing P��";
0�"�� �while in MENU.The default setting ��";
0�"��� is three screens across one page. ��";
$0�"����������������������������������������";
.�" ";:LP=�
8�
B� �error
L�
V� �checkstatus
`� status
j� ?&4F01=0 � �
t�
~#� ?&4F01=1 � �"NO T.V. SIGNAL."
�/� ?&4F01=2 � �"T TEX UNIT NOT SWITCHED ON."
�+� ?&4F01=255 � �"NO ADAPTOR CONNECTED."
��
�;�"Please correct, then re-load program andstart again."
��
��
��
�

00000000  0d 00 0a 0b f2 48 45 41  44 45 52 0d 00 14 22 de  |.....HEADER...".|
00000010  41 28 33 31 29 3a de 41  24 28 33 31 29 3a d3 3d  |A(31):.A$(31):.=|
00000020  26 34 42 30 30 3a 54 3d  30 3a 58 3d 30 0d 00 1e  |&4B00:T=0:X=0...|
00000030  0f 2a 4c 4f 41 44 20 44  55 4d 50 37 0d 00 28 0d  |.*LOAD DUMP7..(.|
00000040  ee 20 85 20 f2 4d 45 4e  55 0d 00 32 1a f2 4d 43  |. . .MENU..2..MC|
00000050  3a f2 63 68 65 63 6b 73  74 61 74 75 73 3a f2 4d  |:.checkstatus:.M|
00000060  45 4e 55 0d 00 3c 05 e0  0d 00 46 08 dd f2 4d 43  |ENU..<....F...MC|
00000070  0d 00 50 0d 6c 61 73 74  3d 39 39 39 39 0d 00 5a  |..P.last=9999..Z|
00000080  0c e3 4e 3d 30 b8 32 88  32 0d 00 64 0c 50 25 3d  |..N=0.2.2..d.P%=|
00000090  26 34 46 32 30 0d 00 6e  09 5b 4f 50 54 4e 0d 00  |&4F20..n.[OPTN..|
000000a0  78 09 2e 63 6f 64 65 0d  00 82 12 4c 44 41 23 37  |x..code....LDA#7|
000000b0  3a 53 54 41 26 34 46 30  30 0d 00 8c 13 4c 44 41  |:STA&4F00....LDA|
000000c0  23 32 34 3a 53 54 41 26  34 46 30 31 0d 00 96 0e  |#24:STA&4F01....|
000000d0  4a 53 52 20 4f 53 57 4f  52 44 0d 00 a0 12 4c 44  |JSR OSWORD....LD|
000000e0  41 23 33 3a 53 54 41 26  34 46 30 30 0d 00 aa 12  |A#3:STA&4F00....|
000000f0  4c 44 41 23 30 3a 53 54  41 26 34 46 30 31 0d 00  |LDA#0:STA&4F01..|
00000100  b4 12 4c 44 41 23 30 3a  53 54 41 26 34 46 30 32  |..LDA#0:STA&4F02|
00000110  0d 00 be 0e 4a 53 52 20  4f 53 57 4f 52 44 0d 00  |....JSR OSWORD..|
00000120  c8 12 4c 44 41 23 35 3a  53 54 41 26 34 46 30 30  |..LDA#5:STA&4F00|
00000130  0d 00 d2 12 4c 44 41 23  30 3a 53 54 41 26 34 46  |....LDA#0:STA&4F|
00000140  30 31 0d 00 dc 15 4c 44  41 26 34 46 30 39 3a 53  |01....LDA&4F09:S|
00000150  54 41 26 34 46 30 32 0d  00 e6 15 4c 44 41 26 34  |TA&4F02....LDA&4|
00000160  46 30 41 3a 53 54 41 26  34 46 30 33 0d 00 f0 14  |F0A:STA&4F03....|
00000170  4c 44 41 23 26 33 46 3a  53 54 41 26 34 46 30 34  |LDA#&3F:STA&4F04|
00000180  0d 00 fa 14 4c 44 41 23  26 37 46 3a 53 54 41 26  |....LDA#&7F:STA&|
00000190  34 46 30 35 0d 01 04 14  4c 44 41 23 26 30 30 3a  |4F05....LDA#&00:|
000001a0  53 54 41 26 34 46 30 36  0d 01 0e 14 4c 44 41 23  |STA&4F06....LDA#|
000001b0  26 34 42 3a 53 54 41 26  34 46 30 37 0d 01 18 0e  |&4B:STA&4F07....|
000001c0  4a 53 52 20 4f 53 57 4f  52 44 0d 01 22 07 52 54  |JSR OSWORD..".RT|
000001d0  53 0d 01 2c 0b 2e 4f 53  57 4f 52 44 0d 01 36 19  |S..,..OSWORD..6.|
000001e0  4c 44 58 23 30 3a 4c 44  59 23 26 34 46 3a 4c 44  |LDX#0:LDY#&4F:LD|
000001f0  41 23 26 37 41 0d 01 40  10 4a 53 52 26 46 46 46  |A#&7A..@.JSR&FFF|
00000200  31 3a 52 54 53 0d 01 4a  09 2e 77 61 69 74 0d 01  |1:RTS..J..wait..|
00000210  54 12 4c 44 41 23 32 3a  53 54 41 26 34 46 30 42  |T.LDA#2:STA&4F0B|
00000220  0d 01 5e 12 4c 44 41 23  30 3a 53 54 41 26 34 46  |..^.LDA#0:STA&4F|
00000230  30 43 0d 01 68 1b 4c 44  58 23 26 30 42 3a 4c 44  |0C..h.LDX#&0B:LD|
00000240  59 23 26 34 46 3a 4c 44  41 23 26 37 41 0d 01 72  |Y#&4F:LDA#&7A..r|
00000250  10 4a 53 52 26 46 46 46  31 3a 52 54 53 0d 01 7c  |.JSR&FFF1:RTS..||
00000260  1b 2e 73 74 61 74 75 73  3a 4c 44 41 23 31 37 3a  |..status:LDA#17:|
00000270  53 54 41 26 34 46 30 30  0d 01 86 12 4a 53 52 20  |STA&4F00....JSR |
00000280  4f 53 57 4f 52 44 3a 52  54 53 0d 01 90 07 5d 3a  |OSWORD:RTS....]:|
00000290  ed 0d 01 9a 0e 66 6c 61  67 3d 26 34 46 30 44 0d  |.....flag=&4F0D.|
000002a0  01 a4 12 6d 61 67 61 7a  69 6e 65 3d 26 34 46 30  |...magazine=&4F0|
000002b0  39 0d 01 ae 0e 70 61 67  65 3d 26 34 46 30 41 0d  |9....page=&4F0A.|
000002c0  01 b8 15 3f 26 34 46 30  39 3d 31 3a 3f 26 34 46  |...?&4F09=1:?&4F|
000002d0  30 41 3d 30 0d 01 c2 0c  3f 26 34 46 30 44 3d 30  |0A=0....?&4F0D=0|
000002e0  0d 01 cc 29 d6 26 35 39  45 35 3a 3f 26 38 35 3d  |...).&59E5:?&85=|
000002f0  30 3a 44 25 3d 26 35 41  30 36 3a 3f 26 38 30 3d  |0:D%=&5A06:?&80=|
00000300  37 36 3a 61 75 74 6f 3d  30 0d 01 d6 0f 3f 26 38  |76:auto=0....?&8|
00000310  38 3d 30 3a 45 25 3d 30  0d 01 e0 05 e1 0d 01 ea  |8=0:E%=0........|
00000320  1e dd f2 65 6d 70 74 79  3a f1 8a 30 2c 32 34 29  |...empty:..0,24)|
00000330  c4 33 38 2c 22 20 22 29  3b 3a e1 0d 01 f4 0e dd  |.38," ");:......|
00000340  f2 54 45 4c 45 54 45 58  54 0d 01 fe 0a 2a 54 54  |.TELETEXT....*TT|
00000350  58 4f 4e 0d 02 08 05 db  0d 02 12 08 2a 48 4f 4e  |XON.........*HON|
00000360  0d 02 1c 07 f2 63 68 0d  02 26 05 f5 0d 02 30 30  |.....ch..&....00|
00000370  f1 8a 30 2c 32 34 29 22  81 28 50 29 52 49 4e 54  |..0,24)".(P)RINT|
00000380  82 28 46 29 49 4c 45 84  28 55 29 50 44 41 54 45  |.(F)ILE.(U)PDATE|
00000390  85 20 70 61 67 65 86 23  23 23 22 3b 0d 02 3a 07  |. page.###";..:.|
000003a0  49 3d a5 0d 02 44 14 e7  49 3d 97 22 50 22 8c f2  |I=...D..I=."P"..|
000003b0  70 72 69 6e 74 65 72 0d  02 4e 12 e7 49 3d 97 22  |printer..N..I=."|
000003c0  46 22 8c f2 66 69 6c 65  72 0d 02 58 14 e7 49 3e  |F"..filer..X..I>|
000003d0  34 37 80 49 3c 35 38 8c  f2 70 61 67 65 0d 02 62  |47.I<58..page..b|
000003e0  20 e7 49 3d 97 22 55 22  8c f1 8a 32 36 2c 32 34  | .I=."U"...26,24|
000003f0  29 22 86 75 70 64 61 74  69 6e 67 22 3b 0d 02 6c  |)".updating";..l|
00000400  14 e7 49 3d 97 22 55 22  8c f2 67 72 61 62 62 65  |..I=."U"..grabbe|
00000410  72 0d 02 76 0f e7 49 3d  97 22 43 22 8c f2 63 68  |r..v..I=."C"..ch|
00000420  0d 02 80 0b fd 49 3d 97  22 20 22 0d 02 8a 05 e1  |.....I=." ".....|
00000430  0d 02 94 0a dd f2 70 61  67 65 0d 02 9e 11 f1 8a  |......page......|
00000440  33 31 2c 32 34 29 bd 28  49 29 3b 0d 02 a8 16 49  |31,24).(I);....I|
00000450  3d 49 2d 34 38 3a 3f 6d  61 67 61 7a 69 6e 65 3d  |=I-48:?magazine=|
00000460  49 0d 02 b2 07 49 3d a5  0d 02 bc 13 e7 49 3c 34  |I....I=......I<4|
00000470  38 84 49 3e 35 37 8c 8d  74 72 42 0d 02 c6 11 f1  |8.I>57..trB.....|
00000480  8a 33 32 2c 32 34 29 bd  28 49 29 3b 0d 02 d0 14  |.32,24).(I);....|
00000490  49 3d 49 2d 34 38 3a 74  65 6d 70 3d 49 2a 31 36  |I=I-48:temp=I*16|
000004a0  0d 02 da 07 49 3d a5 0d  02 e4 13 e7 49 3c 34 38  |....I=......I<48|
000004b0  84 49 3e 35 37 8c 8d 64  5a 42 0d 02 ee 11 f1 8a  |.I>57..dZB......|
000004c0  33 33 2c 32 34 29 bd 28  49 29 3b 0d 02 f8 16 49  |33,24).(I);....I|
000004d0  3d 49 2d 34 38 3a 74 65  6d 70 3d 74 65 6d 70 2b  |=I-48:temp=temp+|
000004e0  49 0d 03 02 17 3f 70 61  67 65 3d 74 65 6d 70 3a  |I....?page=temp:|
000004f0  f2 67 72 61 62 62 65 72  0d 03 0c 05 e1 0d 03 16  |.grabber........|
00000500  0d dd f2 67 72 61 62 62  65 72 0d 03 20 09 d6 63  |...grabber.. ..c|
00000510  6f 64 65 0d 03 2a 0c f2  64 69 73 70 6c 61 79 0d  |ode..*..display.|
00000520  03 34 05 e1 0d 03 3e 0d  dd f2 64 69 73 70 6c 61  |.4....>...displa|
00000530  79 0d 03 48 1b f1 8a 32  36 2c 32 34 29 22 82 53  |y..H...26,24)".S|
00000540  65 61 72 63 68 69 6e 67  21 21 22 3b 0d 03 52 21  |earching!!";..R!|
00000550  f5 3a d6 77 61 69 74 3a  4a 3d a6 28 31 29 3a fd  |.:.wait:J=.(1):.|
00000560  3f 66 6c 61 67 3d 32 84  4a 3c 3e 2d 31 0d 03 5c  |?flag=2.J<>-1..\|
00000570  11 2a 44 49 53 50 4c 41  59 20 34 42 30 30 0d 03  |.*DISPLAY 4B00..|
00000580  66 1c 41 3d 3f 6d 61 67  61 7a 69 6e 65 2b 34 38  |f.A=?magazine+48|
00000590  3a f1 8a 30 2c 30 29 bd  41 3b 0d 03 70 1f 42 3d  |:..0,0).A;..p.B=|
000005a0  3f 70 61 67 65 81 31 36  3a 42 3d 42 2b 34 38 3a  |?page.16:B=B+48:|
000005b0  f1 8a 31 2c 30 29 bd 42  3b 0d 03 7a 1f 42 3d 3f  |..1,0).B;..z.B=?|
000005c0  70 61 67 65 83 31 36 3a  42 3d 42 2b 34 38 3a f1  |page.16:B=B+48:.|
000005d0  8a 32 2c 30 29 bd 42 3b  0d 03 84 05 e1 0d 03 8e  |.2,0).B;........|
000005e0  0d dd f2 70 72 69 6e 74  65 72 0d 03 98 0f 61 75  |...printer....au|
000005f0  74 6f 3d 61 75 74 6f 2b  31 0d 03 a2 0b 2a 54 54  |to=auto+1....*TT|
00000600  58 4f 46 46 0d 03 ac 17  20 e7 20 45 25 3d 31 20  |XOFF.... . E%=1 |
00000610  8c 20 f2 61 64 64 66 69  6c 65 20 0d 03 b6 0f 20  |. .addfile .... |
00000620  e7 20 45 25 3d 31 20 8c  20 e1 0d 03 c0 0a f2 65  |. E%=1 . ......e|
00000630  6d 70 74 79 0d 03 ca 08  d6 20 44 25 0d 03 d4 0a  |mpty..... D%....|
00000640  2a 54 54 58 4f 4e 0d 03  de 05 e1 0d 03 e8 0b dd  |*TTXON..........|
00000650  f2 69 6e 64 65 78 0d 03  f2 0f 3f 6d 61 67 61 7a  |.index....?magaz|
00000660  69 6e 65 3d 31 0d 03 fc  14 e7 49 3d 32 8c 3f 6d  |ine=1.....I=2.?m|
00000670  61 67 61 7a 69 6e 65 3d  32 0d 04 06 05 e1 0d 04  |agazine=2.......|
00000680  10 0b dd f2 66 69 6c 65  72 0d 04 1a 0b 2a 54 54  |....filer....*TT|
00000690  58 4f 46 46 0d 04 24 0a  f2 65 6d 70 74 79 0d 04  |XOFF..$..empty..|
000006a0  2e 25 f1 8a 32 2c 32 34  29 22 84 45 6e 74 65 72  |.%..2,24)".Enter|
000006b0  20 54 54 45 58 20 70 61  67 65 20 6e 61 6d 65 85  | TTEX page name.|
000006c0  22 3b 20 0d 04 38 28 49  24 3d 22 22 3a f5 3a 4c  |"; ..8(I$="":.:L|
000006d0  3d a5 3a f1 bd 28 4c 29  3b 3a e7 4c 3c 3e 31 33  |=.:..(L);:.L<>13|
000006e0  8c 49 24 3d 49 24 2b bd  28 4c 29 0d 04 42 09 fd  |.I$=I$+.(L)..B..|
000006f0  4c 3d 31 33 0d 04 4c 16  e7 a9 28 49 24 29 3e 37  |L=13..L...(I$)>7|
00000700  8c 49 24 3d c0 49 24 2c  37 29 0d 04 56 0a f2 65  |.I$=.I$,7)..V..e|
00000710  6d 70 74 79 0d 04 60 1e  41 24 3d 22 53 41 56 45  |mpty..`.A$="SAVE|
00000720  20 22 2b 49 24 2b 22 20  37 43 30 30 20 2b 33 43  | "+I$+" 7C00 +3C|
00000730  30 22 0d 04 6a 20 24 26  30 43 30 30 3d 41 24 3a  |0"..j $&0C00=A$:|
00000740  58 25 3d 30 3a 59 25 3d  26 30 43 3a d6 26 46 46  |X%=0:Y%=&0C:.&FF|
00000750  46 37 0d 04 74 0a 2a 54  54 58 4f 4e 0d 04 7e 05  |F7..t.*TTXON..~.|
00000760  e1 0d 04 88 0e dd f2 66  72 6f 6e 74 28 4f 29 0d  |.......front(O).|
00000770  04 92 0a f2 65 6d 70 74  79 0d 04 9c 27 f1 8a 30  |....empty...'..0|
00000780  2c 32 34 29 22 57 61 69  74 69 6e 67 20 66 6f 72  |,24)"Waiting for|
00000790  20 6f 72 64 65 72 65 64  20 70 61 67 65 2e 22 3b  | ordered page.";|
000007a0  0d 04 a6 09 d6 63 6f 64  65 0d 04 b0 21 f5 3a d6  |.....code...!.:.|
000007b0  77 61 69 74 3a 4a 3d a6  28 31 29 3a fd 3f 66 6c  |wait:J=.(1):.?fl|
000007c0  61 67 3d 32 84 4a 3c 3e  2d 31 0d 04 ba 0a f2 65  |ag=2.J<>-1.....e|
000007d0  6d 70 74 79 0d 04 c4 0c  e7 4a 3c 3e 2d 31 8c e1  |mpty.....J<>-1..|
000007e0  0d 04 ce 13 66 6f 75 6e  64 3d 3f 26 34 42 30 34  |....found=?&4B04|
000007f0  81 31 36 0d 04 d8 12 66  6f 75 6e 64 3d 66 6f 75  |.16....found=fou|
00000800  6e 64 2a 31 30 0d 04 e2  19 66 6f 75 6e 64 3d 66  |nd*10....found=f|
00000810  6f 75 6e 64 2b 3f 26 34  42 30 34 83 31 36 0d 04  |ound+?&4B04.16..|
00000820  ec 3b f1 8a 30 2c 32 34  29 22 82 46 4f 55 4e 44  |.;..0,24)".FOUND|
00000830  20 53 55 42 2d 50 41 47  45 85 22 3b 66 6f 75 6e  | SUB-PAGE.";foun|
00000840  64 3b 22 86 57 61 69 74  69 6e 67 20 66 6f 72 20  |d;".Waiting for |
00000850  70 61 67 65 20 22 3b 4f  3b 0d 04 f6 0e e7 66 6f  |page ";O;.....fo|
00000860  75 6e 64 3d 30 8c e1 0d  05 00 12 e7 66 6f 75 6e  |und=0.......foun|
00000870  64 3c 3e 4f 8c 8d 74 66  44 0d 05 0a 05 e1 0d 05  |d<>O..tfD.......|
00000880  14 08 dd f2 63 68 0d 05  1e 0a f2 65 6d 70 74 79  |....ch.....empty|
00000890  0d 05 28 24 f1 8a 33 2c  32 34 29 3b 22 82 45 6e  |..($..3,24);".En|
000008a0  74 65 72 20 43 68 61 6e  6e 65 6c 20 28 31 2d 34  |ter Channel (1-4|
000008b0  29 81 22 3b 0d 05 32 17  49 3d a5 3a e7 49 3c 34  |).";..2.I=.:.I<4|
000008c0  39 84 49 3e 35 32 8c 8d  54 68 45 0d 05 3c 0a 49  |9.I>52..ThE..<.I|
000008d0  3d 49 2d 34 38 0d 05 46  11 f2 65 6d 70 74 79 3a  |=I-48..F..empty:|
000008e0  f2 69 6e 64 65 78 0d 05  50 11 41 24 3d 22 43 48  |.index..P.A$="CH|
000008f0  20 22 2b c3 28 49 29 0d  05 5a 20 24 26 30 43 30  | "+.(I)..Z $&0C0|
00000900  30 3d 41 24 3a 58 25 3d  30 3a 59 25 3d 26 30 43  |0=A$:X%=0:Y%=&0C|
00000910  3a d6 26 46 46 46 37 0d  05 64 05 e1 0d 05 6e 0c  |:.&FFF7..d....n.|
00000920  dd f2 73 74 72 69 6e 67  0d 05 78 05 db 0d 05 82  |..string..x.....|
00000930  0a 2a 54 54 58 4f 4e 0d  05 8c 08 2a 48 4f 4e 0d  |.*TTXON....*HON.|
00000940  05 96 07 f2 63 68 0d 05  a0 0f 4d 24 3d 22 22 3a  |....ch....M$="":|
00000950  4e 24 3d 22 22 0d 05 aa  2d e8 8a 30 2c 32 32 29  |N$=""...-..0,22)|
00000960  22 81 45 4e 54 45 52 20  33 20 64 69 67 69 74 20  |".ENTER 3 digit |
00000970  70 61 67 65 20 6e 75 6d  62 65 72 28 73 29 82 22  |page number(s)."|
00000980  3b 41 0d 05 b4 2b f1 8a  30 2c 32 33 29 22 84 50  |;A...+..0,23)".P|
00000990  72 65 73 73 20 3c 52 45  54 55 52 4e 3e 20 77 68  |ress <RETURN> wh|
000009a0  65 6e 20 66 69 6e 69 73  68 65 64 2e 22 0d 05 be  |en finished."...|
000009b0  0a e7 41 3d 30 8c e1 0d  05 c8 13 f1 8a 30 2c 32  |..A=0........0,2|
000009c0  32 29 c4 33 39 2c 22 20  22 29 0d 05 d2 15 e7 41  |2).39," ").....A|
000009d0  3e 39 39 39 84 41 3c 31  30 30 8c 8d 74 6a 45 0d  |>999.A<100..tjE.|
000009e0  05 dc 1d 4d 24 3d 4d 24  2b c3 28 41 29 3a 4e 24  |...M$=M$+.(A):N$|
000009f0  3d 4e 24 2b c3 28 41 29  2b 22 2c 22 0d 05 e6 0d  |=N$+.(A)+","....|
00000a00  f1 8a 30 2c 31 30 29 4e  24 0d 05 f0 0b 20 e5 20  |..0,10)N$.... . |
00000a10  8d 74 6a 45 0d 05 fa 05  e1 0d 06 04 16 dd f2 61  |.tjE...........a|
00000a20  75 74 6f 70 72 69 6e 74  3a 61 75 74 6f 3d 30 0d  |utoprint:auto=0.|
00000a30  06 0e 12 f2 73 74 72 69  6e 67 3a ea 20 41 24 2c  |....string:. A$,|
00000a40  41 0d 06 18 1d 41 24 3d  c0 4d 24 2c 33 29 3a 4d  |A....A$=.M$,3):M|
00000a50  24 3d c2 4d 24 2c a9 28  4d 24 29 2d 33 29 0d 06  |$=.M$,.(M$)-3)..|
00000a60  22 19 41 3d bb c0 41 24  2c 31 29 3a 3f 6d 61 67  |".A=..A$,1):?mag|
00000a70  61 7a 69 6e 65 3d 41 0d  06 2c 16 41 3d bb c1 41  |azine=A..,.A=..A|
00000a80  24 2c 32 2c 31 29 3a 41  3d 41 2a 31 36 0d 06 36  |$,2,1):A=A*16..6|
00000a90  17 41 3d 41 2b bb c2 41  24 2c 31 29 3a 3f 70 61  |.A=A+..A$,1):?pa|
00000aa0  67 65 3d 41 0d 06 40 09  d6 63 6f 64 65 0d 06 4a  |ge=A..@..code..J|
00000ab0  0d f2 66 72 6f 6e 74 28  31 29 0d 06 54 0f 6c 61  |..front(1)..T.la|
00000ac0  73 74 3d 3f 26 34 42 30  34 0d 06 5e 11 2a 44 49  |st=?&4B04..^.*DI|
00000ad0  53 50 4c 41 59 20 34 42  30 30 0d 06 68 0c f2 70  |SPLAY 4B00..h..p|
00000ae0  72 69 6e 74 65 72 0d 06  72 12 e7 3f 26 34 42 30  |rinter..r..?&4B0|
00000af0  34 3d 30 8c 8d 64 7e 46  0d 06 7c 05 f5 0d 06 86  |4=0..d~F..|.....|
00000b00  32 41 41 24 3d 22 50 41  47 45 20 22 2b 41 24 3a  |2AA$="PAGE "+A$:|
00000b10  24 26 30 43 30 30 3d 41  41 24 3a 58 25 3d 30 3a  |$&0C00=AA$:X%=0:|
00000b20  59 25 3d 26 30 43 3a d6  26 46 46 46 37 20 20 0d  |Y%=&0C:.&FFF7  .|
00000b30  06 90 12 2a 54 52 41 4e  53 46 45 52 20 34 42 30  |...*TRANSFER 4B0|
00000b40  30 0d 06 9a 1d 6e 6f 77  3d 3f 26 34 42 30 34 3a  |0....now=?&4B04:|
00000b50  e7 6e 6f 77 3d 6c 61 73  74 8c 8d 74 46 46 0d 06  |.now=last..tFF..|
00000b60  a4 0f e7 6e 6f 77 3d 31  8c 8d 64 74 46 0d 06 ae  |...now=1..dtF...|
00000b70  11 2a 44 49 53 50 4c 41  59 20 34 42 30 30 0d 06  |.*DISPLAY 4B00..|
00000b80  b8 0c f2 70 72 69 6e 74  65 72 0d 06 c2 0c 6c 61  |...printer....la|
00000b90  73 74 3d 6e 6f 77 0d 06  cc 11 e7 20 45 25 3d 31  |st=now..... E%=1|
00000ba0  20 8c 20 8d 64 74 46 0d  06 d6 1d 6c 6f 73 74 3d  | . .dtF....lost=|
00000bb0  6c 61 73 74 81 31 36 3a  6c 6f 73 74 3d 6c 6f 73  |last.16:lost=los|
00000bc0  74 2a 31 30 0d 06 e0 15  6c 6f 73 74 3d 6c 6f 73  |t*10....lost=los|
00000bd0  74 2b 6c 61 73 74 83 31  36 0d 06 ea 10 f2 66 72  |t+last.16.....fr|
00000be0  6f 6e 74 28 6c 6f 73 74  29 0d 06 f4 0a fd 6e 6f  |ont(lost).....no|
00000bf0  77 3d 31 0d 06 fe 10 e7  4d 24 3c 3e 22 22 8c 8d  |w=1.....M$<>""..|
00000c00  54 58 46 0d 07 08 0e e7  20 45 25 3d 31 20 8c 20  |TXF..... E%=1 . |
00000c10  e1 0d 07 12 24 e7 20 61  75 74 6f 20 83 20 33 3c  |....$. auto . 3<|
00000c20  3e 30 20 80 20 44 25 3d  32 33 30 34 36 20 8c d6  |>0 . D%=23046 ..|
00000c30  26 35 38 41 39 0d 07 1c  05 e1 0d 07 26 0d dd 20  |&58A9.......&.. |
00000c40  f2 46 49 4c 45 3a db 0d  07 30 0a f2 65 6d 70 74  |.FILE:...0..empt|
00000c50  79 0d 07 3a 33 f1 8a 30  2c 32 34 29 22 83 50 6c  |y..:3..0,24)".Pl|
00000c60  65 61 73 65 20 65 6e 74  65 72 20 66 69 6c 65 20  |ease enter file |
00000c70  6e 61 6d 65 2e 85 22 3b  3a 41 24 3d 22 22 3a f5  |name..";:A$="":.|
00000c80  3a 49 3d a5 0d 07 44 0e  e7 49 3d 31 33 8c 8d 44  |:I=...D..I=13..D|
00000c90  58 47 0d 07 4e 15 41 24  3d 41 24 2b bd 28 49 29  |XG..N.A$=A$+.(I)|
00000ca0  3a f1 bd 28 49 29 3b 0d  07 58 09 fd 49 3d 31 33  |:..(I);..X..I=13|
00000cb0  0d 07 62 19 e7 20 a9 28  41 24 29 3e 37 20 8c 20  |..b.. .(A$)>7 . |
00000cc0  41 24 3d c0 41 24 2c 37  29 0d 07 6c 05 e1 0d 07  |A$=.A$,7)..l....|
00000cd0  76 0c dd 20 f2 63 61 74  3a db 0d 07 80 08 2a 43  |v.. .cat:.....*C|
00000ce0  41 54 0d 07 8a 05 e1 0d  07 94 0f dd 20 f2 6f 70  |AT.......... .op|
00000cf0  65 6e 66 69 6c 65 0d 07  9e 09 f2 46 49 4c 45 0d  |enfile.....FILE.|
00000d00  07 a8 0b 58 3d ad 28 41  24 29 0d 07 b2 10 cf 23  |...X=.(A$).....#|
00000d10  58 3d 8f 23 58 2b a2 23  58 20 0d 07 bc 05 e1 0d  |X=.#X+.#X ......|
00000d20  07 c6 0e dd 20 f2 6e 65  77 66 69 6c 65 0d 07 d0  |.... .newfile...|
00000d30  09 f2 46 49 4c 45 0d 07  da 0b 58 3d ae 28 41 24  |..FILE....X=.(A$|
00000d40  29 0d 07 e4 05 e1 0d 07  ee 0e dd 20 f2 61 64 64  |).......... .add|
00000d50  66 69 6c 65 0d 07 f8 18  e3 20 4e 25 3d 26 37 43  |file..... N%=&7C|
00000d60  30 30 20 b8 20 4e 25 2b  26 33 45 37 0d 08 02 12  |00 . N%+&3E7....|
00000d70  56 25 3d 3f 4e 25 3a d5  23 58 2c 56 25 20 0d 08  |V%=?N%:.#X,V% ..|
00000d80  0c 05 ed 0d 08 16 05 e1  0d 08 20 0f dd 20 f2 61  |.......... .. .a|
00000d90  75 74 6f 66 69 6c 65 0d  08 2a 36 db 3a f1 8a 30  |utofile..*6.:..0|
00000da0  2c 32 34 29 22 82 88 45  4e 54 45 52 81 89 28 4e  |,24)"..ENTER..(N|
00000db0  29 20 6e 65 77 20 66 69  6c 65 84 28 41 29 20 61  |) new file.(A) a|
00000dc0  64 64 20 74 6f 20 66 69  6c 65 2e 22 3b 0d 08 34  |dd to file.";..4|
00000dd0  23 f5 3a 49 3d a5 3a fd  20 49 3d 97 22 4e 22 20  |#.:I=.:. I=."N" |
00000de0  84 20 49 3d 97 22 41 22  84 20 49 3d 97 22 43 22  |. I=."A". I=."C"|
00000df0  0d 08 3e 18 e7 20 49 3d  97 22 41 22 20 8c 20 f2  |..>.. I=."A" . .|
00000e00  6f 70 65 6e 66 69 6c 65  0d 08 48 17 e7 20 49 3d  |openfile..H.. I=|
00000e10  97 22 4e 22 20 8c 20 f2  6e 65 77 66 69 6c 65 0d  |."N" . .newfile.|
00000e20  08 52 13 e7 20 49 3d 97  22 43 22 20 8c 20 f2 63  |.R.. I=."C" . .c|
00000e30  61 74 0d 08 5c 1a 61 75  74 6f 3d 30 3a 45 25 3d  |at..\.auto=0:E%=|
00000e40  31 3a f2 61 75 74 6f 70  72 69 6e 74 0d 08 66 13  |1:.autoprint..f.|
00000e50  45 25 3d 30 3a 61 75 74  6f 3d 30 3a d9 23 58 0d  |E%=0:auto=0:.#X.|
00000e60  08 70 05 e1 0d 08 7a 0d  dd f2 53 45 54 50 41 47  |.p....z...SETPAG|
00000e70  45 0d 08 84 0f 44 55 4d  50 31 3d 26 35 32 33 39  |E....DUMP1=&5239|
00000e80  0d 08 8e 0f 44 55 4d 50  32 3d 26 35 34 42 33 0d  |....DUMP2=&54B3.|
00000e90  08 98 0f 44 55 4d 50 33  3d 26 35 38 41 39 0d 08  |...DUMP3=&58A9..|
00000ea0  a2 12 44 55 4d 50 57 49  44 45 3d 26 35 35 37 32  |..DUMPWIDE=&5572|
00000eb0  0d 08 ac 10 44 55 4d 50  41 34 3d 26 35 36 31 32  |....DUMPA4=&5612|
00000ec0  0d 08 b6 13 44 55 4d 50  4c 41 52 47 45 3d 26 35  |....DUMPLARGE=&5|
00000ed0  37 32 45 0d 08 c0 10 50  4f 53 54 45 52 3d 26 35  |72E....POSTER=&5|
00000ee0  38 31 41 0d 08 ca 0f 46  49 52 53 54 3d 26 35 39  |81A....FIRST=&59|
00000ef0  45 35 0d 08 d4 0e 46 52  45 44 3d 26 35 41 30 36  |E5....FRED=&5A06|
00000f00  0d 08 de 08 f2 4f 4e 45  0d 08 e8 05 f5 0d 08 f2  |.....ONE........|
00000f10  07 49 3d a5 0d 08 fc 0c  ef 32 2c 31 2c 37 2c 33  |.I=......2,1,7,3|
00000f20  0d 09 06 12 e7 49 3d 97  22 31 22 8c 3f 26 38 35  |.....I=."1".?&85|
00000f30  3d 31 0d 09 10 12 e7 49  3d 97 22 32 22 8c 3f 26  |=1.....I=."2".?&|
00000f40  38 35 3d 30 0d 09 1a 13  e7 49 3d 97 22 33 22 8c  |85=0.....I=."3".|
00000f50  3f 26 38 30 3d 37 35 0d  09 24 13 e7 49 3d 97 22  |?&80=75..$..I=."|
00000f60  34 22 8c 3f 26 38 30 3d  37 36 0d 09 2e 13 e7 49  |4".?&80=76.....I|
00000f70  3d 97 22 35 22 8c 3f 26  38 30 3d 38 39 0d 09 38  |=."5".?&80=89..8|
00000f80  13 e7 49 3d 97 22 36 22  8c 3f 26 38 30 3d 39 30  |..I=."6".?&80=90|
00000f90  0d 09 42 14 e7 49 3d 97  22 37 22 8c 44 25 3d 44  |..B..I=."7".D%=D|
00000fa0  55 4d 50 31 0d 09 4c 14  e7 49 3d 97 22 38 22 8c  |UMP1..L..I=."8".|
00000fb0  44 25 3d 44 55 4d 50 32  0d 09 56 17 e7 49 3d 97  |D%=DUMP2..V..I=.|
00000fc0  22 39 22 8c 44 25 3d 44  55 4d 50 57 49 44 45 0d  |"9".D%=DUMPWIDE.|
00000fd0  09 60 15 e7 49 3d 97 22  41 22 8c 44 25 3d 44 55  |.`..I=."A".D%=DU|
00000fe0  4d 50 41 34 0d 09 6a 18  e7 49 3d 97 22 42 22 8c  |MPA4..j..I=."B".|
00000ff0  44 25 3d 44 55 4d 50 4c  41 52 47 45 0d 09 74 15  |D%=DUMPLARGE..t.|
00001000  e7 49 3d 97 22 43 22 8c  44 25 3d 50 4f 53 54 45  |.I=."C".D%=POSTE|
00001010  52 0d 09 7e 12 e7 49 3d  97 22 44 22 8c d6 46 49  |R..~..I=."D"..FI|
00001020  52 53 54 0d 09 88 13 e7  49 3d 97 22 44 22 8c 44  |RST.....I=."D".D|
00001030  25 3d 46 52 45 44 0d 09  92 13 e7 49 3d 97 22 45  |%=FRED.....I=."E|
00001040  22 8c f2 6d 61 72 67 69  6e 0d 09 9c 10 e7 49 3d  |"..margin.....I=|
00001050  97 22 46 22 8c f2 54 57  4f 0d 09 a6 09 fd 49 3d  |."F"..TWO.....I=|
00001060  33 32 0d 09 b0 05 db 0d  09 ba 18 e7 3f 26 38 35  |32..........?&85|
00001070  3d 31 8c f1 22 83 54 4f  4e 45 53 20 4f 4e 22 0d  |=1..".TONES ON".|
00001080  09 c4 19 e7 3f 26 38 35  3d 30 8c f1 22 83 54 4f  |....?&85=0..".TO|
00001090  4e 45 53 20 4f 46 46 22  0d 09 ce 05 f1 0d 09 d8  |NES OFF"........|
000010a0  31 e7 3f 26 38 30 3d 37  35 8c f1 22 84 53 49 4e  |1.?&80=75..".SIN|
000010b0  47 4c 45 20 44 45 4e 53  49 54 59 20 47 52 41 50  |GLE DENSITY GRAP|
000010c0  48 49 43 53 20 53 45 4c  45 43 54 45 44 22 0d 09  |HICS SELECTED"..|
000010d0  e2 31 e7 3f 26 38 30 3d  37 36 8c f1 22 84 44 4f  |.1.?&80=76..".DO|
000010e0  55 42 4c 45 20 44 45 4e  53 49 54 59 20 47 52 41  |UBLE DENSITY GRA|
000010f0  50 48 49 43 53 20 53 45  4c 45 43 54 45 44 22 0d  |PHICS SELECTED".|
00001100  09 ec 2d e7 3f 26 38 30  3d 38 39 8c f1 22 84 48  |..-.?&80=89..".H|
00001110  49 47 48 20 53 50 45 45  44 20 47 52 41 50 48 49  |IGH SPEED GRAPHI|
00001120  43 53 20 53 45 4c 45 43  54 45 44 22 0d 09 f6 34  |CS SELECTED"...4|
00001130  e7 3f 26 38 30 3d 39 30  8c f1 22 84 51 55 41 44  |.?&80=90..".QUAD|
00001140  52 55 50 4c 45 20 44 45  4e 53 49 54 59 20 47 52  |RUPLE DENSITY GR|
00001150  41 50 48 49 43 53 20 53  45 4c 45 43 54 45 44 22  |APHICS SELECTED"|
00001160  0d 0a 00 05 f1 0d 0a 0a  21 e7 44 25 3d 44 55 4d  |........!.D%=DUM|
00001170  50 31 20 8c f1 22 81 44  55 4d 50 31 20 53 45 4c  |P1 ..".DUMP1 SEL|
00001180  45 43 54 45 44 22 0d 0a  14 50 e7 44 25 3d 44 55  |ECTED"...P.D%=DU|
00001190  4d 50 57 49 44 45 20 8c  f1 22 81 44 55 4d 50 57  |MPWIDE ..".DUMPW|
000011a0  49 44 45 20 53 20 3e 33  34 39 30 49 46 44 25 3d  |IDE S >3490IFD%=|
000011b0  44 55 4d 50 57 49 44 45  20 54 48 45 4e 50 52 49  |DUMPWIDE THENPRI|
000011c0  4e 54 22 81 44 55 4d 50  57 49 44 45 20 53 45 4c  |NT".DUMPWIDE SEL|
000011d0  45 43 54 45 44 22 0d 0a  1e 21 e7 44 25 3d 44 55  |ECTED"...!.D%=DU|
000011e0  4d 50 32 20 8c f1 22 81  44 55 4d 50 32 20 53 45  |MP2 ..".DUMP2 SE|
000011f0  4c 45 43 54 45 44 22 0d  0a 28 23 e7 44 25 3d 44  |LECTED"..(#.D%=D|
00001200  55 4d 50 41 34 20 8c f1  22 81 44 55 4d 50 41 34  |UMPA4 ..".DUMPA4|
00001210  20 53 45 4c 45 43 54 45  44 22 0d 0a 32 29 e7 44  | SELECTED"..2).D|
00001220  25 3d 44 55 4d 50 4c 41  52 47 45 20 8c f1 22 81  |%=DUMPLARGE ..".|
00001230  44 55 4d 50 4c 41 52 47  45 20 53 45 4c 45 43 54  |DUMPLARGE SELECT|
00001240  45 44 22 0d 0a 3c 27 e7  44 25 3d 50 4f 53 54 45  |ED"..<'.D%=POSTE|
00001250  52 20 8c f1 22 81 50 4f  53 54 45 52 20 53 49 5a  |R ..".POSTER SIZ|
00001260  45 20 53 45 4c 45 43 54  45 44 0d 0a 46 38 e7 44  |E SELECTED..F8.D|
00001270  25 3d 46 52 45 44 20 8c  f1 22 81 54 48 52 45 45  |%=FRED ..".THREE|
00001280  20 53 43 52 45 45 4e 53  20 41 43 52 4f 53 53 20  | SCREENS ACROSS |
00001290  41 34 20 50 41 50 45 52  20 53 45 4c 45 43 54 45  |A4 PAPER SELECTE|
000012a0  44 22 0d 0a 50 05 f1 0d  0a 5a 25 f1 22 85 54 48  |D"..P....Z%.".TH|
000012b0  45 20 4c 45 46 54 20 4d  41 52 47 49 4e 20 49 53  |E LEFT MARGIN IS|
000012c0  20 53 45 54 20 41 54 20  22 3b 4d 25 0d 0a 64 0c  | SET AT ";M%..d.|
000012d0  49 3d a6 28 38 30 30 29  0d 0a 6e 05 e1 0d 0a 78  |I=.(800)..n....x|
000012e0  09 dd f2 4f 4e 45 0d 0a  82 05 db 0d 0a 8c 2a f1  |...ONE........*.|
000012f0  22 93 9a 20 e0 bf ef b0  ea bf af a5 aa ef bf a5  |".. ............|
00001300  a0 a0 a0 a0 ea bf ef b0  e0 bf ef b0 e0 bf ef b0  |................|
00001310  ea bf af a5 22 0d 0a 96  2a f1 22 93 9a 20 ea b5  |...."...*.".. ..|
00001320  a2 a1 ea b5 a0 a0 a0 ea  b5 a0 a0 a0 a0 a0 ea b5  |................|
00001330  ea b5 ea b5 ea b5 ea b5  a2 a1 ea b5 a0 a0 22 0d  |..............".|
00001340  0a a0 2a f1 22 93 9a 20  a0 af ef b0 ea bf af a0  |..*.".. ........|
00001350  a0 ea b5 a0 a0 a0 a0 a0  ea bf af a0 ea bf ef b5  |................|
00001360  ea b5 ef b5 ea bf af a0  22 0d 0a aa 2a f1 22 93  |........"...*.".|
00001370  9a 20 e8 b4 ea b5 ea b5  a0 a0 a0 ea b5 a0 a0 a0  |. ..............|
00001380  a0 a0 ea b5 a0 a0 ea b5  ea b5 ea b5 ea b5 ea b5  |................|
00001390  a0 a0 22 0d 0a b4 2a f1  22 93 9a 20 a0 af af a0  |.."...*.".. ....|
000013a0  aa af af a5 a0 aa a5 a0  a0 a0 a0 a0 aa a5 a0 a0  |................|
000013b0  aa a5 aa a5 a0 af af a0  aa af af a5 22 0d 0a be  |............"...|
000013c0  2a f1 22 20 20 20 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |*."   ..........|
000013d0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |................|
000013e0  a0 a0 a0 a0 a0 a0 22 0d  0a c8 2e f1 22 20 20 20  |......"....."   |
000013f0  20 84 9d 83 31 2e 2e 2e  73 65 74 20 74 68 65 20  | ...1...set the |
00001400  74 6f 6e 65 73 20 61 6e  64 20 62 61 63 6b 67 72  |tones and backgr|
00001410  6f 75 6e 64 22 0d 0a d2  2d f1 22 20 20 20 20 84  |ound"...-."    .|
00001420  9d 83 32 2e 2e 2e 73 77  69 74 63 68 20 6f 66 66  |..2...switch off|
00001430  20 74 68 65 20 61 62 6f  76 65 2e 28 6d 6f 6e 6f  | the above.(mono|
00001440  29 22 0d 0a dc 2f f1 27  22 20 20 20 20 86 9d 84  |)".../.'"    ...|
00001450  33 2e 2e 2e 73 65 74 20  73 69 6e 67 6c 65 20 64  |3...set single d|
00001460  65 6e 73 69 74 79 20 67  72 61 70 68 69 63 73 2e  |ensity graphics.|
00001470  22 0d 0a e6 2e f1 22 20  20 20 20 86 9d 84 34 2e  |"....."    ...4.|
00001480  2e 2e 73 65 74 20 64 6f  75 62 6c 65 20 64 65 6e  |..set double den|
00001490  73 69 74 79 20 67 72 61  70 68 69 63 73 2e 22 0d  |sity graphics.".|
000014a0  0a f0 2a f1 22 20 20 20  20 86 9d 84 35 2e 2e 2e  |..*."    ...5...|
000014b0  73 65 74 20 68 69 67 68  20 73 70 65 65 64 20 67  |set high speed g|
000014c0  72 61 70 68 69 63 73 2e  22 0d 0a fa 2c f1 22 20  |raphics."...,." |
000014d0  20 20 20 86 9d 84 36 2e  2e 2e 73 65 74 20 71 75  |   ...6...set qu|
000014e0  61 64 20 64 65 6e 73 69  74 79 20 67 72 61 70 68  |ad density graph|
000014f0  69 63 73 2e 22 0d 0b 04  31 f1 27 22 20 20 20 20  |ics."...1.'"    |
00001500  81 9d 87 37 2e 2e 2e 64  75 6d 70 31 3a 20 32 5c  |...7...dump1: 2\|
00001510  20 78 20 32 5c 20 69 6e  73 2e 28 61 70 78 2e 73  | x 2\ ins.(apx.s|
00001520  69 7a 65 29 22 3b 0d 0b  0e 2b f1 22 20 20 20 20  |ize)";...+."    |
00001530  81 9d 87 38 2e 2e 2e 64  75 6d 70 32 3a 20 35 5c  |...8...dump2: 5\|
00001540  20 78 20 35 5c 20 69 6e  73 2e 20 20 20 20 22 22  | x 5\ ins.    ""|
00001550  22 0d 0b 18 2b f1 22 20  20 20 20 81 9d 87 39 2e  |"...+."    ...9.|
00001560  2e 2e 64 75 6d 70 77 69  64 65 20 38 20 78 20 32  |..dumpwide 8 x 2|
00001570  5c 20 69 6e 73 2e 20 20  20 22 22 22 0d 0b 22 2b  |\ ins.   """.."+|
00001580  f1 22 20 20 20 20 81 9d  87 41 2e 2e 2e 64 75 6d  |."    ...A...dum|
00001590  70 61 34 3a 20 38 20 78  20 31 31 20 69 6e 73 2e  |pa4: 8 x 11 ins.|
000015a0  20 20 20 20 22 22 22 0d  0b 2c 2b f1 22 20 20 20  |    """..,+."   |
000015b0  20 81 9d 87 42 2e 2e 2e  64 75 6d 70 6c 61 72 67  | ...B...dumplarg|
000015c0  65 20 38 20 78 20 31 32  20 69 6e 73 2e 20 20 22  |e 8 x 12 ins.  "|
000015d0  22 22 0d 0b 36 2b f1 22  20 20 20 20 81 9d 87 43  |""..6+."    ...C|
000015e0  2e 2e 2e 70 6f 73 74 65  72 3a 20 38 20 78 20 32  |...poster: 8 x 2|
000015f0  32 20 69 6e 73 2e 20 20  20 20 22 22 22 0d 0b 40  |2 ins.    """..@|
00001600  30 f1 22 20 20 20 20 83  9d 84 44 2e 2e 2e 74 68  |0."    ...D...th|
00001610  72 65 65 20 64 75 6d 70  73 20 61 63 72 6f 73 73  |ree dumps across|
00001620  20 41 34 20 70 61 70 65  72 21 21 22 3b 0d 0b 4a  | A4 paper!!";..J|
00001630  2b f1 22 20 20 20 20 87  9d 81 45 2e 2e 2e 73 65  |+."    ...E...se|
00001640  74 20 74 68 65 20 6c 65  66 74 20 6d 61 72 67 69  |t the left margi|
00001650  6e 20 30 2d 31 30 2e 22  0d 0b 54 28 f1 27 22 20  |n 0-10."..T(.'" |
00001660  20 20 20 84 9d 83 46 2e  2e 2e 48 45 4c 50 20 50  |   ...F...HELP P|
00001670  41 47 45 21 20 48 45 4c  50 20 50 41 47 45 21 22  |AGE! HELP PAGE!"|
00001680  0d 0b 5e 2f f1 22 20 20  20 20 20 20 20 20 20 20  |..^/."          |
00001690  20 88 50 6c 65 61 73 65  20 73 65 6c 65 63 74 89  | .Please select.|
000016a0  74 68 65 6e 20 27 53 50  41 43 45 27 2e 22 3b 0d  |then 'SPACE'.";.|
000016b0  0b 68 05 e1 0d 0b 72 0c  dd f2 6d 61 72 67 69 6e  |.h....r...margin|
000016c0  0d 0b 7c 26 e8 8a 36 2c  32 32 29 3b 22 88 45 4e  |..|&..6,22);".EN|
000016d0  54 45 52 20 41 20 4e 55  4d 42 46 52 20 30 2d 31  |TER A NUMBFR 0-1|
000016e0  30 20 22 3b 4d 25 0d 0b  86 26 f1 8a 36 2c 32 32  |0 ";M%...&..6,22|
000016f0  29 3b 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |);"             |
00001700  20 20 20 20 20 20 20 20  20 20 20 22 0d 0b 90 0f  |           "....|
00001710  e7 4d 25 3e 31 30 8c 8d  44 7c 4b 0d 0b 9a 0b 3f  |.M%>10..D|K....?|
00001720  26 38 38 3d 4d 25 0d 0b  a4 05 e1 0d 0b ae 09 dd  |&88=M%..........|
00001730  f2 54 57 4f 0d 0b b8 05  db 0d 0b c2 30 f1 22 94  |.TWO........0.".|
00001740  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
*
00001760  f0 f0 f0 f0 f0 f0 f0 22  3b 0d 0b cc 21 f1 22 83  |.......";...!.".|
00001770  9d 20 20 84 20 20 20 8d  50 52 49 4e 54 45 52 20  |.  .   .PRINTER |
00001780  48 45 4c 50 20 50 41 47  45 22 0d 0b d6 21 f1 22  |HELP PAGE"...!."|
00001790  83 9d 20 84 20 20 20 20  8d 50 52 49 4e 54 45 52  |.. .    .PRINTER|
000017a0  20 48 45 4c 50 20 50 41  47 45 22 0d 0b e0 30 f1  | HELP PAGE"...0.|
000017b0  22 94 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |"...............|
000017c0  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
000017d0  a3 a3 a3 a3 a3 a3 a3 a3  a3 22 3b 0d 0b ea 2e f1  |.........";.....|
000017e0  22 20 83 54 68 65 20 74  6f 6e 65 73 20 6d 61 79  |" .The tones may|
000017f0  20 62 65 20 73 77 69 74  63 68 65 64 20 6f 66 66  | be switched off|
00001800  20 74 6f 20 67 69 76 65  22 0d 0b f4 2d f1 22 82  | to give"...-.".|
00001810  20 61 20 6f 6e 65 20 74  6f 6e 65 20 64 69 73 70  | a one tone disp|
00001820  6c 61 79 2e 20 54 68 69  73 20 77 69 6c 6c 20 67  |lay. This will g|
00001830  69 76 65 20 61 22 0d 0b  fe 30 f1 22 82 20 6d 6f  |ive a"...0.". mo|
00001840  72 65 20 63 6c 65 61 72  20 64 69 73 70 6c 61 79  |re clear display|
00001850  20 77 68 65 6e 20 75 73  69 6e 67 20 74 68 65 20  | when using the |
00001860  63 6f 6d 2d 22 3b 0d 0c  08 2b f1 22 82 20 70 61  |com-";...+.". pa|
00001870  63 74 20 64 75 6d 70 73  2e 20 49 74 20 77 69 6c  |ct dumps. It wil|
00001880  6c 20 61 6c 73 6f 20 67  69 76 65 20 6c 65 73 73  |l also give less|
00001890  22 0d 0c 12 2b f1 22 82  20 77 65 61 72 20 74 6f  |"...+.". wear to|
000018a0  20 79 6f 75 72 20 72 69  62 62 6f 6e 2c 20 61 6c  | your ribbon, al|
000018b0  74 68 6f 75 67 68 20 20  74 68 65 22 0d 0c 1c 29  |though  the"...)|
000018c0  f1 22 82 20 77 69 64 65  20 64 75 6d 70 73 20 6c  |.". wide dumps l|
000018d0  6f 6f 6b 20 6e 69 63 65  20 77 69 74 68 20 69 74  |ook nice with it|
000018e0  20 6f 6e 2e 22 0d 0c 26  2e f1 27 22 84 20 54 68  | on."..&..'". Th|
000018f0  65 20 64 75 6d 70 20 73  69 7a 65 73 20 67 69 76  |e dump sizes giv|
00001900  65 6e 20 61 72 65 20 61  70 70 72 6f 78 69 6d 61  |en are approxima|
00001910  74 65 22 0d 0c 30 2b f1  22 84 20 69 6e 20 74 68  |te"..0+.". in th|
00001920  65 20 44 4f 55 42 4c 45  20 44 45 4e 53 49 54 59  |e DOUBLE DENSITY|
00001930  20 4d 4f 44 45 2e 20 49  66 20 79 6f 75 22 0d 0c  | MODE. If you"..|
00001940  3a 2d f1 22 84 20 73 65  6c 65 63 74 20 53 49 4e  |:-.". select SIN|
00001950  47 4c 45 20 44 45 4e 53  49 54 59 20 74 68 65 6e  |GLE DENSITY then|
00001960  20 74 68 65 20 73 69 7a  65 73 22 0d 0c 44 2c f1  | the sizes"..D,.|
00001970  22 84 20 77 69 6c 6c 20  64 6f 75 62 6c 65 20 69  |". will double i|
00001980  6e 20 77 69 64 74 68 2c  20 61 6e 64 20 77 68 65  |n width, and whe|
00001990  6e 20 51 55 41 44 22 0d  0c 4e 2b f1 22 84 20 44  |n QUAD"..N+.". D|
000019a0  45 4e 53 49 54 59 20 69  73 20 73 65 6c 65 63 74  |ENSITY is select|
000019b0  65 64 20 74 68 65 20 73  69 7a 65 73 20 77 69 6c  |ed the sizes wil|
000019c0  6c 22 0d 0c 58 0e f1 22  84 20 68 61 6c 66 2e 22  |l"..X..". half."|
000019d0  0d 0c 62 2c f1 27 22 81  20 54 68 65 20 54 48 52  |..b,.'". The THR|
000019e0  45 45 20 44 55 4d 50 20  73 65 6c 65 63 74 69 6f  |EE DUMP selectio|
000019f0  6e 20 77 69 6c 6c 20 6f  6e 6c 79 22 0d 0c 6c 2e  |n will only"..l.|
00001a00  f1 22 81 20 6f 70 65 72  61 74 65 20 61 66 74 65  |.". operate afte|
00001a10  72 20 74 68 72 65 65 20  73 63 72 65 65 6e 73 20  |r three screens |
00001a20  68 61 76 65 20 62 65 65  6e 22 0d 0c 76 2b f1 22  |have been"..v+."|
00001a30  81 81 73 65 6e 74 20 74  6f 20 74 68 65 20 62 75  |..sent to the bu|
00001a40  66 66 65 72 2e 20 4e 69  6e 65 20 74 6f 20 74 77  |ffer. Nine to tw|
00001a50  65 6c 76 65 22 0d 0c 80  2c f1 22 81 20 73 63 72  |elve"...,.". scr|
00001a60  65 65 6e 73 20 6d 61 79  20 62 65 20 70 72 69 6e  |eens may be prin|
00001a70  74 65 64 20 6f 6e 20 41  34 20 70 61 70 65 72 2e  |ted on A4 paper.|
00001a80  22 0d 0c 8a 22 f1 27 22  20 20 20 20 20 20 20 20  |"...".'"        |
00001a90  20 20 20 20 50 72 65 73  73 20 20 20 53 70 61 63  |    Press   Spac|
00001aa0  65 21 22 0d 0c 94 0c 4a  3d a5 3a f2 4f 4e 45 0d  |e!"....J=.:.ONE.|
00001ab0  0c 9e 05 e1 0d 0c a8 0b  dd 20 f2 76 69 65 77 0d  |......... .view.|
00001ac0  0c b2 08 f2 63 61 74 0d  0c bc 1b f1 8a 30 2c 32  |....cat......0,2|
00001ad0  34 29 22 83 57 68 69 63  68 20 66 69 6c 65 3f 85  |4)".Which file?.|
00001ae0  22 3b 0d 0c c6 1e 20 42  24 3d 22 22 3a f5 3a 49  |";.... B$="":.:I|
00001af0  3d a5 3a e7 20 49 3d 31  33 20 8c 20 8d 64 5a 4c  |=.:. I=13 . .dZL|
00001b00  0d 0c d0 17 f1 bd 28 49  29 3b 3a 42 24 3d 42 24  |......(I);:B$=B$|
00001b10  2b bd 28 49 29 20 20 0d  0c da 09 fd 49 3d 31 33  |+.(I)  .....I=13|
00001b20  0d 0c e4 0b 54 3d ad 28  42 24 29 0d 0c ee 05 f5  |....T=.(B$).....|
00001b30  0d 0c f8 21 42 3d 26 37  43 30 30 3a db 3a f1 8a  |...!B=&7C00:.:..|
00001b40  35 2c 31 35 29 3b 22 49  4e 20 22 42 24 3b 22 21  |5,15);"IN "B$;"!|
00001b50  22 0d 0d 02 0d e3 4e 3d  30 b8 26 33 45 37 0d 0d  |".....N=0.&3E7..|
00001b60  0c 0e 41 3d 9a 23 54 3a  3f 42 3d 41 0d 0d 16 09  |..A=.#T:?B=A....|
00001b70  42 3d 42 2b 31 0d 0d 20  05 ed 0d 0d 2a 13 70 67  |B=B+1.. ....*.pg|
00001b80  65 3d a8 28 8f 23 54 2f  26 33 45 37 29 0d 0d 34  |e=.(.#T/&3E7)..4|
00001b90  11 f1 8a 33 36 2c 32 34  29 3b 70 67 65 3b 0d 0d  |...36,24);pge;..|
00001ba0  3e 2f f1 8a 30 2c 32 34  29 22 87 85 28 53 29 65  |>/..0,24)"..(S)e|
00001bb0  6c 65 63 74 20 70 61 67  65 3a 82 28 50 29 72 69  |lect page:.(P)ri|
00001bc0  6e 74 3a 84 20 20 20 70  61 67 65 22 3b 0d 0d 48  |nt:.   page";..H|
00001bd0  0d f2 63 68 65 63 6b 6b  65 79 0d 0d 52 08 fd c5  |..checkkey..R...|
00001be0  23 54 0d 0d 5c 07 d9 23  54 0d 0d 66 05 e1 0d 0d  |#T..\..#T..f....|
00001bf0  70 0e dd f2 67 6f 67 65  74 74 65 72 0d 0d 7a 10  |p...gogetter..z.|
00001c00  e7 42 24 3d 22 46 49 4c  45 22 8c e1 0d 0d 84 11  |.B$="FILE"......|
00001c10  56 3d a8 28 a2 23 54 2f  26 33 45 37 29 0d 0d 8e  |V=.(.#T/&3E7)...|
00001c20  05 db 0d 0d 98 25 e8 22  50 6c 65 61 73 65 20 65  |.....%."Please e|
00001c30  6e 74 65 72 20 70 61 67  65 20 72 65 71 75 69 72  |nter page requir|
00001c40  65 64 2e 20 22 3b 55 0d  0d a2 1d e7 55 3e 56 20  |ed. ";U.....U>V |
00001c50  8c f1 22 20 4e 75 6d 62  65 72 20 74 6f 6f 20 62  |.." Number too b|
00001c60  69 67 2e 22 0d 0d ac 20  f1 22 54 48 45 20 46 49  |ig."... ."THE FI|
00001c70  4c 45 20 48 41 53 20 22  3b 56 3b 22 20 50 41 47  |LE HAS ";V;" PAG|
00001c80  45 53 2e 22 0d 0d b6 0f  e7 55 3e 56 20 8c 8d 74  |ES.".....U>V ..t|
00001c90  58 4d 20 0d 0d bb 0c e7  55 3d 30 8c 55 3d 31 0d  |XM .....U=0.U=1.|
00001ca0  0d c0 16 55 3d 28 55 2d  31 29 2a 26 33 45 38 3a  |...U=(U-1)*&3E8:|
00001cb0  cf 23 54 3d 55 0d 0d ca  05 e1 0d 0d d4 0f dd 20  |.#T=U.......... |
00001cc0  f2 63 68 65 63 6b 6b 65  79 0d 0d de 07 49 3d a5  |.checkkey....I=.|
00001cd0  0d 0d e8 18 e7 20 49 3d  97 22 53 22 20 8c 20 f2  |..... I=."S" . .|
00001ce0  67 6f 67 65 74 74 65 72  0d 0d f2 17 e7 20 49 3d  |gogetter..... I=|
00001cf0  97 22 50 22 20 8c 20 f2  70 72 69 6e 74 65 72 0d  |."P" . .printer.|
00001d00  0d fc 15 e7 20 49 3d 97  22 46 22 20 8c 20 f2 66  |.... I=."F" . .f|
00001d10  69 6c 65 72 0d 0e 06 05  e1 0d 0e 10 0e dd f2 74  |iler...........t|
00001d20  68 69 72 74 65 65 6e 0d  0e 1a 14 e3 4e 3d 26 30  |hirteen.....N=&0|
00001d30  45 30 37 b8 26 30 45 46  46 88 38 0d 0e 24 09 3f  |E07.&0EFF.8..$.?|
00001d40  4e 3d 31 33 0d 0e 2e 05  ed 0d 0e 38 05 e1 0d 0e  |N=13.......8....|
00001d50  42 0d dd f2 73 74 72 69  6e 67 73 0d 0e 4c 07 43  |B...strings..L.C|
00001d60  3d 30 0d 0e 56 14 e3 4e  3d 26 30 45 30 30 b8 26  |=0..V..N=&0E00.&|
00001d70  30 45 46 30 88 38 0d 0e  60 12 43 3d 43 2b 31 3a  |0EF0.8..`.C=C+1:|
00001d80  41 24 28 43 29 3d 24 4e  0d 0e 6a 05 ed 0d 0e 74  |A$(C)=$N..j....t|
00001d90  05 e1 0d 0e 7e 0d dd f2  6e 75 6d 62 65 72 73 0d  |....~...numbers.|
00001da0  0e 88 07 43 3d 30 0d 0e  92 14 e3 4e 3d 26 30 46  |...C=0.....N=&0F|
00001db0  30 30 b8 26 30 46 46 30  88 38 0d 0e 9c 09 43 3d  |00.&0FF0.8....C=|
00001dc0  43 2b 31 0d 0e a6 0d dd  f2 48 45 4c 50 4f 4e 45  |C+1......HELPONE|
00001dd0  0d 0e b0 20 4f 3d 4e 2b  31 3a 58 3d 3f 4e 3a 59  |... O=N+1:X=?N:Y|
00001de0  3d 3f 4f 2a 32 35 36 3a  41 28 43 29 3d 59 2b 58  |=?O*256:A(C)=Y+X|
00001df0  0d 0e ba 05 ed 0d 0e c4  05 e1 0d 0e ce 0b dd f2  |................|
00001e00  63 68 65 63 6b 0d 0e d8  0b e3 4e 3d 31 b8 33 31  |check.....N=1.31|
00001e10  0d 0e e2 16 f1 7e 41 28  4e 29 3b 3a f1 22 20 22  |.....~A(N);:." "|
00001e20  3b 41 24 28 4e 29 0d 0e  ec 05 ed 0d 0e f6 05 e1  |;A$(N)..........|
00001e30  0d 0f 00 0f dd f2 73 65  65 64 69 73 63 3a db 0d  |......seedisc:..|
00001e40  0f 0a 08 2a 43 41 54 0d  0f 14 0d f2 74 68 69 72  |...*CAT.....thir|
00001e50  74 65 65 6e 0d 0f 1e 0c  f2 73 74 72 69 6e 67 73  |teen.....strings|
00001e60  0d 0f 28 0c f2 6e 75 6d  62 65 72 73 0d 0f 32 0e  |..(..numbers..2.|
00001e70  e3 4e 3d 33 31 b8 31 88  2d 31 0d 0f 3c 18 e7 20  |.N=31.1.-1..<.. |
00001e80  41 28 4e 29 3d 26 37 43  30 30 20 8c 20 f2 4d 4f  |A(N)=&7C00 . .MO|
00001e90  52 45 0d 0f 46 05 ed 0d  0f 50 05 e1 0d 0f 5a 0d  |RE..F....P....Z.|
00001ea0  dd 20 f2 4d 4f 52 45 3a  db 0d 0f 64 3b 41 41 24  |. .MORE:...d;AA$|
00001eb0  3d 22 4c 4f 41 44 20 22  2b 41 24 28 4e 29 2b 22  |="LOAD "+A$(N)+"|
00001ec0  20 37 43 30 30 22 3a 24  26 30 43 30 30 3d 41 41  | 7C00":$&0C00=AA|
00001ed0  24 3a 58 25 3d 30 3a 59  25 3d 26 30 43 3a d6 26  |$:X%=0:Y%=&0C:.&|
00001ee0  46 46 46 37 0d 0f 6e 1d  5a 25 3d a5 3a e7 20 5a  |FFF7..n.Z%=.:. Z|
00001ef0  25 3d 97 22 50 22 20 8c  20 f2 70 72 69 6e 74 65  |%=."P" . .printe|
00001f00  72 0d 0f 78 06 20 e1 0d  0f 82 0c dd f2 48 45 41  |r..x. .......HEA|
00001f10  44 45 52 0d 0f 8c 05 db  0d 0f 96 0a f1 27 22 84  |DER..........'".|
00001f20  9d 22 0d 0f a0 28 f1 22  86 9d 8d 5c 84 20 41 43  |."...(."...\. AC|
00001f30  54 49 56 45 20 54 45 4c  45 54 45 58 54 20 46 4f  |TIVE TELETEXT FO|
00001f40  52 20 41 54 53 20 52 4f  4d 22 0d 0f aa 28 f1 22  |R ATS ROM"...(."|
00001f50  86 9d 8d 20 84 20 41 43  54 49 56 45 20 54 45 4c  |... . ACTIVE TEL|
00001f60  45 54 45 58 54 20 46 4f  52 20 41 54 53 20 52 4f  |ETEXT FOR ATS RO|
00001f70  4d 22 0d 0f b4 09 f1 22  84 9d 22 0d 0f be 30 f1  |M".....".."...0.|
00001f80  22 92 fc fc bc ac fc ac  fc fc fc 91 fc fc bc ac  |"...............|
00001f90  fc ac ac fc bc ac fc bc  ac fc ac fc ac ec fc 92  |................|
00001fa0  fc bc ac fc ac fc fc fc  a0 22 3b 0d 0f c8 30 f1  |.........";...0.|
00001fb0  22 92 ff ff a0 f5 fa a0  b7 eb ff ff 91 ff a0 b5  |"...............|
00001fc0  ea a0 a5 fa a0 a5 ea a0  f5 fa a0 ff a0 ef 92 ff  |................|
00001fd0  ff a0 f5 fa a0 b7 eb ff  a0 22 3b 0d 0f d2 30 f1  |.........";...0.|
00001fe0  22 92 ff ff a0 b7 eb f0  b1 e2 ff ff 91 ff a0 b5  |"...............|
00001ff0  ea a0 b5 ea a0 b5 ea a0  b7 eb a0 ff a0 ff 92 ff  |................|
00002000  ff a0 b7 eb f0 b1 e2 ff  a0 22 3b 0d 0f dc 30 f1  |.........";...0.|
00002010  22 92 af af ad ac af af  ad ae af 91 af af ad ac  |"...............|
00002020  af ac ad ae ac ad ae ad  ac af ac ae ac ae af 92  |................|
00002030  af ad ac af af ad ae af  a0 22 3b 0d 0f e6 23 f1  |.........";...#.|
00002040  22 94 9d 20 93 fc fc fc  fc fc fc bc ac ac b4 20  |".. ........... |
00002050  20 a8 ec ac ac b4 20 20  a8 ec ac ac b4 22 0d 0f  | .....  ....."..|
00002060  f0 2d f1 22 94 9d 93 93  ff ff ff ff ff ff b5 ea  |.-."............|
00002070  ff b5 b7 e3 fb ea 20 fb  b5 b7 e3 fb ea 20 b1 b5  |...... ...... ..|
00002080  b7 eb a3 ff ff ff ff ff  ff ff 22 0d 0f fa 2d f1  |.........."...-.|
00002090  22 94 9d 93 93 af af af  af af af ad ac ac a5 b5  |"...............|
000020a0  a8 ef aa ac ac a5 b5 e8  ff aa ac ad a5 b7 e8 a2  |................|
000020b0  ff ff ff ff ff ff ff 22  0d 10 04 2d f1 22 94 9d  |......."...-."..|
000020c0  93 20 20 20 20 20 20 20  20 20 20 a3 a3 a3 a3 20  |.          .... |
000020d0  20 20 a3 a3 a3 a3 20 20  20 a3 a3 a3 a3 a3 a3 a3  |  ....   .......|
000020e0  a3 a3 a3 a3 22 0d 10 0e  30 f1 22 91 fc bc ec ac  |...."...0.".....|
000020f0  ac bc ec bc ec 92 fc fc  bc ac fc ac ac fc bc ac  |................|
00002100  fc bc ac fc ac fc ac ec  fc 91 bc ec ac ac bc ec  |................|
00002110  bc ec fc 22 3b 0d 10 18  30 f1 22 91 ff b5 ea b5  |...";...0.".....|
00002120  ea b5 ea b5 ea ff 92 ff  20 b5 ea 20 a5 fa 20 a5  |........ .. .. .|
00002130  ea 20 f5 fa 20 ff 20 ef  91 ff b5 ea b5 ea b5 ea  |. .. . .........|
00002140  b5 ea ff 22 3b 0d 10 22  30 f1 22 91 ff b5 ea b5  |...";.."0.".....|
00002150  ea f5 aa a5 fa ff 92 ff  20 b5 ea 20 b5 ea 20 b5  |........ .. .. .|
00002160  ea 20 b7 eb 20 ff 20 ff  91 ff b5 ea b5 ea f5 aa  |. .. . .........|
00002170  a5 fa ff 22 3b 0d 10 2c  30 f1 22 91 af ad ae ad  |...";..,0.".....|
00002180  ae af ad ae af 92 af af  ad ac af ac ad ae ac ad  |................|
00002190  ae ad ac af ac ae ac ae  af 91 ad ae ad ae af ad  |................|
000021a0  ae af af 22 3b 0d 10 36  09 f1 22 84 9d 22 0d 10  |...";..6..".."..|
000021b0  40 28 f1 22 84 9d 83 8d  41 75 74 6f 6d 61 74 69  |@(."....Automati|
000021c0  63 20 66 75 6c 6c 20 64  75 6d 70 73 20 2b 20 66  |c full dumps + f|
000021d0  69 6c 65 73 2e 22 0d 10  4a 28 f1 22 84 9d 83 8d  |iles."..J(."....|
000021e0  41 75 74 6f 6d 61 74 69  63 20 66 75 6c 6c 20 64  |Automatic full d|
000021f0  75 6d 70 73 20 2b 20 66  69 6c 65 73 2e 22 0d 10  |umps + files."..|
00002200  54 0b f1 22 84 9d 20 8d  22 0d 10 5e 29 f1 27 22  |T..".. ."..^).'"|
00002210  85 8d 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00002220  42 79 20 4a 2e 57 2e 57  61 6c 73 68 20 31 39 38  |By J.W.Walsh 198|
00002230  37 22 0d 10 68 28 f1 22  85 8d 20 20 20 20 20 20  |7"..h(."..      |
00002240  20 20 20 20 20 20 20 20  42 79 20 4a 2e 57 2e 57  |        By J.W.W|
00002250  61 6c 73 68 20 31 39 38  37 22 0d 10 72 25 f1 22  |alsh 1987"..r%."|
00002260  81 20 88 50 52 45 53 53  20 3c 53 50 41 43 45 3e  |. .PRESS <SPACE>|
00002270  20 46 4f 52 20 50 52 4f  4d 50 54 53 2e 22 3b 0d  | FOR PROMPTS.";.|
00002280  10 7c 08 20 49 3d a5 0d  10 86 05 e1 0d 10 90 0a  |.|. I=..........|
00002290  dd f2 4f 50 45 4e 0d 10  9a 05 db 0d 10 a4 2f f1  |..OPEN......../.|
000022a0  27 22 9a a0 91 ea ff ff  ff ff ff ff ff ff ff ff  |'"..............|
000022b0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
000022c0  ff ff ff ff ff ff ff ff  ff 22 0d 10 ae 2e f1 22  |........."....."|
000022d0  9a 93 f8 ff ff ff ff ff  ff ff a7 91 91 f8 ff a0  |................|
000022e0  a0 a0 a0 a0 a0 a0 a0 a0  20 20 20 20 20 20 20 20  |........        |
000022f0  20 20 91 9a ff ff ff 22  0d 10 b8 2e f1 22 9a a0  |  ....."....."..|
00002300  93 a0 a0 fa ff a1 91 f8  fc fc fe ff ff a0 85 54  |...............T|
00002310  45 4c 45 54 45 58 54 20  50 52 49 4e 54 45 52 91  |ELETEXT PRINTER.|
00002320  20 20 ff ff ff 22 0d 10  c2 2e f1 22 9a 93 93 a0  |  ..."....."....|
00002330  e8 ff a5 91 e8 ff ff ff  ff ff ff a0 20 20 20 20  |............    |
00002340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002350  ff ff ff 22 0d 10 cc 2e  f1 22 9a 93 93 e0 ff b7  |..."....."......|
00002360  91 e0 ff ff ff ff ff ff  ff 99 85 20 20 20 2b 20  |...........   + |
00002370  46 49 4c 45 52 20 20 20  20 20 91 9a 20 20 ff ff  |FILER     ..  ..|
00002380  ff 22 0d 10 d6 2e f1 22  9a 93 a0 fe bf 95 91 fe  |."....."........|
00002390  ff ff ff ff ff ff ff 99  20 20 20 20 20 20 20 20  |........        |
000023a0  20 20 82 20 4d 45 4e 55  91 9a 20 20 ff ff ff 22  |  . MENU..  ..."|
000023b0  0d 10 e0 2e f1 22 9a 93  fa ff a1 91 fa ff ff ff  |....."..........|
000023c0  ff ff ff ff ff 20 82 20  20 20 20 20 20 20 20 20  |..... .         |
000023d0  20 20 20 20 20 20 9a 91  20 20 ff ff ff 22 0d 10  |      ..  ..."..|
000023e0  ea 2e f1 22 9a 91 91 ff  ff ff ff ff ff ff ff ff  |..."............|
000023f0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
00002400  ff ff ff ff ff ff ff ff  ff ff ff 22 0d 10 f4 1a  |..........."....|
00002410  f1 22 9a a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 20 20  |."............  |
00002420  20 20 a0 a0 a0 22 0d 10  fe 25 f1 22 20 20 20 20  |  ..."...%."    |
00002430  20 20 20 82 4d 41 4e 55  41 4c 20 54 45 4c 45 54  |   .MANUAL TELET|
00002440  45 58 54 2e 2e 2e 2e 2e  2e 31 22 0d 11 08 17 f1  |EXT......1".....|
00002450  22 a0 a0 a0 a0 a0 20 20  20 20 20 20 20 a0 a0 a0  |".....       ...|
00002460  a0 22 0d 11 12 25 f1 22  20 20 20 20 20 20 84 20  |."...%."      . |
00002470  41 55 54 4f 50 52 49 4e  54 20 54 2e 54 45 58 2e  |AUTOPRINT T.TEX.|
00002480  2e 2e 2e 2e 2e 32 22 0d  11 1c 26 f1 27 22 20 20  |.....2"...&.'"  |
00002490  20 20 20 20 20 85 41 55  54 4f 46 49 4c 45 20 20  |     .AUTOFILE  |
000024a0  54 2e 54 45 58 2e 2e 2e  2e 2e 2e 33 22 0d 11 26  |T.TEX......3"..&|
000024b0  26 f1 27 22 a0 a0 a0 a0  a0 a0 a0 81 56 49 45 57  |&.'"........VIEW|
000024c0  20 41 20 54 2e 54 45 58  20 46 49 4c 45 2e 2e 2e  | A T.TEX FILE...|
000024d0  2e 34 22 0d 11 30 08 f1  22 a0 22 0d 11 3a 25 f1  |.4"..0.."."..:%.|
000024e0  22 20 20 20 20 20 20 20  82 53 43 41 4e 20 44 49  |"       .SCAN DI|
000024f0  53 43 20 46 4f 52 20 54  2e 54 45 58 2e 2e 35 22  |SC FOR T.TEX..5"|
00002500  0d 11 44 0a f1 22 a0 a0  a0 22 0d 11 4e 30 f1 22  |..D.."..."..N0."|
00002510  91 9a ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
00002520  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
00002530  ff ff ff ff ff ff ff ff  22 3b 0d 11 58 30 f1 22  |........";..X0."|
00002540  88 84 8d 20 20 20 20 50  4c 45 41 53 45 20 53 45  |...    PLEASE SE|
00002550  4c 45 43 54 89 83 3c 48  3e 20 66 6f 72 20 48 45  |LECT..<H> for HE|
00002560  4c 50 21 a0 a0 a0 a0 a0  22 3b 0d 11 62 30 f1 22  |LP!.....";..b0."|
00002570  88 84 8d 20 20 20 20 50  4c 45 41 53 45 20 53 45  |...    PLEASE SE|
00002580  4c 45 43 54 89 83 3c 48  3e 20 66 6f 72 20 48 45  |LECT..<H> for HE|
00002590  4c 50 21 a0 a0 a0 a0 a0  22 3b 0d 11 6c 30 f1 22  |LP!.....";..l0."|
000025a0  91 9a ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
000025b0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
000025c0  ff ff ff ff ff ff ff ff  22 3b 0d 11 76 08 f1 22  |........";..v.."|
000025d0  22 3b 0d 11 80 05 e1 0d  11 8a 0b dd 20 f2 4d 45  |";.......... .ME|
000025e0  4e 55 0d 11 94 0b d9 23  58 3a d9 23 54 0d 11 9e  |NU.....#X:.#T...|
000025f0  0b f5 3a f2 4f 50 45 4e  0d 11 a8 1e f1 8a 30 2c  |..:.OPEN......0,|
00002600  32 34 29 22 81 45 72 72  6f 72 20 63 6f 64 65 20  |24)".Error code |
00002610  3d 20 22 3b 9f 3b 0d 11  b2 0a f2 65 72 72 6f 72  |= ";.;.....error|
00002620  0d 11 bc 0b 2a 54 54 58  4f 46 46 0d 11 c6 09 6d  |....*TTXOFF....m|
00002630  65 6e 3d a5 0d 11 d0 1a  e7 20 6d 65 6e 3d 97 22  |en=...... men=."|
00002640  31 22 20 8c 20 f2 54 45  4c 45 54 45 58 54 0d 11  |1" . .TELETEXT..|
00002650  da 1b e7 20 6d 65 6e 3d  97 22 32 22 20 8c 20 f2  |... men=."2" . .|
00002660  61 75 74 6f 70 72 69 6e  74 0d 11 e4 1a e7 20 6d  |autoprint..... m|
00002670  65 6e 3d 97 22 33 22 20  8c 20 f2 61 75 74 6f 66  |en=."3" . .autof|
00002680  69 6c 65 0d 11 ee 16 e7  20 6d 65 6e 3d 97 22 34  |ile..... men=."4|
00002690  22 20 8c 20 f2 76 69 65  77 0d 11 f8 19 e7 20 6d  |" . .view..... m|
000026a0  65 6e 3d 97 22 35 22 20  8c 20 f2 73 65 65 64 69  |en=."5" . .seedi|
000026b0  73 63 0d 12 02 15 e7 20  6d 65 6e 3d 97 22 48 22  |sc..... men=."H"|
000026c0  20 8c 20 f2 48 4c 50 0d  12 0c 19 e7 20 6d 65 6e  | . .HLP..... men|
000026d0  3d 97 22 50 22 20 8c 20  f2 53 45 54 50 41 47 45  |=."P" . .SETPAGE|
000026e0  0d 12 16 15 e7 20 6d 65  6e 3d 97 22 43 22 20 8c  |..... men=."C" .|
000026f0  20 f2 63 61 74 0d 12 20  06 fd 30 0d 12 2a 05 e1  | .cat.. ..0..*..|
00002700  0d 12 34 09 dd f2 48 4c  50 0d 12 3e 05 db 0d 12  |..4...HLP..>....|
00002710  48 31 f1 27 22 94 bc ac  ac ac ac ac ac ac ac ac  |H1.'"...........|
00002720  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00002730  ac ac ac ac ac ac ac ac  ac ac ac ac ec 22 3b 0d  |.............";.|
00002740  12 52 30 f1 22 94 b5 81  54 45 4c 45 54 45 58 54  |.R0."...TELETEXT|
00002750  3a 82 75 73 65 64 20 74  6f 20 67 72 61 62 20 73  |:.used to grab s|
00002760  69 6e 67 6c 65 20 70 61  67 65 73 94 ea 22 3b 0d  |ingle pages..";.|
00002770  12 5c 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |.\0."..         |
00002780  82 6f 66 20 74 65 78 2e  20 59 6f 75 20 6d 61 79  |.of tex. You may|
00002790  20 70 72 69 6e 74 20 74  68 65 6d 94 ea 22 3b 0d  | print them..";.|
000027a0  12 66 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |.f0."..         |
000027b0  82 6f 72 20 73 74 6f 72  65 20 74 68 65 6d 20 6f  |.or store them o|
000027c0  6e 20 61 20 64 69 73 63  2e 20 20 94 ea 22 3b 0d  |n a disc.  ..";.|
000027d0  12 70 30 f1 22 94 b5 84  41 55 54 4f 50 52 49 4e  |.p0."...AUTOPRIN|
000027e0  54 3a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |T:              |
000027f0  20 20 20 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |           ..";.|
00002800  12 7a 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |.z0."..         |
00002810  20 83 57 69 6c 6c 20 67  72 61 62 20 61 6c 6c 20  | .Will grab all |
00002820  73 65 6c 65 63 74 65 64  20 20 20 94 ea 22 3b 0d  |selected   ..";.|
00002830  12 84 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002840  83 70 61 67 65 73 20 61  6c 6f 6e 67 20 77 69 74  |.pages along wit|
00002850  68 20 74 68 65 69 72 20  73 75 62 94 ea 22 3b 0d  |h their sub..";.|
00002860  12 8e 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002870  83 70 61 67 65 73 20 61  6e 64 20 74 68 65 6e 20  |.pages and then |
00002880  70 72 69 6e 74 20 74 68  65 6d 20 94 ea 22 3b 0d  |print them ..";.|
00002890  12 98 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
000028a0  83 6f 75 74 20 69 6e 20  6f 72 64 65 72 2e 20 20  |.out in order.  |
000028b0  20 20 20 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |           ..";.|
000028c0  12 a2 30 f1 22 94 b5 85  41 55 54 4f 46 49 4c 45  |..0."...AUTOFILE|
000028d0  3a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:               |
000028e0  20 20 20 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |           ..";.|
000028f0  12 ac 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002900  86 41 73 20 61 62 6f 76  65 20 62 75 74 20 73 74  |.As above but st|
00002910  6f 72 65 73 20 74 68 65  6d 20 20 94 ea 22 3b 0d  |ores them  ..";.|
00002920  12 b6 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002930  86 69 6e 20 61 20 6f 72  64 65 72 65 64 20 66 69  |.in a ordered fi|
00002940  6c 65 2e 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |le.        ..";.|
00002950  12 c0 30 f1 22 94 b5 82  56 49 45 57 46 49 4c 45  |..0."...VIEWFILE|
00002960  3a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:               |
00002970  20 20 20 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |           ..";.|
00002980  12 ca 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002990  84 55 73 65 64 20 74 6f  20 76 69 65 77 20 61 6e  |.Used to view an|
000029a0  79 20 66 69 6c 65 20 20  20 20 20 94 ea 22 3b 0d  |y file     ..";.|
000029b0  12 d4 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
000029c0  84 77 68 69 63 68 20 79  6f 75 20 68 61 76 65 20  |.which you have |
000029d0  63 72 65 61 74 65 64 2e  20 20 20 94 ea 22 3b 0d  |created.   ..";.|
000029e0  12 de 30 f1 22 94 b5 81  53 43 41 4e 3a 20 20 20  |..0."...SCAN:   |
000029f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002a00  20 20 20 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |           ..";.|
00002a10  12 e8 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002a20  87 57 69 6c 6c 20 64 69  73 70 6c 61 79 20 61 6e  |.Will display an|
00002a30  79 20 74 2e 74 65 78 20  20 20 20 94 ea 22 3b 0d  |y t.tex    ..";.|
00002a40  12 f2 30 f1 22 94 b5 20  20 20 20 20 20 20 20 20  |..0."..         |
00002a50  87 70 61 67 65 73 20 6f  6e 20 61 20 64 69 73 63  |.pages on a disc|
00002a60  2e 20 20 20 20 20 20 20  20 20 20 94 ea 22 3b 0d  |.          ..";.|
00002a70  12 fc 30 f1 22 94 b5 83  88 4e 4f 54 45 89 54 68  |..0."....NOTE.Th|
00002a80  65 20 70 72 69 6e 74 65  72 20 6d 61 79 20 62 65  |e printer may be|
00002a90  20 73 65 74 20 74 6f 20  20 20 20 94 ea 22 3b 0d  | set to    ..";.|
00002aa0  13 06 30 f1 22 94 b5 20  83 6d 61 6e 79 20 74 79  |..0.".. .many ty|
00002ab0  70 65 73 20 61 6e 64 20  73 69 7a 65 73 20 62 79  |pes and sizes by|
00002ac0  20 70 72 65 73 73 69 6e  67 20 50 94 ea 22 3b 0d  | pressing P..";.|
00002ad0  13 10 30 f1 22 94 b5 20  83 77 68 69 6c 65 20 69  |..0.".. .while i|
00002ae0  6e 20 4d 45 4e 55 2e 54  68 65 20 64 65 66 61 75  |n MENU.The defau|
00002af0  6c 74 20 73 65 74 74 69  6e 67 20 94 ea 22 3b 0d  |lt setting ..";.|
00002b00  13 1a 30 f1 22 94 b5 83  20 69 73 20 74 68 72 65  |..0."... is thre|
00002b10  65 20 73 63 72 65 65 6e  73 20 61 63 72 6f 73 73  |e screens across|
00002b20  20 6f 6e 65 20 70 61 67  65 2e 20 94 ea 22 3b 0d  | one page. ..";.|
00002b30  13 24 30 f1 22 94 ad ac  ac ac ac ac ac ac ac ac  |.$0."...........|
00002b40  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00002b50  ac ac ac ac ac ac ac ac  ac ac ac ac ae 22 3b 0d  |.............";.|
00002b60  13 2e 0e f1 22 20 22 3b  3a 4c 50 3d a5 0d 13 38  |...." ";:LP=...8|
00002b70  05 e1 0d 13 42 0c dd 20  f2 65 72 72 6f 72 0d 13  |....B.. .error..|
00002b80  4c 05 e1 0d 13 56 12 dd  20 f2 63 68 65 63 6b 73  |L....V.. .checks|
00002b90  74 61 74 75 73 0d 13 60  0c d6 20 73 74 61 74 75  |tatus..`.. statu|
00002ba0  73 0d 13 6a 12 e7 20 3f  26 34 46 30 31 3d 30 20  |s..j.. ?&4F01=0 |
00002bb0  8c 20 e1 0d 13 74 05 db  0d 13 7e 23 e7 20 3f 26  |. ...t....~#. ?&|
00002bc0  34 46 30 31 3d 31 20 8c  20 f1 22 4e 4f 20 54 2e  |4F01=1 . ."NO T.|
00002bd0  56 2e 20 53 49 47 4e 41  4c 2e 22 0d 13 88 2f e7  |V. SIGNAL.".../.|
00002be0  20 3f 26 34 46 30 31 3d  32 20 8c 20 f1 22 54 20  | ?&4F01=2 . ."T |
00002bf0  54 45 58 20 55 4e 49 54  20 4e 4f 54 20 53 57 49  |TEX UNIT NOT SWI|
00002c00  54 43 48 45 44 20 4f 4e  2e 22 0d 13 92 2b e7 20  |TCHED ON."...+. |
00002c10  3f 26 34 46 30 31 3d 32  35 35 20 8c 20 f1 22 4e  |?&4F01=255 . ."N|
00002c20  4f 20 41 44 41 50 54 4f  52 20 43 4f 4e 4e 45 43  |O ADAPTOR CONNEC|
00002c30  54 45 44 2e 22 0d 13 9c  05 f1 0d 13 a6 3b f1 22  |TED."........;."|
00002c40  50 6c 65 61 73 65 20 63  6f 72 72 65 63 74 2c 20  |Please correct, |
00002c50  74 68 65 6e 20 72 65 2d  6c 6f 61 64 20 70 72 6f  |then re-load pro|
00002c60  67 72 61 6d 20 61 6e 64  73 74 61 72 74 20 61 67  |gram andstart ag|
00002c70  61 69 6e 2e 22 0d 13 b0  05 f1 0d 13 ba 05 fa 0d  |ain."...........|
00002c80  13 c4 05 e1 0d ff                                 |......|
00002c86

20-05-88/TTEX.m0

20-05-88/TTEX.m1

20-05-88/TTEX.m2

20-05-88/TTEX.m4

20-05-88/TTEX.m5

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