11.07.2015 Views

Untitled - TRS-80 Color Computer Archive

Untitled - TRS-80 Color Computer Archive

Untitled - TRS-80 Color Computer Archive

SHOW MORE
SHOW LESS
  • No tags were found...

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

address into BASIC.SYSTEM, andrelocating your program.Inside Quick CatalogHere's an outline of what QuickCatalog does. The program firstchecks to see whether ProDOS isactive. If ProDOS is absent, the program prints an error message andreturns to BASIC. Once installed asan external command, Quick Catalog waits to receive any commandthat starts with the characters CC,converting lowercase to uppercaseif necessary. When this commandcolumn or <strong>80</strong>-column mode and issues the appropriate CATALOGcommand along with any additional parameters. If a catalog activitydoes not follow, an error message isdisplayed.If you're familiar with assembly language, you may find it instructive to examine Quick Catalog.BLOAD the file from BASIC, thenenter the monitor with the command CALL -151. Type 2000L andpress RETURN to disassemble thebeginning of the file. The programis located in the area $2000-$21FF.The code at $2000-$20FF preparesthe code at $2100-$21FF and relocates it in the area specified by aProDOS call. After relocation, thecode at $2000 is abandoned.QUICK.CATALOG FilemakerFor instructions on entering this program,please refer to "COMPUTEI's Guide to TypingIn Programs" in this issue of COMPUTE!cp7.3F 70 TEXT : HOME : PRINT "LQADING Mt "M <strong>80</strong> FOR I = 8192 TD 8192 + 511: READ A: POKE I,A:X - X +A: NEXTPI 90 IF X < > 71906 THEN PRINT"ERROR IN DATA STATEMENTS."I STOPK 95 PRINT CHR* (4)"BSAVE QUICK.CATALOG,A»2000,L*200"IE 100 DATA 173,0,191,201,76,240,13,32,221,251, 173A3 110 DATA 247,32,141,120,32,32,116,32,76,113,323C 120 DATA 169,1,32,245,190,176,9,141,172,32,141ID 130 DATA 98,32,76,44,32,32,116,32,76,208,315 140 DATA 173,7,190,141,186,33,173,8,190,141,18723 150 DATA 33,169,0,141,7,190,173,172,32,141,B9F 160 DATA 190,173,172,32,141,6,33,141,12,33,141B3 170 DATA 83,33,141,200,33,141,72,33,141,203,337A 1<strong>80</strong> DATA 141,166,33,162,0,199,0,33,157,0,23563 190 DATA 232,224,255,208,245,173,207,32,141,120,329C 200 DATA 32,116,32,76,208,3,32,251,218,173,155K 210 DATA 32,141,169,32,173,120,32,141,140,32, 173Dt 220 DATA 121,32,141,141,32,162,1,189,155,32,32C4 230 DATA 237,253,232,236,169,32,144,244,32,251,218BE 240 DATA 96,13,211,217,211,212,197,205,160,197,2104E 250 DATA 210,207,210,160,174,195,207,196,81,32,20949 260 DATA 213,201,195,203,174,193,193,212,193,204,20779 270 DATA 199,160,201,211,160,206,207,215,160,201,206it 2<strong>80</strong> DATA 211,212,193,204,204,197,196,174,160,174,32F7 290 DATA 37,209,213,201,195,203,174,195,193,212,193fiC 300 DATA 204,207,199,160,210,213.206.211.160,207,206?fl 310 DATA 204,217,160,215,201,212.200.160,208,210,207AF 320 DATA 196,207,211,174,160,209,32,234,0,0,0F7 330 DATA 0,183,255,216,173,10B.190,141,16,33,1737A 340 DATA 109,190,141,17,33,162,1,189,170,170,20191 350 DATA 67,208,105,232,224,3,208,244,162,0,189A2 360 DATA 0,2,232,221,0,2,208,247,42,42,42FB 370 DATA 24,106,106,106,201,195,208,236,232,160,085 3<strong>80</strong> DATA 189,0,2,153,224,2,232,200,224,15,2404F 390 DATA 4,201,141,208,240,169,3,141,89,33,173K 400 DATA 24,192,10,176,117,162,0,1B9,108,33,157Dl 410 DATA 0,2,232,224,3,208,245,160,0,183,224I! 420 DATA 2,42,42,144,21,42,24,106,106,106,157A8 430 DATA 0,2,232,200,192,15,240,15,201,141,208D5 440 DATA 231,24,144,8,106,106,24,144,235,24,14459 450 DATA 54,169,255,141,38,2,169,0,141,15,190Ffi 460 DATA 32,3,190,169,0,141,15,190,141,84,1905D 470 DATA 141, 85, 190, 24, 173, 3B,2,201,233,20B,19F9 4<strong>80</strong> DATA 162,0,189,204,33,32,237,233,232,224,3B7A 490 DATA 208,245,32,221,251,32,251,218,76,208,3K 500 DATA 56,76,208,3,195,193,212,193,204,207,19939 510 DATA 160,169,7,141,89,33.76,79,33,208,210#F 520 DATA 207,196,207,211,160,214,207,204,213,205,197Bfl 530 DATA 160,206,207,212,160,201,206,160,212,200,193CC 540 DATA 212,160,196,210,201,214,197,175,208,193,2125B 550 DATA 200,174,160,211,232,239,236,236,175,195,207E9 360 DATA 205,208,213,212,197,1930Ulfappears, the program checks for 40-Well-Larsson-WestlundThis short utility adds flexibility tobatch processes on the IBM PC/PCjrand compatible computers.Many users of the IBM PC/PCjrand compatibles are familiar withbatch files. Simply put, a batch fileis a text file (with the extension.BAT) which contains a series ofMS-DOS commands. When you invoke the batch file by typing itsname at the DOS prompt, the computer executes each command inorder. The program accompanyingthis article helps make batch filesmore interactive. When this program is invoked from DOS, it displays a yes/no prompt and waitsfor you to press an indicated key,returning an error code which thebatch file can use to branch to different parts of the command process.Type in the program and savea copy. When you run it, the program checks its DATA statementsfor typing errors. If no errors arefound, it creates an assembly language file named YORN.COM. The.COM extension signals that this isan executable machine language file.To see what YORN.COM does,type YORN at the DOS prompt andpress Enter. The drive whirs for amoment; then the computer displays the prompt Answer (Y)es or(N)o... and waits for you to indicateyour choice. Note that YORN.COMrecognizes only the characters Y, y,N, or n.Sample Batch FileLet's create an example to showhow YORN.COM works in a batchfile. Type the following lines at theDOS prompt, pressing Enter at theend of each line:44 COMPUTE! February 1987

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!