Untitled - TRS-80 Color Computer Archive

key (Atari logo key on 400/800 models).Whenever more than two spacesappear in a row, they are listed in aspecial format. For example, {6SPACES} means press the space bar sixtimes. Our Commodore listings neverleave a single space at the end of a line,instead moving it to the next printedline as {SPACE}.Amiga program listings containonly one special character, the left arrow (*■) symbol. This character marksthe end of each program line. Whereveryou see a left arrow, press RETURN ormove the cursor off the line to enterthat line into memory. Don't try to typein the left arrow symbol; it's there onlyas a marker to indicate where each program line ends.The AutomaticProofreaderType in the appropriate program listedbelow, then save it for future use. TheCommodore Proofreader works on theCommodore 128, 64, Plus/4, 16, andVIC-20. Don't omit any lines, even ifthey contain unfamiliar commands oryou think they don't apply to your computer. When you run the program, itinstalls a machine language program inmemory and erases its BASIC portionautomatically (so be sure to save several copies before running the programfor the first time). If you're using aCommodore 128, Plus/4 or 16, do notuse any GRAPHIC commands whilethe Proofreader is active. You shoulddisable the Commodore Proofreaderbefore running any other program. Todo this, either turn the computer off andon or enter SYS 64738 (for the 64), SYS65341 (128), SYS 64802 (VIC-20), orSYS 65526 (Plus/4 or 16). To reenablethe Proofreader, reload the programand run it as usual. Unlike the originalVIC/64 Proofreader, this version worksthe same with disk or tape.On the Atari, run the Proofreadeito activate it (the Proofreader remainsactive in memory as a machine language program); you must then enterNEW to erase the BASIC loader. Pressing SYSTEM RESET deactivates theAtari Proofreader; enter PRINTUSR(1536) to reenable it.The Apple Proofreader erases theBASIC portion of itself after you run it,leaving only the machine language portion in memory. It works with eitherDOS 3.3 or ProDOS. Disable the AppleProofreader by pressing CTRL-RESETbefore running another BASIC program.The IBM Proofreader is a BASICprogram that simulates the IBM BASICline editor, letting you enter, edit, list,save, and load programs that you type.Type RUN to activate. Be sure to leaveCaps Lock on, except when typing lowercase characters.Once the Proofreader is active, trytyping in a line. As soon as you pressRETURN, either a hexadecimal number(on the Apple) or a pair of letters (on theCommodore, Atari, or IBM) appears.The number or pair of letters is called achecksum.Compare the value displayed onthe screen by the Proofreader with thechecksum printed in the program listing in the magazine. The checksum isgiven to the left of each line number.Just type in the program a line at a time(without the printed checksum), pressRETURN or Enter, and compare thechecksums. If they match, go on to thenext line. If not, check your typing;you've made a mistake. Because of thechecksum method used, do not typeabbreviations, such as ? for PRINT. Onthe Atari and Apple Proofreaders,spaces are not counted as part of thechecksum, so be sure you type the rightnumber of spaces between quotemarks. The Atari Proofreader does notcheck to see that you've typed the characters in the right order, so if charactersare transposed, the checksum stillmatches the listing. The CommodoreProofreader catches transposition errors and ignores spaces unless they'reenclosed in quotation marks. The IBMProofreader detects errors in spacingand transposition.IBM Proofreader CommandsSince the IBM Proofreader replaces thecomputer's normal BASIC line editor, ithas to include many of the direct-modeIBM BASIC commands. The syntax isidentical to IBM BASIC. Commandssimulated are LIST, LLIST, NEW,FILES, SAVE, and LOAD. When listingyour program, press any key (exceptCtrl-Break) to stop the listing. If youenter NEW, the Proofreader promptsyou to press Y to be especially sure youmean yes.Two new commands are BASICand CHECK. BASIC exits the Proofreader back to IBM BASIC, leaving theProofreader in memory. CHECK worksjust like LIST, but shows the checksumsalong with the listing. After you havetyped in a program, save it to disk.Then exit the Proofreader with theBASIC command, and load the program as usual (this replaces the Proofreader in memory). You can now runthe program, but you may want to resaveit to disk. This will shorten it ondisk and make it load faster, but it canno longer be edited with the Proofreader. If you want to convert an existingBASIC program to Proofreader format,save it to disk with SAVE "filename",A.Program 1: AtariProofreaderBy Charles Brannon, Program Editor100 GRAPHICS 0110 FDR I»1536 TD 1700:READ AsPOKE I,A:CK=CK+A:NEXT I120 IF CKO19072 THEN ? "Errar in DATA Statements. Check Typing.":END130 A=USR140 7 : ? "Automatic Proofreader Now Activated."150 END160 DATA 104,160,0,185,26,3,201,69,240,7170 DATA 200,200,192,34,208,243,96,200,169,74180 DATA 153,26,3,200,169,6,153,26,3,162190 DATA 0,189,0,228,157,74,6,232,224,16200 DATA 20B,245,169,93,141,78,6,169,6,141210 DATA 79,6,24,173,4,228,105,1,141,95220 DATA 6,173,5,228,105,0,141,96,6,169230 DATA 0,133,203,96,247,238,125,241,93,6240 DATA 244,241,115,241,124,241,76,205,238250 DATA 0,0,0,0,0,32,62,246,8,201260 DATA 155,240,13,201,32,240,7,72,24,101270 DATA 203,133,203,104,40,96,72,152,72,138280 DATA 72,160,0,169,128,145,8a,200,192,40290 DATA 208,249,165,203,74,74,74,74,24,105300 DATA 161,160,3,145,88,165,203,41,15,24310 DATA 105,161,200,145,8B,169,0,133,203,104320 DATA 170,104,168,104,40,96Program 2: IBM ProofreaderBy Charles Brannon, Program Editor10 'Automatic Proofreader Version 3.0 (Lines 205,206 added/190 deleted/470,490 changEd from V2.0)100 DIM L*(500),LNUMSOSUB 640:KEY (15) ON:GOT0 130120 RESUME 130130 DEF SEG=&H40:W=PEEK(&H4A>140 ON ERROR GOTO 650:PRINT:PRINT"ProofreaderReady."150 LINE INPUT L*:Y=CSRLIN-INT(LEN(L*)/W)-1:LOCATE Y,1160 DEF SEG=0:POKE 1050,30:PDKE 1052,34:POKE 1054,0:POKE1055,79:POKE1056,13:PDKE1057,28:LINE INPUT Lt:DEFSESsIF LS=IM' THEN 150170 IF LEFT»(L*,1)=" " THEN L*=MID*(L*,2):G0T0 170February 1987 COMPUTEI 87