ng "LAST LINE IS LINE NUMBER 10" will be displayed, and you may then either abort the delete function or enter another line number to be deleted. Something similar is true for the insert mode. If your letter has a total of 6 lines, you cannot insert line 24 for example. The lowest line number you will be able to insert will be the next number in line which, in this case, would be line number 7. An error message informing you of the total amount of lines in your letter is displayed, and once again you may either abort the process by pressing , or you may type in a new line number to be inserted. Also if your file already has 341 lines you will not be able to insert any more lines. You may, however, insert lines anywhere in your file. If the letter has 37 lines, you could, for example, insert line number 10, 11 and 12. In this case, the old line number 10 will end up to be 13, and the old 11 will be 14 etc. Etc. CLEAR MEMORY: [9] This option will remove or "clear" a letter that is presently in the memory of your computer. Pressing the [9] will generate the prompt: CLEAR MEMORY ES OR O The "Y" and the "N" will be blinking. Press "N" if you don't want to clear your memory and press the "Y" if you do. A message stating: NOW CLEARING MEMORY will be blinking while your computer is doing its job. The program will return to the normal menu once the letter is cleared from memory. t to clear your memory and press the "Y" if you do., after promting you if this is right or . If you press the "N" the program will return to the main menu. If you press the "Y" printing will start immediately. So be sure that your printer paper is positioned correctly before you press the "Y". After printing on the first side of the paper is finished a beep will sound, printing will stop, you will be prompted to turn the paper over and printing will resume as soon as you press a key on the keyboard, (Any key). EDIT FILE IN MEMORY: [5] The editor is a line oriented editor and will only edit one line at a time. After pressing the [5] on the main menu, you will be prompted to input the line number you wish to edit. Should you enter a number that is larger than the total amount of lines in your file, a warning message will be printed to your screen, informing you of the amount of lines that are in the file. Otherwise the line you wish to edit is printed in the center of the screen on it's own little input line. From here on in you may re-write, correct a word or do any other thing that you normally can do on a input line when you are entering text. After you are done changing the line to be edited, press enter. The line will be printed to your screen the way it will be saved and the program will return to the line number input prompt. To return to the main menu, press enter only at the promt for a line number to be edited. LOAD FILE INTO MEMORY: [6] The next prompt will be for the filename of your letter, which will, of course, have to be present on your disk. The filename cannot be more than eight characters long, and do not type in the extention. SAVE A FILE: [7] To save a file, simply press [7] at the menu, type in the filename, and press . REMEMBER: NO MORE THAN EIGHT CHARACTERS, NO EXTENTION ! DELETE A LINE: [8] Pressing [8] will cause the following to be printed on your menu behind the menu entry: elete or NSERT. The "D" and the "I" will be blinking. Press the "D" for Delete. The menu entry will be erased, and the message "LINE NUMBER TO BE DELETED" will be printed in its place. Enter the line number you want to delete the message "WORKING" will be displayed while the computer is deleting the line. After the line is deleted from the file, another message stating "LINE NUMBER TO DELETE/ ENTER TO ABORT" will be displayed. Pressing will return the menu to normal, while pressing another number and will delete another line from the file. Bear in mind that deleting a low line number in a large file may take some time, so go have yourself a cup of coffee. INSERT A LINE: [8] This time, press the "I" for insert and enter the number of the line you wish to insert into your letter. The screen will clear and a message stating NOW INSERTING LINE NUMBER X, will be printed towards the bottom of the screen. On the very last line the input line will be printed. Now you may enter text as though you were writing a normal letter. You will be able to insert as many lines as you wish as long as you do not exeed the maximum amount of lines. Whenever you are typing in text, in the insert mode, it is possible that your file will reach the maximum amount of lines allowed (341), eventhough you may be inserting line number 12. In this case after you have inserted the line that would cause the line counter to reach 341, a message will be displayed stating that the BUFFER IS FULL, YOU HAVE 341 LINES. The message will blink for a few seconds after which the computer will return to the main menu. You will notice that the message stating which line number is being inserted keeps scrolling up your screen and incrementing itself each time you insert another line. When this message reaches the top of your screen after inserting 18 lines, another message stating "LAST LINE" is displayed. This does not necessarily mean that you cannot insert anymore lines. It just means that the screen is full, and the message stating which line is being inserted would create an "FC ERROR" because it would have to be printed on line -1. Therefore, the program will return you to the main menu. Should you wish to insert more than eighteen lines, you must start from scratch and press the [8] one more time. MORE DELETE INSERT ERROR MESSAGES There are two error messages in the insert and delete mode that were not mentioned on the last page. You cannot delete a line that is not there. Therefore, if you try to delete line 12 and there are only 10 lines in your letter, an error message stati these characters are NOT part of the Color computers ROM, they CANNOT be printed to the screen. For example if you first press the ALT key followed by the capital "K" a "6" will be printed on the screen, but the printer will print a lower case "a" with two dots on top of it. The characters shown in the list are created when you use a DMP 130 series printer. If you are using a different printer, load in THE BOOK and load in the file called THE LIST. and print it out as two pages with 18 lines. You will than have a list of the characters that will be printed by your own particular printer. The special characters are saved to your disk as though they were normal characters, and will print out correctly when the file is loaded back into the memory of your computer. Since I am using a wordprocessor to write this "manual", I have printed out THE LIST with the book program and you will find it enclosed with this letter. RULE: FIRST PRESS THE ALT KEY THEN THE CONTROLL LETTER. ******************************************************* CONTINUE ENTERING TEXT: [2] Once you have started a new file, you cannot start another one, even if you did not enter any text. As soon as you press [1], the program's line counter is set to one and is thereafter incremented by one every time you press the enter key. Because the line counter is set to one when you start a new file, there had to be a way to let you continue to enter text if, for one reason or another, you are not able to write the entire letter at one time or perhaps you would like to view what you have written up to a certain point. Continue to enter text will do all of this and more, you may even save your letter to disk and continue writing it the next day. You may also use this feature to add text to a letter that you typed on an earlier occasion. The last 21 lines of text, or less if, you don't have 21 lines, will be displayed on the screen, and the input line will be on the bottom of your screen as before. A COUPLE REMINDERS WHEN ENTERING TEXT: 1. Start your text or title on the first available line. 2. Press only to abort input. 3. Press - to create an empty line. 4. Do not use the arrow keys to create spaces. 5. Use the down arrow as your tab key. The first three lines you type are the cover title. The title is not self-centering. Type spaces to center it. LIST FILE TO SCREEN: [3] When you press the number [3] on the main menu, you will be prompted to input the starting line. Since there may be as many as 341 lines in your file you may not want to scroll through the entire text. Therefore the provision to input the starting line number. The first 21 lines folowing the starting line number,will be printed to the screen. A message stating "PRESS DOWN ARROW TO CONTINUE SCROLLING" will be printed on the 22nd. line. As long as you hold down the arrow key in question, your letter will continue to scroll up your screen until the end of the letter has been reached. As soon as you release the down arrow, scrolling will stop, and the above message will be re-displayed on the screen. Once the last line of the letter is displayed, you must press the SPACEBAR to return to the menu. A message to that effect will be printed on line 22 of your screen. LIST FILE TO PRINTER: [4] When you press the number "4" on the main menu, the screen will clear and a message stating the total amount of lines you have typed in will appear on top of the screen. The first three lines of your letter will not be counted since they are being used for the cover page. The computer will then print a list of different printout possibilities. The first line on this list will always be computed by using the amount of lines per page you inputted when you first started your letter. For example if you told the computer that you wanted to print 12 lines per page and you have 125 lines the first line will read as follows: ^k; 1. 10 pages of 12 lines and 6 lines on page 11 Some of the other lines could be as follows: 2. 4 pages of 26 lines and 21 lines on page 5 3. 5 pages of 25 lines and 0 lines on page 6 4. 6 pages of 20 lines and 5 lines on page 7 5. 7 pages of 17 lines and 6 lines on page 8 6. 8 pages of 15 lines and 5 lines on page 9 7. 9 pages of 13 lines and 8 lines on page 10 8. 10 pages of 12 lines and 5 lines on page 11 9. 11 pages of 11 lines and 4 lines on page 12 Press the number that corresponds to your selection and the computer will print your selection to the screenenu, you will be prompted to input the amount of lines you wish to print on each page, (max. 26). Unless you know exactly how many lines you wish to print on each page, just input the number 26. Once you get ready to start printing, the computer will give you 5 to 10 different choices from which you may pick the amount of lines per pages and total pages you want to print. THE INPUT LINE ------------------------------------------ ] If no other file is in memory, your entire screen, with the exception of the "input line" on the very bottom of the monitor, will be cleared. The "input line" consists of 42 underline charac- ters with a trailing space and a bracket. The input line is 42 characters long, which means that you may enter up to 42 characters on each line. The space in front of the bracket is in the 43th position, and the only thing that can be put there is an . If you try to type in any other character, it will be ignored by the program. LEFT AND RIGHT ARROW KEYS IN THE INPUT LINE. The left arrow and the right arrows are used to move the cursor from one end of the input line to the other without disturbing any text that you may already have typed in. However, you must keep in mind that any underline characters left in front of the place were you plan to press are completely ignored by the printer when the letter is being printed. (They will not be printed out as SPACES). You must use the SPACEBAR to create a space. Anything typed in after the place where you pressed will be erased before the line is reprinted to the screen. Overstrike is supported, and you may move the cursor left or right with either arrow key and change any text that was previously typed in. Once you press the key however, you cannot make anymore changes in the line you were working on unless you use the editor, [5], which is discussed later on in this manual. Examples: Line A represents the way the imput line looks when you press enter. Line B shows what will become the final line. The "*" represents the place where you pressed ENTER. "-" is an underline character. A: Now is the time for all good man to come*e ] B: Now is the time for all good man to come A: Now-we-all-go-to-the-big-city*------------ ] B: Nowweallgotothebigcity THE DOWN ARROW IN THE INPUT LINE The down arrow is your TAB key. It will only work when your cursor is resting on the first empty space on the input line and will give you a tab of five characters. If you wish to change the amount of spaces, that the lines are indented by you must make two changes in line #83 of the program. first of all, you will notice that there are two "5's" in this line, change those to the amount of spaces you want to be indented. Secondly, you will notice the part of the line that states, ANDX=31THENX=36 this LOCATES the cursor on the input line, since the cursor normally rest on the 31st position, we must add five the the number 31 and make it 36. Therefore if you wish to indent 8 spaces, change the two fives to two eights and change the 36 to (31+8) or 39. THE COVER PAGE Lines 1,2 and 3 are not counted as part of the booklet. They are reserved for the cover page. They will be printed to the screen as lines 1,2 and 3 but will not be included in the total amount of lines when the booklet is printed to the printer. To make the cover page look nicer center the message on the input line by putting spaces in front of the titles MISCELLANEOUS As soon as you press the enter key, the line you just typed in will be cleaned. That is to say, all text on the input line behind the place where you pressed the enter key will be erased. The line you just typed in will be printed one line above the input line location, and a new input line will be printed on your screen almost immediately. All subsequent lines will be printed in the same place while the rest of your text will scroll up. That way you are able to see at least 22 lines of your letter all at once. TO INSERT A BLANK LINE, PRESS THE SPACEBAR ONCE TO INSERT A SPACE AND THAN PRESS . If you press the enter key as the first character on an empty line, the input will be aborted, and the program will return you to the main menu. Should you do this by mistake, the only way you will be able to enter more text is by using the number [2] option. SPECIAL CHARACTERS A total of 62 special characters can be generated by pressing the ALT key followed by the letter needed to create the character you want to use. Because18 T H E B O O K L E T SPECIAL CHARACTERS Type-Printed-Printed Type-Printed-Printedin: Screen Printer in: Screen PrinterALT-a F ALT-A , ALT-b G ALT-B - ALT-c H ALT-C . ALT-d I ALT-D / ALT-e J ALT-E 0 ALT-f K ALT-F 1 ALT-g L ALT-G 2 ALT-h M ALT-H 3 ALT-i N ALT-I 4 ALT-j O ALT-J 5 ALT-k P ALT-K 6 ALT-l Q ALT-L 7 ALT-m R ALT-M 8 ALT-n S ALT-N 9 ALT-o T ALT-O : ALT-p U ALT-P ; Type-Printed-Printed Type-Printed-Printedin: Screen Printer in: Screen PrinterALT-q V ALT-Q < ALT-r W ALT-R = ALT-s X ALT-S > ALT-t Y ALT-T ? ALT-u Z ALT-U @ ALT-v [ ALT-V A ALT-w \ ALT-W B ALT-x ] ALT-X C ALT-y ^ ALT-Y D ALT-z _ ALT-Z E ALT-1 " ALT-6 ' ALT-2 # ALT-7 ( ALT-3 $ ALT-8 ) ALT-4 % ALT-9 * ALT-5 & aLT-0 ! (See explanation for table in other book) George. ******************************** T H E B O O K BY: KEIRAN KENNY & GEORGE QUELLHORST ******************************** NOTE: before LOADING this program you must type: POKE25,14:POKE3584,0:NEW and press ENTER. THE MAIN MENU T H E B O O K L E T ********************* 1. START A NEW FILE 2. CONTINUE ENTERING TEXT 3. LIST FILE TO SCREEN 4. LIST FILE TO PRINTER 5. EDIT FILE IN MEMORY 6. LOAD FILE IN MEMORY 7. SAVE FILE TO DISK 8. DELETE/INSERT A LINE 9. CLEAR MEMORY PRESS NUMBER DESIRED Pressing the [2], [3], [4], [5], [7] or [8] will all return a BUFFER EMPTY error when there is no file present in memory or if you have not not yet started a new file, [1]. A message stating "BUFFER EMPTY" will flash on the screen behind the number that was pressed, after which the screen will return to normal. THE PRINTER CODES FOR YOUR PRINTER This booklet must be printed out in 12 CPI. You will find the printer codes and the BAUD rate in line 7 of the program you MUST change this and place the correct BAUD rate for your printer in this line and also put in the correct printer codes so that your printer will print in 12 CPI. The BAUD rate and printer codes are currently set for DMP 130 series printers. (130,132,133,134). CAPACITY: Due to memory limitations THE BOOK will support up to 26 lines per page for 13 pages or a total of 338 lines, not counting the three lines for the cover page, (A total of 341 lines). However, you are able to print up to 22 pages providing the total amount of lines does not exceed 341. In other words you could print a 21 page booklet with 16 lines per page and 2 lines on page 22. Whenever you typing in text after pressing the [1] or the [2] on the main menu, a message stating "LAST LINE" will be blinking in front of line number 341. After pressing enter on line number 341, the computer will return to the main menu. START A NEW FILE: [1] When you press [1] on the main mO4:6PGBKLT' by Keiran Kenny, Sydney, 1988.: D800N9234t@104,(34)"THE BOOKLET"(34)(@174,"BY"2@233,"KEIRAN KENNY"<:2)"ARE YOU USING DISK OR TAPE?",7)"PRESS OR .">K$:K$""62@K$"D"DV1:70BK$"T"DV1:70%D624F:A$(162)G@160,"YOU CAN"::3)"1. LOAD A SAVED FILE",3)"2. TYPE A NEW TEXT.",8)"PRESS 1 OR 2."HK$:K$""72IK$"1"820JK$"2":110K72n@225,"";:"LINES PER PAGE (MAX. 27):";LPxLP27:110(LF((27LP)2)7:PN1:B1LP32:PP0:282,0[TB LP6LNLN1:@PP,"TYPE PAGE"PN;(8)", LINE"LN@P57,"]"@P,"";:A$(T)ÅA$(T)"]"BT:TT1:LNLN1:802ȅA$(T)(95)TT LP6:A$(T)""::270[҅(A$(T))57"TOO LONG! TYPE LINE"LN"AGAIN.":@P,((A$(T)),32):@P57,"]":190a܇uPP96:PPPP96LNLP PNPN1:LN0PP480:P32:PP0:"TYPE 3 LINES FOR COVER."P64"X13,@P,"LINE"X6C$(X)4@(C$(X))28:"LINE"X"TOO LONG!":@P,"";:310?JPP96ET^:@224,"PRINTER READY? HOW MANY COPIES DO YOU WANT TO PRINT";:NCc150,18 :2400 Baudh:@224,"PRINTING PAGES 1 & 6 AND 3 & 4"m#2,(27);(20); :CondensedrCC1NC|NR12'NR1Q1:PX1:PZ6DNR2QLP21:PX3:PZ4l#2:#2,7)"PAGE"PX;128)"PAGE"PZu#2LP27X1LF:#2:TQ QLP1…NR1MTLP5̅NR2MTLPև#2,7)A$(T)78)A$(M)X130(LFLP):#2:X NRCCN:@128,"REVERSE PAPER. PRINTER READY? PRESS ."hK$:K$(13)530:@224,"PRINTING COVER AND PAGES 2 & 5."&CC1NC+#2,(27);(18); :Standard NLQ for Cover0X110:#2::X13D#2,63(C$(X))2)C$(X)#NZ15:#2:)XM]#2,(27);(20); :Condensed_bX16:#2:vlQLP41:PX5:PZ2v#2,7)"PAGE"PX;128)"PAGE"PZ:#2LP27X1LF:#2:TQ QLP1MTLP3#2,7)A$(T)78)A$(M)TX130(LFLP):#2:%CC:TCTCNC`ƞ:@64,"COPIES PRINTED ="TC::"DO YOU WANT MORE? Y/N"Ї:"(TO CORRECT LINES PRESS )"K$:K$""730K$"Y"K$"y"NR0:770K$"N"K$"n"761730:@224,"DO YOU WANT TO SAVE YOUR TEXT TO DISK/TAPE? Y/N"3K$:K$""762KK$"Y"K$"y"1000bK$"N"K$"n":l762@192:@192,"HOW MANY MORE";:NC :"PRINTER READY? PRESS ."K$:K$(13)790:360 0,1:1:22["282,255::DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:K$$DV1@160,"SAVE PARTFILE NAME:";:PF$&"O",#DV,PF$(#DV,B,T,PN,LN,LP,LF*X1T,#DV,A$(X).:4:"IS THIS FILE COMPLETE? Y/N" 6K$:K$""8228K$"Y"9000:K$"N":830:<822>DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539@DV1@160,"LOAD PARTFILE NAME:";:PF$:PF$PF$"/DAT"B"I",#DV,PF$D#DV,B,T,PN,LN,LP,LF FX1T H(DV)846 "J#DV,A$(X) (L 1N#DV PT4:"LAST 5 LINES OF FILE:":XT5T:A$(X)::4)"PRESS ANY KEY TO CONTINUE";:44539 RLNLP LN0:PNPN1 T:150!:DV1F$"FILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539:10)"LOADING FILE."!PDV1@160,"LOAD FILENAME";:F$:F$F$"/DAT"!`"I",#DV,F$!v#DV,LP,LF:NLP6!T1N3!(DV)980!TN #DV,C$(TN):#DV,A$(T)!ʋ!Ԛ#DV!ށ350"M282,255::DV1F$"FILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:10)"SAVING FILE.""sDV1@160,"SAVE FILENAME:";:F$"~NLP6""O",#DV,F$"#DV,LP,LF"T1N3"$TN #DV,C$(TN):#DV,A$(T)"."8:"L:X1LP6# VXLP6"A$("X")=":A$(X)#>`X5(X5)XLP6"PRESS ANY KEY";:44539:#Dj#Nt350DV1@160,"SAVE FILENAME:";:F$"~NLP6""O",#DV,F$"#DV,LP,LF"T1N3"$TN #DV,C$(TN):#DV,A$(T)"."8:"L:X1LP6# VXLP6"A$("& &%A(&H1B)256(&H1C)6&4B$(128)&K("-=AUTO BOOT=-":&e2"up"B$B$B$" GO UP"&}<"down"B$" GO DOWN"&F"enter EXECUTE"&P"break ABORT"&Z:"FREE.."(0)&d A&n3oĭ'L'$l4 Z&50 %l %'6ootr%4]Z&.VPZ& I0C50 Z&Ԧ;8 =>1?&'`^' '* 'X&n'UJ$jbL$VӦЋ$l =34@901wK&1u' 450:Z&.Z&&kZ0kp`%92b4?& 3k .5RUN""LOADM"":POKE&HFF40,0:EXEC('UJ$jbL$VӦЋ$l =34@90O&5:SUPRBKLT' by Keiran Kenny, Sydney, 1988.&; &E890&O5508&{(@102,(34)"THE SUPER-BOOKLET"(34)&2@174,"BY"&<@233,"KEIRAN KENNY"&F(&H15F)196DV1:DV1&PA$(162)'*Z@291,"YOU CAN":5)"1. LOAD A SAVED FILE",5)"2. TYPE A NEW TEXT.",8)"PRESS 1 OR 2."'?dK$:K$""100'OnK$"1"970'cxK$"2":140'm100'@225,"";:"LINES PER PAGE (MAX. 27):";LP'LP27:140'LF((27LP)2)'PN1:B1':P32:PP0:282,0'TB LP6(%LNLN1:@PP,"TYPE PAGE"PN;(8)", LINE"LN(4҇@P34,"]"(H܇@P,"";:A$(T)(oA$(T)"]"BT:TT1:LNLN1:390(A$(T)(95)TT LP6:A$(T)""::310((A$(T))34"TOO LONG! TYPE LINE"LN"AGAIN.":@P,((A$(T)),32):@P34,"]":220()PP96:PPPP96))LNLP PNPN1:LN0)Q"PP384PP384:P416:X12:@480:)W,)x6:"TYPE 3 LINES FOR COVER.")@P64)JX13)T@P,"LINE"X)^C$(X))h(C$(X))34:"LINE"X"TOO LONG!":@P,"";:350)rPP96)|*:"OPTIONS:"*p4)"1. REVIEW A TEXT",4)"2. CORRECT A TEXT",4)"3. SAVE AN INCOMPLETE TEXT",4)"4. SAVE A COMPLETE TEXT"*4)"5. RESUME TYPING A TEXT",4)"6. PRINT A COMPLETE TEXT",4)"7. END PROGRAM"*OP$:OP$"1"OP$"7"420+(OP$)1320,1370,900,1240,180,440,1480+Z:@224,"PRINTER READY? HOW MANY COPIES DO YOU WANT TO PRINT";:NC+r’150,18 :2400 Baud+̞:@224,"PRINTING PAGES 1 & 6 AND 3 & 4"+րCC1NC+NR12+NR1Q1:PX1:PZ6+NR2QLP21:PX3:PZ4,#2:#2,3)"PAGE"PX;72)"PAGE"PZ,#2,7LP27X1LF:#2:,HTQ QLP1,[&NR1MTLP5,l0NR2MTLP,:#2,3)A$(T)46)A$(M),D,NX130(LFLP):#2:X,XNR,bCC,l:@128,"REVERSE PAPER. PRINTER READY? PRESS ."-vK$:K$(13)630->:@224,"PRINTING COVER AND PAGES 2 & 5."-KCC1NC-^X110:#2:-iX13-#2,63(C$(X))2)C$(X)-Z15:#2:--ƀX16:#2:-QLP41:PX5:PZ2-ڇ#2,3)"PAGE"PX;72)"PAGE"PZ:#2. LP27X1LF:#2:.TQ QLP1.)MTLP3.D#2,3)A$(T)46)A$(M).K T.fX130(LFLP):#2:.w CC:TCTCNC.*:@64,"COPIES PRINTED ="TC::"DO YOU WANT MORE? Y/N".4K$:K$""820.>K$"Y"K$"y"NR0:860.HK$"N"K$"n"390/"$&'()*BOOT BAS SUPRBKLTBAS!R14PGBKLTBAS#6PBKCONDBASRTHE BOOKBAS%OTHE LISTDATMANUAL TXTR820/+\@192:@192,"HOW MANY MORE";:NC/Rf:"PRINTER READY? PRESS ."/qpK$:K$(13)880:460/z0,1:1:30/282,255::DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:K$0!DV1@160,"SAVE PARTFILE NAME:";:PF$02"O",#DV,PF$0K#DV,B,T,PN,LN,LP,LF0VX1T0e#DV,A$(X)0v:#DV:3900ʇ2)"IS THIS FILE COMPLETE? Y/N"0Ԓ282,255:K$:K$""9800ޅK$"Y"11400K$"N":102009801ADV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":445391|DV1@160,"LOAD PARTFILE NAME:";:PF$:PF$PF$"/DAT"1"I",#DV,PF$1#DV,B,T,PN,LN,LP,LF1$X1T1.(DV)110018#DV,A$(X)1B1L#DV28VT5:"LAST 6 LINES OF FILE":XT6T:A$(X):::"PTIONS OR YPE FURTHER";2X`K$:K$"O"K$"T"11202mjK$"O"390:1802t:DV1F$"FILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539:10)"LOADING FILE."3 ~DV1@160,"LOAD FILENAME";:F$:F$F$"/DAT"3"I",#DV,F$3/#DV,LP,LF:NLP63<T1N33M(DV)12203rTN #DV,C$(TN):#DV,A$(T)3x3Ě#DV3΁3904ؒ282,255::DV1F$"FILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:10)"SAVING FILE."4-DV1@160,"SAVE FILENAME:";:F$4D"O",#DV,F$:NLP64S#DV,LP,LF4`T1N34 TN #DV,C$(TN):#DV,A$(T)44#DV:3904(:X1LP642XLP6 "A$("X")=":A$(X)4 OR .">K$:K$""62%@K$"D"DV1:70<BK$"T"DV1:70ED62TF:A$(378)G@160,"YOU CAN"::3)"1. LOAD A SAVED FILE",3)"2. TYPE A NEW TEXT.",8)"PRESS 1 OR 2." :***HK$:K$""72 :***IK$"1"820 :***JK$"2":110 :***K72 :***>n@225,"";:"LINES PER PAGE (MAX. 27):";LPQxLP27:110jLF(((LP27)2))y:PN1:B1P32:PP0282,0:TB LP14LNLN1:@PP,"TYPE PAGE"PN;(8)", LINE"LN@P34,"]"@P,"";:A$(T)ÅA$(T)"]"BT:TT1:LNLN1:802FȅA$(T)(95)TT LP14:A$(T)""::270҅(A$(T))34"TOO LOMG! TYPE LINE"LN"AGAIN.":@P,((A$(T)),32):@P34,"]":190܇PP96:PPPP96LNLP PNPN1:LN0PP480:P32:PP0:"TYPE 3 LINES FOR COVER."P64&"X136,@P,"LINE"XB6C$(X)x@(C$(X))34:"LINE"X"TOO LONG!":@P,"";:310JPP96T^:@224,"PRINTER READY? HOW MANY COPIES DO YOU WANT TO PRINT";:NCh:@224,"PRINTING PAGES 1 & 14, 3 & 12, 5 & 10 AND 7 & 8" :***#rCC1NC5|NR14 :***TNR1Q1:PX1:PZ14 :***xNR2QLP21:PX3:PZ12 :***NR3QLP41:PX5:PZ10 :***NR4QLP61:PX7:PZ8 :***#2:#2,3)"PAGE"PX;72)"PAGE"PZ#2 LP27X1LF:#2: TQ QLP1 :***:…NR1MTLP13 :***S̅NR2MTLP9 :***l΅NR3MTLP5 :***ЅNR4MTLP :***և#2,3)A$(T)46)A$(M)X130(LFLP):#2:XNRCC :@128,"REVERSE PAPER. PRINTER READY? PRESS ."'K$:K$(13)530l:@224,"PRINTING COVER, PAGES 2 & 13, 4 & 11 AND 6 & 9" :***y&CC1NC0X110:#2::X13D#2,63(C$(X))2)C$(X)NZ15:#2:XbX16:#2:gNR13 :***iNR1QLP121:PX13:PZ2 :***AkNR2#2:QLP101:PX11:PZ4 :***_l:Q=LP*4+1:PX=5:PZ=2 '***mNR3#2:QLP81:PX9:PZ6 :***v#2,3)"PAGE"PX;72)"PAGE"PZ:#2LP27X1LF:#2:TQ QLP1NR1MTLP11 :*** NR2MTLP7 :***&NR3MTLP3 :***::M=T-LP*3 '***U#2,3)A$(T)46)A$(M)\TwX130(LFLP):#2:NRCC:TCTCNCƞ:@64,"COPIES PRINTED ="TC::"DO YOU WANT MORE? Y/N"Ї:"(TO CORRECT LINES PRESS )" K$:K$""730(K$"Y"K$"y"NR0:770?K$"N"K$"n"761I730:@224,"DO YOU WANT TO SAVE YOUR TEXT TO DISK/TAPE? Y/N"K$:K$""762K$"Y"K$"y"1000K$"N"K$"n":762@192:@192,"HOW MANY MORE";:NC# :"PRINTER READY? PRESS ."BK$:K$(13)790:360S 0,1:1:22"282,255::DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:K$$DV1@160,"SAVE PARTFILE NAME:";:PF$ &"O",#DV,PF$ (#DV,B,T,PN,LN,LP,LF '*X1T 6,#DV,A$(X) >.: b4:"IS THIS FILE COMPLETE? Y/N" w6K$:K$""822 8K$"Y"900 :K$"N":830 <822 >DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539!8@DV1@160,"LOAD PARTFILE NAME:";:PF$:PF$PF$"/DAT"!IB"I",#DV,PF$!bD#DV,B,T,PN,LN,LP,LF!mFX1T!}H(DV)846!J#DV,A$(X)!L!N#DV" PT4:"LAST 5 LINES OF "(PF$,(PF$)4)":":XT4T:A$(X)::4)"PRESS ANY KEY TO CONTINUE";:44539""RLNLP LN0:PNPN1".T:150":DV1F$"FILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539:10)"LOADING FILE.""DV1@160,"LOAD FILENAME";:F$:F$F$"/DAT"""I",#DV,F$"#DV,LP,LF:NLP14"T1N3#(DV)980#3TN #DV,C$(TN):#DV,A$(T)#9ʋ#BԚ#DV#Lށ350#282,255::DV1F$"FILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:10)"SAVING FILE."#DV1@160,"SAVE FILENAME:";:F$#NLP14$ "O",#DV,F$$#DV,LP,LF$&T1N3$I$TN #DV,C$(TN):#DV,A$(T)$O.$W8:$hL:X1LP14$VXLP14"A$("X")=":A$(X)$`X5(X5)XLP14"PRESS ANY KEY";:44539:$j$t3501@160,"SAVE FILENAME:";:F$#NLP14$  1 ' NOTE: YOU MUST TYPE: POKE25,14:POKE3584,0:NEW 2 ' AND PRESS ENTER BEFORE LOADING THIS PROGRAM 3 ' ********************************************* 4 ' 5 ' THE BOOK/BAS. By: Keiran Kenny & George Quellhorst (C). 5 March 1991. 6 UNLOAD:POKE65496,.:CLEAR15000:RGB:DIML$(350),L(24),PG(24),P(24),M(30):S$=STRING$(32,32):PALETTE9,54:PALETTE10,27:PALETTE12,1:PALETTE2,1:CLS3:ATTR1,2:POKE&HF80F,0:POKE&HF84F,0:POKE&HF89C,0:POKE140,180:EXEC43350:ONBRKGOTO106 7 GOSUB144:POKE150,18:PRINT#-2,CHR$(27);CHR$(23); 'Set for 2400 BAUD and 12 CPI 8 DATA 1. START A NEW FILE,2. CONTINUE ENTERING TEXT,3. LIST FILE TO SCREEN,4. LIST FILE TO PRINTER,5. EDIT FILE IN MEMORY,6. LOAD FILE IN MEMORY, 7. SAVE FILE TO DISK,8. DELETE/INSERT A LINE,9. CLEAR MEMORY 9 DATA 53,4,57,4,61,8,69,8,77,8,85,8,93,12,105,12,117,12,129,12,141,16,157,16,173,16,189,16,205,20,225,20,245,20,265,20,285,24,309,24,333,24,357,24 10 DATA 0,0,0,1,0,0,1,2,0,0,0,1,0,0,2,3,0,0,4,1,0,0,2,3,0,0,4,1,0,5,2,3,0,0,5,2,1,6,3,4,0,0,0,1,4,5,0,0,2,7,6,3,0,0,8,1,4,5,0,0,2,7,6,3,0,0,8,1,4,5,0,9,2,7,6,3,0,0,9,2,5,6,1,10,3,8,7,4,0,0,0,1,4,9,6,7,0,0,2,11,10,3,8,5 11 DATA 0,0,12,1,4,9,6,7,0,0,2,11,10,3,8,5,0,0,12,1,4,9,6,7,0,13,2,11,10,3,8,5,0,0,13,2,5,10,7,8,1,14,3,12,11,4,9,6,0,0,0,1,4,13,6,11,8,9,0,0,2,15,14,3,12,5,10,7,0,0,16,1,4,13,6,11,8,9,0,0,2,15,14,3,12,5,10,7 12 DATA 0,0,16,1,4,13,6,11,8,9,0,17,2,15,14,3,12,5,10,7,0,0,17,2,5,14,7,12,9,10,1,18,3,16,15,4,13,6,11,8,0,0,0,1,4,17,6,15,8,13,10,11,0,0,2,19,18,3,16,5,14,7,12,9,0,0,20,1,4,17,6,15,8,13,10,11,0,0,2,19,18,3,16,5,14,7,12,9 13 DATA 0,0,20,1,4,17,6,15,8,13,10,11,0,21,2,19,18,3,16,5,14,7,12,9,0,0,21,2,5,18,7,16,9,14,11,12,1,22,3,20,19,4,17,6,15,8,13,10 14 ' Mini Wordprocessor. 15 WIDTH40:POKE65497,.:CLS3:POKE282,255:ST=0:LOCATE9,0:ATTR1,2:PRINT"T H E B O O K L E T":LOCATE9,1:PRINTSTRING$(21,42) 16 RESTORE:J=2:FORT=1TO9:J=J+2:J(T)=J:LOCATE8,J:ATTR3,2:READA$(T):PRINTA$(T):NEXT:LOCATE9,23:ATTR2,2:PRINT"PRESS NUMBER DESIRED"; 17 P$=INKEY$:P=VAL(P$):IFP<1 OR P>9 OR P$=""THEN17 18 ON P GOTO 21,19,26,109,37,42,52,59,98 19 IFA=0THENGOSUB105:GOTO17 ELSEIFA>=341THENLOCATE8,6:ATTR1,2,B:PRINT"YOU ALREADY HAVE 341 LINES":GOSUB103:ATTR3,2:LOCATE8,6:PRINTA$(2):GOSUB103:GOTO17 20 WIDTH80:POKE65434,1:ATTR3,2:LOCATE0,22:IFA>44THENS=A-22:FORS=S TOA:F=S:GOSUB101:NEXTS:GOTO22ELSEFORS=1TOA:F=S:GOSUB101:NEXTS:GOTO22 21 IFA>1THENGOSUB105:GOTO17 ELSE LOCATE2,J(P):PRINT:LOCATE2,J(P):ATTR2,2:LINEINPUT"LINES PER PAGE ? / MAXIMUM 26 > ";L$(0):LP=VAL(L$(0)):IFLP>26THENGOSUB104:GOTO21 ELSEWIDTH80:ATTR3,2:LOCATE0,22 22 POKE282,0:PRINT:GOSUB74 23 IFST=1THENA=A-1:GOTO24ELSE22 24 POKE282,255:WIDTH40:GOSUB104:GOTO15 25 ' List to screen. 26 IFA=0THEN19ELSEIFA<23THEN27ELSELOCATE11,J(P):PRINTS$:LOCATE11,J(P):ATTR2,2:PRINT"STARTING LINE > ";:LINEINPUTSL$:SL=VAL(SL$):IFSL>A THENLOCATE11,J(P):ATTR1,2,B:PRINT"LAST LINE IN FILE IS";A:GOSUB103:GOTO26 27 WIDTH80:LOCATE0,22:POKE65497,.:ATTR2,2:IFA>21THENFORS=SL TOSL+21:GOSUB33:NEXTS:S=S-1:GOSUB34 ELSEIFA<22 THENFORS=1TO A:GOSUB33:NEXTS:GOTO31 28 P$=INKEY$ 29 IFA<>S ANDPEEK(342)=247THENS=S+1:GOSUB33ELSEGOSUB34 30 IFS ";E$:E=VAL(E$):IFE=0THEN14ELSEIFE>A THENLOCATE15,12:ATTR3,2,B:PRINT"THERE ARE ONLY";A;"LINES IN THIS FILE":ATTR3,2:GOSUB103:LOCATE15,12:PRINT:LOCATE55,9:PRINT:GOTO38 39 LL=LEN(L$(E)):L$=LEFT$(L$(E),LL)+RIGHT$(L$,LEN(L$)-LL):LOCATE0,15:PRINTSTRING$(9,32);"Page ";:PRINTUSING"##";PG;:PRINT" - Line ";:PRINTUSING"###";E;:PRINT" > ";L$:X=31:B=15:RT=1:LOCATEX,B:PRINT"";:GOSUB78 40 N=INSTR(1,HD$,CHR$(254)):HD$=LEFT$(HD$,N-1):L$(E)=HD$:HD$="":LOCATE31,15:PRINTL$(E):X=31:B=15:L$=STRING$(42,127)+" ]":GOTO38 41 ' Load 42 IFA>0THENGOSUB105:GOTO17 43 LOCATE11,J(P):ATTR2,2:PRINT"FILENAME >":LOCATE22,J(P):LINEINPUTF$:IFLEN(F$)>8 THENLOCATE12,J(P):PRINT:GOSUB104:GOTO43 44 IFF$=""THENLOCATE8,J(P):ATTR3,2:PRINTA$(P):GOTO17 ELSEF$=F$+"/DAT" 45 LOCATE8,J(P):ATTR1,2,B:PRINT"NOW LOADING ";F$:ATTR3,2 46 POKE65496,.:OPEN"D",#1,F$,42:LO=LOF(1):CLOSE#1:IFLO=0 THENKILLF$:LOCATE8,J(P):ATTR1,2:PRINTF$;" DOES NOT EXIST":GOSUB103:LOCATE8,J(P):PRINTS$:LOCATE8,J(P):ATTR3,2:PRINTA$(P):GOTO17 47 FL=A:OPEN"D",#1,F$,42 48 FIELD#1,42 AS A$ 49 FORA=1TOLOF(1):GET#1,A:L$(A-1)=A$ 50 NEXTA:CLOSE#1:POKE65497,.:LP=VAL(L$(0)):GOSUB104:A=A-2:LOCATE8,J(P):ATTR3,2:PRINTA$(P):GOTO17 51 ' Save 52 IFA=0THEN19 53 LOCATE11,J(P):PRINT"FILENAME >":LOCATE22,J(P):LINEINPUTF$:IFLEN(F$)>8 THENLOCATE12,7:PRINT:GOSUB104:GOTO53 54 IFF$=""THENLOCATE8,J(P):ATTR3,2:PRINTA$(P):GOTO17 ELSEF$=F$+"/DAT" 55 LOCATE8,J(P):ATTR1,2,B:PRINT"NOW SAVING ";F$:ATTR3,2 56 POKE65496,.:OPEN"D",#1,F$,42:FIELD#1,42 AS A$ 57 LSETA$=L$(0):PUT#1,1:FORT=1 TO A:LSET A$=L$(T):PUT#1,(T+1) 58 NEXTT:CLOSE#1:POKE65497,.:LOCATE8,J(P):ATTR3,2:PRINTA$(P):GOTO17 59 Y=J(P):IFA=0THENATTR3,2:LOCATE8,Y:PRINTA$(P):GOTO19ELSEGOSUB104:LOCATE11,Y:ATTR2,2:PRINT"<":LOCATE12,Y:ATTR1,2,B:PRINT"D";:LOCATE13,Y:ATTR2,2:PRINT">ELETE OR <";:LOCATE24,Y:ATTR1,2,B:PRINT"I";:LOCATE25,Y:ATTR2,2:PRINT">NSERT":GOSUB104:ATTR3,2 60 P$=INKEY$:IFP$=""THEN60 61 POKE65497,.:IFP$="D"THENLOCATE11,Y:ATTR2,2:PRINT"LINE TO BE DELETED":GOTO62 ELSEIFP$="I"THENLOCATE11,Y:ATTR2,2:PRINT"LINE TO BE INSERTED" 62 LOCATE30,Y:ATTR3,2:PRINT">":LOCATE31,Y:LINEINPUTDL$:DL=VAL(DL$):IFDL=0THENLOCATE8,Y:ATTR3,2:PRINTA$(P):GOTO17 63 IFDL>A ANDP$="D" OR DL>A+1 THENLOCATE11,Y:ATTR1,2:PRINT"LAST LINE IS";A:GOSUB103:LOCATE8,Y:ATTR3,2:PRINTA$(P):GOTO17 64 IFP$="I"THENWIDTH80:WP=1:LN=20:GOTO68 ELSELOCATE11,Y:ATTR1,2,B:PRINT"W O R K I N G":ATTR3,2 65 L$(DL)="":FORT=DL TO A:SS$=L$(T+1):L$(DL)=SS$:DL=DL+1:NEXTT:A=A-1 66 LOCATE11,Y:ATTR2,2:PRINT"[NUMBER] OR [ENTER]":GOTO62 67 ' Insert 68 LOCATE26,LN:ATTR1,2:PRINT"NOW INSERTING LINE NUMBER ";DL:ATTR2,2:LN=LN-1:IFLN=2THENLOCATE35,LN:ATTR2,2,B:PRINT"LAST LINE":GOSUB104:ATTR2,2 ELSEIFLN=1THENST=1:GOTO72 69 IFA>=341 THENLOCATE0,22:PRINT:LOCATE23,22:ATTR1,2,B:PRINT"BUFFER IS FULL. YOU HAVE 341 LINES":GOSUB103:GOTO15 70 X=31:B=22:A=A+1:QQ=1:POKE282,0:IFINT(DL/LP)=DL/LP THENPG=INT(DL/LP) ELSEPG=INT(DL/LP)+1 71 L$=STRING$(42,127)+" ]":LOCATE0,22:ATTR2,2:PRINTSTRING$(9,32);"Page ";:PRINTUSING"##";PG;:PRINT" = Line ";:PRINTUSING"###";DL;:PRINT" > ";:LOCATE31,22:PRINTL$;:GOSUB78 72 FORT=A TO DL STEP-1:L$(T+1)=L$(T):L$(T)="":NEXT:L$(DL)=HD$:DL=DL+1:GOTO68 73 ' The input Editor. 74 L$=STRING$(42,127)+" ]":X=31:B=22:A=A+1:IFA=342THENA=A-1:GOTO14ELSEIFINT(A/LP)=A/LP THENPG=INT(A/LP) ELSEPG=INT(A/LP)+1 75 LOCATE0,22:ATTR2,2:PRINTSTRING$(9,32);"Page ";:PRINTUSING"##";PG;:PRINT" - Line ";:PRINTUSING"###";A;:PRINT" > ";:LOCATE31,22:PRINTL$; 76 IFA=341THENGOSUB104:GOSUB104:LOCATE9,22:ATTR1,2,B:PRINT"L A S T L I N E";:ATTR3,2 77 POKE65497,0:X=31:B=22:LOCATEX,B:PRINT""; 78 P$=INKEY$:IFP$=""THEN78 79 IF PEEK(341)=191 THENEXEC:Q=1:P$="":GOTO78 80 IFQ=1 THEN QW=ASC(P$) 81 IFQ=1 AND(QW=>48 AND QW<=57)THEN AA=113ELSEIFQ=1 AND(QW=>65 AND QW<=90)THEN AA=107ELSEIFQ=1 AND(QW=>97 AND QW<=122)THEN AA=101 82 IFQ=1 THEN P$=CHR$(AA+QW):Q=0:AA=0 83 EXEC:IFP$=CHR$(10)ANDX=31THENX=36:L$=STRING$(5,32)+RIGHT$(L$,LEN(L$)-5):LOCATE31,B:PRINTL$;:LOCATEX,B:PRINT"";:GOTO78 84 IF(X-31)=LEN(L$)-2ANDP$<>CHR$(13)ANDP$<>CHR$(8)THENGOSUB104:GOTO78 85 IFP$=CHR$(9)THENX=X+1:IF(X-31)=LEN(L$)-2THENX=71:LOCATEX,B:GOTO78 86 IFP$=CHR$(8)THENX=X-1:IFX<31THENX=31 87 IFP$=CHR$(8)ORP$=CHR$(9)ORP$=CHR$(10)ORP$=CHR$(12)ORPEEK(344)=191THENLOCATEX,B:PRINT"";:GOTO78 88 IFP$=CHR$(13)ANDX=31THENA=A-1:QQ=0:GOTO15 89 IFP$=CHR$(13)THENP$=CHR$(254):LOCATE31,B:PRINT""; 90 MID$(L$,(X-30),1)=P$:LOCATEX,B:PRINTP$;:LOCATE31,B:PRINTL$;:X=X+1 91 IFMID$(L$,(X-31),1)=CHR$(254)THENHD$=L$:L$="":GOTO93 92 LOCATEX,B:PRINT"";:GOTO78 93 IFRT=1THENRT=0:RETURNELSEN=INSTR(1,HD$,CHR$(254)):HD$=LEFT$(HD$,N-1):IFQQ=1 THEN95ELSEL$(A)=HD$:HD$="" 94 LOCATE0,22:ATTR3,2:PRINTSTRING$(9,32);"Page ";:PRINTUSING"##";PG;:PRINT" - Line ";:PRINTUSING"###";A;:PRINT" > ";L$(A):RETURN 95 LOCATE0,22:ATTR3,2:PRINTSTRING$(9,32);"Page ";:PRINTUSING"##";PG;:PRINT" - Line ";:PRINTUSING"###";DL;:PRINT" > ";HD$:PRINT:RETURN 96 'Gosubs. 97 WIDTH80:UNLOAD:POKE65496,.:POKE282,255:ATTR3,2:END 98 GOSUB104:LOCATE11,20:ATTR2,2:PRINT"CLEAR MEMORY <":LOCATE25,20:ATTR1,2,B:PRINT"Y":LOCATE26,20:ATTR2,2:PRINT"> OR <":LOCATE32,20:ATTR1,2,B:PRINT"N":LOCATE33,20:ATTR2,2:PRINT">" 99 P$=INKEY$:IFP$="Y"THEN100ELSEIFP$="N"THENLOCATE11,20:ATTR3,2:PRINT"CLEAR MEMORY":GOTO17ELSE99 100 LOCATE11,20:ATTR2,2,B:PRINT"NOW CLEARING MEMORY":GOSUB104:FORT=0TOA:L$(T)="":NEXTT:A=0:W=0:ST=0:F$="":LOCATE11,20:ATTR3,2:PRINT"CLEAR MEMORY":GOTO17 101 IFINT(F/LP)=F/LP THENPG=INT(F/LP) ELSE PG=INT(F/LP)+1 102 PRINTSTRING$(9,32);"Page ";:PRINTUSING"##";PG;:PRINT" - Line ";:PRINTUSING"###";F;:PRINT" > ";L$(S):RETURN 103 GOSUB104:FORT=1TO2500:NEXTT:RETURN 104 FORG=1TO10:EXEC:NEXTG:RETURN 105 IFA=0THENLOCATE11,J(P):ATTR1,2,B:PRINT"BUFFER EMPTY":GOSUB103:LOCATE8,J(P):ATTR3,2:PRINTA$(P):RETURN ELSEIFA>1 THEN LOCATE11,J(P):ATTR1,2,B:PRINT"BUFFER FULL":GOSUB103:LOCATE8,J(P):ATTR3,2:PRINTA$(P):RETURN 106 WIDTH40:ATTR2,2:LOCATE11,8:PRINT"YOU PRESSED BREAK":LOCATE6,10:PRINT"PRESS SPACEBAR FOR MAIN MENU":LOCATE10,12:PRINT"ENTER TO END PROGRAM":GOSUB104 107 P$=INKEY$:IFP$=" "THEN15 ELSEIFP$=CHR$(13)THEN97ELSE107 108 ' Print Booklet. 109 IFA=0THENGOSUB105:GOTO17ELSEU=0:X=3:WIDTH80:LOCATE11,0:ATTR1,2:PRINT"YOU HAVE";A-3;"LINES. THE FOLLOWING OPTIONS ARE AVAILABLE":LOCATE11,1:PRINTSTRING$(56,42):ATTR3,2:POKE65497,. 110 LI=A-3:L=VAL(L$(0)):T=INT(LI/L):P=LI-(T*L):RT=1:IFL>26 OR T>21 THENATTR1,2:GOSUB112:ATTR3,2 ELSE GOSUB112 111 LI=A-3:FORT=21TO1STEP-1:L=INT(LI/T):P=LI-(T*L):IF L=P ORL<6 ORL>26 OR (T=22ANDP>0) THEN113 112 X=X+1:U=U+1:L(U)=L:P(U)=P:M(U)=T:LOCATE14,X:PRINTUSING"##";U;:PRINT".";:PRINTUSING"###";T;:PRINT" PAGES OF ";:PRINTUSING"##";L(U);:PRINT" LINES. AND ";:PRINTUSING"##";P(U);:PRINT" LINES ON PAGE ";:PRINTUSING"##";T+1:IFRT=1 THENRT=0:RETURN 113 NEXT:GOSUB104 114 LOCATE19,22:ATTR2,2:LINEINPUT"P R E S S N U M B E R D E S I R E D > ";P$:P=VAL(P$):IFP>U THENLOCATE64,22:PRINTSTRING$(10,32);:GOTO114 115 ATTR3,2:M=M(P):N=M:L=L(P):P=P(P):ML=M+1:IFP<>0 THENM=M+1 116 TS=INT((31-L)/2):BS=31-(L+TS):LB=31-P:IFBS<=TS THENTS=TS-1:BS=BS+1 117 RESTORE:FORT=1TO9:READA$:NEXT:FORT=10 TO M+9:READ DL,RL:NEXT 118 F=0:RESTORE:FORT=1TODL:READA$:NEXT:FORT=DL+1 TO RL+DL:F=F+1:READPG(F):NEXT 119 WIDTH40:LOCATE9,7:ATTR1,2:PRINT"NOW PRINTING BOOKLET":LOCATE9,8:PRINTSTRING$(22,42):ATTR2,2:POKE65496,. 120 LOCATE9,12:PRINT"YOU DECIDED ON";N;"PAGES":LOCATE9,14:PRINT"WITH";L;"LINES PER PAGE":LOCATE9,16:PRINT"AND";P;"LINES ON PAGE";ML 121 LOCATE6,21:ATTR1,2:PRINT"IS THIS CORRECT ES OR 0":GOSUB104 122 P$=INKEY$:IFP$=""THEN122ELSEIFP$="Y"THEN123ELSEIFP$="N"THEN109ELSE122 123 J=2:FORT=12TO21:LOCATE1,T:PRINTSTRING$(10,32):NEXTT:LOCATE11,14:ATTR2,2:PRINT"PRINTING COVER PAGE" 124 FORT=1TO12:PRINT#-J:NEXT:FORZ=1TO3:TA=73-(INT(LEN(L$(Z))/2)):PRINT#-J,TAB(TA);L$(Z):FORT=1TO2:PRINT#-J:NEXTT:NEXTZ:FORT=1TO12:PRINT#-J:NEXT:T=3:IFM<3THEN139 125 PRINT#-J:S$=STRING$(42,32):LOCATE1,14:PRINTS$:KL$="NOW PRINTING PAGES"+STR$(PG(T))+" AND"+STR$(PG(T+1)):KL=INT((40-LEN(KL$))/2):LOCATEKL,14:PRINTKL$ 126 IFPG(T)<>0 THENPRINT#-J,"Page";PG(T); 127 IFPG(T+1)<>0 THENPRINT#-J,TAB(85);"Page";PG(T+1) 128 IFPG(T)=0 AND PG(T+1)=0 THENT=T+2:EXEC:FORQ=1TO31:PRINT#-J:NEXTQ:GOTO125 129 FORK=1TO TS:PRINT#-J:NEXTK 130 IFPG(T)=0 THENLG=1 ELSEG=(PG(T)*L)+4-L:EN=G+L 131 T=T+1 132 IFPG(T)=0 THENLH=1 ELSEH=(PG(T)*L)+4-L:ED=H+L 133 T=T+1 134 IFLG=1THENPRINT#-J,S$;:G=0 ELSEPRINT#-J,TAB(2);L$(G);:G=G+1:IFG>341 THENLG=1 135 IFLH=1THENPRINT#-J,TAB(53);S$:H=0 ELSEPRINT#-J,TAB(53);L$(H):H=H+1:IFH>341THENLH=1 136 IFG=EN AND H=ED THEN 137ELSE134 137 FORI=1TOBS:PRINT#-J:NEXTI 138 IFT-1=F/2 THEN139 ELSE IFT-1=F THEN141 ELSELG=0:LH=0:G=0:H=0:GOTO125 139 ED=0:EN=0:LH=0:LG=0:LOCATE1,14:PRINT"PLEASE TURN PAPER OVER / PRESS ANY KEY":GOSUB104 140 IFINKEY$=""THEN140 ELSE125 141 ED=0:EN=0:LOCATE1,14:PRINTSTRING$(38,32):LOCATE6,14:PRINT"DONE, PRESS ANY KEY FOR MENU":GOSUB104 142 IFINKEY$=""THEN142ELSE15 143 ' Is the printer ready? 144 PR=PEEK(&HFF22):IFPR=4ORPR=6 THENRETURN 145 WIDTH80:GOSUB104:LOCATE23,12:ATTR2,2:PRINT"P R I N T E R N O T R E A D Y";:LOCATE13,14:PRINT"TURN ON PRINTER - PROGRAM WILL CONTINUE AUTOMATICALLY":GOSUB104:RETURN 142ELSE15 143 ' Is the printer ready? 144 PR=PEEK(&HFF22):IFPR=4ORPR=6 THENRETURN 145 WIDTH80:GOSUB104:LOCATE23,12:ATTR2,2:PRINT"P R I N T E R N O T R E A D Y";:LOCATE13,1