Listing of file='SCRDIR.DOC;01' on disk='vmedia/chip_63-sector.ccvf'
### Disk Sector 117 ### 00: 37 00 3c 00 00 00 00 00 b0 04 01 00 09 13 1d 27 7.<............' 10: 31 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1............... 20: 00 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 00 ................ 30: 00 00 00 00 00 00 00 ff 00 00 00 00 00 00 50 00 ..............P. 40: 0d 0d 10 41 53 53 45 4d 42 4c 59 20 4c 41 4e 47 ...ASSEMBLY LANG 50: 55 41 47 45 20 53 55 42 52 4f 55 54 49 4e 45 53 UAGE SUBROUTINES 60: 2c 20 50 61 72 74 20 66 6f 75 72 0d 10 2d 2d 2d , Part four..--- 70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------- ### Disk Sector 118 ### 00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------- 10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d 10 43 6f 6d 70 ---------...Comp 20: 69 6c 65 64 20 62 79 20 4d 79 72 6f 6e 20 54 2e iled by Myron T. 30: 20 53 74 65 66 66 79 0d 10 31 30 38 33 33 20 42 Steffy..10833 B 40: 72 6f 6f 6b 73 69 64 65 20 44 72 69 76 65 2c 20 rookside Drive, 50: 53 75 6e 20 43 69 74 79 2c 20 41 72 69 7a 6f 6e Sun City, Arizon 60: 61 20 38 35 33 35 31 0d 3d 3d 3d 3d 3d 3d 3d 3d a 85351.======== 70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ ### Disk Sector 119 ### 00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 20: 3d 3d 3d bd 0d 0d 54 68 69 73 20 69 6e 73 74 61 ===...This insta 30: 6c 6c 6d 65 6e 74 20 77 69 6c 6c 20 62 65 20 61 llment will be a 40: 20 63 6f 6d 70 6c 65 74 65 20 70 72 6f 67 72 61 complete progra 50: 6d 20 74 6f 20 6a 75 73 74 69 66 79 2c a0 70 72 m to justify,.pr 60: 69 6e 74 20 61 6e 64 20 73 74 6f 72 65 20 74 65 int and store te 70: 78 74 66 69 6c 65 73 20 6f 66 20 73 65 76 65 72 xtfiles of sever ### Disk Sector 120 ### 00: 61 6c 20 76 61 72 69 65 74 69 65 73 2e 20 20 54 al varieties. T 10: 6f a0 61 63 63 6f 6d 6f 64 61 74 65 20 61 6c 6c o.accomodate all 20: 20 6f 66 20 74 68 65 6d 20 72 65 71 75 69 72 65 of them require 30: 73 20 61 20 6c 69 74 74 6c 65 20 73 74 75 64 79 s a little study 40: 20 6f 66 20 74 68 65 69 72 a0 70 65 63 75 6c 69 of their.peculi 50: 61 72 69 74 69 65 73 2e 20 20 49 66 20 79 6f 75 arities. If you 60: 20 77 69 6c 6c 20 66 6f 6c 6c 6f 77 20 6d 65 20 will follow me 70: 74 68 72 6f 75 67 68 20 74 68 65 20 70 72 6f 67 through the prog ### Disk Sector 121 ### 00: 72 61 6d a0 66 69 6c 65 2c 20 49 20 77 69 6c 6c ram.file, I will 10: 20 74 72 79 20 74 6f 20 65 78 70 6c 61 69 6e 20 try to explain 20: 74 68 65 20 6f 64 64 69 74 69 65 73 20 74 68 61 the oddities tha 30: 74 20 63 6f 6e 66 72 6f 6e 74 20 75 73 2e 20 a0 t confront us. . 40: 4f 75 72 20 65 66 66 6f 72 74 73 20 77 69 6c 6c Our efforts will 50: 20 62 65 20 64 69 72 65 63 74 65 64 20 74 6f 20 be directed to 60: 74 68 65 20 68 61 6e 64 6c 69 6e 67 20 6f 66 20 the handling of 70: 74 65 78 74 a0 6d 61 74 65 72 69 61 6c 20 66 6f text.material fo ### Disk Sector 122 ### 00: 72 20 70 72 69 6e 74 69 6e 67 2c 20 73 69 6d 69 r printing, simi 10: 6c 61 72 20 74 6f 20 74 68 65 20 74 61 73 6b 20 lar to the task 20: 66 61 63 65 64 20 62 79 20 74 68 65 a0 45 64 69 faced by the.Edi 30: 74 6f 72 20 6f 66 20 27 46 4f 52 55 4d 20 49 4e tor of 'FORUM IN 40: 54 45 52 4e 41 54 49 4f 4e 41 4c 27 20 66 6f 72 TERNATIONAL' for 50: 20 65 61 63 68 20 69 73 73 75 65 2e 20 20 49 27 each issue. I' 60: 6d 20 73 75 72 65 a0 74 68 61 74 20 44 6f 75 67 m sure.that Doug 70: 20 50 65 65 6c 20 77 69 6c 6c 20 74 65 6c 6c 20 Peel will tell ### Disk Sector 123 ### 00: 79 6f 75 20 74 68 61 74 20 74 68 69 73 20 69 73 you that this is 10: 20 61 6e 20 65 6e 6f 72 6d 6f 75 73 20 6a 6f 62 an enormous job 20: a0 61 6e 64 20 74 68 69 73 20 70 72 6f 67 72 61 .and this progra 30: 6d 20 69 73 20 64 65 64 69 63 61 74 65 64 20 74 m is dedicated t 40: 6f 20 68 69 6d 2e 0d 0d 57 65 20 68 61 76 65 20 o him...We have 50: 61 74 20 6c 65 61 73 74 20 66 6f 75 72 20 74 79 at least four ty 60: 70 65 73 20 6f 66 20 66 69 6c 65 73 20 74 68 61 pes of files tha 70: 74 20 77 65 20 63 61 6e 20 70 72 69 6e 74 2e 20 t we can print. ### Disk Sector 124 ### 00: a0 54 68 65 20 6f 6e 65 20 77 69 74 68 20 77 68 .The one with wh 10: 69 63 68 20 79 6f 75 20 61 72 65 20 6d 6f 73 74 ich you are most 20: 20 66 61 6d 69 6c 69 61 72 20 69 73 20 74 68 65 familiar is the 30: a0 61 73 73 65 6d 62 6c 79 2d 6c 61 6e 67 75 61 .assembly-langua 40: 67 65 20 73 6f 75 72 63 65 20 63 6f 64 65 20 70 ge source code p 50: 72 6f 64 75 63 65 64 20 62 79 20 74 68 65 20 53 roduced by the S 60: 63 72 65 65 6e a0 45 64 69 74 6f 72 2e 20 20 48 creen.Editor. H 70: 65 72 65 20 65 61 63 68 20 6c 69 6e 65 20 69 73 ere each line is ### Disk Sector 125 ### 00: 20 63 6f 6e 76 65 6e 69 65 6e 74 6c 79 20 74 65 conveniently te 10: 72 6d 69 6e 61 74 65 64 20 77 69 74 68 20 61 a0 rminated with a. 20: 63 61 72 72 69 61 67 65 20 72 65 74 75 72 6e 20 carriage return 30: 28 43 2f 52 29 20 61 6e 64 20 61 20 6c 69 6e 65 (C/R) and a line 40: 20 66 65 65 64 20 28 4c 2f 46 29 2e 20 20 54 68 feed (L/F). Th 50: 65 20 70 72 69 6e 74 69 6e 67 a0 70 72 6f 62 6c e printing.probl 60: 65 6d 20 69 73 20 72 61 74 68 65 72 20 73 69 6d em is rather sim 70: 70 6c 65 3b 20 20 6e 6f 20 6e 65 65 64 20 74 6f ple; no need to ### Disk Sector 126 ### 00: 20 6a 75 73 74 69 66 79 20 6f 72 20 63 6f 6e 63 justify or conc 10: 65 72 6e a0 79 6f 75 72 73 65 6c 66 20 77 69 74 ern.yourself wit 20: 68 20 6c 69 6e 65 20 6c 65 6e 67 74 68 73 2e 0d h line lengths.. 30: 0d 48 6f 77 65 76 65 72 2c 20 79 6f 75 20 63 61 .However, you ca 40: 6e 20 6d 61 6b 65 20 61 20 73 70 65 63 69 65 73 n make a species 50: 20 6f 66 20 77 6f 72 64 20 70 72 6f 63 65 73 73 of word process 60: 6f 72 20 6f 75 74 20 6f 66 a0 74 68 65 20 53 63 or out of.the Sc 70: 72 65 65 6e 20 45 64 69 74 6f 72 20 62 79 20 61 reen Editor by a ### Disk Sector 127 ### 00: 76 6f 69 64 69 6e 67 20 74 68 65 20 75 73 65 20 voiding the use 10: 6f 66 20 43 2f 52 27 73 20 61 6e 64 20 73 69 6d of C/R's and sim 20: 70 6c 79 a0 74 79 70 69 6e 67 20 27 61 72 6f 75 ply.typing 'arou 30: 6e 64 20 74 68 65 20 63 6f 72 6e 65 72 27 20 61 nd the corner' a 40: 6e 64 20 70 72 6f 63 65 73 73 69 6e 67 20 74 68 nd processing th 50: 65 20 74 65 78 74 20 6c 61 74 65 72 2e 20 a0 54 e text later. .T 60: 68 69 73 20 69 73 20 74 68 65 20 77 61 79 20 77 his is the way w 70: 6f 72 64 20 70 72 6f 63 65 73 73 6f 72 73 20 77 ord processors w ### Disk Sector 128 ### 00: 6f 72 6b 2e 20 20 54 68 65 20 64 69 73 70 6c 61 ork. The displa 10: 79 20 74 68 61 74 20 79 6f 75 a0 73 65 65 20 6f y that you.see o 20: 6e 20 61 20 77 6f 72 64 20 70 72 6f 63 65 73 73 n a word process 30: 6f 72 20 69 73 20 70 72 6f 64 75 63 65 64 20 62 or is produced b 40: 79 20 61 20 73 70 65 63 69 61 6c 20 63 6f 6e 74 y a special cont 50: 72 6f 6c a0 63 68 61 72 61 63 74 65 72 20 74 68 rol.character th 60: 61 74 20 74 65 72 6d 69 6e 61 74 65 73 20 74 68 at terminates th 70: 65 20 73 63 72 65 65 6e 20 6c 69 6e 65 20 77 68 e screen line wh ### Disk Sector 129 ### 00: 65 6e 20 74 68 65 20 73 63 72 65 65 6e a0 6c 69 en the screen.li 10: 6e 65 20 6c 65 6e 67 74 68 20 6c 69 6d 69 74 20 ne length limit 20: 69 73 20 61 70 70 72 6f 61 63 68 65 64 2e 20 20 is approached. 30: 49 66 20 79 6f 75 20 65 78 61 6d 69 6e 65 20 74 If you examine t 40: 68 65 20 66 69 6c 65 2c a0 68 6f 77 65 76 65 72 he file,.however 50: 2c 20 79 6f 75 20 77 69 6c 6c 20 66 69 6e 64 20 , you will find 60: 6e 6f 20 6c 69 6e 65 20 66 65 65 64 73 2c 20 6f no line feeds, o 70: 6e 6c 79 20 43 2f 52 27 73 2c 20 61 6e 64 20 74 nly C/R's, and t ### Disk Sector 130 ### 00: 68 6f 73 65 a0 6f 6e 6c 79 20 77 68 65 6e 20 61 hose.only when a 10: 20 70 61 72 61 67 72 61 70 68 20 69 73 20 77 61 paragraph is wa 20: 6e 74 65 64 2e 20 20 54 68 65 20 63 6f 6e 74 72 nted. The contr 30: 6f 6c 20 63 68 61 72 61 63 74 65 72 20 69 73 a0 ol character is. 40: 75 73 65 64 20 6f 6e 6c 79 20 66 6f 72 20 74 68 used only for th 50: 65 20 73 63 72 65 65 6e 20 64 69 73 70 6c 61 79 e screen display 60: 2e 0d 0d 54 68 69 73 20 70 72 6f 67 72 61 6d 20 ...This program 70: 77 69 6c 6c 20 74 61 6b 65 20 79 6f 75 20 6f 6e will take you on ### Disk Sector 131 ### 00: 65 20 73 74 65 70 20 66 75 72 74 68 65 72 2e 20 e step further. 10: 20 49 66 20 79 6f 75 20 68 61 76 65 a0 74 65 78 If you have.tex 20: 74 2d 74 79 70 65 20 6d 61 74 65 72 69 61 6c 20 t-type material 30: 70 72 65 70 61 72 65 64 20 77 69 74 68 20 74 68 prepared with th 40: 65 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20 e Screen Editor 50: 61 6e 64 20 77 69 74 68 a0 65 61 63 68 20 6c 69 and with.each li 60: 6e 65 20 74 65 72 6d 69 6e 61 74 65 64 20 77 69 ne terminated wi 70: 74 68 20 61 20 43 2f 52 2c 20 4c 2f 46 20 63 6f th a C/R, L/F co ### Disk Sector 132 ### 00: 6d 62 69 6e 61 74 69 6f 6e 2c 20 79 6f 75 20 77 mbination, you w 10: 69 6c 6c a0 62 65 20 61 62 6c 65 20 74 6f 20 72 ill.be able to r 20: 65 6d 6f 76 65 20 74 68 65 73 65 20 61 6e 64 20 emove these and 30: 6a 75 73 74 69 66 79 20 74 68 65 20 74 65 78 74 justify the text 40: 2e 20 20 54 68 65 20 6f 6e 6c 79 a0 72 65 71 75 . The only.requ 50: 69 72 65 6d 65 6e 74 20 69 73 20 74 68 61 74 20 irement is that 60: 61 20 70 61 72 61 67 72 61 70 68 20 62 65 20 69 a paragraph be i 70: 6e 64 69 63 61 74 65 64 20 62 79 20 74 77 6f 20 ndicated by two ### Disk Sector 133 ### 00: 43 2f 52 27 73 2c a0 77 68 69 63 68 20 79 6f 75 C/R's,.which you 10: 20 77 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 20 would normally 20: 64 6f 20 61 6e 79 77 61 79 2e 0d 0d 54 68 65 20 do anyway...The 30: 43 4f 4d 50 2d 55 2d 57 52 49 54 45 52 2c 20 77 COMP-U-WRITER, w 40: 68 69 63 68 20 77 65 20 77 69 6c 6c 20 63 61 6c hich we will cal 50: 6c 20 27 53 43 52 49 42 45 27 20 66 72 6f 6d 20 l 'SCRIBE' from 60: 6e 6f 77 20 6f 6e 2c a0 75 73 65 73 20 41 30 48 now on,.uses A0H 70: 20 74 6f 20 74 65 72 6d 69 6e 61 74 65 20 73 63 to terminate sc ### Disk Sector 134 ### 00: 72 65 65 6e 20 6c 69 6e 65 73 2e 20 20 54 68 69 reen lines. Thi 10: 73 20 69 73 20 65 61 73 69 6c 79 20 74 75 72 6e s is easily turn 20: 65 64 a0 69 6e 74 6f 20 61 20 27 73 70 61 63 65 ed.into a 'space 30: 27 20 28 32 30 48 29 20 62 79 20 41 4e 44 69 6e ' (20H) by ANDin 40: 67 20 69 74 20 77 69 74 68 20 37 46 48 2e 20 20 g it with 7FH. 50: 4f 74 68 65 72 20 63 6f 6e 74 72 6f 6c a0 63 68 Other control.ch 60: 61 72 61 63 74 65 72 73 20 75 73 65 64 20 62 79 aracters used by 70: 20 53 43 52 49 42 45 20 69 6e 63 6c 75 64 65 20 SCRIBE include ### Disk Sector 135 ### 00: 31 30 48 20 66 6f 72 20 63 65 6e 74 65 72 69 6e 10H for centerin 10: 67 20 61 a0 73 74 72 69 6e 67 2c 20 31 31 48 2c g a.string, 11H, 20: 20 31 32 48 20 61 6e 64 20 31 33 48 20 66 6f 72 12H and 13H for 30: 20 6f 76 65 72 73 74 72 69 6b 69 6e 67 2c 20 41 overstriking, A 40: 37 20 6f 66 66 20 61 6e 64 a0 75 6e 64 65 72 6c 7 off and.underl 50: 69 6e 69 6e 67 2e 20 20 54 68 65 73 65 20 6d 75 ining. These mu 60: 73 74 20 61 6c 6c 20 62 65 20 61 63 63 6f 75 6e st all be accoun 70: 74 65 64 20 66 6f 72 20 74 6f 20 70 72 69 6e 74 ted for to print ### Disk Sector 136 ### 00: 20 61 6e 64 a0 6a 75 73 74 69 66 79 20 74 68 69 and.justify thi 10: 73 20 74 79 70 65 20 6f 66 20 74 65 78 74 2e 0d s type of text.. 20: 0d 0d 54 6f 20 63 6f 6d 70 6c 69 63 61 74 65 20 ..To complicate 30: 6d 61 74 74 65 72 73 20 66 75 72 74 68 65 72 2c matters further, 40: 20 61 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e a later version 50: 20 6f 66 20 53 43 52 49 42 45 a0 68 61 73 20 70 of SCRIBE.has p 60: 72 6f 76 69 73 69 6f 6e 20 66 6f 72 20 73 61 76 rovision for sav 70: 69 6e 67 20 61 20 66 69 6c 65 20 69 6e 20 61 20 ing a file in a ### Disk Sector 137 ### 00: 66 6f 72 6d 20 63 61 6c 6c 65 64 20 27 44 4f 43 form called 'DOC 10: 27 2e 20 a0 54 68 69 73 20 70 61 72 74 69 63 75 '. .This particu 20: 6c 61 72 20 66 69 6c 65 20 77 69 6c 6c 20 61 70 lar file will ap 30: 70 65 61 72 20 69 6e 20 74 68 65 20 64 69 73 63 pear in the disc 40: 20 64 69 72 65 63 74 6f 72 79 20 61 6e 64 a0 63 directory and.c 50: 61 6e 20 62 65 20 69 6e 63 6c 75 64 65 64 20 77 an be included w 60: 69 74 68 20 6f 74 68 65 72 20 66 69 6c 65 73 20 ith other files 70: 6f 6e 20 61 20 64 69 72 65 63 74 6f 72 79 2d 74 on a directory-t ### Disk Sector 138 ### 00: 79 70 65 20 64 69 73 63 2e 0d 48 6f 77 65 76 65 ype disc..Howeve 10: 72 2c 20 69 66 20 65 78 61 6d 69 6e 65 64 20 77 r, if examined w 20: 69 74 68 20 74 68 65 20 53 63 72 65 65 6e 20 45 ith the Screen E 30: 64 69 74 6f 72 2c 20 69 74 20 61 70 70 65 61 72 ditor, it appear 40: 73 20 74 6f a0 62 65 20 61 6c 6d 6f 73 74 20 75 s to.be almost u 50: 6e 72 65 61 64 61 62 6c 65 2e 0d 0d 54 68 65 20 nreadable...The 60: 27 72 65 2d 6a 75 73 74 69 66 79 69 6e 67 27 20 're-justifying' 70: 70 72 6f 63 65 73 73 20 66 75 6e 63 74 69 6f 6e process function ### Disk Sector 139 ### 00: 73 20 62 79 20 6c 6f 6f 6b 69 6e 67 20 62 65 79 s by looking bey 10: 6f 6e 64 20 61 a0 43 2f 52 20 77 68 65 6e 20 65 ond a.C/R when e 20: 6e 63 6f 75 6e 74 65 72 65 64 2e 20 20 49 66 20 ncountered. If 30: 74 68 65 20 6e 65 78 74 20 63 68 61 72 61 63 74 the next charact 40: 65 72 20 69 73 20 61 20 6c 69 6e 65 a0 66 65 65 er is a line.fee 50: 64 2c 20 69 74 20 67 6f 65 73 20 74 6f 20 74 68 d, it goes to th 60: 65 20 74 68 69 72 64 20 63 68 61 72 61 63 74 65 e third characte 70: 72 20 74 6f 20 73 65 65 20 69 66 20 69 74 20 69 r to see if it i ### Disk Sector 140 ### 00: 73 a0 61 6e 6f 74 68 65 72 20 43 2f 52 2e 20 20 s.another C/R. 10: 49 66 20 73 6f 2c 20 74 68 65 20 61 73 73 75 6d If so, the assum 20: 70 74 69 6f 6e 20 69 73 20 74 68 61 74 20 61 20 ption is that a 30: 70 61 72 61 67 72 61 70 68 20 77 61 73 a0 69 6e paragraph was.in 40: 74 65 6e 64 65 64 2c 20 73 6f 20 74 68 65 20 70 tended, so the p 50: 72 6f 67 72 61 6d 20 72 65 70 6c 61 63 65 73 20 rogram replaces 60: 74 68 65 20 43 2f 52 20 77 69 74 68 20 61 20 27 the C/R with a ' 70: 37 27 2e 20 20 20 54 68 65 a0 70 72 6f 67 72 61 7'. The.progra ### Disk Sector 141 ### 00: 6d 20 74 68 65 6e 20 62 61 63 6b 73 20 75 70 20 m then backs up 10: 61 6e 64 20 72 65 70 6c 61 63 65 73 20 74 68 65 and replaces the 20: 20 66 69 72 73 74 20 43 2f 52 20 77 69 74 68 20 first C/R with 30: 61 a0 73 70 61 63 65 20 28 32 30 48 29 2e 20 20 a.space (20H). 40: 41 53 43 49 49 20 27 37 27 20 69 73 20 6e 6f 74 ASCII '7' is not 50: 20 75 73 65 64 20 62 79 20 74 68 65 20 43 6f 6d used by the Com 60: 70 75 63 6f 6c 6f 72 20 66 6f 72 20 61 a0 63 6f pucolor for a.co 70: 6e 74 72 6f 6c 20 63 68 61 72 61 63 74 65 72 2c ntrol character, ### Disk Sector 142 ### 00: 20 73 6f 20 74 68 65 20 27 37 27 20 77 69 6c 6c so the '7' will 10: 20 73 65 72 76 65 20 61 73 20 61 20 70 61 72 61 serve as a para 20: 67 72 61 70 68 a0 69 6e 64 69 63 61 74 6f 72 20 graph.indicator 30: 66 75 72 74 68 65 72 20 64 6f 77 6e 20 74 68 65 further down the 40: 20 6c 69 6e 65 2e 20 20 49 66 20 74 68 65 20 73 line. If the s 50: 65 63 6f 6e 64 20 43 2f 52 20 69 73 20 6e 6f 74 econd C/R is not 60: a0 66 6f 75 6e 64 2c 20 74 68 65 20 66 69 72 73 .found, the firs 70: 74 20 6f 6e 65 20 69 73 20 72 65 70 6c 61 63 65 t one is replace ### Disk Sector 143 ### 00: 64 20 77 69 74 68 20 32 30 48 20 28 73 70 61 63 d with 20H (spac 10: 65 29 20 61 6e 64 20 74 68 65 a0 6c 69 6e 65 20 e) and the.line 20: 70 72 6f 63 65 73 73 65 64 20 61 73 20 74 68 6f processed as tho 30: 75 67 68 20 74 68 65 20 43 2f 52 20 6e 65 76 65 ugh the C/R neve 40: 72 20 65 78 69 73 74 65 64 2e 20 20 0d 0d 54 68 r existed. ..Th 50: 69 73 20 6d 65 74 68 6f 64 20 64 6f 65 73 20 68 is method does h 60: 61 76 65 20 6c 69 6d 69 74 61 74 69 6f 6e 73 2e ave limitations. 70: 20 20 49 74 20 63 61 6e 6e 6f 74 20 64 69 73 74 It cannot dist ### Disk Sector 144 ### 00: 69 6e 67 75 69 73 68 a0 62 65 74 77 65 65 6e 20 inguish.between 10: 69 6e 74 65 6e 74 69 6f 6e 61 6c 6c 79 20 73 68 intentionally sh 20: 6f 72 74 20 6c 69 6e 65 73 20 73 75 63 68 20 61 ort lines such a 30: 73 20 74 69 74 6c 65 73 2c a0 73 61 6c 75 74 61 s titles,.saluta 40: 74 69 6f 6e 73 20 69 6e 20 61 20 6c 65 74 74 65 tions in a lette 50: 72 2c 20 6f 72 20 73 69 6d 69 6c 61 72 20 74 72 r, or similar tr 60: 75 6e 63 61 74 65 64 20 74 65 78 74 2e 20 20 20 uncated text. 70: a0 54 68 65 72 65 66 6f 72 65 20 69 74 20 77 69 .Therefore it wi ### Disk Sector 145 ### 00: 6c 6c 20 74 72 79 20 74 6f 20 6a 75 73 74 69 66 ll try to justif 10: 79 20 74 68 65 6d 20 61 6e 64 20 70 72 6f 64 75 y them and produ 20: 63 65 20 73 6f 6d 65 a0 72 61 74 68 65 72 20 77 ce some.rather w 30: 65 69 72 64 20 72 65 73 75 6c 74 73 2e 20 20 49 eird results. I 40: 74 20 77 69 6c 6c 2c 20 68 6f 77 65 76 65 72 2c t will, however, 50: 20 70 72 6f 63 65 73 73 20 74 68 65 6d a0 63 6f process them.co 60: 72 72 65 63 74 6c 79 20 69 66 20 74 68 65 73 65 rrectly if these 70: 20 73 68 6f 72 74 20 6c 69 6e 65 73 20 61 72 65 short lines are ### Disk Sector 146 ### 00: 20 73 65 70 61 72 61 74 65 64 20 62 79 20 74 77 separated by tw 10: 6f 20 43 2f 52 27 73 2e 20 a0 46 6f 72 20 70 6c o C/R's. .For pl 20: 61 69 6e 20 74 65 78 74 2c 20 73 75 63 68 20 61 ain text, such a 30: 73 20 6d 61 67 61 7a 69 6e 65 20 61 72 74 69 63 s magazine artic 40: 6c 65 73 2c 20 69 74 20 77 69 6c 6c 20 64 6f 20 les, it will do 50: 74 68 65 a0 6a 6f 62 20 6e 69 63 65 6c 79 2e 20 the.job nicely. 60: 20 54 61 62 73 20 61 72 65 20 61 63 63 65 70 74 Tabs are accept 70: 61 62 6c 65 20 61 73 20 77 65 6c 6c 20 61 73 20 able as well as ### Disk Sector 147 ### 00: 74 68 65 20 63 6f 6e 74 72 6f 6c a0 63 68 61 72 the control.char 10: 61 63 74 65 72 20 31 30 48 20 75 73 65 64 20 61 acter 10H used a 20: 73 20 61 20 63 65 6e 74 65 72 69 6e 67 20 64 65 s a centering de 30: 76 69 63 65 20 62 79 20 53 43 52 49 42 45 2e 20 vice by SCRIBE. 40: 20 44 6f 20 6e 6f 74 a0 75 73 65 20 73 70 61 63 Do not.use spac 50: 65 73 20 61 74 20 74 68 65 20 73 74 61 72 74 20 es at the start 60: 6f 66 20 61 20 6c 69 6e 65 20 6f 66 20 74 65 78 of a line of tex 70: 74 2e 20 20 54 68 65 79 20 77 69 6c 6c 20 62 65 t. They will be ### Disk Sector 148 ### 00: a0 72 65 6d 6f 76 65 64 20 62 79 20 74 68 65 20 .removed by the 10: 70 72 6f 67 72 61 6d 2e 0d 0d 54 6f 20 6d 61 6b program...To mak 20: 65 20 69 74 20 61 20 74 72 75 6c 79 20 75 6e 69 e it a truly uni 30: 76 65 72 73 61 6c 20 70 72 69 6e 74 69 6e 67 20 versal printing 40: 70 72 6f 67 72 61 6d 2c 20 69 74 20 77 69 6c 6c program, it will 50: 20 61 6c 73 6f a0 67 65 6e 65 72 61 74 65 20 61 also.generate a 60: 6e 20 53 52 43 20 74 79 70 65 20 66 69 6c 65 20 n SRC type file 70: 61 6e 64 20 73 74 6f 72 65 20 69 74 20 69 6e 20 and store it in ### Disk Sector 149 ### 00: 52 41 4d 20 77 68 65 72 65 20 69 74 20 63 61 6e RAM where it can 10: a0 62 65 20 73 61 76 65 64 20 74 6f 20 64 69 73 .be saved to dis 20: 63 20 74 6f 20 62 65 20 72 65 61 64 20 62 79 20 c to be read by 30: 61 6c 6c 20 6f 66 20 74 68 65 20 75 73 75 61 6c all of the usual 40: 20 6d 65 61 6e 73 2e 20 a0 54 68 65 72 65 20 61 means. .There a 50: 72 65 20 6d 61 6e 79 20 6f 74 68 65 72 20 6f 70 re many other op 60: 74 69 6f 6e 73 20 77 68 69 63 68 20 20 77 69 6c tions which wil 70: 6c 20 62 65 20 65 78 70 6c 61 69 6e 65 64 20 61 l be explained a ### Disk Sector 150 ### 00: 73 20 77 65 a0 67 6f 20 61 6c 6f 6e 67 2e 0d 0d s we.go along... 10: 54 68 69 73 20 70 72 6f 67 72 61 6d 20 77 68 69 This program whi 20: 63 68 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 ch will be calle 30: 64 20 27 53 43 52 49 50 54 27 2c 20 73 74 61 72 d 'SCRIPT', star 40: 74 73 20 6f 66 66 20 69 6e a0 74 68 65 20 63 6f ts off in.the co 50: 6e 76 65 6e 74 69 6f 6e 61 6c 20 6d 61 6e 6e 65 nventional manne 60: 72 20 66 72 6f 6d 20 42 61 73 69 63 20 77 69 74 r from Basic wit 70: 68 20 73 61 76 69 6e 67 20 48 4c 20 61 6e 64 20 h saving HL and ### Disk Sector 151 ### 00: 74 68 65 a0 73 74 61 63 6b 20 70 6f 69 6e 74 65 the.stack pointe 10: 72 2c 20 63 61 6c 6c 69 6e 67 20 27 53 65 74 75 r, calling 'Setu 20: 70 27 2c 20 70 72 69 6e 74 69 6e 67 20 74 68 65 p', printing the 30: 20 74 69 74 6c 65 20 62 75 74 20 61 6c 73 6f a0 title but also. 40: 63 6c 65 61 72 69 6e 67 20 74 68 65 20 73 65 63 clearing the sec 50: 74 69 6f 6e 20 6f 66 20 6d 65 6d 6f 72 79 20 74 tion of memory t 60: 6f 20 62 65 20 75 73 65 64 20 62 79 20 74 68 65 o be used by the 70: 20 74 65 78 74 2e 20 a0 54 68 69 73 20 70 72 6f text. .This pro ### Disk Sector 152 ### 00: 67 72 61 6d 20 73 65 6e 73 65 73 20 74 65 72 6d gram senses term 10: 69 6e 61 74 69 6f 6e 20 6f 66 20 66 69 6c 65 20 ination of file 20: 61 6e 64 20 62 75 66 66 65 72 20 63 6f 6e 74 65 and buffer conte 30: 6e 74 a0 77 68 65 6e 20 69 74 20 65 6e 63 6f 75 nt.when it encou 40: 6e 74 65 72 73 20 61 20 7a 65 72 6f 2e 20 54 6f nters a zero. To 50: 20 62 65 20 61 62 6c 65 20 74 6f 20 72 65 74 61 be able to reta 60: 69 6e 20 61 20 66 69 6c 65 20 69 6e a0 6d 65 6d in a file in.mem 70: 6f 72 79 2c 20 61 20 72 65 2d 65 6e 74 72 79 20 ory, a re-entry ### Disk Sector 153 ### 00: 70 6f 69 6e 74 20 69 73 20 70 72 6f 76 69 64 65 point is provide 10: 64 20 77 68 69 63 68 20 62 79 70 61 73 73 65 73 d which bypasses 20: 20 74 68 65 a0 73 74 61 72 74 69 6e 67 20 73 65 the.starting se 30: 74 75 70 2e 20 20 41 66 74 65 72 20 27 52 45 4e tup. After 'REN 40: 54 52 27 2c 20 74 68 65 20 73 74 61 63 6b 20 70 TR', the stack p 50: 6f 69 6e 74 65 72 20 69 73 a0 72 65 6c 6f 63 61 ointer is.reloca 60: 74 65 64 20 61 6e 64 20 61 6c 6c 20 63 6f 75 6e ted and all coun 70: 74 65 72 73 20 61 72 65 20 7a 65 72 6f 65 64 2e ters are zeroed. ### Disk Sector 154 ### 00: 20 20 54 68 65 20 70 72 6f 67 72 61 6d 20 69 73 The program is 10: a0 6e 6f 72 6d 61 6c 6c 79 20 72 65 2d 65 6e 74 .normally re-ent 20: 65 72 65 64 20 77 69 74 68 20 74 68 65 20 42 61 ered with the Ba 30: 73 69 63 20 43 61 6c 6c 2d 4a 75 6d 70 2e 20 20 sic Call-Jump. 40: 0d 0d 49 6e 20 6f 72 64 65 72 20 74 6f 20 6a 75 ..In order to ju 50: 73 74 69 66 79 20 74 68 65 20 72 69 67 68 74 20 stify the right 60: 6d 61 72 67 69 6e 20 6f 66 20 74 68 65 20 6f 75 margin of the ou 70: 74 70 75 74 2c 20 75 73 65 20 69 73 a0 6d 61 64 tput, use is.mad ### Disk Sector 155 ### 00: 65 20 6f 66 20 74 77 6f 20 62 75 66 66 65 72 73 e of two buffers 10: 2c 20 61 20 6c 69 6e 65 20 62 75 66 66 65 72 20 , a line buffer 20: 28 4c 49 4e 42 55 46 29 20 61 6e 64 20 61 20 70 (LINBUF) and a p 30: 72 69 6e 74 a0 62 75 66 66 65 72 20 28 50 52 54 rint.buffer (PRT 40: 42 55 46 29 2e 20 20 46 6f 72 20 61 20 36 30 20 BUF). For a 60 50: 63 68 61 72 61 63 74 65 72 20 6c 69 6e 65 2c 20 character line, 60: 77 65 20 77 69 6c 6c 20 65 78 61 6d 69 6e 65 a0 we will examine. 70: 74 68 65 20 66 69 72 73 74 20 36 32 20 63 68 61 the first 62 cha ### Disk Sector 156 ### 00: 72 61 63 74 65 72 73 20 74 6f 20 61 6c 6c 6f 77 racters to allow 10: 20 66 6f 72 20 74 68 65 20 70 6f 73 73 69 62 69 for the possibi 20: 6c 69 74 79 20 74 68 61 74 a0 74 68 65 20 6c 61 lity that.the la 30: 73 74 20 74 77 6f 20 6d 61 79 20 62 65 20 61 20 st two may be a 40: 73 70 61 63 65 20 28 32 30 48 29 20 61 6e 64 20 space (20H) and 50: 61 20 43 2f 52 20 28 30 44 48 29 2e 0d 0d 0d 49 a C/R (0DH)....I 60: 66 20 61 20 43 2f 52 20 69 73 20 64 65 74 65 63 f a C/R is detec 70: 74 65 64 20 6f 6e 20 6f 72 20 62 65 66 6f 72 65 ted on or before ### Disk Sector 157 ### 00: 20 74 68 65 20 36 32 6e 64 20 63 68 61 72 61 63 the 62nd charac 10: 74 65 72 2c 20 74 68 65 a0 6c 69 6e 65 20 69 73 ter, the.line is 20: 20 74 65 72 6d 69 6e 61 74 65 64 20 61 74 20 6f terminated at o 30: 6e 63 65 20 61 6e 64 20 74 68 65 20 70 72 6f 67 nce and the prog 40: 72 61 6d 20 6a 75 6d 70 73 20 74 6f 20 61 a0 73 ram jumps to a.s 50: 75 62 72 6f 75 74 69 6e 65 20 63 61 6c 6c 65 64 ubroutine called 60: 20 4c 49 4e 45 4e 44 2c 20 77 68 69 63 68 20 74 LINEND, which t 70: 72 61 6e 73 66 65 72 73 20 74 68 65 20 6c 69 6e ransfers the lin ### Disk Sector 158 ### 00: 65 20 20 69 6e 74 61 63 74 a0 74 6f 20 74 68 65 e intact.to the 10: 20 50 52 54 42 55 46 20 61 6e 64 20 70 72 69 6e PRTBUF and prin 20: 74 73 20 69 74 20 77 69 74 68 6f 75 74 20 66 75 ts it without fu 30: 72 74 68 65 72 20 70 72 6f 63 65 73 73 69 6e 67 rther processing 40: 2e 0d 0d 49 66 20 61 20 7a 65 72 6f 20 28 4e 4f ...If a zero (NO 50: 50 29 20 61 70 70 65 61 72 73 20 69 6e 20 74 68 P) appears in th 60: 65 20 6c 69 6e 65 2c 20 69 74 20 6d 65 61 6e 73 e line, it means 70: 20 74 68 61 74 20 74 68 65 20 65 6e 64 a0 6f 66 that the end.of ### Disk Sector 159 ### 00: 20 74 68 65 20 66 69 6c 65 20 68 61 73 20 62 65 the file has be 10: 65 6e 20 72 65 61 63 68 65 64 2e 20 20 54 68 65 en reached. The 20: 20 70 72 6f 67 72 61 6d 20 74 68 65 6e 20 69 73 program then is 30: 20 73 65 6e 74 20 74 6f a0 61 6e 6f 74 68 65 72 sent to.another 40: 20 73 70 65 63 69 61 6c 20 73 75 62 72 6f 75 74 special subrout 50: 69 6e 65 20 63 61 6c 6c 65 64 20 27 54 58 54 45 ine called 'TXTE 60: 4e 44 27 20 66 6f 72 20 70 72 69 6e 74 69 6e 67 ND' for printing 70: 20 27 61 73 a0 69 73 27 20 61 6e 64 20 65 78 69 'as.is' and exi ### Disk Sector 160 ### 00: 74 69 6e 67 20 74 68 65 20 70 72 6f 67 72 61 6d ting the program 10: 2e 0d 0d 54 68 65 20 6d 61 6a 6f 72 69 74 79 20 ...The majority 20: 6f 66 20 74 68 65 20 36 32 2d 63 68 61 72 61 63 of the 62-charac 30: 74 65 72 20 67 72 6f 75 70 73 20 77 69 6c 6c 20 ter groups will 40: 6e 6f 74 20 63 6f 6e 74 61 69 6e a0 65 69 74 68 not contain.eith 50: 65 72 20 61 20 43 2f 52 20 6f 72 20 61 20 7a 65 er a C/R or a ze 60: 72 6f 20 61 6e 64 20 77 69 6c 6c 20 67 6f 20 74 ro and will go t 70: 68 72 6f 75 67 68 20 74 68 65 a0 6a 75 73 74 69 hrough the.justi ### Disk Sector 161 ### 00: 66 69 63 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 fication procedu 10: 72 65 2e 20 20 46 75 6e 64 61 6d 65 6e 74 61 6c re. Fundamental 20: 6c 79 20 74 68 69 73 20 63 6f 6e 73 69 73 74 73 ly this consists 30: 20 6f 66 a0 74 72 61 6e 73 66 65 72 69 6e 67 20 of.transfering 40: 74 68 69 73 20 67 72 6f 75 70 20 74 6f 20 4c 49 this group to LI 50: 4e 42 55 46 20 77 68 65 72 65 20 61 6e 6f 74 68 NBUF where anoth 60: 65 72 20 73 75 62 72 6f 75 74 69 6e 65 a0 69 73 er subroutine.is 70: 20 63 61 6c 6c 65 64 2c 20 28 4c 54 52 43 54 52 called, (LTRCTR ### Disk Sector 162 ### 00: 29 20 77 68 69 63 68 20 63 6f 75 6e 74 73 20 63 ) which counts c 10: 68 61 72 61 63 74 65 72 73 20 73 74 61 72 74 69 haracters starti 20: 6e 67 20 61 74 20 74 68 65 a0 72 65 61 72 20 65 ng at the.rear e 30: 6e 64 20 6f 66 20 74 68 65 20 67 72 6f 75 70 2c nd of the group, 40: 20 75 6e 74 69 6c 20 61 20 73 70 61 63 65 20 69 until a space i 50: 73 20 64 65 74 65 63 74 65 64 2e 20 20 54 68 69 s detected. Thi 60: 73 a0 67 69 76 65 73 20 75 73 20 74 68 65 20 65 s.gives us the e 70: 6e 64 20 6f 66 20 74 68 65 20 6c 61 73 74 20 63 nd of the last c ### Disk Sector 163 ### 00: 6f 6d 70 6c 65 74 65 20 77 6f 72 64 20 69 6e 20 omplete word in 10: 74 68 65 20 6c 69 6e 65 20 61 6e 64 a0 74 65 6c the line and.tel 20: 6c 73 20 75 73 20 74 68 65 20 6e 75 6d 62 65 72 ls us the number 30: 20 6f 66 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 of additional s 40: 70 61 63 65 73 20 74 68 61 74 20 68 61 76 65 20 paces that have 50: 74 6f 20 62 65 a0 61 64 64 65 64 20 74 6f 20 66 to be.added to f 60: 69 6c 6c 20 69 74 20 6f 75 74 20 74 6f 20 36 30 ill it out to 60 70: 20 63 68 61 72 61 63 74 65 72 73 2e 0d 0d 42 61 characters...Ba ### Disk Sector 164 ### 00: 63 6b 74 72 61 63 6b 69 6e 67 20 61 20 6c 69 74 cktracking a lit 10: 74 6c 65 20 74 6f 20 42 45 47 49 4e 2c 20 74 68 tle to BEGIN, th 20: 65 20 74 77 6f 20 62 75 66 66 65 72 73 20 61 72 e two buffers ar 30: 65 20 63 6c 65 61 72 65 64 a0 61 6e 64 20 63 6f e cleared.and co 40: 75 6e 74 65 72 73 20 7a 65 72 6f 65 64 2e 20 20 unters zeroed. 50: 41 74 20 42 45 47 30 32 20 69 74 20 6c 6f 6f 6b At BEG02 it look 60: 73 20 66 6f 72 20 61 20 7a 65 72 6f 2c 20 61 20 s for a zero, a 70: 43 2f 52 a0 61 6e 64 20 61 20 73 70 65 63 69 61 C/R.and a specia ### Disk Sector 165 ### 00: 6c 20 63 6f 6e 74 72 6f 6c 20 63 68 61 72 61 63 l control charac 10: 74 65 72 20 28 31 30 48 29 20 75 73 65 64 20 62 ter (10H) used b 20: 79 20 53 43 52 49 42 45 20 74 6f a0 63 65 6e 74 y SCRIBE to.cent 30: 65 72 20 61 20 73 68 6f 72 74 20 6c 69 6e 65 2e er a short line. 40: 20 20 49 66 20 74 68 65 20 6c 61 74 74 65 72 20 If the latter 50: 69 73 20 64 65 74 65 63 74 65 64 2c 20 61 20 66 is detected, a f 60: 6c 61 67 20 69 73 a0 73 65 74 20 66 6f 72 20 75 lag is.set for u 70: 73 65 20 66 75 72 74 68 65 72 20 64 6f 77 6e 20 se further down ### Disk Sector 166 ### 00: 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 20 54 68 the program. Th 10: 65 20 6a 75 6d 70 20 66 6f 72 20 61 20 66 75 6c e jump for a ful 20: 6c a0 6c 65 6e 67 74 68 20 6c 69 6e 65 20 69 73 l.length line is 30: 20 6d 61 64 65 20 74 6f 20 4d 4f 56 4c 49 4e 20 made to MOVLIN 40: 77 68 69 63 68 20 61 63 74 73 20 61 73 20 73 6f which acts as so 50: 72 74 20 6f 66 20 61 a0 74 72 61 66 66 69 63 20 rt of a.traffic 60: 63 6f 70 20 61 6e 64 20 64 69 72 65 63 74 73 20 cop and directs 70: 74 68 69 6e 67 73 20 75 6e 74 69 6c 20 74 68 65 things until the ### Disk Sector 167 ### 00: 20 6c 69 6e 65 20 69 73 20 72 65 61 64 79 20 74 line is ready t 10: 6f a0 70 72 69 6e 74 2e 20 20 54 68 65 20 61 63 o.print. The ac 20: 74 75 61 6c 20 6d 6f 76 65 20 69 73 20 6d 61 64 tual move is mad 30: 65 20 62 79 20 61 20 73 75 62 72 6f 75 74 69 6e e by a subroutin 40: 65 20 63 61 6c 6c 65 64 a0 4d 4f 56 42 55 46 20 e called.MOVBUF 50: 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 61 which contains a 60: 6e 20 65 6c 61 62 6f 72 61 74 65 20 66 69 6c 74 n elaborate filt 70: 65 72 69 6e 67 20 6d 65 63 68 61 6e 69 73 6d 2c ering mechanism, ### Disk Sector 168 ### 00: a0 77 68 6f 73 65 20 70 72 69 6d 61 72 79 20 66 .whose primary f 10: 75 6e 63 74 69 6f 6e 20 69 73 20 65 6c 69 6d 69 unction is elimi 20: 6e 61 74 65 20 74 68 65 20 75 6e 77 61 6e 74 65 nate the unwante 30: 64 20 63 68 61 72 61 63 74 65 72 73 a0 61 6e 64 d characters.and 40: 20 70 61 73 73 20 74 68 6f 73 65 20 6e 65 65 64 pass those need 50: 65 64 20 69 6e 20 74 68 65 20 70 72 69 6e 74 69 ed in the printi 60: 6e 67 20 6f 70 65 72 61 74 69 6f 6e 2e 20 0d 0d ng operation. .. 70: 41 20 6c 65 61 64 69 6e 67 20 73 70 61 63 65 20 A leading space ### Disk Sector 169 ### 00: 6f 72 20 61 20 4c 2f 46 20 61 74 20 74 68 65 20 or a L/F at the 10: 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 67 beginning of a g 20: 72 6f 75 70 20 69 73 a0 73 69 6d 70 6c 79 20 64 roup is.simply d 30: 69 73 63 61 72 64 65 64 20 61 6e 64 20 74 68 65 iscarded and the 40: 20 61 64 64 72 65 73 73 20 69 6e 63 72 65 6d 65 address increme 50: 6e 74 65 64 20 62 79 20 53 4b 49 50 2e 20 20 41 nted by SKIP. A 60: 6e a0 75 6e 77 61 6e 74 65 64 20 63 6f 6e 74 72 n.unwanted contr 70: 6f 6c 20 63 68 61 72 61 63 74 65 72 20 69 73 20 ol character is ### Disk Sector 170 ### 00: 68 61 6e 64 6c 65 64 20 6d 75 63 68 20 74 68 65 handled much the 10: 20 73 61 6d 65 20 77 61 79 20 62 79 a0 27 4d 4f same way by.'MO 20: 52 45 27 20 65 78 63 65 70 74 20 74 68 61 74 20 RE' except that 30: 6e 6f 77 20 74 68 65 20 73 74 61 72 74 69 6e 67 now the starting 40: 20 61 64 64 72 65 73 73 20 69 73 20 6e 6f 20 6c address is no l 50: 6f 6e 67 65 72 a0 69 6e 63 72 65 6d 65 6e 74 65 onger.incremente 60: 64 2e 20 20 54 68 65 20 73 75 62 72 6f 75 74 69 d. The subrouti 70: 6e 65 20 27 43 4c 4e 52 27 20 69 66 20 66 6c 61 ne 'CLNR' if fla ### Disk Sector 171 ### 00: 67 67 65 64 2c 20 77 69 6c 6c a0 70 65 72 66 6f gged, will.perfo 10: 72 6d 20 74 68 65 20 62 75 73 69 6e 65 73 73 20 rm the business 20: 6f 66 20 72 65 6d 6f 76 69 6e 67 20 43 2f 52 27 of removing C/R' 30: 73 20 66 6f 72 20 6a 75 73 74 69 66 69 63 61 74 s for justificat 40: 69 6f 6e a0 61 6e 64 20 69 6e 73 65 72 74 69 6e ion.and insertin 50: 67 20 74 68 65 20 70 61 72 61 67 72 61 70 68 20 g the paragraph 60: 73 69 67 6e 61 6c 2e 0d 0d 4f 75 72 20 74 72 61 signal...Our tra 70: 66 66 69 63 20 63 6f 70 2c 20 4d 4f 56 4c 49 4e ffic cop, MOVLIN ### Disk Sector 172 ### 00: 2c 20 6e 6f 77 20 63 61 6c 6c 73 20 73 75 62 72 , now calls subr 10: 6f 75 74 69 6e 65 20 4c 54 52 43 54 52 2c 20 77 outine LTRCTR, w 20: 68 69 63 68 a0 63 6f 75 6e 74 73 20 62 61 63 6b hich.counts back 30: 77 61 72 64 20 66 72 6f 6d 20 74 68 65 20 72 65 ward from the re 40: 61 72 20 65 6e 64 20 6f 66 20 74 68 65 20 67 72 ar end of the gr 50: 6f 75 70 20 6e 6f 77 a0 69 6e 73 74 61 6c 6c 65 oup now.installe 60: 64 20 69 6e 20 4c 49 4e 42 55 46 2e 20 20 54 68 d in LINBUF. Th 70: 69 73 20 6c 6f 63 61 74 65 73 20 74 68 65 20 73 is locates the s ### Disk Sector 173 ### 00: 70 61 63 65 20 64 65 74 65 72 6d 69 6e 69 6e 67 pace determining 10: a0 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 .the end of the 20: 6c 61 73 74 20 66 75 6c 6c 20 77 6f 72 64 20 61 last full word a 30: 6e 64 20 63 6f 75 6e 74 73 20 74 68 65 20 6e 75 nd counts the nu 40: 6d 62 65 72 20 6f 66 a0 61 64 64 69 74 69 6f 6e mber of.addition 50: 61 6c 20 73 70 61 63 65 73 20 6e 65 65 64 65 64 al spaces needed 60: 20 74 6f 20 66 69 6c 6c 20 6f 75 74 20 74 68 65 to fill out the 70: 20 6c 69 6e 65 20 66 6f 72 20 70 72 69 6e 74 69 line for printi ### Disk Sector 174 ### 00: 6e 67 2e a0 53 68 6f 75 6c 64 20 61 6e 20 6f 63 ng..Should an oc 10: 63 61 73 69 6f 6e 61 6c 20 6c 69 6e 65 20 68 61 casional line ha 20: 70 70 65 6e 20 74 6f 20 65 6e 64 20 77 69 74 68 ppen to end with 30: 20 61 20 63 6f 6d 70 6c 65 74 65 64 a0 77 6f 72 a completed.wor 40: 64 20 6f 6e 20 74 68 65 20 36 30 74 68 20 63 68 d on the 60th ch 50: 61 72 61 63 74 65 72 2c 20 4c 54 43 54 52 20 6a aracter, LTCTR j 60: 75 6d 70 73 20 74 6f 20 4e 4f 53 50 43 20 77 68 umps to NOSPC wh 70: 69 63 68 a0 6d 6f 76 65 73 20 74 68 65 20 6c 69 ich.moves the li ### Disk Sector 175 ### 00: 6e 65 20 69 6e 74 61 63 74 20 74 6f 20 50 52 54 ne intact to PRT 10: 42 55 46 2e 20 20 49 66 20 66 6f 72 20 69 6e 73 BUF. If for ins 20: 74 61 6e 63 65 2c 20 79 6f 75 a0 64 6f 6e 27 74 tance, you.don't 30: 20 77 61 6e 74 20 61 20 6a 75 73 74 69 66 69 65 want a justifie 40: 64 20 6f 75 74 70 75 74 2c 20 28 65 78 61 6d 70 d output, (examp 50: 6c 65 2c 20 61 6e 20 61 73 73 65 6d 62 6c 79 a0 le, an assembly. 60: 6c 61 6e 67 75 61 67 65 20 70 72 6f 67 72 61 6d language program 70: 20 66 69 6c 65 29 2c 20 4a 46 4c 41 47 20 65 6e file), JFLAG en ### Disk Sector 176 ### 00: 61 62 6c 65 73 20 79 6f 75 20 74 6f 20 62 79 70 ables you to byp 10: 61 73 73 20 74 68 69 73 a0 66 65 61 74 75 72 65 ass this.feature 20: 20 61 6e 64 20 6d 6f 76 65 20 74 68 65 20 6c 69 and move the li 30: 6e 65 20 64 69 72 65 63 74 6c 79 20 74 6f 20 50 ne directly to P 40: 52 54 42 55 46 2e 0d 0d 0d 0d 0d 49 66 20 69 6e RTBUF......If in 50: 20 66 61 63 74 20 74 68 65 20 6c 69 6e 65 20 64 fact the line d 60: 6f 65 73 20 72 65 71 75 69 72 65 20 61 64 64 69 oes require addi 70: 74 69 6f 6e 61 6c 20 73 70 61 63 65 73 20 66 6f tional spaces fo ### Disk Sector 177 ### 00: 72 a0 6a 75 73 74 69 66 69 63 61 74 69 6f 6e 2c r.justification, 10: 20 74 68 65 20 72 61 74 68 65 72 20 65 6c 61 62 the rather elab 20: 6f 72 61 74 65 20 70 72 6f 63 65 64 75 72 65 20 orate procedure 30: 6e 61 6d 65 64 20 53 50 41 43 45 52 a0 69 73 20 named SPACER.is 40: 63 61 6c 6c 65 64 20 75 70 6f 6e 20 74 6f 20 69 called upon to i 50: 6e 73 65 72 74 20 74 68 65 6d 2e 20 20 49 74 20 nsert them. It 60: 73 74 61 72 74 73 20 66 72 6f 6d 20 74 68 65 20 starts from the 70: 72 65 61 72 20 65 6e 64 a0 6f 66 20 4c 49 4e 42 rear end.of LINB ### Disk Sector 178 ### 00: 55 46 20 61 67 61 69 6e 20 61 6e 64 20 6d 6f 76 UF again and mov 10: 65 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 es the character 20: 73 20 6f 6e 65 20 62 79 20 6f 6e 65 20 74 6f a0 s one by one to. 30: 50 52 54 42 55 46 2e 20 20 57 68 65 6e 20 69 74 PRTBUF. When it 40: 20 65 6e 63 6f 75 6e 74 65 72 73 20 61 20 73 70 encounters a sp 50: 61 63 65 20 62 65 74 77 65 65 6e 20 77 6f 72 64 ace between word 60: 73 2c 20 69 74 a0 63 68 65 63 6b 73 20 42 20 72 s, it.checks B r 70: 65 67 69 73 74 65 72 20 74 6f 20 73 65 65 20 69 egister to see i ### Disk Sector 179 ### 00: 66 20 6d 6f 72 65 20 73 70 61 63 65 73 20 61 72 f more spaces ar 10: 65 20 6e 65 65 64 65 64 2e 20 20 49 66 20 73 6f e needed. If so 20: 2c a0 69 74 20 69 6e 73 65 72 74 73 20 6f 6e 65 ,.it inserts one 30: 20 61 6e 64 20 67 6f 65 73 20 74 6f 20 74 68 65 and goes to the 40: 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 2e next character. 50: 20 20 49 66 20 69 74 20 69 73 a0 61 6e 6f 74 68 If it is.anoth 60: 65 72 20 73 70 61 63 65 2c 20 69 74 20 73 6b 69 er space, it ski 70: 70 73 20 6f 76 65 72 20 69 74 20 69 6e 20 6f 72 ps over it in or ### Disk Sector 180 ### 00: 64 65 72 20 6e 6f 74 20 74 6f 20 61 64 64 20 74 der not to add t 10: 77 6f a0 63 6f 6e 73 65 63 75 74 69 76 65 20 73 wo.consecutive s 20: 70 61 63 65 73 2e 20 20 57 68 65 6e 20 74 68 65 paces. When the 30: 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 beginning of th 40: 65 20 6c 69 6e 65 20 69 73 a0 72 65 61 63 68 65 e line is.reache 50: 64 2c 20 42 20 72 65 67 69 73 74 65 72 20 69 73 d, B register is 60: 20 63 68 65 63 6b 65 64 20 61 67 61 69 6e 20 74 checked again t 70: 6f 20 73 65 65 20 69 66 20 65 6e 6f 75 67 68 a0 o see if enough. ### Disk Sector 181 ### 00: 73 70 61 63 65 73 20 68 61 76 65 20 62 65 65 6e spaces have been 10: 20 61 64 64 65 64 2e 20 20 49 66 20 6e 6f 74 2c added. If not, 20: 20 74 68 65 20 73 65 63 74 69 6f 6e 20 63 61 6c the section cal 30: 6c 65 64 20 52 45 50 54 a0 63 6c 65 61 72 73 20 led REPT.clears 40: 74 68 65 20 4c 49 4e 42 55 46 20 61 6e 64 20 74 the LINBUF and t 50: 68 65 20 75 6e 66 69 6e 69 73 68 65 64 20 6c 69 he unfinished li 60: 6e 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 74 ne is returned t 70: 6f 20 69 74 a0 66 72 6f 6d 20 50 52 54 42 55 46 o it.from PRTBUF ### Disk Sector 182 ### 00: 20 66 6f 72 20 61 6e 6f 74 68 65 72 20 67 6f 20 for another go 10: 61 74 20 74 68 65 20 70 72 6f 63 65 73 73 2e 20 at the process. 20: 20 54 68 69 73 20 77 69 6c 6c 20 62 65 a0 72 65 This will be.re 30: 70 65 61 74 65 64 20 75 6e 74 69 6c 20 72 65 67 peated until reg 40: 69 73 74 65 72 20 42 20 69 73 20 73 61 74 69 73 ister B is satis 50: 66 69 65 64 2e 0d 0d 52 65 6d 65 6d 62 65 72 20 fied...Remember 60: 74 68 65 20 63 65 6e 74 65 72 69 6e 67 20 66 6c the centering fl 70: 61 67 20 77 65 20 6d 65 6e 74 69 6f 6e 65 64 20 ag we mentioned ### Disk Sector 183 ### 00: 73 6f 6d 65 20 74 69 6d 65 20 62 61 63 6b 20 3f some time back ? 10: 20 a0 4c 49 4e 45 4e 44 20 77 69 6c 6c 20 6f 72 .LINEND will or 20: 64 69 6e 61 72 69 6c 79 20 70 72 69 6e 74 20 61 dinarily print a 30: 20 73 68 6f 72 74 20 6c 69 6e 65 20 74 65 72 6d short line term 40: 69 6e 61 74 69 6e 67 20 69 6e 20 61 a0 43 2f 52 inating in a.C/R 50: 20 77 69 74 68 6f 75 74 20 6a 75 73 74 69 66 69 without justifi 60: 63 61 74 69 6f 6e 2e 20 20 48 6f 77 65 76 65 72 cation. However 70: 20 69 66 20 74 68 65 20 66 6c 61 67 20 69 73 20 if the flag is ### Disk Sector 184 ### 00: 73 65 74 2c a0 73 75 62 72 6f 75 74 69 6e 65 20 set,.subroutine 10: 43 45 4e 54 45 52 20 74 61 6b 65 73 20 6f 76 65 CENTER takes ove 20: 72 20 61 6e 64 20 73 75 62 74 72 61 63 74 73 20 r and subtracts 30: 74 68 65 20 6c 65 74 74 65 72 20 63 6f 75 6e 74 the letter count 40: a0 69 6e 20 42 20 66 72 6f 6d 20 74 68 65 20 6e .in B from the n 50: 6f 72 6d 61 6c 20 70 72 69 6e 74 65 64 20 6c 69 ormal printed li 60: 6e 65 20 6c 65 6e 67 74 68 2c 20 64 69 76 69 64 ne length, divid 70: 65 73 20 74 68 65 a0 72 65 73 75 6c 74 20 62 79 es the.result by ### Disk Sector 185 ### 00: 20 74 77 6f 20 61 6e 64 20 73 74 6f 72 65 73 20 two and stores 10: 74 68 65 20 6e 75 6d 62 65 72 20 66 6f 72 20 75 the number for u 20: 73 65 20 62 79 20 74 68 65 20 70 72 69 6e 74 65 se by the printe 30: 72 2e a0 54 68 69 73 20 72 65 73 75 6c 74 73 20 r..This results 40: 69 6e 20 74 68 65 20 6c 69 6e 65 20 62 65 69 6e in the line bein 50: 67 20 63 65 6e 74 65 72 65 64 20 74 6f 20 74 68 g centered to th 60: 65 20 70 61 67 65 2e 20 a0 55 73 65 66 75 6c 20 e page. .Useful 70: 66 6f 72 20 68 65 61 64 69 6e 67 73 2c 20 74 69 for headings, ti ### Disk Sector 186 ### 00: 74 6c 65 73 20 61 6e 64 20 74 68 65 20 6c 69 6b tles and the lik 10: 65 2e 0d 0d 4d 4f 56 4c 49 4e 20 6e 6f 77 20 6a e...MOVLIN now j 20: 75 6d 70 73 20 74 6f 20 4e 45 58 4c 49 4e 20 77 umps to NEXLIN w 30: 68 69 63 68 20 63 61 6c 6c 73 20 4c 49 4e 4f 55 hich calls LINOU 40: 54 2e 20 20 54 68 69 73 20 69 73 a0 77 68 65 72 T. This is.wher 50: 65 20 74 68 65 20 63 68 61 72 61 63 74 65 72 73 e the characters 60: 20 74 6f 20 62 65 20 70 72 69 6e 74 65 64 20 61 to be printed a 70: 72 65 20 70 69 63 6b 65 64 20 6f 66 66 2c 20 6f re picked off, o ### Disk Sector 187 ### 00: 6e 65 20 62 79 a0 6f 6e 65 20 61 6e 64 20 73 65 ne by.one and se 10: 6e 74 20 74 6f 20 74 68 65 20 70 72 69 6e 74 65 nt to the printe 20: 72 20 64 72 69 76 65 72 2c 20 6e 61 6d 65 64 20 r driver, named 30: 50 52 49 4e 54 2e 20 20 54 68 65 72 65 20 69 73 PRINT. There is 40: a0 61 20 73 70 65 63 69 61 6c 20 73 75 62 72 6f .a special subro 50: 75 74 69 6e 65 20 69 6e 20 50 52 49 4e 54 20 77 utine in PRINT w 60: 68 69 63 68 20 69 6e 64 65 6e 74 73 20 74 68 65 hich indents the 70: 20 6c 69 6e 65 20 65 69 67 68 74 20 a0 73 70 61 line eight .spa ### Disk Sector 188 ### 00: 63 65 73 20 6f 6e 20 74 68 65 20 70 72 69 6e 74 ces on the print 10: 65 72 20 6f 75 74 70 75 74 20 6f 6e 6c 79 2e 20 er output only. 20: 20 54 68 69 73 20 66 65 61 74 75 72 65 20 6d 6f This feature mo 30: 72 65 20 6f 72 a0 6c 65 73 73 20 63 65 6e 74 65 re or.less cente 40: 72 73 20 74 68 65 20 74 65 78 74 20 6f 6e 20 74 rs the text on t 50: 68 65 20 70 72 69 6e 74 65 64 20 70 61 67 65 20 he printed page 60: 62 75 74 20 64 6f 65 73 20 6e 6f 74 a0 61 66 66 but does not.aff 70: 65 63 74 20 74 68 65 20 73 63 72 65 65 6e 20 76 ect the screen v ### Disk Sector 189 ### 00: 69 65 77 69 6e 67 2e 20 20 57 68 65 6e 20 4c 49 iewing. When LI 10: 4e 4f 55 54 20 72 65 61 63 68 65 73 20 65 69 74 NOUT reaches eit 20: 68 65 72 20 61 a0 7a 65 72 6f 20 6f 72 20 61 20 her a.zero or a 30: 43 2f 52 2c 20 69 74 20 74 65 72 6d 69 6e 61 74 C/R, it terminat 40: 65 73 20 74 68 65 20 6c 69 6e 65 20 62 79 20 73 es the line by s 50: 65 6e 64 69 6e 67 20 61 20 43 2f 52 20 61 6e 64 ending a C/R and 60: a0 61 20 4c 2f 46 2e 0d 0d 49 4e 44 45 4e 54 20 .a L/F...INDENT 70: 64 65 73 65 72 76 65 73 20 61 20 6d 65 6e 74 69 deserves a menti ### Disk Sector 190 ### 00: 6f 6e 20 69 6e 20 74 68 61 74 20 69 74 20 6c 6f on in that it lo 10: 6f 6b 73 20 61 74 20 61 20 6c 69 6e 65 20 62 65 oks at a line be 20: 66 6f 72 65 a0 73 65 6e 64 69 6e 67 20 74 68 65 fore.sending the 30: 20 65 69 67 68 74 20 73 70 61 63 65 73 2e 20 20 eight spaces. 40: 49 74 20 73 65 61 72 63 68 65 73 20 66 6f 72 20 It searches for 50: 74 68 65 20 66 69 72 73 74 a0 6e 6f 6e 2d 73 70 the first.non-sp 60: 61 63 65 20 63 68 61 72 61 63 74 65 72 20 61 6e ace character an 70: 64 20 69 66 20 69 74 20 69 73 20 61 20 43 2f 52 d if it is a C/R ### Disk Sector 191 ### 00: 2c 20 69 74 20 6d 65 61 6e 73 20 74 68 61 74 20 , it means that 10: 74 68 65 a0 6c 69 6e 65 20 69 73 20 62 6c 61 6e the.line is blan 20: 6b 2e 20 20 54 68 65 72 65 66 6f 72 65 20 69 74 k. Therefore it 30: 20 64 6f 65 73 20 6e 6f 74 20 73 65 6e 64 20 74 does not send t 40: 68 65 20 69 6e 64 65 6e 74 69 6e 67 a0 73 70 61 he indenting.spa 50: 63 65 73 20 61 6e 64 20 70 72 65 76 65 6e 74 73 ces and prevents 60: 20 74 68 65 20 70 72 69 6e 74 2d 68 65 61 64 20 the print-head 70: 66 72 6f 6d 20 64 61 6e 63 69 6e 67 20 66 75 74 from dancing fut ### Disk Sector 192 ### 00: 69 6c 65 6c 79 a0 62 61 63 6b 20 61 6e 64 20 66 ilely.back and f 10: 6f 72 74 68 20 77 68 65 6e 20 73 65 6e 64 69 6e orth when sendin 20: 67 20 62 6c 61 6e 6b 20 6c 69 6e 65 73 2e 0d 0d g blank lines... 30: 54 68 65 20 70 72 69 6e 74 65 72 2d 64 72 69 76 The printer-driv 40: 65 72 20 28 50 52 49 4e 54 29 20 74 61 6b 65 73 er (PRINT) takes 50: 20 63 61 72 65 20 6f 66 20 63 6f 75 6e 74 69 6e care of countin 60: 67 20 6c 69 6e 65 73 20 66 6f 72 a0 70 61 67 69 g lines for.pagi 70: 6e 67 2c 20 6e 6f 6d 69 6e 61 6c 6c 79 20 35 35 ng, nominally 55 ### Disk Sector 193 ### 00: 2c 20 77 69 74 68 20 36 20 6c 69 6e 65 20 66 65 , with 6 line fe 10: 65 64 73 20 61 74 20 74 68 65 20 65 6e 64 20 6f eds at the end o 20: 66 20 61 a0 70 61 67 65 2e 20 49 74 20 6c 6f 61 f a.page. It loa 30: 64 73 20 74 68 65 20 70 72 69 6e 74 65 72 20 42 ds the printer B 40: 61 75 64 20 72 61 74 65 2c 20 65 78 70 61 6e 64 aud rate, expand 50: 73 20 74 61 62 73 20 74 6f 20 65 69 67 68 74 a0 s tabs to eight. 60: 73 70 61 63 65 73 2c 20 61 6e 64 20 70 61 75 73 spaces, and paus 70: 65 73 20 61 74 20 74 68 65 20 73 74 61 72 74 20 es at the start ### Disk Sector 194 ### 00: 6f 66 20 65 61 63 68 20 70 61 67 65 20 69 66 20 of each page if 10: 74 68 65 20 50 41 55 53 45 a0 66 6c 61 67 20 69 the PAUSE.flag i 20: 73 20 73 65 74 2e 20 20 49 74 20 61 6c 73 6f 20 s set. It also 30: 73 65 6e 64 73 20 61 20 31 30 30 20 6d 69 6c 6c sends a 100 mill 40: 69 73 65 63 6f 6e 64 20 73 69 67 6e 61 6c 20 74 isecond signal t 50: 6f a0 79 6f 75 72 20 27 62 65 6c 6c 27 20 69 66 o.your 'bell' if 60: 20 79 6f 75 20 68 61 76 65 20 6f 6e 65 2e 20 20 you have one. 70: 4d 69 6e 65 20 68 61 70 70 65 6e 73 20 74 6f 20 Mine happens to ### Disk Sector 195 ### 00: 62 65 20 6f 6e 65 20 6f 66 a0 74 68 6f 73 65 20 be one of.those 10: 70 69 65 7a 6f 2d 65 6c 65 63 74 72 69 63 20 73 piezo-electric s 20: 71 75 65 61 6b 65 72 73 20 74 68 61 74 20 69 73 queakers that is 30: 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 6b guaranteed to k 40: 65 65 70 a0 79 6f 75 20 61 77 61 6b 65 2e 20 20 eep.you awake. 50: 54 68 65 20 70 61 75 73 65 20 69 73 20 63 72 65 The pause is cre 60: 61 74 65 64 20 62 79 20 6f 75 72 20 6f 6c 64 20 ated by our old 70: 66 72 69 65 6e 64 20 20 47 45 54 41 4e 53 a0 77 friend GETANS.w ### Disk Sector 196 ### 00: 68 69 63 68 20 77 61 69 74 73 20 66 6f 72 20 61 hich waits for a 10: 20 43 2f 52 20 62 65 66 6f 72 65 20 70 72 6f 63 C/R before proc 20: 65 65 64 69 6e 67 2e 20 20 41 20 74 61 70 20 6f eeding. A tap o 30: 6e 20 74 68 65 a0 73 70 61 63 65 20 62 61 72 20 n the.space bar 40: 77 69 6c 6c 20 6e 65 67 61 74 65 20 74 68 65 20 will negate the 50: 70 61 75 73 65 20 63 6f 6e 74 72 6f 6c 20 66 6f pause control fo 60: 72 20 74 68 65 20 62 61 6c 61 6e 63 65 20 6f 66 r the balance of 70: a0 74 68 65 20 72 75 6e 2e 0d 0d 0d 0d 0d 41 66 .the run......Af ### Disk Sector 197 ### 00: 74 65 72 20 70 72 69 6e 74 69 6e 67 20 65 61 63 ter printing eac 10: 68 20 63 68 61 72 61 63 74 65 72 2c 20 61 20 73 h character, a s 20: 75 62 72 6f 75 74 69 6e 65 20 6e 61 6d 65 64 20 ubroutine named 30: 27 4e 55 46 49 4c 45 27 a0 69 73 20 63 61 6c 6c 'NUFILE'.is call 40: 65 64 2e 20 20 49 66 20 74 68 65 20 53 46 49 4c ed. If the SFIL 50: 45 20 66 6c 61 67 20 69 73 20 73 65 74 2c 20 69 E flag is set, i 60: 74 20 77 69 6c 6c 20 69 6e 73 65 72 74 20 65 61 t will insert ea 70: 63 68 a0 63 68 61 72 61 63 74 65 72 20 62 61 63 ch.character bac ### Disk Sector 198 ### 00: 6b 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 73 74 k into memory st 10: 61 72 74 69 6e 67 20 61 74 20 41 30 30 32 48 2e arting at A002H. 20: 20 20 54 68 69 73 a0 70 72 6f 64 75 63 65 73 20 This.produces 30: 61 20 6a 75 73 74 69 66 69 65 64 20 66 69 6c 65 a justified file 40: 20 77 68 69 63 68 20 6d 61 79 20 62 65 20 73 61 which may be sa 50: 76 65 64 20 6f 6e 20 64 69 73 63 20 69 66 20 79 ved on disc if y 60: 6f 75 a0 64 65 73 69 72 65 2e 20 20 41 30 30 30 ou.desire. A000 70: 48 20 61 6e 64 20 41 30 30 31 48 20 61 72 65 20 H and A001H are ### Disk Sector 199 ### 00: 74 68 65 20 6c 6f 77 20 61 6e 64 20 68 69 67 68 the low and high 10: 20 62 79 74 65 73 20 6f 66 20 61 a0 63 6f 75 6e bytes of a.coun 20: 74 65 72 20 77 68 69 63 68 20 61 72 65 20 75 73 ter which are us 30: 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 ed to determine 40: 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 a0 63 the end of the.c 50: 6f 6e 76 65 72 74 65 64 20 66 69 6c 65 2e 20 20 onverted file. 60: 4e 6f 74 65 20 74 68 61 74 20 77 68 69 6c 65 20 Note that while 70: 74 68 65 20 74 61 62 73 20 61 6e 64 20 63 65 6e the tabs and cen ### Disk Sector 200 ### 00: 74 65 72 69 6e 67 a0 73 69 67 6e 61 6c 73 20 61 tering.signals a 10: 72 65 20 65 78 70 61 6e 64 65 64 20 66 6f 72 20 re expanded for 20: 74 68 65 20 73 63 72 65 65 6e 20 61 6e 64 20 70 the screen and p 30: 72 69 6e 74 65 72 20 6f 75 74 70 75 74 2c a0 74 rinter output,.t 40: 68 65 79 20 61 72 65 20 72 65 74 61 69 6e 65 64 hey are retained 50: 20 61 6e 64 20 70 75 74 20 62 61 63 6b 20 69 6e and put back in 60: 74 6f 20 6d 65 6d 6f 72 79 20 74 6f 20 62 65 20 to memory to be 70: 70 69 63 6b 65 64 20 75 70 a0 61 67 61 69 6e 20 picked up.again ### Disk Sector 201 ### 00: 77 68 65 6e 20 74 68 65 20 6e 65 77 20 66 69 6c when the new fil 10: 65 20 69 73 20 70 72 69 6e 74 65 64 2e 20 20 41 e is printed. A 20: 6c 74 68 6f 75 67 68 20 74 68 65 20 6e 65 77 20 lthough the new 30: 66 69 6c 65 a0 69 73 20 69 6e 6a 65 63 74 65 64 file.is injected 40: 20 69 6e 74 6f 20 52 41 4d 2c 20 73 74 61 72 74 into RAM, start 50: 69 6e 67 20 31 30 30 30 48 20 62 79 74 65 73 20 ing 1000H bytes 60: 62 65 6c 6f 77 20 74 68 65 a0 6f 72 69 67 69 6e below the.origin 70: 61 6c 20 66 69 6c 65 2c 20 69 74 20 77 69 6c 6c al file, it will ### Disk Sector 202 ### 00: 20 73 6f 6f 6e 20 6f 76 65 72 77 72 69 74 65 20 soon overwrite 10: 61 6e 64 20 64 65 73 74 72 6f 79 20 69 74 2e 20 and destroy it. 20: 20 42 65 a0 73 75 72 65 20 79 6f 75 20 68 61 76 Be.sure you hav 30: 65 20 61 20 76 61 6c 69 64 20 63 6f 70 79 20 6f e a valid copy o 40: 66 20 69 74 2e 0d 0d 53 54 4f 50 20 69 73 20 61 f it...STOP is a 50: 20 6b 65 79 62 6f 61 72 64 20 72 6f 75 74 69 6e keyboard routin 60: 65 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c 65 e which is calle 70: 64 20 62 79 20 4e 45 58 4c 49 4e 20 61 66 74 65 d by NEXLIN afte ### Disk Sector 203 ### 00: 72 a0 65 6e 61 62 6c 69 6e 67 20 69 6e 74 65 72 r.enabling inter 10: 72 75 70 74 73 2e 20 20 54 68 69 73 20 70 65 72 rupts. This per 20: 6d 69 74 73 20 6b 65 79 62 6f 61 72 64 20 68 61 mits keyboard ha 30: 6c 74 69 6e 67 20 6f 66 20 74 68 65 a0 70 72 69 lting of the.pri 40: 6e 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 62 nting with the b 50: 72 65 61 6b 20 6b 65 79 2c 20 62 75 74 20 6f 6e reak key, but on 60: 6c 79 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 ly at the end of 70: 20 61 20 6c 69 6e 65 2e a0 50 72 69 6e 74 69 6e a line..Printin ### Disk Sector 204 ### 00: 67 20 6d 61 79 20 62 65 20 72 65 73 75 6d 65 64 g may be resumed 10: 20 62 79 20 64 65 70 72 65 73 73 69 6e 67 20 61 by depressing a 20: 6e 79 20 6b 65 79 2e 20 20 41 20 6c 69 6e 65 20 ny key. A line 30: 66 65 65 64 a0 28 64 6f 77 6e 20 61 72 72 6f 77 feed.(down arrow 40: 29 20 77 69 6c 6c 20 65 6e 64 20 74 68 65 20 70 ) will end the p 50: 72 6f 67 72 61 6d 20 61 6e 64 20 72 65 74 75 72 rogram and retur 60: 6e 20 79 6f 75 20 74 6f 20 46 43 53 2e 0d 0d 4e n you to FCS...N 70: 65 61 72 20 74 68 65 20 65 6e 64 20 6f 66 20 74 ear the end of t ### Disk Sector 205 ### 00: 68 65 20 66 69 6c 65 20 74 68 65 72 65 20 69 73 he file there is 10: 20 61 20 43 4c 52 4d 45 4d 20 72 6f 75 74 69 6e a CLRMEM routin 20: 65 20 77 68 69 63 68 20 69 73 a0 63 61 6c 6c 65 e which is.calle 30: 64 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 d at the beginni 40: 6e 67 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 ng of the progra 50: 6d 2e 20 20 49 74 20 66 69 6c 6c 73 20 52 41 4d m. It fills RAM 60: 20 77 69 74 68 a0 7a 65 72 6f 73 20 73 74 61 72 with.zeros star 70: 74 69 6e 67 20 61 74 20 4c 49 4e 42 55 46 2e 20 ting at LINBUF. ### Disk Sector 206 ### 00: 20 4f 6e 65 20 72 65 61 73 6f 6e 20 69 73 20 74 One reason is t 10: 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 o make sure that 20: a0 74 68 65 20 66 69 6c 65 20 79 6f 75 20 6c 6f .the file you lo 30: 61 64 20 65 6e 64 73 20 69 6e 20 61 20 7a 65 72 ad ends in a zer 40: 6f 2e 20 20 4f 74 68 65 72 77 69 73 65 20 74 68 o. Otherwise th 50: 65 20 70 72 6f 67 72 61 6d a0 77 69 6c 6c 20 6a e program.will j 60: 75 73 74 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 ust continue to 70: 70 72 69 6e 74 20 61 6c 6c 20 74 68 65 20 74 72 print all the tr ### Disk Sector 207 ### 00: 61 73 68 20 74 68 61 74 20 68 61 70 70 65 6e 73 ash that happens 10: 20 74 6f a0 62 65 20 69 6e 20 69 74 73 20 70 61 to.be in its pa 20: 74 68 20 75 6e 74 69 6c 20 69 74 20 64 6f 65 73 th until it does 30: 20 66 69 6e 64 20 61 20 7a 65 72 6f 2e 20 20 54 find a zero. T 40: 68 65 20 72 65 6d 61 69 6e 69 6e 67 a0 73 75 62 he remaining.sub 50: 72 6f 75 74 69 6e 65 73 2c 20 45 58 49 54 20 61 routines, EXIT a 60: 6e 64 20 53 45 54 55 50 2c 20 79 6f 75 20 61 72 nd SETUP, you ar 70: 65 20 61 6c 72 65 61 64 79 20 66 61 6d 69 6c 69 e already famili ### Disk Sector 208 ### 00: 61 72 20 77 69 74 68 2e 0d 0d 49 20 77 6f 75 6c ar with...I woul 10: 64 20 6c 69 6b 65 20 74 6f 20 63 61 6c 6c 20 79 d like to call y 20: 6f 75 72 20 61 74 74 65 6e 74 69 6f 6e 20 74 6f our attention to 30: 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c the default val 40: 75 65 73 a0 66 6f 72 20 74 68 65 20 70 72 6f 67 ues.for the prog 50: 72 61 6d 2c 20 6c 69 73 74 65 64 20 6a 75 73 74 ram, listed just 60: 20 62 65 66 6f 72 65 20 74 68 65 20 6d 65 73 73 before the mess 70: 61 67 65 73 2e 20 20 53 69 6e 63 65 a0 74 68 69 ages. Since.thi ### Disk Sector 209 ### 00: 73 20 70 72 6f 67 72 61 6d 20 4f 52 47 69 6e 61 s program ORGina 10: 74 65 73 20 61 74 20 39 35 30 30 48 2c 20 74 68 tes at 9500H, th 20: 65 72 65 20 69 73 20 61 6d 70 6c 65 20 72 6f 6f ere is ample roo 30: 6d 20 62 65 6c 6f 77 a0 69 74 20 66 6f 72 20 61 m below.it for a 40: 20 42 61 73 69 63 20 6c 6f 61 64 65 72 20 61 6e Basic loader an 50: 64 20 63 6f 6e 74 72 6f 6c 20 70 72 6f 67 72 61 d control progra 60: 6d 2e 20 20 57 68 65 6e 20 79 6f 75 a0 61 73 73 m. When you.ass 70: 65 6d 62 6c 65 20 69 74 2c 20 79 6f 75 20 63 61 emble it, you ca ### Disk Sector 210 ### 00: 6e 20 63 68 61 6e 67 65 20 74 68 65 73 65 20 76 n change these v 10: 61 6c 75 65 73 20 74 6f 20 73 75 69 74 20 79 6f alues to suit yo 20: 75 72 a0 72 65 71 75 69 72 65 6d 65 6e 74 73 2e ur.requirements. 30: 20 20 54 68 65 6e 20 74 68 65 20 42 61 73 69 63 Then the Basic 40: 20 70 72 6f 67 72 61 6d 20 63 6f 75 6c 64 20 62 program could b 50: 65 20 75 73 65 64 20 74 6f a0 61 6c 74 65 72 20 e used to.alter 60: 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 the default valu 70: 65 73 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 es for a specifi ### Disk Sector 211 ### 00: 63 20 6a 6f 62 20 62 79 20 70 6f 6b 69 6e 67 20 c job by poking 10: 69 6e a0 6f 74 68 65 72 73 2e 20 20 4f 6e 65 20 in.others. One 20: 74 68 69 6e 67 20 77 6f 72 74 68 79 20 6f 66 20 thing worthy of 30: 6e 6f 74 65 20 69 73 20 74 68 65 20 66 6f 72 6d note is the form 40: 75 6c 61 20 61 66 74 65 72 a0 27 53 54 41 43 4b ula after.'STACK 50: 27 2e 20 20 54 68 69 73 20 63 61 6c 63 75 6c 61 '. This calcula 60: 74 69 6f 6e 20 69 6e 73 75 72 65 73 20 74 68 61 tion insures tha 70: 74 20 6e 65 69 74 68 65 72 20 4c 49 4e 42 55 46 t neither LINBUF ### Disk Sector 212 ### 00: 20 6f 72 a0 50 52 54 42 55 46 20 61 72 65 20 73 or.PRTBUF are s 10: 70 6c 69 74 20 62 79 20 61 20 73 6f 2d 63 61 6c plit by a so-cal 20: 6c 65 64 20 27 70 61 67 65 27 20 69 6e 20 52 41 led 'page' in RA 30: 4d 2e 20 20 54 68 69 73 a0 75 73 75 61 6c 6c 79 M. This.usually 40: 20 72 65 73 75 6c 74 73 20 69 6e 20 64 69 66 66 results in diff 50: 69 63 75 6c 74 69 65 73 2e 0d 0d 49 6e 20 74 68 iculties...In th 60: 65 20 6e 65 78 74 20 69 73 73 75 65 2c 20 49 27 e next issue, I' 70: 6c 6c 20 70 75 62 6c 69 73 68 20 6d 79 20 76 65 ll publish my ve ### Disk Sector 213 ### 00: 72 73 69 6f 6e 20 6f 66 20 61 20 6c 6f 61 64 65 rsion of a loade 10: 72 20 61 6e 64 a0 63 6f 6e 74 72 6f 6c 20 70 72 r and.control pr 20: 6f 67 72 61 6d 20 69 6e 20 42 61 73 69 63 2e 20 ogram in Basic. 30: 20 49 6e 20 74 68 65 20 6d 65 61 6e 74 69 6d 65 In the meantime 40: 20 79 6f 75 20 63 61 6e 20 6c 6f 61 64 20 61 6e you can load an 50: 79 a0 53 52 43 20 6f 72 20 44 4f 43 20 66 69 6c y.SRC or DOC fil 60: 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f 77 69 e by the followi 70: 6e 67 20 6d 65 74 68 6f 64 3a 20 20 74 79 70 65 ng method: type ### Disk Sector 214 ### 00: 20 28 66 72 6f 6d 20 46 43 53 29 a0 27 52 55 4e (from FCS).'RUN 10: 20 53 43 52 49 50 54 27 2e 20 20 41 66 74 65 72 SCRIPT'. After 20: 20 74 68 65 20 68 65 61 64 69 6e 67 20 69 73 20 the heading is 30: 70 72 69 6e 74 65 64 20 61 6e 64 20 79 6f 75 20 printed and you 40: 61 72 65 a0 72 65 74 75 72 6e 65 64 20 74 6f 20 are.returned to 50: 46 43 53 2c 20 20 74 79 70 65 20 27 4c 4f 41 44 FCS, type 'LOAD 60: 20 28 66 69 6c 65 20 6e 61 6d 65 29 2e 53 52 43 (file name).SRC 70: 20 42 30 30 30 27 2e 20 20 49 66 20 69 74 a0 68 B000'. If it.h ### Disk Sector 215 ### 00: 61 70 70 65 6e 73 20 74 6f 20 62 65 20 61 20 27 appens to be a ' 10: 44 4f 43 27 20 66 69 6c 65 20 70 72 6f 64 75 63 DOC' file produc 20: 65 64 20 62 79 20 53 43 52 49 42 45 20 33 2e 35 ed by SCRIBE 3.5 30: 2c 20 20 74 79 70 65 a0 27 4c 4f 41 44 20 28 66 , type.'LOAD (f 40: 69 6c 65 20 6e 61 6d 65 29 2e 44 4f 43 20 41 46 ile name).DOC AF 50: 43 30 27 2e 20 20 54 68 69 73 20 70 61 72 74 69 C0'. This parti 60: 63 75 6c 61 72 20 74 79 70 65 20 6f 66 20 66 69 cular type of fi 70: 6c 65 a0 68 61 73 20 34 30 48 20 62 79 74 65 73 le.has 40H bytes ### Disk Sector 216 ### 00: 20 6f 66 20 64 69 72 65 63 74 6f 72 79 20 61 6e of directory an 10: 64 20 63 6f 6e 74 72 6f 6c 20 63 68 61 72 61 63 d control charac 20: 74 65 72 73 20 75 70 20 66 72 6f 6e 74 a0 77 68 ters up front.wh 30: 69 63 68 20 6d 75 73 74 20 62 65 20 64 69 73 63 ich must be disc 40: 61 72 64 65 64 2e 20 20 42 65 20 73 75 72 65 20 arded. Be sure 50: 74 6f 20 64 6f 20 61 20 27 43 6f 6d 6d 61 6e 64 to do a 'Command 60: 20 52 65 73 65 74 27 2c a0 61 6e 64 20 20 61 6e Reset',.and an 70: 20 27 45 73 63 61 70 65 20 44 27 20 62 65 66 6f 'Escape D' befo ### Disk Sector 217 ### 00: 72 65 20 61 6e 79 20 6f 66 20 74 68 69 73 2e 20 re any of this. 10: 20 48 61 76 65 20 66 75 6e 21 20 20 20 20 20 0d Have fun! . 20: 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................