' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLL- ( p   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u`X4ĹPA3,1:KB1:1260(PA3,0:KB01FL1:320d104,168,104,166,223,154,72,152,72,96 32,234,3,162,20,76,18,212NO CARD,UNRECOGNISED CARD,DISK CARD,COMMUNICATIONS CARD,SERIAL CARD,PARALLEL CARD:d"12:"DO NOT USE THIS VINE ";(218)(219)256:T23:"PRESS WHEN READY ";:Y$:Y$(13)1160\:m:D$;"PR#6"I12:X(CA1I):X3X51210:PA,0:PA1,2:1230PA,I:X5ĹPA1,1:1230PA1,2PA2,1PA4,128X(CA2):;"PR#3"::#D$;"PR#0":G#K199:IS$(K)"ILLEGAL INSERTION"::E3mL(885)(884)1Ĺ885,0:}A$"{H"17L1HE$""XPK(889):ST((X2)X2));:X(0)HE$:LF$;:(887)ĺLF$;LL1:L(885)(884)1Ĺ885,0:" A$,IS$,Y:I1(A$):Y$(A$,I,1):Y$"a"Y$"z"Y$((Y$)32)O"X$X$Y$::A$X$:":D$;"PR#";(PA):K06:512K,M%(K)::(PA1)168,169,170"I$;"255N";I$;"K";:""1656(PA),255:1528(PA),255: #K06:M%(K)(512K):::(PA3)ĺD$ther file name":159L!(222)5ĺ"Is the correct disk in the Drive?":159U!151`!147:r!900:153:60!900:171:153!:6:"Copies printed - ";NP1::"Start again or abort? ";:A$:A$:165:A$"A"144!A$"S"60!1628"X$""# ";(222);" in Line ";PK(218):^ ::10:(222)4ĺ"Remove the WRITE PROTECT label":159 (222)8ĺ"Check the operation of the disk drive":159 (222)9ĺ"This disk is full, use another":159!(222)10ĺ"This file is locked, select ano system disk":"in drive 1":147:14523:"Press RETURN when ready to continue":"Press ESC to return to Directory ";:16368,0:148:Y$:Y$(13)ĺ:Y$(27)ė:144148:(222)11(222)3ı:(222)255144! ::10:"Error ed - ";NPI:12:"Are more copies required? ";:A$:A$:165:A$"Y"ıZA$"N"140:14:"Are other documents to be printed? ";:A$:A$:165:A$"Y"ġ:60A$"N"142146:D$;"RUN MENU,D1"%900:::12:"Place the documentO:173!44:139:NPNPO:1335N:(PA1)1ĺz:D$;"OPENT.";F$(F%(NF));",D";DV:D$;"READT.";F$(F%(NF)):LD:YY:Y136IOLD:A$(I)::D$;"CLOSE":512,0:(A$(LD),1)"_"A$(LD)A$(LD)"_" ::10:"Number of copies print0ė:5:"No insertions":3:"Is this correct?":128z:3:"Is this correct?":IOIS:O:4I:"#";I;">";6);IS$(I);:3:18:A$:165:A$"Y"131A$"N"128:IOIS:O:4I:"#";I;">";6);IS$(I);::12044:139:NPNPO:119NPNP:TT,Oox2:O:"Type in the text to be inserted beside":"its key number. Type {end} to finish":LE,33:IOyI20I20:127z4I:"#";I;">";:6:A$:A$""125{A$"{end}"IIO:126|IS$(I)A$}4I:6:IS$(I):IIO:1214~ISI:IS"RL",D1"QqD$;"READ"BR$",R"BP:IOIS:IS$(I)::D$;"CLOSE":IS$(1)(126)117_rDV2116s:10:"Place the disk with the DOCUMENT SYSTEM":"files in Drive 1":147t44:NPNP1u::142vNPO:173w::4:"MANUAL INSERTION - COPY ";N"BR$",L"RL",D1":D$;"READ"BR$",R0":NC:STNCĺD$;"CLOSE"::142:`mNP1:BPSTNC:BPO113nnDV2112o::6:"DISK INSERTION - using BROAD":"Copy - ";NP:TT,3:10:"Place the disk with the BROAD files":"in Drive 1":147pD$;"OPEN"BR$",Lheadings":IOIS:4I:O:4I:I10);I;". ";IS$(I);:ih3:30:"Correct? ";:A$:A$:165:A$"Y"107xiA$"N"98j104k:12:"Start at record number ";:G:LE,4:A$:ST((A$)):N:ST1ST1Cl12:24:" ":12:24:ST:D$;"OPEATALOG,D1":A$::101%dA$"N"99heO:23:"What is the name of the file?":"> ";BR$:BR$"T."BR$fD$;"OPEN";BR$;"#,D1":D$;"READ"BR$;"#":IS:RLIS:IOIS:K:RLRLK::IOIS:IS$(I)::D$;"CLOSE"7gG::"BROAD file ";BR$:" contains these Y PUT ZERO AT END OF STRING (GB2 (DESC+1),YPUT STRING IN BUFFER BUFF,Y  #$FF GB2  ; ; ,;FIND A STRING TE$ IN FIRST ARRAY IN MEMORY /;STARTING AT K ON LINE Y IN ARRAY ENDING AT LD !;SYNTAX: Y=USR(Y)RECALL K,LD,TE$ FNDSTR: ;GET VAED PUTBUF: GBUFL #$0 GB3 BUFF,Y GB4 #$80SET BIT HIGH BUFF,Y  GB3 GB4 FLG #$40SET FLAG FOR AUTO START FLG #$0  FLOAT ; GBUFL : !GETVARGET VARIABLE DESCRIPTOR GBUF1 DESCPUT LENGTH IN Y #$0 BUFF,R A1L ML1 NTFD  &NTFDSTART OF LINE AND STILL SPACES (DESC+1),Y #' ' ML1 '~ ML1 #;NON SPACE FOUND - FIND NEXT SPACE ML2 SPFDPAST START OF LINE (DESC+1),Y #' ' ML3 '~ ML3 ML2 ML3 SPFDFORC' M3 '~ M3 ;BEGINNING OF NEXT WORD FOUND %SPFD START COUNTING FROM 1 AGAIN "SPFD1 #$0EXIT VIA FLOT ROUTINE FLOAT NTFD #$0 SPFD1 MOVELT: ; ";FIND BEGINNING OF NEXT WORD LEFT ; ; $;GET VARIABLE DESCRIPTION INTO DESC ; GETVAING FROM 0 INSTEAD OF 1 ,M2 DESCCHECK IF REACHED END OF STRING M1 NTFDPAST END OF STRING M1 (DESC+1),Y #' ' M3 '~ M3  M2 ';SPACE FOUND - NOW FIND NEXT NON SPACE M3 DESC M4 NTFD M4 (DESC+1),Y #' (G1COMMAND FOUND WITH ITS NUMBER IN Y  G2TRY NEXT COMMAND )G1 #$0PUT IN FAC AS FLOATING POINT FLOAT CMDS :K 9588-> & <-  ".,IDESAGJ FRBMTPXW"  8D00 ; MOVERT: GETVAR )A1LSET Y TO START CHARACTER FROM FAC &START COUNT STRING IN BUFFER FNDSTR-1FIND STRING IN ARRAY  ADJUST-1ADJUST LINE LENGTH ; -;GET COMMAND FROM KEYBOARD FOR USE BY EDITOR ; GETCMD: RDKEY #$80 #$E0 G0 #$DF G0 DESC #$1 G2 CMDS-1,Y GETCMDNOT VALID COMMAND DESC  ADDON    ATBL+1,X  ATBL,X   CTBL :  CF>  D1< BEGET A8STORE A7RECALL 9DNORMAL  00 ATBL :  MOVERT-1MOVE RT TO NEW WORD  MOVELT-1MOVE LT TO NEW WORD  GETCMD-1GET EDIT COMMAND PUTBUF-1PUTNDEXES #$0 FND1 CTBL,X 'ERR1NOT MATCHED WITH COMMAND TABLE !(TXTPTR),YMATCH WITH COMMAND? FWND  "FND1GO AROUND FOR THE NEXT ONE ERR1 #$14SYNTAX ERROR $D412 7;SET TXTPTR TO NEXT COMMAND AND GO TO ROUTINE VIA RTS. FWND 1L $3C A1H $3D A2L $3E A2H $3F A4L $42 A4H $43 HIGHDS $94 HIGHTR $96 LOWTR $9B MOVEDN $D98 MOVEUP $D65 GETSPA $E452 MOVSTR $E5E2 FRETOP $6F FREC $8FC ; ; USR : INTFAC INTL A1L #$0SCRATCH IOR CURLIN $6 LSTLIN $8 FCHAR $CE CHARPT $D6 SCRACH $E0 TEMP $FD ARRAY $6BSTART OF ARRAY AREA :OFFSET $7DISTANCE FROM START OF ARRAY TO FIRST VARIABLE !MOVFM $EAF9MOVE MEMORY TO FAC !MOVMF $EB2BMOVE FAC TO MEMORY CHKCOM $DEBE AUM $DD67GET FORMULA INTO FAC ; +TXTPTR $B8POINTS TO NEXT PART OF PROGRAM VARPNT $83 (DESC $FASCATCH ARE FOR THIS PROGRAM ,INTL $A1INTEGER VALUE IN FAC (LOW BYTE) INTH $A0 DITTO (HIGH BYTE) 0FAC $9DSTART OF FLOATING POINT ACCUMULATING USR ( ) COMMAND ; ;EQUATES FOR "USR" COMMANDS ; "INTFAC $E10CTURN FAC TO INTEGER +FLOAT $E2F2FLOT INTEGER IN A,Y INTO FAC !SNTX $DEC9CAUSE SYNTAX ERROR ADDON $D998ADD Y TO TXTPTR 3PTRGET $DFE3GET POINTERS TO VARIABLE DESCRIPTORS #FRMNEXIT ; #;********************************* #;* * #;* VARIOUS ROUTINES INVOKED BY * #;* BASIC "USR ( )" COMMAND * #;* * #;********************************* ; ; -;DECODE "COMMANDS" FOLLOW #SPACE E2 E1NON-SPACE FOUND ; ;AUTOMATIC START LINE ROUTINE ; NEWLN : 3;LOAD CHRS FROM BUFFER AND SEND THEM DOWN THE LINE XTEMP XTEMP BUFF,X N1 ;END OF BUFFER FLG #%10111111SET FLG TO NORMAL FLG #$A0 L3A N1 onverted to ":(867)ĺ"80 column format":118Fu"40 column format"vD$;"OPEN T.";Y$:D$;"DELETET.";Y$:D$;"OPENT.";Y$:D$;"WRITET.";Y$:LD:LL2:I5LL15:I::LL1:0:I1LD:A$(I)::D$;"CLOSE"w46xD$;"CLOSE":I15000::46023:ERAL STRING AREA ;FIND END OF STRING BUFFER #$0 SH10 BUFF,X SH11  SH10 &;IS THE ADDITION OF A SPACE REQUIRED? SH11 BUFF,X #' ' SH12 '~ SH12 '- SH12 #$0 (DESC+1),Y #' ' SH12 '~ SH12 '- SH12 (DESC+1),YSTRIP TRAILING SPACES #' ' SH7  SH8 LENOK #SH7 SCRACH+5STORE END OF LINE #$0 &SCRACH+6SET FLAG FOR PART TRANSFER SHADJ : #;PUT ADDED BIT ON STRING IN BUFFER !;PUT EXTRA BIT IN ANOTHER BUFFER &;THEN TRANSFER TO GENVED TWHOLE: #$80 SCRACH+6 SCRACH+5 SCRACH+5 SHADJ TPART : ;SEARCH NEW STRING FOR SPACE SCRACH+2 SH6 SH5 LENOKNO ACTION NEEDED SH5 (DESC+1),Y '~ SH7 '- SH7 #' ' SH8 SH6 ;SPACE OR HYPHEN FOUND )SH8 GETADR DESCNULL STRING? SH4 SCRACH+2 TWHOLE TWHOLE TPART SH4 NULL SH2 K;SCRACH+5 CONTAINS POINTER TO END OF WHAT IS TO BE ADDED TO ORIGINAL LINE. S;SCRACH+6 CONTAINS FLAG $80 IF WHOLE LINE IS TO BE MOVED UP, 0 IF PART TO BE MO LESS FCHAR DESC SCRACH+2 9;STORE POINTERS TO CURRENT LINE IN SCRATH+3 AND SCRACH+4 TEMP SCRACH+3 TEMP+1 SCRACH+4 ;LOOK AT NEXT LINE CURLIN SH2 CURLIN+1 SH2 LSTLIN CURLIN LSTLIN+1 CURLIN+1 SH3 LENOK SH3 BUFFER DESC FCHAR LENOK1 LONG1 SHORT LONG1 LONG LENOK1LENOK ;STRING IS SHORTER THAN MAXIMUM SHORT : ;END OF PARAGRAPH?  (DESC+1),Y #'_' SHI LENOKDO NOTHING ;FIND HOW MUCH LINE IS SHORT "SHI MADE DIFFERENCE ONEC INTL FCHAR LENCHK: ;IS CURRENT LINE PAST EOT? LSTLIN CURLIN LSTLIN+1 CURLIN+1 ADJ1 EOT ;GET DESCRIPTOR OF CURRENT LINE ADJ1 GETADR DESC ADJ2CHECK FOR NULL STRING NULL LENCHK +ADJ2 GBUF1PUT THE STRING IN THERAY LE IS MAXIMUM LENGHT ALLOWED ;SYNTAX LD=USR(LD) NORMAL Y,LE ; ADJUST: ;GET VALUE OF LD INTL LSTLIN INTH LSTLIN+1 ;GET VALUE OF Y FRMNUM INTFAC INTL CURLIN INTH CURLIN+1 ;GET VALUE OF LE CHKCOM FRMNUM INTFACURLIN+1 -FLOATEXIT VIA ROUTINE TO FLOAT Y,A IN FAC !;MATCH NOT MADE SO PUT ZERO IN Y NOTFND#$0 #$0 ,FLOATEXIT VIA ROUTINE TO PUT ZERO IN FAC ; ; :;PUSH DOWN OR PULL UP TEXT SO LINES ARE ACCEPTABLE LENGTH E;Y IS START LINE LD IS END OF AR LSTLIN+1 CURLIN+1 FS11 "FRESEND OF TEXT SO FALSE ALARM FS11 GETADR #$0 FS12 FOUND SCRACH+4 SCRACH+3 CURLIN+1 SCRACH+2 CURLIN  (;PUT CHARACTER INTO FAC AND THEN INTO K $300 ;PUT CURRENT LINE # INTO FAC CURLIN FCHAR FS1 8;MATCH STILL IN PROGRESS AT END OF LINE SO LOOK ON NEXT FS7 BUFF,X FOUND #' 'IS IT A BREAK OF WORD? FS8 '~ FS9 '- FS9 FRES FS8 IGNORE SPACE FS9 CURLIN FS10 CURLIN+1 FS10 LSTLIN CURLIN SCRACH+3 SCRACH+4 !FS6 LOOK AT NEXT CHARACTERS  FS12 DESCPAST END OF LINE? FS7 BUFF,X FOUNDMATCH MADE (DESC+1),Y FS6 ;FALSE ALARM +FRES SCRACH+4RESTORE Y AND LINE NUMBER SCRACH+3 CURLIN+1 SCRACH+2 CURLIN O ON TO NEXT LINE FS4 CURLIN+1 FS4 #$0 +FCHARSTART NEXT LINE AT FIRST CHARACTER NXTLINFORCED BRANCH NOTFNJNOTFND ;FIRST CHARACTERS MATCH FS5 : 2;SAVE Y REGISTER AND CURRENT LINE NUMBER ON STACK CURLIN SCRACH+2 CURLIN+1 UE OF Z #$0POSITION IN TE$ !FS2 DESCPAST ENT OF STRING? FS3END OF STRING & NOT FOUND BUFF,X *NOTFNJNULL STRING SO NO MATCH POSSIBLE (DESC+1),Y FS5FIRST CHARACTERS MATCH  'FS2LOOK AT NEXT CHARACTER IN STRING "FS3 CURLINGNTL LSTLIN INTH LSTLIN+1 CHKCOM ;PUT TE$ INTO BUFFER GBUFL ;SEARCH FOR A MATCH STARTS HERE NXTLIN: #;IS CURRENT LINE PAST END OF TEXT? LSTLIN CURLIN LSTLIN+1 CURLIN+1 FS1 NOTFNDNOW PAST EOT. FS1 GETADR FCHARVALLUE OF Y INTLSTORE AWAY VALUE CURLIN INTH CURLIN+1 ;GET LOCATION OF K FRMNUM INTFAC INTL FCHARSTORE BYTE VALUE 0FCHARINDEX TO STRINGS STARTS AT ZERO NOT ONE CHKCOM ;GET VALUE OF LD FRMNUMGET VALUE TO FAC INTFAC I NL6 SCRACH+7 NL3 SCRACH+8 NL3 NL4 'NL6 ADD 2 TO ADDRESS OF LAST LINE *SCRACHTO BRING IT TO END OF DESCRIPTOR #$2 SCRACH NL7 SCRACH+1 ;SET UP MOVE PARAMETERS NL7 TEMP A4L TEMP+1 A4H SCRACH A2L SCACH+9 NL1 SCRACH+10 NL1 SCRACH SCRACH+9 SCRACH+1 SCRACH+10 NL2 -;WE'VE COME TO THE END OF TEXT AND ALL NULLS $;LAST LINE BECOMES CURRENT LINE - 1  CURLIN #$1 LSTLIN CURLIN+1 #$0 LSTLIN+1  NL2 (SCRACH+9),YSTART AT PRESENT LINE AND LOOK FOR NEXT NON-NULL OR EOT TEMP *SCRACH+9USED TO KEEP TRACK OF PROGRESS TEMP+1 SCRACH+10 ;SET COUNTER TO 1 #$1 SCRACH+7 #$0 SCRACH+8 #$0 ;ADD 3 TO SCRATCH POINTER NL4 SCRACH+9 #$3 SCR CURLIN+1 SCRACH+1 ;FIND LAST LINE LSTLIN CURLIN LSTLIN+1 CURLIN+1 GETADR /;PUT LOCATION OF LAST LINE DESCRIPTOR ON STACK TEMP  TEMP+1  SCRACH CURLIN SCRACH+1 CURLIN+1  SCRACH+1  SCRACH GETADR 9; FRETOP (TEMP),Y  FRETOP+1 (TEMP),Y LENCHK PU5 NULL  CURLIN #$1 CURLIN PU6 CURLIN+1 PU6 LENCHK NULL : :;LOOK FOR NULL STRINGS AND PULL UP ALL STRINGS UNDER THEM ;STORE CURRENT LINE NUMBER CURLIN SCRACHTOP+1 (SCRACH+3),Y ;WAS WHOLE LINE MOVED UP? SCRACH+6 PU5 ;DO SAME FOR SECONDARY BUFFER #$0 PU3 IN,X PU4  PU3 PU4 #$0 PU3A  #' ' PU4  PU3A  GETSPA #IN /IN MOVSTR  #$0 (TEMP),Y Y FREC ;FIND LENGTH OF PRIMARY BUFFER #$0 PU1 BUFF,X PU2  PU1 PU2 #$0 PU2A  BUFF,X #' ' PU2  PU2A  GETSPA #BUFF /BUFF MOVSTR  #$0 (SCRACH+3),Y  FRETOP (SCRACH+3),Y  FREIN HIGHDS  TEMP #$5 A4L TEMP+1 #$0 A4H ;PUT CURRENT LINE # BACK  CURLIN+1  CURLIN ;ADD 1 TO LAST LINE LSTLIN PD1 LSTLIN+1 #PD1 MOVEUPPUSHDOWN AND RETURN PUTOUT: .;PUT TWO TEMPORARY BUFFERS INTO STRING MEMORUT CURRENT LINE # ON STACK CURLIN  CURLIN+1  ;GET INFO RE LAST LINE LSTLIN CURLIN LSTLIN+1 CURLIN+1 GETADR +;PUT HIGHEST ADDRESS TO BE MOVED IN HIGHTR  TEMP #$2 A2L TEMP+1 #$0 A2H $;PUT HIGH DESTINATION + 1 N,X LO13 LO14 #$0 LO15 DESC LO16 (DESC+1),Y IN,X   LO15 ; LO16 #$0 IN,X PUTOUT PUSHDN: %;MOVE LINES DOWN THE ARRAY ONE SPACE 4;PUT ADDRESS OF DESCRIPTOR OF CURRENT LINE IN LOWTR TEMP A1L TEMP+1 A1H ;P- SO NO SPACE FCHAR LO11B  IN,X '_ LO12 LO11B PUSHDN GETADR PUTOUT ;SEE IF A SPACE MUST BE ADDED LO12 #' ' LO13 '~ LO13 '- LO13 #$0 (DESC+1),Y #' ' LO13 '~ LO13 '- LO13  #' ' I LSTLIN CURLIN LSTLIN+1 CURLIN+1 LO8 LSTLIN LO9 LSTLIN+1 LO9 GETADR PUTOUT LO8 GETADR ;FIND END OF SECONDARY BUFFER #$0 LO10 IN,X LO11  LO10 ";DOES THE LINE END THE PARAGRAPH? LO11 #0 LO13NULL DING SPACES FROM RUMP LO4 ;START MOVING DATA LO5 IN,X   BUFF,Y LO5 1LO6 IN,XPUT ZERO ON END OF SECONDARY BUFFER 1SCRACH+5PUT ZERO ON NEW END OF PRIMARY BUFFER  BUFF,Y ;GO ON TO NEXT LINE CURLIN LO7 CURLIN+1 LO7FCHAR LO1 LO2 BUFF,Y #' ' LO3 '~ LO3 '- LO3 LO1 ; ;NO SPACES SO CHOP SHORT LO2 FCHAR  ; )LO3 SCRACH+5REMEMBER WHERE THAT WAS ;PUT RUMP IN SECONDARY BUFFER #$0 LO4 BUFF,Y LO6 &#' 'STRIP LEA4 ; SH15 #$0 IN,X PUTOUT $;WHAT TO DO IF THE LINE IS TOO LONG LONG : ,;STORE POINTERS TO CURRENT LINE IN SCRACH+3 TEMP SCRACH+3 TEMP+1 SCRACH+4 $;SET FLAG SO WE RETURN TO NEXT LINE #$0 SCRACH+6 ;FIND REQUIRED END OF LINE  #' ' BUFF,X SH12 ;TRANSFER TO END OF BUFFER #$0 SH13 (DESC+1),Y BUFF,X   SCRACH+5 SH13 SH13 #$0 BUFF,X $;NOW TRANSFER RUMP TO SECOND BUFFER  #$0 SH14 DESC SH15 (DESC+1),Y IN,X   SH1RETURN to exit":TB$:TT,2:3:LD0LDO:190L!A$(LD)"_"A$(LD)"":186~!(A$(LD),O)"_"A$(LD)(A$(LD),(A$(LD))O)!XLD5:XOXO!LDO189!IXLDO:A$(I):!A$(LD)""X(X)A$(LD) "KLD:JMAX:16:(A$(K),O)"_"A$(K)tabs by typing '1' in the required place":7:Y$:Y$Y$(TB$,(Y$)O):(Y$,LL1,O)"1"Y$(Y$,LL2)"1" J0:IO(Y$):(C):(Y$,I,O)"1"(Y$,I,O)"!"ĹTAJ,I:JJO :TAJ,0:13:177-!(C):::LE,LL:S:"Adding at end of document: ESC $(MAX)A$(KO):LDLD(KY)<YK:XY10:LD(LD)Y,LL:11995:"Deleting: ->, >, Return, X, E":TT,2:TB,24:IY:JZ:KX:48::LE,LL:G:"Present tabs are:":6:TB$10:"Correct? ";:Y$:Y$:93:Y$"Y"119Y$"N"178k 10:"Set :3:JY5:JOJO:YO1711IJYO:A$(I):TPLDY:P0A$(MAX)A$(Y):173qA$(Y),A$(LD)A$(MAXP)KY:JMAXPO:16:Z(A$(K)):A$(K)"_"įA$(MAXP),A$(MAX)A$(K):LDLD(KY):175A$(K)(A$(K),(A$(K))O)A$(MAXP):A$(MAXPO),A(A$(LD))183;Z(A$(Y))(A$(Y),O)"_"YYO:ZO:164HZO168wY$(A$(Y),ZO):A$(Y)(A$(Y),Z):L(0)Y$LE,LL:S:::"Inserting text: ESC RETURN to exit":TB$:TT,2:18::ZO);::A$(Y):JY4:JLDJLDIYOJ:A$(I)::TB,16120XI:YY20:123NY$"_":Y(Y)ZO,LD,Y$:Y0YLD:Z(A$(Y)):162ZZ(LE)wYX19124:XY10:11995:Y$"":F$(O)F$(99):A$(LDO)A$(MAX):(A):IPK(111)PK(109):I;" characters";20);MAXLD;" lines":125 (C):YLDZO1250YYO:Z(A$(Y)):Z(Z)A$(Y):Z0ZO=YX120F124SYO125fYYO:YX120o124}YLD125YX19155YYO:124XX10:YYO:XLD19XLD19123XX20:YY20:120IX20:ILD19YLD:XLD19:40,158SO142,157.Z(A$(Y))O134=ZZO:125YYLDZ(A$(Y))O:125fZO:152sZO138ZZO:125YO125Z(A$(YO)):149Z(Z)A$(Y):Z0134125ZO145Z(Z)A$(Y):Z0ZO125Y31vYO:XO:ZO:SOw,xYXXY109yXOXOFzYOYON{10U|7\}5~I(0):I128,129,130,131,164,176,206,215,183,192,218,127,225,233,280,163,177,254,277,296,160,126:SS:124SO132,152SO136,149SO1n the name of the new document --> ";:ND$:ER0:IO(ND$):(ND$,I,O)","(ND$,I,O)":"EROr:ERĺ:"No commas or colons are allowed in a document name":113sI0:L5LL15:TAI,L:IIO::TAI,LL1:TAIO,0:13:LD0:331t183u3MENT IS NOT IN 80 COLUMN FORMAT":15UlLDMAXİ14:"THIS DOCUMENT IS TOO LONG":15qmX:TAI,X:IIO:X109nN:IOLD:A$(I):M(0)3İ14:A$(O)A$(MAX):"THIS DOCUMENT IS TOO LONG":15o:D$;"CLOSE":13:117p:LE,8:G`q8:"Type iDESC,Y  GA1  BUFF : ENDALL:  E' * ;* ROUTINES FOR USE WITH SEASEN #;* DOCUMENT SYSTEM. * #;* USES SHIFT AND CTRL KEY AS * #;* SHIFT LOCK. * #;* SHIFT KEY MUST BE WIRED TO *RING DESCRIPTOR.  ARRAY #OFFSET TEMP ARRAY+1 #$0 TEMP+1 ?;FIND ADDRESS REQUIRED STRING DESCRIPTOR BY ADDING SUBSCRIPT*3  TEMP VARPNT TEMP TEMP+1 VARPNT+1 TEMP+1 ;PUT DESCRIPTOR INTO DESC #$2 GA1 (TEMP),Y N DESC. ; GETADR: *;MULTIPLY SUBSCRIPT BY 3 AND STORE RESULT CURLIN  VARPNT CURLIN+1  VARPNT+1  CURLIN VARPNT VARPNT CURLIN+1 VARPNT+1 VARPNT+1 ;PLACE ARRAY POINTER IN TEMP 9;AND ADD OFFSET SO IT POINTS TO FIRST STET VARIABLE LOCATION INTO VARPNT #$2 ,GV1 (VARPNT),YPUT DESCRIPTOR INTO DESC DESC,Y  GV1  ; 9;GET ADDRESS OF A STRING OUT OF THE FIRST ARRAY VARIABLE J;TO BE DIMENSIONED. THE SUBSCRIPT OF THE STRING IS IN CURLIN AND ADDRESS ;IS PUT IRACH+1 A2H SCRACH+9 A1L SCRACH+10 A1H ;TAKE NULL LINES FROM LAST LINE  LSTLIN SCRACH+7 LSTLIN LSTLIN+1 SCRACH+8 LSTLIN+1 MOVEDNGO MOVE AND RETURN EOT : LENOK : LSTLIN+1 LSTLIN FLOAT GETVAR: +PTRGETGaragraph, Exit";:9:5:Y$:93:Y$"E"124:Y$"A"307:Y$"B"308:Y$"P"297:296`1)310:PY1*(PO(A$(PO),O)"_")PPO:2981+KY1,(KLD(A$(K),O)"_")KKO:3001-KLDLDPO:A$(P)A$(MAX):3032.A$(KO),A$(LD)A$(P):LDLD(I),A$(K)A$(P):LKIO:F$(0),F$(J)A$(PL):YPL:XY10:ZO:119O0$PO124m0%A$(P),A$(K)F$(0):IPO0&PPO:(PO(A$(PO),O)"_")2940'A$(P),A$(I)A$(PJO):F$(0),F$(J)A$(P):YP:XY10:ZO:119S1(95:"Wipe: all Above, all Below, PKP:95:J100ĺ"Paragraph is too long to be moved":9:125/O:"Move a paragraph: Up, Down, Exit ";:Y$:Y$:93:Y$"E"124/Y$"U"292/Y$"D"285/ KLD124/!A$(P),A$(K)F$(0):IKO/"KKO:(KLD(A$(K),O)"_")290B0#A$(xchanging - ESC RETURN to exit":G:TT,2:TB,24:5:LE,(A$(Y))ZO:Y$:ZO279h.Y$(A$(Y),ZO)Y$.A$(Y)Y$(A$(Y),(Y$)O):Z(Y$)O:124.PY:(C).(PO(A$(PO),O)"_")PPO:281.KY.(KLD(A$(K),O)"_")KKO:283=/J:2673- D$;"PR#";(864):276:(865)270,271,272L-I$;"255N";I$;"K";:R-z-1656(864),255:1528(864),255:-275::D$;"PR#0":-273:12:"NEW PAGE":2:269::261-K06:P%(K)(512K)::-K06:512K,P%(K)::Q.95:"EO2648,A$,F$,Y,LD:YPK(226):(887)ĺ(10);:LL1O,885,0:(ES)260X,257~,LO:IPK(889):IIO:I65535IO, 890,(I256):889,I(I256)256:(LE)274, JO(880):"-";::::I".":261, (A$(Y),O)"_"YYO:257- YYO"S"Y$"P")255:254K+I099:F$(I)"XXXX"::LE,255:Y$"P"ĹLE,0:269^+:::YO:LO+YLDİ273:(LE)0117:Y$:117+(A$(Y),2)"{H"(A$(Y),2)"{h"267+(A$(Y),2)"{F"(A$(Y),2)"{f"įFA$(Y):YYO:257,LLO:L(885)(884),I):242:*95:"Replace? Yes, No, Exit":XY10:XOXOg*10:5:F$(3)::F$(3)"Y"F$(3)"y"241*F$(3)"E"F$(3)"e"253*ZZO:239*95:"Scan complete":117+95:"Print document: Screen, Paper, Exit ";:Y$:Y$:93:Y$"E"124:(Y$Y),Z(Y$)):ZOA$(Y)F$(3):244>)A$(Y)(A$(Y),ZO)F$(3)i)LD(LD)Y,LL:I(O)Z,LD,EC$:IHELP)Z(LE):YI:ZOA$(Y)(A$(Y),2):239)A$(Y)(A$(Y),ZO)(A$(Y),ZO):239)IZ(Y$)(A$(Y))O:IO242*YLD242:A$(YO)(A$(YO)233:Y$"Y"236:235[(18:"Confirmation required? ";:Y$:Y$:93:(Y$"Y"Y$"N")236(F$(O)F$(O)EC$:ER0:Y$"Y"ERO(Y$F$(0)(I(Y)Z,LD,Y$:I0253("*";:(C):YI:Z(LE):ER249(Z(Y$)O(A$(Y))247!)F$(3)F$(O)(A$("y"230'124;'ZZO:Z(A$(Y))ZO:YYO:YLDYLDD'226b'95:"None found":9:125'::G:LE,40:10:"Replace what? or RETURN only to cancel":F$(0):F$(0)""119'14:"With what?":F$(O)(18:"Correct? ";:Y$:Y$:93:Y$"N" ";:Y$:I(Y$):IOILDĹTT,2:TB,24:124@&YI:XY10:120U&Z(A$(LD)):119&95:"Find what?":LE,40:G:Y$:Y$""124&I(Y)Z,LD,Y$:I0232&YI:Z(LE):XY10:XOXO'95::"Search further?":10:5:F$(0)::F$(0)"Y"F$(0)'%A$(O)A$(MAX):F$(0)F$(99):991%330G%D$;"RUN MENU,D1"Q%326_%30:331h%119p%95%"Jump: Beginning, End, Number ";:(C):Y$:Y$:93:Y$"B"117%Y$"E"YLD:XLD19:224%Y$"N"219,&:G:LE,3:"Which line?o long":3$"Document not in 80 column format":$::G:LE,O:10:"Have you finished with this document? ";:Y$:93:Y$"Y"119$327$30$:10:"Do you want to work on another file? ";:Y$:Y$:93:Y$"Y"212$Y$"N"213%209SE":YOZOY0:200I#Y$"_":Y(Y)Z,LD,Y$:Y0YLD:Z(A$(Y)):201W#YLD201v#A$(YO),A$(LD)A$(YKO)#F$(0),F$(KO)A$(YO):LDLDK:Y0YO#XY10:119#D$;"CLOSE":95:ER204,205:10:125 $"Document to be inserted is toA$(K)"_"0"LDK:YLD:XLD19:Z(A$(LD)):119M"N:81:84:K0İ10:125"D$;"OPENT."F$(K):D$;"READT."F$(K):K:L:KLDMAXK100ERO:203"L80ER2:203"P:P195"N:IOK:F$(IO):M(0)2įF$(0)F$(99):ERO:203#:D$"CLO:LE,LL:S:"Adding text: ESC RETURN to exit":TB$:TT,2:3:LD0LDO:191j!A$(LD)"_"A$(LD)"":187!(A$(LD),O)"_"A$(LD)(A$(LD),(A$(LD))O)!XLD5:XOXO!LDO190!IXLDO:A$(I):!A$(LD)""X(X)A$(LD)'"KLD:JM$"Y"120 Y$"N"179 10:"Set tabs by typing '1' in the required":"place":7:Y$:Y$Y$(TB$,(Y$)O):(Y$,LL1,O)"1"Y$(Y$,LL2)"1" J0:IO(Y$):(C):(Y$,I,O)"1"(Y$,I,O)"!"ĹTAJ,I:JJO :TAJ,0:13:178K!(C)::(K),(A$(K))O)A$(MAXP):A$(MAXPO),A$(MAX)A$(KO):LDLD(KY)eYK:XY10:LD(LD)Y,LL:12095:"Deleting: ->, >, Return, X, E":TT,2:TB,24:IY:JZ:KX:48::LE,LL:G:"Present tabs are:":6:TB$ 10:"Correct? ";:Y$:Y$:93:Y4:JLDJLDDIYOJ:A$(I)::TB,16:3:JY5:JOJO:YO172ZIJYO:A$(I):}PLDY:P0A$(MAX)A$(Y):174A$(Y),A$(LD)A$(MAXP)KY:JMAXPO:16:Z(A$(K)):A$(K)"_"įA$(MAXP),A$(MAX)A$(K):LDLD(KY):176CA$(K)(A$;MAXLD;" lines":1266(C):YLDZ(A$(LD))184dZ(A$(Y))(A$(Y),O)"_"YYO:ZO:165qZO169Y$(A$(Y),ZO):A$(Y)(A$(Y),Z):L(0)Y$ LE,LL:S:::"Inserting text: ESC RETURN to exit":TB$:TT,2:18::ZO);::A$(Y):JY20:121-IX20:ILD19YLD:XLD19:121AXI:YY20:124wY$"_":Y(Y)ZO,LD,Y$:Y0YLD:Z(A$(Y)):163Z(LE)YX19125:XY10:12095:Y$"":F$(O)F$(99):A$(LDO)A$(MAX):(A):IPK(111)PK(109):I;" characters";20)Z(Z)A$(Y):Z0ZO!126.YO126YYYO:Z(A$(Y)):Z(Z)A$(Y):Z0ZOfYX121o125|YO126YYO:YX121125YLD126YX19156YYO:125XX10:YYO:XLD19XLD19124XX20:YYSO133,153SO137,150/SO141,159@SO143,158WZ(A$(Y))O135fZZO:126YLDZ(A$(Y))O:126ZO:153ZO139ZZO:126YO126Z(A$(YO)):150Z(Z)A$(Y):Z0135126ZO146TAIO,0:13:LD0:332!u184+v332?wYO:XO:ZO:SOExUyYXXY10bzXOXOo{YOYOw|10~}7~5I(0):I129,130,131,132,165,177,207,216,184,193,219,128,226,234,281,164,178,255,278,297,161,127:SS:125 13:118q:LE,8:Gr8:"Type in the name of the new document":"--> ";:ND$:ER0:IO(ND$):(ND$,I,O)","(ND$,I,O)":"EROs:ERĺ:"No commas or colons are allowed in a document name":114tI0:L5LL15:TAI,L:IIO::TAI,LL1:;ND$:LD:L:I0:L40İ14:"THIS DOCUMENT IS NOT IN 40 COLUMN FORMAT":15{mLDMAXİ14:"THIS DOCUMENT IS TOO LONG":15nX:TAI,X:IIO:X110oN:IOLD:A$(I):M(0)3İ14:A$(O)A$(MAX):"THIS DOCUMENT IS TOO LONG":15p:D$;"CLOSE":):96A23:36,20:"Press RETURN when ready to continue ";\(C):Y$:Y$(13)3d:Z(A$(Y))OZ(A$(Y))OYX3:36,ZO:95::DR$(S);::5);:M(0)3ĺ"Memory now full - start another document":9 "Current line -ry another":3245C314"5D2:95E900:332:315:99Q5F900:332:315:215i5G900:332:315:2085H900:332:318:965I900:332:312:318:995J900::10:"Put the program disk in Drive 1":2:2145K900:332:312:318:1176LER(222:8:ER8ĺ"Check the operation of the disk drive":324h4?ER9ĺ"This disk is full, use another":3244@ER4ĺ"Remove the write protect label":3244AER10ĺ"This file is locked, select another file name":3245BER5ĺ"This file is corrupted, tT,0:2:15:"Confirm this action? ";:Y$::93:Y$"Y"ıC37:124U38ER11ER3ıe39ER2551173:::10:"Error #";ER;" in line ";PK(218):3;ER53173<312:318:3=D$;"CLOSE":D$;"OPEN Index":D$;"WRITE Index":0:D$;"CLOSE":74>:KPO)2/LDOLDO(20YPO:YOYOP21(A$(LD),1)"_"A$(LD)A$(LD)"_"Y2211923310:A$(Y)(A$(Y),Z):A$(O)A$(YO):LD(LD)O,LL:YO:ZO:11924310:A$(Y)(A$(Y),Z):(A$(Y),O)"_"A$(Y)A$(Y)"_"25LDY:A$(YO)A$(MAX):119836T:"Wipe: all Above, all Below, Paragraph":"Exit";:9:5:Y$:93:Y$"E"125:Y$"A"308:Y$"B"309:Y$"P"298:2971*311:PY1+(PO(A$(PO),O)"_")PPO:2991,KY1-(KLD(A$(K),O)"_")KKO:3011.KLDLDPO:A$(P)A$(MAX):304LD(A$(K),O)"_")291b0$A$(I),A$(K)A$(P):LKIO:F$(0),F$(J)A$(PL):YPL:XY10:ZO:120o0%PO1250&A$(P),A$(K)F$(0):IPO0'PPO:(PO(A$(PO),O)"_")2950(A$(P),A$(I)A$(PJO):F$(0),F$(J)A$(P):YP:XY10:ZO:120u1)95(A$(K),O)"_")KKO:284]/JKP:95:J100ĺ"Paragraph is too long to be moved":9:126/O:"Move a paragraph: Up, Down, Exit ";:Y$:Y$:93:Y$"E"125/Y$"U"293/ Y$"D"286/!KLD125/"A$(P),A$(K)F$(0):IKO0#KKO:(K06:512K,P%(K)::q.95:"Exchanging - ESC RETURN to exit":G:TT,2:TB,24:5:LE,(A$(Y))ZO:Y$:ZO280.Y$(A$(Y),ZO)Y$.A$(Y)Y$(A$(Y),(Y$)O):Z(Y$)O:125.PY:(C).(PO(A$(PO),O)"_")PPO:282.KY/(KLD$(Y),O)"_"YYO:258%- YYO:268S-D$;"PR#";(864):277:(865)271,272,273l-I$;"255N";I$;"K";:r--1656(864),255:1528(864),255:-276::D$;"PR#0":-274:12:"NEW PAGE":2:270::262-K06:P%(K)(512K)::.K:258&,LLO:L(885)(884)O265X,A$,F$,Y,LD:YPK(226):(887)ĺ(10);:LL1o,885,0:(ES)261x,258, LO:IPK(889):IIO:I65535IO, 890,(I256):889,I(I256)256:(LE)275, JO(880):"-";::::I".":262- (A ";:Y$:Y$:93:Y$"E"125:(Y$"S"Y$"P")256:255k+I099:F$(I)"XXXX"::LE,255:Y$"P"ĹLE,0:270~+:::YO:LO+YLDİ274:(LE)0118:Y$:118+(A$(Y),2)"{H"(A$(Y),2)"{h"268,(A$(Y),2)"{F"(A$(Y),2)"{f"įFA$(Y):YYO*YLD243:A$(YO)(A$(YO),I):243Z*95:"Replace? Yes, No, Exit":XY10:XOXO*10:5:F$(3)::F$(3)"Y"F$(3)"y"242*F$(3)"E"F$(3)"e"254*ZZO:240*95:"Scan complete":1185+95:"Print document: Screen, Paper, Exit$(Y))248@)F$(3)F$(O)(A$(Y),Z(Y$)):ZOA$(Y)F$(3):245])A$(Y)(A$(Y),ZO)F$(3))LD(LD)Y,LL:I(O)Z,LD,EC$:IHELP)Z(LE):YI:ZOA$(Y)(A$(Y),2):240)A$(Y)(A$(Y),ZO)(A$(Y),ZO):240)IZ(Y$)(A$(Y))O:IO243'Correct? ";:Y$:Y$:93:Y$"N"234:Y$"Y"237:236z(18:"Confirmation required? ";:Y$:Y$:93:(Y$"Y"Y$"N")237(F$(O)F$(O)EC$:ER0:Y$"Y"ERO(Y$F$(0)(I(Y)Z,LD,Y$:I0254("*";:(C):YI:Z(LE):ER250 )Z(Y$)O(A0:5:F$(0)::F$(0)"Y"F$(0)"y"231/'125Z'ZZO:Z(A$(Y))ZO:YYO:YLDYLDc'227'95:"None found":9:126'::G:LE,40:10:"Replace what? or RETURN only to cancel":F$(0):F$(0)""120'14:"With what?":F$(O)4(18:"20K&:G:LE,3:"Which line? ";:Y$:I(Y$):IOILDĹTT,2:TB,24:125_&YI:XY10:121t&Z(A$(LD)):120&95:"Find what?":LE,40:G:Y$:Y$""125&I(Y)Z,LD,Y$:I0233&YI:Z(LE):XY10:XOXO&'95::"Search further?":1"213%Y$"N"214%210F%A$(O)A$(MAX):F$(0)F$(99):101P%331f%D$;"RUN MENU,D1"p%327~%30:332%120%95%"Jump: Beginning, End, Number ";:(C):Y$:Y$:93:Y$"B"118%Y$"E"YLD:XLD19:225&Y$"N"2"Document to be inserted is too long":Q$"Document not in 40 column format":$::G:LE,O:10:"Have you finished with this document? ";:Y$:93:Y$"Y"120$328$30%:10:"Do you want to work on another file? ";:Y$:Y$:93:Y$"YF$(99):ERO:2043#:D$"CLOSE":YOZOY0:201g#Y$"_":Y(Y)Z,LD,Y$:Y0YLD:Z(A$(Y)):202u#YLD202#A$(YO),A$(LD)A$(YKO)#F$(0),F$(KO)A$(YO):LDLDK:Y0YO#XY10:120#D$;"CLOSE":95:ER205,206:10:126'$AX:16:(A$(K),O)"_"A$(K)A$(K)"_"N"LDK:YLD:XLD19:Z(A$(LD)):120k"N:81:84:K0İ10:126"D$;"OPENT."F$(K):D$;"READT."F$(K):K:L:KLDMAXK100ERO:204"L40ER2:204"P:P196#N:IOK:F$(IO):M(0)2įF$(0)ent: ESC RETURN to exit":TB$:TT,2:3:LD0LDO:190U!A$(LD)"_"A$(LD)"":186!(A$(LD),O)"_"A$(LD)(A$(LD),(A$(LD))O)!XLD5:XOXO!LDO189!IXLDO:A$(I):!A$(LD)""X(X)A$(LD)"KLD:JMAX:16:(A$(K),O)"10:"Set tabs by typing '1' in the required place":7:Y$:Y$Y$(TB$,(Y$)O):(Y$,LL1,O)"1"Y$(Y$,LL2)"1" J0:IO(Y$):(C):(Y$,I,O)"1"(Y$,I,O)"!"ĹTAJ,I:JJO :TAJ,0:13:1776!(C):::LE,LL:S:"Adding at end of documAXPO),A$(MAX)A$(KO):LDLD(KY)EYK:XY10:LD(LD)Y,LL:11995:"Deleting: ->, >, Return, X, E":TT,2:TB,24:IY:JZ:KX:48::LE,LL:G:"Present tabs are:":6:TB$10:"Correct? ";:Y$:Y$:93:Y$"Y"119Y$"N"178t ::TB,16:3:JY5:JOJO:YO171:IJYO:A$(I):]PLDY:P0A$(MAX)A$(Y):173zA$(Y),A$(LD)A$(MAXP)KY:JMAXPO:16:Z(A$(K)):A$(K)"_"įA$(MAXP),A$(MAX)A$(K):LDLD(KY):175#A$(K)(A$(K),(A$(K))O)A$(MAXP):A$(MYLDZ(A$(LD))183DZ(A$(Y))(A$(Y),O)"_"YYO:ZO:164QZO168Y$(A$(Y),ZO):A$(Y)(A$(Y),Z):L(0)Y$LE,LL:S:::"Inserting text: ESC RETURN to exit":TB$:TT,2:18::ZO);::A$(Y):JY4:JLDJLD$IYOJ:A$(I):XLD19:120!XI:YY20:123WY$"_":Y(Y)ZO,LD,Y$:Y0YLD:Z(A$(Y)):162cZ(LE)YX19124:XY10:11995:Y$"":F$(O)F$(99):A$(LDO)A$(MAX):(A):IPK(111)PK(109):I;" characters";20);MAXLD;" lines":125(C):5YO1259YYO:Z(A$(Y)):Z(Z)A$(Y):Z0ZOFYX120O124\YO125oYYO:YX120x124YLD125YX19155YYO:124XX10:YYO:XLD19XLD19123XX20:YY20:120 IX20:ILD19YLDSO140,158 SO142,1577Z(A$(Y))O134FZZO:125bYLDZ(A$(Y))O:125oZO:152|ZO138ZZO:125YO125Z(A$(YO)):149Z(Z)A$(Y):Z0134125ZO145Z(Z)A$(Y):Z0ZO123 u331vYO:XO:ZO:SO%w5xYXXY10ByXOXOOzYOYOW{10^|7e}5~I(0):I128,129,130,131,164,176,206,215,183,192,218,127,225,233,280,163,177,254,277,296,160,126:SS:124SO132,152SO136,149:"Type in the name of the new document --> ";:ND$:ER0:IO(ND$):(ND$,I,O)","(ND$,I,O)":"EROr:ERĺ:"No commas or colons are allowed in a document name":113sI0:L5LL15:TAI,L:IIO::TAI,LL1:TAIO,0:13:LD0:331t18THIS DOCUMENT IS NOT IN 80 COLUMN FORMAT":15^lLDMAXİ14:"THIS DOCUMENT IS TOO LONG":15zmX:TAI,X:IIO:X109nN:IOLD:A$(I):M(0)3İ14:A$(O)A$(MAX):"THIS DOCUMENT IS TOO LONG":15o:D$;"CLOSE":13:117p:LE,8:Giq8900:333:313:319:118'6MER(222): to continue ";U(C):Y$:Y$(13)3]:|Z(A$(Y))OZ(A$(Y))OYX3:36,ZO:95::DR$(S);::5);:M(0)3ĺ"Memory now full - start another document":9"Current line - ";Y ER5ĺ"This file is corrupted, try another":325;5D315D5E2:\5F900:333:316:101t5G900:333:316:2165H900:333:316:2095I900:333:319:965J900:333:313:319:1015K900::10:"Put the program disk in Drive 1":2:2156LTE Index":0:D$;"CLOSE":Y4?::8:ER8ĺ"Check the operation of the disk drive":3254@ER9ĺ"This disk is full, use another":3254AER4ĺ"Remove the write protect label":3254BER10ĺ"This file is locked, select another file name":32525CLDY:A$(YO)A$(MAX):120Z37TT,0:2:15:"Confirm this action? ";:Y$::93:Y$"Y"ıe38:125w39ER11ER3ı3:ER2551183;::10:"Error #";ER;" in line ";PK(218):3<ER53183=313:319:4>D$;"CLOSE":D$;"OPEN Index":D$;"WRI(2/A$(KO),A$(LD)A$(P):LDLD(KPO)720LDOLDOJ21YPO:YOYOr22(A$(LD),1)"_"A$(LD)A$(LD)"_"{2312024311:A$(Y)(A$(Y),Z):A$(O)A$(YO):LD(LD)O,LL:YO:ZO:12025311:A$(Y)(A$(Y),Z):(A$(Y),O)"_"A$(Y)A$(Y)"_"36:XY10:ZO:1191(95:"Wipe: all Above, all Below, Paragraph, Exit";:9:5:Y$:93:Y$"E"124:Y$"A"307:Y$"B"308:Y$"P"297:2961)310:PY1*(PO(A$(PO),O)"_")PPO:2981+KY1,(KLD(A$(K),O)"_")KKO:3002-KLDLDPO0):IKO.0"KKO:(KLD(A$(K),O)"_")290z0#A$(I),A$(K)A$(P):LKIO:F$(0),F$(J)A$(PL):YPL:XY10:ZO:1190$PO1240%A$(P),A$(K)F$(0):IPO0&PPO:(PO(A$(PO),O)"_")2941'A$(P),A$(I)A$(PJO):F$(0),F$(J)A$(P):YP281 /KY2/(KLD(A$(K),O)"_")KKO:283u/JKP:95:J100ĺ"Paragraph is too long to be moved":9:125/O:"Move a paragraph: Up, Down, Exit ";:Y$:Y$:93:Y$"E"124/Y$"U"292/Y$"D"285/ KLD1240!A$(P),A$(K)F$((K)(512K)::,.K06:512K,P%(K)::.95:"Exchanging - ESC RETURN to exit":G:TT,2:TB,24:5:LE,(A$(Y))ZO:Y$:ZO279.Y$(A$(Y),ZO)Y$.A$(Y)Y$(A$(Y),(Y$)O):Z(Y$)O:124.PY:(C)/(PO(A$(PO),O)"_")PPO:YO:2677- D$;"PR#";(864):276:(865)270,271,272P-I$;"255N";I$;"K";:V-~-1656(864),255:1528(864),255:-275:K02:D%(K)(K41515):::D$;"PR#3":K02:41515,D%(K)::-273:::12:"NEW PAGE":2:269::261.K06:P%884)O264<,A$,F$,Y,LD:YPK(226):(887)ĺ(10);:LL1S,885,0:(ES)260\,257,LO:IPK(889):IIO:I65535IO, 890,(I256):889,I(I256)256:(LE)274, JO(880):"-";::::I".":261, (A$(Y),O)"_"YYO:257 - Y124:(Y$"S"Y$"P")255:254T+I099:F$(I)"XXXX"::LE,255:Y$"P"ĹLE,0:269g+:::YO:LO+YLDĴ(LE)0333:Y$:117+(A$(Y),2)"{H"(A$(Y),2)"{h"267+(A$(Y),2)"{F"(A$(Y),2)"{f"įFA$(Y):YYO:257 ,LLO:L(885)((A$(YO),I):242C*95:"Replace? Yes, No, Exit":XY10:XOXOp*10:5:F$(3)::F$(3)"Y"F$(3)"y"241*F$(3)"E"F$(3)"e"253*ZZO:239*95:"Scan complete":117+95:"Print document: Screen, Paper, Exit ";:Y$:Y$:93:Y$"E"(O)(A$(Y),Z(Y$)):ZOA$(Y)F$(3):244G)A$(Y)(A$(Y),ZO)F$(3)r)LD(LD)Y,LL:I(O)Z,LD,EC$:IHELP)Z(LE):YI:ZOA$(Y)(A$(Y),2):239)A$(Y)(A$(Y),ZO)(A$(Y),ZO):239)IZ(Y$)(A$(Y))O:IO242*YLD242:A$(YO)3:Y$"N"233:Y$"Y"236:235d(18:"Confirmation required? ";:Y$:Y$:93:(Y$"Y"Y$"N")236(F$(O)F$(O)EC$:ER0:Y$"Y"ERO(Y$F$(0)(I(Y)Z,LD,Y$:I0253("*";:(C):YI:Z(LE):ER249(Z(Y$)O(A$(Y))247*)F$(3)F$Y"F$(0)"y"230'124D'ZZO:Z(A$(Y))ZO:YYO:YLDYLDM'226k'95:"None found":9:125'::G:LE,40:10:"Replace what? or RETURN only to cancel":F$(0):F$(0)""119'14:"With what?":F$(O)(18:"Correct? ";:Y$:Y$:9ich line? ";:Y$:I(Y$):IOILDĹTT,2:TB,24:124I&YI:XY10:120^&Z(A$(LD)):119&95:"Find what?":LE,40:G:Y$:Y$""124&I(Y)Z,LD,Y$:I0232&YI:Z(LE):XY10:XOXO'95::"Search further?":10:5:F$(0)::F$(0)" %2090%A$(O)A$(MAX):F$(0)F$(99):99:%330P%D$;"RUN MENU,D1"Z%326h%30:331q%119y%95%"Jump: Beginning, End, Number ";:(C):Y$:Y$:93:Y$"B"117%Y$"E"YLD:XLD19:224%Y$"N"2195&:G:LE,3:"Whted is too long":<$"Document not in 80 column format":$::G:LE,O:10:"Have you finished with this document? ";:Y$:93:Y$"Y"119$327$30$:10:"Do you want to work on another file? ";:Y$:Y$:93:Y$"Y"212%Y$"N"213:D$"CLOSE":YOZOY0:200R#Y$"_":Y(Y)Z,LD,Y$:Y0YLD:Z(A$(Y)):201`#YLD201#A$(YO),A$(LD)A$(YKO)#F$(0),F$(KO)A$(YO):LDLDK:Y0YO#XY10:119#D$;"CLOSE":95:ER204,205:10:125$"Document to be inser_"A$(K)A$(K)"_"9"LDK:YLD:XLD19:Z(A$(LD)):119V"N:81:84:K0İ10:125"D$;"OPENT."F$(K):D$;"READT."F$(K):K:L:KLDMAXK100ERO:203"L80ER2:203"P:P195"N:IOK:F$(IO):M(0)2įF$(0)F$(99):ERO:203#  #\ I@Lm|,P Lm LR| IL\ I@L~ ,d, H h,PH h LLTL PQL ߠC#ȱ##LȄ45zy 454L aL-| L\ @L~ L,1 %| IL4\,_ L4 ,P2 ive 1":2:214+6K900:332:312:318:117;6LER(222):K6M273::117h:Y$(13)3d:Z(A$(Y))OZ(A$(Y))OYX3:36,ZO:95::DR$(S);::5);:M(0)3ĺ"Memory now full - start another document":9 "Current line -er file name":324H5BER5ĺ"This file is corrupted, try another":324Q5C314Z5D2:q5E900:332:315:995F900:332:315:2155G900:332:315:2085H900:332:318:965I900:332:312:318:996J900::10:"Put the program disk in Dr;"OPEN Index":D$;"WRITE Index":0:D$;"CLOSE":o4>::8:ER8ĺ"Check the operation of the disk drive":3244?ER9ĺ"This disk is full, use another":3244@ER4ĺ"Remove the write protect label":3245AER10ĺ"This file is locked, select anoth"A$(Y)A$(Y)"_"135LDY:A$(YO)A$(MAX):119p36TT,0:2:15:"Confirm this action? ";:Y$::93:Y$"Y"ı{37:12438ER11ER3ı39ER2551173:::10:"Error #";ER;" in line ";PK(218):3;ER53173<312:318:04=D$;"CLOSE":D$:A$(P)A$(MAX):303>2.A$(KO),A$(LD)A$(P):LDLD(KPO)M2/LDOLDO`20YPO:YOYO21(A$(LD),1)"_"A$(LD)A$(LD)"_"2211923310:A$(Y)(A$(Y),Z):A$(O)A$(YO):LD(LD)O,LL:YO:ZO:11934310:A$(Y)(A$(Y),Z):(A$(Y),O)"_Do you want to try another disk? Press ESC to return to directory ";:Y$:Y$:93:Y$"Y"99pgY$(27)ė:213hY$"N"112i102jND$F$(K)::12:36,20:"*** READING ";ND$;" ***":D$;"OPEN T.";ND$:D$;"READ T.";ND$:LD:L:I0-kL80İ14:":G$(7):I$(9):EC$(11):EL$(29):DV(PA2):MAX500:LL78bA$(MAX20),F$(99),DR$(O),TA$(O),P%(6),D%(2):DR$(O)"!":DR$(0)"-":TA$(0)"-":TA$(O)"!":PK(X)(X)(XO)256:M(X)(112)(110)c325d81:84:329eK0106[f22:EC$:"N85 [@\:2:"There are no documents on this disk":K0:d]Y$"a"Y$"z"Y$((Y$)32)j^_TT,0:TB,2:O::`216,0::(4);"MAXFILES1":328=a(4);"BRUN TE/LC.CODE,D1,A$B6DC":O1:LE768:ES769:TA773:TT34:TB35:PA864:D$(4)re:"::K0:ION:K13O(I10));I;". ";F$(I);:KKO:K6K0:IV:W22:"Do you want to work on one of these? ";:Y$:Y$:93:Y$"N"K0:XY$"Y"87YNOKO:Z22:EC$:LE,2:"Which document? (1 - ";N;") ";:G:Y$:K(Y$):KOK0:36,20:"Place your files disk in Drive ";DV:2:D$;"OPEN Index,D";DV:D$;"READ Index":N:N83|RION:(C):F$(I):SD$;"CLOSE"::D$;"CLOSE":D$;"OPEN Index,D";DV:D$;"WRITE Index":0:D$;"CLOSE":TN092AU:"Documents on this disk aZ)BIA$(IO)A$(Y):ZIY:LD(LD)Z,LL::I1LD(LD)I1,LLWJYI:ZJ:XK:119{KLDI:JOA$(LD)"":LDLDO:77LA$(LD)(A$(LD),JO)MLD0LDON(A$(LD),O)"_"A$(LD)A$(LD)"_"OILDILDPA$(LDO)A$(MAX):74bQ::18<ZO:YX1962=480>XY10:XOXOA?:PX19:LXR@LLDLP48fALIĺA$(L):69BLIĭJOĺ(A$(L),JO):69CLYĺA$(L):69DELLO:64FYLD75G(C):JOA$(I)(A$(Y),Z):73HA$(I)(A$(I),JO)(A$(Y),:Y$:Y$:93:Y$"Y"42&.Y$"N"30./45F05:L(0):L1974R1L770_2YLD48k3LO55w4L3575L21596487" ";:ZZO:Z(A$(Y))598489L(Z)A$(Y):L59:PZLO:" ";::ZL:48;EL$;:YYO:YLD40:D$;"WRITET.";ND$:LD:80:+J(TAI):J:JIIO:43,IOLD:A$(I)::D$;"CLOSE":D$;"OPEN Index":D$;"WRITE Index":N:ION:F$(I)::D$;"CLOSE":-16:"There is already a file with this name on the disk":"Do you want to over-write it? ";me":36) &ER0:ION:F$(0)F$(I)ERO6 ':ER45v (N50ė:"No more documents can fit on this disk":10:125 )NNO:F$(N)F$(0)*:12:36,20:ND$F$(0):"*** WRITING ";ND$;" ***":D$;"OPENT.";ND$;",D";DV:D$;"DELETET.";ND$:D$"OPENT.";ND$:I:Y$:Y$:93:Y$"Y"ı& "Y$"N"33S #:10:"Current file name is ";Q$;ND$;Q$ $14:G:LE,8:"Type the new file name --> ";:F$(0):ER0:IO(F$(0)):(C):(F$(0),I,O)","(F$(0),I,O)":"ERO %:ERĺ"No commas are allowed in a document naK116 K222. IXK2:A$(I)::22^ N:81:::10:"Current file name is ";ND$ 14:"Do you want the document filed under this name? ";:Y$:Y$:93:Y$"Y"F$(0)ND$:38 Y$"N"31 !20:"Do you want to avoid saving the file? ";:EC$;:A$(K):A$(K)" "19:(ES)KKO:16= (ES)Oı` A$(K)"":L(TB)1L(TB)2r LLO:L226 LO:KO16 KKO:(A$(K),1)"_"25 (A$(K))216 A$(K)(A$(K),(A$(K))1) L(0)A$(K):16 :XK5:XOXO  ";Y TT,2:TB,24:8 TT,2:TB,24:3::JX19:IXH ILDIJı] A$(I):IIO:11 TB$"":K0:IOLL1:(C):TB$TB$TA$((TAK)I):KK((TAK)I)::: :D$;"CLOSE":::12:G$;G$;: IO5000::99 KJM(0)3ı. L(37)L. 96A23:36,20:"Press RETURN when ready to continue ";\(C):Y$:Y$(13)3d:Z(A$(Y))OZ(A$(Y))OYX3:36,ZO:95::DR$(S);::5);:M(0)3ĺ"Memory now full - start another document":9 "Current line -                          kiliee` LL!,PL| ɕ?ɛ )ߢ0h}LηLηɍ WLLηL!۪ @L|LƍL|Ɉʩ H R hȥoȥpL 8L  ýHHhh ýi8 ` LKiBC>?<=8 L L ߠ` *ee   ýL ý7ΰʽ_ Q ýL ~- ~ -  L<=HH  ýi>i?iBiChh Le  ʽ H R hȥoȥp$02 L ý  LۺL2L~-  Lʽ ~- ~ - Ȣ LΈ0 ~ -Έȹ ȹșФ΢ Le@Ȅв( ~-  ýȌLL⥡ g ᥡ g ᥡΥ L ý L LL_L )߅L╈ʠ׍ <$ ~ ~ȩL < ~0ޱ ~   @L ` g ᥡ g ᥡ  Le ýL`$ $Lɍ&ɠ @ɍ$ȩ !L Lߝ 詍ӄ DɠAɭɠ @$Lƽɠн )LLη ᥡ<øѸLȊH h ˸HʸH`Ѿ ?ոfk $L PQLLL!,PL| ɕ?ɛ )ߢ0h}LηLηɍ WLLηL!۪ @L|LƍL|Ɉ     ERSION ON":"APPLE //E"::"USE THE APPLE //E VERSION SUPPLIED WITH":"YOUR SEASEN DOCUMENT SYSTEM."Y(4);"BRUNDDMOVER"D$(4):PA864:CA880"PA - HARDWARE INFO, CA - SCRATCH REGION(::6:9:"SEASEN DOCUMENT SYSTEM" 2:16);"MARK ]["X4ĹPA3,1:KB1:1260(PA3,0:KB01FL1:320d104,168,104,166,223,154,72,152,72,96 32,234,3,162,20,76,18,212NO CARD,UNRECOGNISED CARD,DISK CARD,COMMUNICATIONS CARD,SERIAL CARD,PARALLEL CARD:d"12:"DO NOT USE THIS VINE ";(218)(219)256:T23:"PRESS WHEN READY ";:Y$:Y$(13)1160\:m:D$;"PR#6"I12:X(CA1I):X3X51210:PA,0:PA1,2:1230PA,I:X5ĹPA1,1:1230PA1,2PA2,1PA4,128X(CA2):TE PROTECT LABEL":1160OLX8ĺ"CHECK THE OPERATION OF THE DISK DRIVE":1160VX6ĺ"IS THE CORRECT DISK IN THE DRIVE?":1160`X4ĺ"REMOVE THE WRITE PROTECT LABEL":1160jX255X40ĉ::D$;"CLOSE":1180tX51190~"ERROR #";X;" IN LI)::KB:D$;"CLOSE"F(PA3)ĺD$;"PR#3":"CONNECT 80 COLUMN CARDSPA5,KBe(PA)01060(PA)1050,1060,1070D$;"EXEC PARALLEL":$D$;"EXEC SERIAL":.D$;"EXEC PARALLEL":8B900:X(222):::2:X4ĺ"REMOVE THE WRIE KEYBOARD"n21:"TYPE 'S' TO ALLOW FOR NEW HARDWARE":"TYPE ANY OTHER KEY TO USE SYSTEM";:16368,0:Y$:Y$"S"Y$"s"320FL1020D$;"OPEN STATUS":D$;"CLOSE":D$;"DELETE STATUS":D$;"OPEN STATUS":D$;"WRITE STATUS":I04:(PASOM":910?14:"UNDERLINING - ";:(PA4)ĺ"SUPPORTED":930T"NOT SUPPORTED"16:(PA3)ĺ"80 COLUMN CARD IN USE":950"NORMAL 40 COLUMN DISPLAY IN USE"18:KBĺ"HARDWARE UPPER/LOWER CASE KEYBOARD":970 "SOFTWARE UPPER/LOWER CAS :12:"PLACE THE COPY DISK IN DRIVE 1":2000:N723,4:46922,96aI1$"INDEX":I2$"Index":2:8:"SEASEN DOCUMENT SYSTEM"::5);"CONVERSION OF DOCUMENT FILES"(2);"PRE-SEPTEMBER, 1983 TO NEW FORMAT"' 210:"HOW MANY DISK DRIVES ARE YOT(T):T(T)TT1:180* I1LD:A$(I):: D$;"CLOSE"@ D$;"OPEN"I2$",D"DV:D$"WRITE"I2$:N:I1N:F$(I)::D$;"CLOSE"  23:"PRESS RETURN WHEN READY TO CONTINUE ";Y$ : :12:"PLACE THE ORIGINAL DISK IN DRIVE 1":2000:2V:2000 ZD$;"INIT BOOT,D"DV* dF1N: iDV1İ2020g nD$;"OPEN"F$(F)",D1":D$;"READ"F$(F):T0 xT(T):T(T)TT1:120 LD I1LD:A$(I): D$;"CLOSE" DV1İ2030 D$;"OPENT."F$(F)",D"DV:D$;"WRITET."F$(F):LD:40:T0 U USING? ";Y$:DV((Y$)):DV1DV250V <:12:"PLACE YOUR FILES IN DRIVE 1":2000 FD$;"OPEN"I1$",D1":D$;"READ"I1$:N:N076 KI1N:F$(I): LD$;"CLOSE" MN0ė:12:"NO FILES ON THIS DISK": P:12:"PLACE A BLANK DISK IN DRIVE ";D3$ D$(4):F$(50),A$(1000),T(40)E42344,76:44723,4:46922,96aI1$"INDEX":I2$"Index":2:8:"SEASEN DOCUMENT SYSTEM"::5);"CONVERSION OF DOCUMENT FILES"(2);"PRE-SEPTEMBER, 1983 TO NEW FORMAT"' 210:"HOW MANY DISK DRIVES ARE YO    z#?   ԠŠ !Юů0"ЮŠԠůîŠ Юůà0 ЯîŠ ŮԠDŮŠ Юů0ŠՠҠ Š" Ϡ ӠЮƠ̠ӮŠЮ̠͠I394#_P(4)I:I3P(4)0:1324`P(4)118,97:ab::6:"DISK INSERTION - using BROAD":TT,O:10:"Place then disk containing your BROAD":"File in Drive 1":147c:10:"Do you want to catalog the disk? ";:A$:A$:165:A$"Y"ĺ::D$;"C(4)1 YA$;Z16:"Correct? ";:A$:A$:165:A$"N"77K[A$"Y"90Z\P(4)132]:10:"Are insertions to be made:":12:"1. manually":"2. from a BROAD Data Base file":"3. not at all"^16:"Which? (1, 2 or 3) ";:A$:A$:I((A$)):I1(1);" ":9:25:A$:P(2)((A$)):P(2)P(1)P(2)70000`Q9:25:P(2)70000ĺ"END ":83rRP(2);" "SP(0)P(3)0:87T12:25:A$:165:A$"N"A$"Y":P(3)1:86UP(3)0VA$W14:35:A$:165:A$"Y"A$"N":P(4)0:89XP5:"Start at page number":"(RETURN for beginning)":8:"Stop at page number":"(RETURN for end)":11:"Pause for paper change":"between pages (Y/N)?"O14:"Are insertions to be made (Y/N)?":6:25:LE,5:A$:P(1)((A$)):P(1)2P(1)1<P6:25:PzH::"Documents are to be printed in this":"order:"::Y0:IOF:Y132);I10);I;". ";F$(F%(I));:YYO:Y3Y0:I:J22:"Is this correct? ";:A$:A$:165:A$"Y"77KA$"N"ĉ:64L74M:14);"PRINTOUT OPTIONS":G:161Nthe numbers beside the documents":"to be printed - 'END' to finish":TT,22:F0:LE,3C23:FFO:"#";F;" -> ";:A$:165:A$"END"FFO:71DF%(F)(A$):F%(F)OF%(F)XĺG$::20::"INVALID NUMBER"::FFO:67EFX71F:67GF0ĉ:60ENIndex,D";DV:D$;"READIndex":X:X063<>IOX:F$(I):L?D$;"CLOSE"@:"Documents on this disk are:"::X0ĺ"There are no files on this disk":147:60AY0:IOX:Y132);I10);I;". ";F$(I);:YYO:Y3Y0:UB::G:LE,3:21:"Type B35:LE768:ES769:FF$(12):LF$(10):Q$(34);MAX500(((55)190)300):D$(4):I$(9):DV(PA2):A$(MAX20),F$(50),F%(50),IS$(99),P(4),M%(6),ST(1),SB(1):PK(X)(X)(X1)256<160(=:N::10:"Place your files in Drive ";DV:147:D$;"OP(3)116,15:48"32:11:YLDı>4P(2)PK(889)NFF:55z5P(1)PK(889)āK06:M%(K)(512K)::167:P(1)1:486517:11:171:8(55)190ĺ(4);"BRUNP/LC.CODE,A$BC67,D1":589(4);"BRUN P.CODE,D1"/:O1:PA864:G$(7):TT34:T(1)K:2 +SB(0)I:SB(1)K:2j ,:12:"Set up the printer":147:LE,0:HE$"":FO$""::(PA)ĹLE,128 -I01:ST(I)0:SB(I)0::P(1)1İ167 .:L1:NF1F:F1NP1İ134 /Y1:P(1)151 02:YLD55 111:P(2)PK(889)NFF:552P33 Y$(Y$,(Y$)1)4 !YY1:A$"T"HE$Y$:2B "FO$Y$:2o #YY1:X$(Y$,2):X1:I((X$)):I1I0~ $I80I80 %X(X$)KI:42 &(X$,X,1)","40 'XX1:37 (XX1:K(((X$,X))):K0K0 )K80K80 *A$"T"ST(0)I:ST X$(A$(Y),1):X$" "X$"~"24: Y$Y$" "A$(Y):19N Y$Y$A$(Y):19i (Y$,1)Q$Y$(Y$,2) (Y$)2Y$"":33 (C):Y$(Y$,(Y$)1):(Y$,1)"}"30 (Y$)2Y$"":33 Y$(Y$,(Y$)1) (Y$,1)Q$33 (Y$)2Y$"":e a new sheet of paper":"in the printer":147::167:C FF$;:v (C):A$(A$(Y),3,1):165:(A$"T"A$"B")6 Y$(A$(Y),4):(Y$,1)"P"35 (C):(A$(Y),1)"_"25 YY1:(Y$)(A$(Y))13219 X$(Y$,1):X$" "X$"~"X$"-"24",LD:YPK(226):(887)ĺLF$;:LL17 885,0:(ES)7> 2f IL(884):LF$;::L(884)ĺLF$; FO$""XPK(889):SB((X2)X2));:X(0)FO$ L1:XPK(889):XX1:X65535X1 890,(X256):889,X(X256)256:7 171::12:"PlacH 56YLDıM(C):A$(A$(Y),2):165:A$"{F"įFA$(Y):YY1:3mL(885)(884)1Ĺ885,0:}A$"{H"17L1HE$""XPK(889):ST((X2)X2));:X(0)HE$:LF$;:(887)ĺLF$;LL1:L(885)(884)1Ĺ885,0:" A$,IS$,Y           ΠōΠՍ PQLLoDŽ u u1-)8H<8HD Hи`q`AAI)::KB:D$;"CLOSE"F(PA3)ĺD$;"PR#3":"CONNECT 80 COLUMN CARDSPA5,KBe(PA)01060(PA)1050,1060,1070D$;"EXEC PARALLEL":$D$;"EXEC SERIAL":.D$;"EXEC PARALLEL":8B900:X(222):::2:X4ĺ"REMOVE THE WRIE KEYBOARD"n21:"TYPE 'S' TO ALLOW FOR NEW HARDWARE":"TYPE ANY OTHER KEY TO USE SYSTEM";:16368,0:Y$:Y$"S"Y$"s"320FL1020D$;"OPEN STATUS":D$;"CLOSE":D$;"DELETE STATUS":D$;"OPEN STATUS":D$;"WRITE STATUS":I04:(PASOM":910?14:"UNDERLINING - ";:(PA4)ĺ"SUPPORTED":930T"NOT SUPPORTED"16:(PA3)ĺ"80 COLUMN CARD IN USE":950"NORMAL 40 COLUMN DISPLAY IN USE"18:KBĺ"HARDWARE UPPER/LOWER CASE KEYBOARD":970 "SOFTWARE UPPER/LOWER CASS>:6::"HARDWARE CONFIGURATION"::8:(PA)ĺ"PRINTER IS IN SLOT ";(PA):850lH"NO PRINTER IN USE"R10:"DISK DRIVES - ";(PA2)\(PA)930f12:"PRINTER TYPE - ";:(PA1)880,890,900p"PARALLEL":910z"SERIAL":910 "EPOF 80 COLUMN CARD? ";:Y$:Y$"N"Y$"n"770F(Y$"Y"Y$"y")720OFL1dPA3,((PA3))v(PA3)KB1(PA3)320 :"CHANGE OPERATION OF KEYBOARD? ";:Y$:Y$"N"Y$"n"320(Y$"Y"Y$"y")770 FL1*KBKB:3204vY$"Y"Y$"y"ĹPA4,1287Y$"N"Y$"n"ĹPA4,0@320:"CHANGE THE NUMBER OF DISK DRIVES? ";:Y$:Y$"N"Y$"n"710(Y$"Y"Y$"y")660FL1X(PA2):X1ĹPA2,2:320PA2,1:320(CA2)4770,:"CHANGE USE 1;D(CA1X)5ĹPA1,2:620:"SERIAL OR COMM. INTERFACEN20:"APPLE PARALLEL OR EPSOM INTERFACE?":"(A OR E) ";:Y$:Y$:Y$"A"Y$"a"ĹPA1,1:620XY$"E"Y$"e"ĹPA1,3:620bY$:590l"CAN THE PRINTER UNDERLINE? (MOST CAN) ";:Y$:Y$n"Y$"N"Y$"y")510,Y$"N"Y$"n"6605FL1:"WHICH SLOT (1 OR 2. 0 IF NO PRINTER.) ";:Y$:X(Y$):X0X2540&X:X0ĹPA,X:PA1,2:868,0:3200(CA1X)3(CA1X)5ė:"NO PRINTER INTERFACE HERE":I13000::490:PA,X:FL450"CANNOT";$" UNDERLINE"@:KBĺ"HARDWARE";:480Q"SOFTWARE";s" UPPER/LOWER CASE KEYBOARD"34,18::"IS THIS ALL CORRECT? ";:Y$:Y$"Y"Y$"y"ĉ:250(Y$"N"Y$"n")490:"CHANGE THE PRINTER? ";:Y$:(Y$"Y"Y$"1)1ĺ" - APPLE";6 ^(PA1)3(PA)Iĺ" - EPSOM";W h(PA)IĞ:35:"<--"::380] rc | :"NUMBER OF DRIVES - ";(PA2) :(PA3)ĺ"80 COLUMN DISPLAY":420 "40 COLUMN DISPLAY" (PA)460:"PRINTER ";:(PA4)ĺ"CAN";:WARE (PA)0280< X(CA1(PA)):(X3X5)ER1Z (PA3)ĭ(CA2)4ER1g "ER830q ,1190 6"SET UP PARAMETERS @::2::"ESTABLISH HARDWARE CONFIGURATION": J4:I12:X(CA1I) T"SLOT ";I;" - ";T$(X);:(PA)I(PAPE, 2 - NO OF DRIVES, 3 - 80 COL CARD, 4 - UNDERLINE.u " PRINTER TYPE: 1 - PARALLEL, 2 - SERIAL, 3 - EPSOM. " 80 COL CARD: 1 IF PRESENT, 0 IF NOT " UNDERLINE: $80 IF SUPPORTED, 0 IF NOT D$;"CLOSE" ER0:"FLAG FOR UNMATCHED HARDWER-UP BYTE n10907 xD$;"BRUN CARDS.CODE,A$9500"C D$(4)^ T$(5):I05:T$(I):g 768} D$;"OPEN STATUS" D$;"READ STATUS" I04:X:PAI,X: KB:"KEYBOARD U/L CASE - 0 IF SOFT8 " STATUS: 0 - PRINTER, 1 - PRINTER TYJ <16:7);"COPYRIGHT SEASEN SOFTWARE":7);"BOX 261, MYRTLEFORD, VIC."h F:11);"SEPTEMBER, 1983" K::13);48(((55)190)16);"K VERSION" PI09:X:900I,X: ZI968975:X:I,X: _42344,76:44723,4:46922,96 d1012,0:"UPSET POe-(64435)663000: APPLE //E SIGNATUREX (26);4::"DISCONNECT 80 COLUMN CARDy40206,0:(4);"BRUNDDMOVER"D$(4):PA864:CA880"PA - HARDWARE INFO, CA - SCRATCH REGION(::6:9:"SEASEN DOCUMENT SYSTEM" 2:16);"MARK ]["         olumn format":120Ik(867)LL40ĺ"Already in 40 column format":120WlI:I108pmN:I1LD:A$(I):n:D$;"CLOSE"oLL38:(867)LL78pI1qILD116rLD(LD)I,LL:LDMAXĺ"Document too long":120sII1:113.t"File c8eA$"E"96f:100jg:"Which file is to be converted? 1 - ";X;:" ";Y$:F((Y$)):F1FX46h:"Convert '";F$(F);"? ";:Y$:Y$:34:Y$"Y"106i46jY$F$(F):D$;"OPENT.";Y$:D$;"READT.";Y$:LD:LL:(867)LL80ė:"Already in 80 c900:21:24:15::46/_900:32:21:24:388`98Pa:D$;"RUN MENU,D1"b(222)6(222)8ĉ::12::"PLACE THE PROGRAM DISK IN DRIVE 1"::11:97c23dTT,20:21:"N - Put in a new disk":"E - Exit to directory ";:A$:36:A$"N"ĉ:3all data on the disk being intialized"]X:"Do you wish to continue? ";:A$:36:A$"Y"90gY:46Z:12:"Place the disk to be initialized":"in Drive ";DV:11[:12:8::" WAIT FOR DISK UNIT ":\D$;"INIT BOOT,D";DV]X0:15:38^I3ĺ"Lock ";:80!O"Unlock ";EPF$(J);"? ";:Y$:34:Y$"Y"82OQ:46lR:I3ĺD$;"LOCKT.";:84SD$;"UNLOCKT.";TF$(J)::46UV&W::12:"Initializing a new data disk":::"WARNING";::" - This operation will destroy":");"'? ";:Y$:34:Y$"Y"70%E:466F14:Y$F$(F)IGFXXX1:73jHIFX:F$(I)F$(I1)::XX1I:D$;"DELETET.";Y$J15::46K:I3ĺ"Lock ";:77L"Unlock ";M"which file (1 - ";X;:")? ";Y$:J((Y$)):J1JXĉ:46N::"This name already exists on the file":11::58<@:14sA:D$;"RENAMET.";F$(F);",T.";Y$:F$(F)Y$:15::46B:"Invalid file name":11::58C:"Which file to be Deleted 1 - ";X;:"? ";Y$:F((Y$)):F1FXĺG$::46D:"DELETE '";F$(F,8:"RENAME ";F$(F);" AS --> ";:Y$:Y$""50d;ER0:I1(Y$):(Y$,I,1)","(Y$,I,1)":"ER1q<:ER66=:"Old name -> ";F$(F):"New name -> ";Y$:"Correct";:A$:(A$"Y"A$"y"A$"N"A$"n")61>A$"N"A$"n"572?I1X:F$(I)Y$ėze disk C - Convert files"G4"N - New disk E - Exit to directory";h5Y$:34:I18:A$:Y$A$55t6::537::I56,67,75,75,86,96,103,3889:"Which file to be renamed? (1 - ";X;")";:" ";Y$:F((Y$)):F1FXĺG$::14:50.:LE"Documents on this disk are:":P /X0ĺ"There are no files on this disk":100 0Y0:I1X:Y132);I10);I;". ";F$(I);:YY1:Y3Y0: 1: 2TT,20:21:"R - Rename File D - Delete File":"L - Lock File U - Unlock File"3"I - InitialiY$"a"Y$"z"Y$((Y$)32)& #J $A$"a"A$"z"A$((A$)32)P %^ &G::95 ':10:"Place your files in Drive ";DV:11 (D$;"OPENIndex,D";DV )D$;"READIndex" *X:X044 +I1X:F$(I): ,D$;"CLOSE" -94 .::d, select another file name":31R (222)6ĺ"This file is not on the disk":31 (222)5ĺ"Is this a document system disk?":31 22 11: (222)8(222)5ĉ::12:"Is this disk to be initialized? ";:A$:A$"Y"A$"y"ġ:87 ! ""Error # ";(222);" in Line ";(218)(219)256:m ::10:(222)4ĺ"Remove the WRITE PROTECT label":31 (222)8ĺ"Check the operation of the disk drive":31 (222)9ĺ"This disk is full, use another":31 (222)10ĺ"This file is locke"Press RETURN when ready to continue ";:12:E Y$:Y$(13)::M 12S j :D$;"OPEN Index" D$;"WRITE Index" X:X019 I1X:F$(I): D$;"CLOSE"  (222)11(222)3ı :(222)255(222)20961 ::10:(4);"MAXFILES1"G(55)190ĺ(4);"BRUNTE/LC.CODE,A$B6DC":4f(4);"BRUNTE.CODE,A$9383"rD$(4)PA864:G$(7):TT34:TB35:LE768DV(PA2)R,D,L,U,I,E,C,NMAX800:(867)MAX500 A$(MAX50),F$(50) 38. 23:     ERSION ON":"APPLE //E"::"USE THE APPLE //E VERSION SUPPLIED WITH":"YOUR SEASEN DOCUMENT SYSTEM."(4);"BRUNDDMOVER"D$(4):PA864:CA880"PA - HARDWARE INFO, CA - SCRATCH REGION(::6:9:"SEASEN DOCUMENT SYSTEM" 2:16);"MARK ]["X4ĹPA3,1:KB1:1260(PA3,0:KB01FL1:320d104,168,104,166,223,154,72,152,72,96 32,234,3,162,20,76,18,212NO CARD,UNRECOGNISED CARD,DISK CARD,COMMUNICATIONS CARD,SERIAL CARD,PARALLEL CARD:d"12:"DO NOT USE THIS VINE ";(218)(219)256:T23:"PRESS WHEN READY ";:Y$:Y$(13)1160\:m:D$;"PR#6"I12:X(CA1I):X3X51210:PA,0:PA1,2:1230PA,I:X5ĹPA1,1:1230PA1,2PA2,1PA4,128X(CA2):TE PROTECT LABEL":1160OLX8ĺ"CHECK THE OPERATION OF THE DISK DRIVE":1160VX6ĺ"IS THE CORRECT DISK IN THE DRIVE?":1160`X4ĺ"REMOVE THE WRITE PROTECT LABEL":1160jX255X40ĉ::D$;"CLOSE":1180tX51190~"ERROR #";X;" IN LΠōΠՍ BUFF,Y XTEMPEND OF LINE POSITION #$0 E6 ;SET FLAG FOR AUTO START FLG #%01000000 FLG E6  CH #CR FINISH E5 XSTORE E6 *;SPACE FOUND SO SEARCH FOR NEXT NON-BLANK E2 E1REACHED START OF LINE IN,X CK FOR HYPHEN E1 "~ AND TITTLE E1 E0 E1 HYPHEN FOUND XTEMPMARK POSITION %;PLACE ALL NON BLANK CHARS IN BUFFER #$0 E3 XSTORE E4 IN,X  #SPACE E3 BUFF,Y  E3FORCED BRANCH E4 #$0MARK END OF BUFFER; ENDCLR: C2 "_ IN,X COUTSEND TO SCREEN  #CR FINISH ; ;ACTION WHEN END OF LINE COMES ; ENDLN : YSTORE $E0 SEARCH FOR SPACE OR HYPHEN #!10DON'T GO PAST 10TH CHAR E5 IN,X #SPACECHECK FOR SPACE E2 "-CHE6 #$2 EDIT1 L16 #" " CH COUT CH  START L17 #CR C2 #" " FINISH #$40MASK OUT CONTROL CHARS FINISHIN,X #CR NOTCR CH  #" " L20 COUT  $21 L20 #CR COUT NOTCR COUT  START HANDLE {F MACRO FORMATXSTORE F1 "L3AONLY VALID AT START OF LINE F1 "{ BUFF "F BUFF+1 BUFF+2 #$C0SET UP FLG FLG NEWLNPUT IN KEYBOARD BUFFER ; ;NON ESC CHARACTERS NOTESC: EXIT XSTORE #$88<- L17 #$0 L1STORE CURRENT X POSN ;SEARCH TAB POSNS. #$0 T4 TAB,X T5END OF TABS XTEMP T6  T4 T5 XTEMP T2 T6  XSTORE T5 #$0  BUFF,Y XTEMPINITIALIZE NEWLN FLG #%01000000 FLG YSTORE NEWLN ; ;GGED ; EDIT : #$1 EDIT1 ED.SIG #CR EXIT ; ;TAB FLAGGED ; TABS "~ TABCHR TABS1 XSTORE YSTORESTORE REGS. #$0 T2 TABCHR BUFF,Y   'LENGTHIF END OF LINE THEN TERMINATE T3 YSTORE ENDLN #T3 XTEMP$80 #$E0 L7A #$DF L7A #!21 L8 L9 LOOK,X L8 CHR,X EXIT NO.ESCNOTESC L9 :T; ;EXIT FLAG ; #CR EDIT "T TABS "F FORMAT ;EXTRA ESC CODE GO HERE 'L3ANOT VALID CODE GO ROUND AGAIN ; ;EDIT FLAT0 XTEMP NOT0 LENGTH L3F ENDLN ; ";CHECK IF THERE ARE CHARACTERS TO ;BE ENTERED AUTOMATICALLY ; L3F FLG L3A NEWLN ; L3A RDKEY #$80 #$95 --> NOT.FA #SPACE TABCHR TABS1 NOT.FA#ESC NO.ESC RDKEY #RJ #USR USRJ+1 /USR USRJ+2 ;SET HIMEM AND EXIT #$2 #START LINNUM /START LINNUM+1 RSHM ; ; #;DUMMY PROGRAM RELOACTED IN PAGE 3 ; DUMMY : START  00 ; ; START : XSTORE ; ; ;CHECK FOR END OF LINE ; #$0 NOTIALIZATION ROUTINE ; USRJ $0AUSR JUMP RSHM $F28CRESET HIMEM SUB 0LINNUM $50GENERAL PURPOSE APPLESOFT REGISTERS ; ;INITIALIZATION ROUTINE ; ; ; #$0 R1 DUMMY,X FIN1 JUMP,X  R1 FIN1 : ;SET UP USR VECTOR #$4C US LOOK $868 CHR $87D FLG $892 ; BELL $FF3A ; ; BASL $28 CH $24 SPACE $A0 KSWL $38 CR $8D ESC $9B RND $4E &TABCHR $FASTORAGE FOR TAB CHARACTER YSTORE $FD XSTORE $FE XTEMP $FF ; $;EQUATES FOR INI********************************  $9383  $800 ;EQUATES ; COUT $FDED RDKEY $FD0C IN $200 LENGTH $300 ED.SIG $301 JUMP $302 TAB $305 PB1 $C061 PB2 $C062 KBD $C000 KSTRB $C010 ; ;LOCATIONS IN GARBAGE.CODE ; #;* PUSH BUTTON 1 AND CRTL TO * #;* PUSH BUTTON 2. * #;* COMMAS AND COLONS ALLOWED * #;* WRITTEN BY IAN SEARLE * #;* AUGUST, 1981 * #;* ALL RIGHTS RESERVED * #;* * #;*,B #;********************************* #;* * ;* ROUTINES FOR USE WITH SEASEN #;* DOCUMENT SYSTEM. * #;* USES SHIFT AND CTRL KEY AS * #;* SHIFT LOCK. * #;* SHIFT KEY MUST BE WIRED TO *                       kiliee` LLȔ,PL# ɕ?ɛ )ߢ0h}LuLuɍ WLœLuLȔ۪ @L#LœƍL#Ɉʩ H R hȥoȥpL6 8L6  jHHhh ji8 ` LiBC>?<=8 L L ߠ` *ee   jL: j7ΰʽ_ jL: ~- ~ -  L:<=HH  ji>i?iBiChh Le  ʽ H R䢦 hȥoȥp$02 LU j  LLٗLU~-  LUʽ ~- ~ - Ȣ L:Έ0 ~ -Έȹ ȹșФ΢ L @Ȅв( ~-  jȌLL⥡ g ᥡ g ᥡΥ LU j L6 1L6LU_LU )߅L╈ʠ׍ \<$ ~ ~ȩL \< ~0ޱ ~ .  @L \` g ᥡ g ᥡ . L jL$ $Lɍ&ɠ @ɍ$ȩ !L Lߝ 詍ӄ DɠAɭɠ @$Lƽɠн )LœLu ᥡ<jѸLȊH h rHqH`Ѿ| C $L < PQLLLȔ,PL# ɕ?ɛ )ߢ0h}LuLuɍ WLœLuLȔ۪ @L#LœƍL#Ɉ     nt to try another disk? Press ESC to return to directory ";:Y$:Y$:93:Y$"Y"99ggY$(27)ė:213whY$"N"112i102jND$F$(K)::12:36,20:"*** READING ";ND$;" ***":D$;"OPEN T.";ND$:D$;"READ T.";ND$:LD:L:I0$kL80İ14:"THIS DOCU(7):I$(9):EC$(11):EL$(29):DV(PA2):MAX500:LL78bA$(MAX20),F$(99),DR$(O),TA$(O),P%(6):DR$(O)"!":DR$(0)"-":TA$(0)"-":TA$(O)"!":PK(X)(X)(XO)256:M(X)(112)(110)c325d81:84:329eK0106Rf22:EC$:"Do you waN85 [@\:2:"There are no documents on this disk":K0:d]Y$"a"Y$"z"Y$((Y$)32)j^_TT,0:TB,2:O::`216,0::(4);"MAXFILES1":328:a(4);"BRUN TE.CODE,D1,A$9383":O1:LE768:ES769:TA773:TT34:TB35:PA864:D$(4):G$re:"::K0:ION:K13O(I10));I;". ";F$(I);:KKO:K6K0:IV:W22:"Do you want to work on one of these? ";:Y$:Y$:93:Y$"N"K0:XY$"Y"87YNOKO:Z22:EC$:LE,2:"Which document? (1 - ";N;") ";:G:Y$:K(Y$):KOK0:36,20:"Place your files disk in Drive ";DV:2:D$;"OPEN Index,D";DV:D$;"READ Index":N:N83|RION:(C):F$(I):SD$;"CLOSE"::D$;"CLOSE":D$;"OPEN Index,D";DV:D$;"WRITE Index":0:D$;"CLOSE":TN092AU:"Documents on this disk aZ)BIA$(IO)A$(Y):ZIY:LD(LD)Z,LL::I1LD(LD)I1,LLWJYI:ZJ:XK:119{KLDI:JOA$(LD)"":LDLDO:77LA$(LD)(A$(LD),JO)MLD0LDON(A$(LD),O)"_"A$(LD)A$(LD)"_"OILDILDPA$(LDO)A$(MAX):74bQ::18<ZO:YX1962=480>XY10:XOXOA?:PX19:LXR@LLDLP48fALIĺA$(L):69BLIĭJOĺ(A$(L),JO):69CLYĺA$(L):69DELLO:64FYLD75G(C):JOA$(I)(A$(Y),Z):73HA$(I)(A$(I),JO)(A$(Y),:Y$:Y$:93:Y$"Y"42&.Y$"N"30./45F05:L(0):L1974R1L770_2YLD48k3LO55w4L3575L21596487" ";:ZZO:Z(A$(Y))598489L(Z)A$(Y):L59:PZLO:" ";::ZL:48;EL$;:YYO:YLD40:D$;"WRITET.";ND$:LD:80:+J(TAI):J:JIIO:43,IOLD:A$(I)::D$;"CLOSE":D$;"OPEN Index":D$;"WRITE Index":N:ION:F$(I)::D$;"CLOSE":-16:"There is already a file with this name on the disk":"Do you want to over-write it? ";me":36) &ER0:ION:F$(0)F$(I)ERO6 ':ER45v (N50ė:"No more documents can fit on this disk":10:125 )NNO:F$(N)F$(0)*:12:36,20:ND$F$(0):"*** WRITING ";ND$;" ***":D$;"OPENT.";ND$;",D";DV:D$;"DELETET.";ND$:D$"OPENT.";ND$:I:Y$:Y$:93:Y$"Y"ı& "Y$"N"33S #:10:"Current file name is ";Q$;ND$;Q$ $14:G:LE,8:"Type the new file name --> ";:F$(0):ER0:IO(F$(0)):(C):(F$(0),I,O)","(F$(0),I,O)":"ERO %:ERĺ"No commas are allowed in a document naK116 K222. IXK2:A$(I)::22^ N:81:::10:"Current file name is ";ND$ 14:"Do you want the document filed under this name? ";:Y$:Y$:93:Y$"Y"F$(0)ND$:38 Y$"N"31 !20:"Do you want to avoid saving the file? ";:EC$;:A$(K):A$(K)" "19:(ES)KKO:16= (ES)Oı` A$(K)"":L(TB)1L(TB)2r LLO:L226 LO:KO16 KKO:(A$(K),1)"_"25 (A$(K))216 A$(K)(A$(K),(A$(K))1) L(0)A$(K):16 :XK5:XOXO  ";Y TT,2:TB,24:8 TT,2:TB,24:3::JX19:IXH ILDIJı] A$(I):IIO:11 TB$"":K0:IOLL1:(C):TB$TB$TA$((TAK)I):KK((TAK)I)::: :D$;"CLOSE":::12:G$;G$;: IO5000::99 KJM(0)3ı. L(37). 96A23:36,20:"Press RETURN when ready to continue ";\(C):Y$:Y$(13)3d:Z(A$(Y))OZ(A$(Y))OYX3:36,ZO:95::DR$(S);::5);:M(0)3ĺ"Memory now full - start another document":9 "Current line -                hL~ L,L>$B9Cꩍ &| IL2\ɀ$ L2$BP7Cꩍ $\ I@Lo|ɀ$P Lo>ꩍ Ls J,v 8J J`Ņgh KL   Q \ g  NtJ L,xz ~8hf<Q $0ȹ> '<:ȹ! '<  ,0I`BC a|!IB B, $ L\I@B @BL,ɀɀ H,4 4hЕ4?!.""' ȱ Ӥ 'Lȱ a_8 ~-HH hh՘Hȹ  h ~ȩ  rmssrqs,,  ` ~ -{2 ~- _ LL IAfSAT2ȱ A( PPH~P hL{Lȱ T8eLȱ S HP hLhLȱ SФ QМPdH | \ɀȰ_`8HȄȑ h`   g ᥠ㥡 g ᥠᥡp8sPP 2`L  "v,xPx xLowLo PrLo QPuLouLo PtLo PyQzLox xvLoxLop `A<PQP ΥQ*Pe΅ΥQeυe΅eυiLB `)_`Qп`LRCCDDINPNPPJJ $3;L\l ߥ0` 7 ΢ι L =0 `)_ι `)_ HH`Ч ` PqsLo PpLovx)pxLo ߠ`L ߅<= iȅ>? ߅BC<=P8><@?=A`@eBBAeCC>B>8>>?8BBC<>=?ر>B>`=?<=`PQ: 4808а// Q^#P &^ &^ePP^eQQP&QPe PL mm  ߢ u 9ե R ȥoȥp`s. / `. / `u. / ` ɍ Ɉ :Lu ɛ) )ߢ0h}ɍиɕɈ𦩠$ $Ls ɍɠ @ɍL Ls ߅ JJJJlȱmnat ine. L , L% " n :, " +, S lL\ DЪ mL\        st  ަL!8   ֦   ^ _  e^^__`` 8o opp  o )JȽ  opȑ L sunshine._the warm sunshine. 50 The cat sat on the mat in the warm sat ont p8n` stopmnU^_R ij^_lk 󅔆nmLF ^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L5 ȱ^ȱ^oȱ^p͠  hmnТʥݟ    L DF DF / B 0 BL/ӠƠJ`H y L .CODER.CODE[R*ű#B B!P`L '<:ȹ! '<  ,0I`s J,v 8J J}|I, $ L\ I@L,ɀɀ4 4hЕ4?!.""' ȱ Ӥ 'Lȱ a_8 ~-HH hh՘Hȹ  h ~ȩ  rmssrqs,,  ` ~ -{2 ~- _ LL IAfSAT2ȱ A( PPH~P hL{Lȱ T8eLȱ S HP hLhLȱ SФ QМPdH | \ɀȰ_`8HȄȑ h`   g ᥠ㥡 g ᥠᥡp8sPP 2`L  "v,xPx xLowLo PrLo QPuLouLo PtLo PyQzLox xvLoxLop `A<PQP ΥQ*Pe΅ΥQeυe΅eυiLB `)_`Qп`LRCCDDINPNPPJJ $3;L\l ߥ0` 7 ΢ι L =0 `)_ι `)_ HH`Ч ` PqsLo PpLovx)pxLo ߠ`L ߅<= iȅ>? ߅BC<=P8><@?=A`@eBBAeCC>B>8>>?8BBC<>=?ر>B>`=?<=`PQ: 4808а// Q^#P &^ &^ePP^eQQP&QPe P     ߢ u 9ե R ȥoȥp`s. / `. / `u. / ` ɍ Ɉ :Lu ɛ) )ߢ0h}ɍиɕɈ𦩠$ $Ls ɍɠ @ɍL Ls ߅   ֦   ^ _  e^^__`` 8o opp  o )JȽ  opȑ L p8n` stopmnU^_R ij^_lk 󅔆nmLF ^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L5 ȱ^ȱ^oȱ^p͠  hmnТʥݟ   a LHXY10:XOXO1?:PX19:LXB@LLDLP48VALIĺA$(L):69vBLIĭJOĺ(A$(L),JO):69CLYĺA$(L):69DELLO:64FYLD75G(C):JOA$(I)(A$(Y),Z):73HA$(I)(A$(I),JO)(A$(Y),Z)2IA$(IO)Y$"Y"42.Y$"N"30 /45805:L(0):L1974D1L770Q2YLD48]3LO55i4L357v5L2159~6487" ";:ZZO:Z(A$(Y))598489L(Z)A$(Y):L59:PZLO:" ";::ZL:48;EL:YYO:YLD48<ZO:YX1ND$:LD:40)+J(TAI):J:JIIO:43,IOLD:A$(I)::D$;"CLOSE":D$;"OPEN Index":D$;"WRITE Index":N:ION:F$(I)::D$;"CLOSE": -16:"There is already a file":"with this name on the disk":"Do you want to over-write it? ";:Y$:Y$:93:! &ER0:ION:F$(0)F$(I)ERO. ':ER45n (N50ė:"No more documents can fit on this disk":10:126 )NNO:F$(N)F$(0) *:12:ND$F$(0):"*** WRITING ";ND$;" ***":D$;"OPENT."ND$",D";DV:D$;"DELETET.";ND$:D$"OPENT.";ND$:I0:D$;"WRITET.";Y$:93:Y$"Y"ı! "Y$"N"33H #:10:"Current file name is ";ND$ $14:G:LE,8:"Type the new file name --> ";:F$(0):ER0:IO(F$(0)):(C):(F$(0),I,O)","(F$(0),I,O)":"ERO %:ERĺ"No commas are allowed":"in a document name":36 K222& IXK2:A$(I)::22V N:81:::10:"Current file name is ";ND$ 14:"Do you want the document":"filed under this name? ";:Y$:Y$:93:Y$"Y"F$(0)ND$:38 Y$"N"31 !20:"Do you want to avoid saving the file? ";:Y$:A$(K):A$(K)" "19:(ES)KKO:165 (ES)OıX A$(K)"":L(TB)1L(TB)2j LLO:L226{ LO:KO16 KKO:(A$(K),1)"_"25 (A$(K))216 A$(K)(A$(K),(A$(K))1) L(0)A$(K):16 :XK5:XOXO K116 TT,2:TB,24:1 TT,2:TB,24:3::JX19:IXA ILDIJıV A$(I):IIO:11 TB$"":K0:IOLL1:(C):TB$TB$TA$((TAK)I):KK((TAK)I)::: :D$;"CLOSE":::12:G$;G$;: IO5000::101 KJM(0)3ı& L(37):EC:(. 96:23:"Press RETURN when ready to continue ";U(C):Y$:Y$(13)3]:|Z(A$(Y))OZ(A$(Y))OYX3:36,ZO:95::DR$(S);::5);:M(0)3ĺ"Memory now full - start another document":9"Current line - ";Y !! ! ! ! ! !!!!!!!!!                     S>:6::"HARDWARE CONFIGURATION"::8:(PA)ĺ"PRINTER IS IN SLOT ";(PA):850lH"NO PRINTER IN USE"R10:"DISK DRIVES - ";(PA2)\(PA)930f12:"PRINTER TYPE - ";:(PA1)880,890,900p"PARALLEL":910z"SERIAL":910 "EPOF 80 COLUMN CARD? ";:Y$:Y$"N"Y$"n"770F(Y$"Y"Y$"y")720OFL1dPA3,((PA3))v(PA3)KB1(PA3)320 :"CHANGE OPERATION OF KEYBOARD? ";:Y$:Y$"N"Y$"n"320(Y$"Y"Y$"y")770 FL1*KBKB:3204vY$"Y"Y$"y"ĹPA4,1287Y$"N"Y$"n"ĹPA4,0@320:"CHANGE THE NUMBER OF DISK DRIVES? ";:Y$:Y$"N"Y$"n"710(Y$"Y"Y$"y")660FL1X(PA2):X1ĹPA2,2:320PA2,1:320(CA2)4770,:"CHANGE USE 1;D(CA1X)5ĹPA1,2:620:"SERIAL OR COMM. INTERFACEN20:"APPLE PARALLEL OR EPSOM INTERFACE?":"(A OR E) ";:Y$:Y$:Y$"A"Y$"a"ĹPA1,1:620XY$"E"Y$"e"ĹPA1,3:620bY$:590l"CAN THE PRINTER UNDERLINE? (MOST CAN) ";:Y$:Y$n"Y$"N"Y$"y")510,Y$"N"Y$"n"6605FL1:"WHICH SLOT (1 OR 2. 0 IF NO PRINTER.) ";:Y$:X(Y$):X0X2540&X:X0ĹPA,X:PA1,2:868,0:3200(CA1X)3(CA1X)5ė:"NO PRINTER INTERFACE HERE":I13000::490:PA,X:FL450"CANNOT";$" UNDERLINE"@:KBĺ"HARDWARE";:480Q"SOFTWARE";s" UPPER/LOWER CASE KEYBOARD"34,18::"IS THIS ALL CORRECT? ";:Y$:Y$"Y"Y$"y"ĉ:250(Y$"N"Y$"n")490:"CHANGE THE PRINTER? ";:Y$:(Y$"Y"Y$"1)1ĺ" - APPLE";6 ^(PA1)3(PA)Iĺ" - EPSOM";W h(PA)IĞ:35:"<--"::380] rc | :"NUMBER OF DRIVES - ";(PA2) :(PA3)ĺ"80 COLUMN DISPLAY":420 "40 COLUMN DISPLAY" (PA)460:"PRINTER ";:(PA4)ĺ"CAN";:WARE (PA)0280< X(CA1(PA)):(X3X5)ER1Z (PA3)ĭ(CA2)4ER1g "ER830q ,1190 6"SET UP PARAMETERS @::2::"ESTABLISH HARDWARE CONFIGURATION": J4:I12:X(CA1I) T"SLOT ";I;" - ";T$(X);:(PA)I(PATAINED UNLAWFULLY." ::B D"YOU HAVE HAD A CHANCE TO TRY IT"f N"IF YOU LIKED IT THEN BUY IT!" X"IT HAS BEEN ERASED FROM THIS DISK.""WRITE CRUNCHER" 90,60090,60090,600(4);"CLOSE CRUNCHER"530ZZZ1 d(4U" (4);"UNLOCK GPCODE"6 (4);"UNLOCK GSCODE"P (4);"DELETE PART 1"k (4);"DELETE TE.TEXT" (4);"DELETE MENU" (4);"DELETE GPCODE" (4);"DELETE GSCODE" 10  6 &"SORRY, THE PROGRAM YOU HAVE WAS" 0"WAS OB);"OPEN TEXTWRITE". n(4);"WRITE TEXTWRITE"5 xZQ (4);"CLOSE TEXTWRITE" DOS COMMANDS TO START MAIN PROGRAM HERE (4);"RUN PART 1"  RUBOUTS START HERE (4);"UNLOCK PART 1" (4);"UNLOCK TE.TEXT" (4);"UNLOCK MEN(4);"OPEN TEXTWRITE"7(4);"READ TEXTWRITE">Z[(4);" CLOSE TEXTWRITE"hZ5500p90 (4);"OPEN CRUNCHER" (4);"WRITE CRUNCHER" 90,60090,60090,600(4);"CLOSE CRUNCHER"530ZZZ1 d(4" " " """""""""  QS#\ QI@QL|,QP L LSR| QIQL\ QI@QL~ ,d,Q H h,QPH h LLL ԅ ԅPQL ߠC#Sȱ##LȄ45zy 45S4L喩S QRaLS-| R RLJ\ R @RLJ~ LJ,R1 S%| QIQL\,Q_ L ,RP2""