Section 2 - Commodore Computers

More documents

Recommendations

Info

154 COMPUTE! May. 1Q82.lssue 1982. Issue24 24 1000 : 1500 RETURN And RUN it. Well, it doesn't do anything. AS A$ is a useless string, a long chain of blanks, nOt not exactlyy our intention. ntion. (3) Let's position the cursor over the string. Move It it back lO to ':0" "0" oon n "ONE" by inserting three left cursors wlthlll within the quotes after "E". RUN it. There is hope, but note the unacceptable length of the string. . (4) "Ve We cann limit it PET's wish for characters by pnntlllg printing a comma ma after the "ONE". But that's the last thing I need in my neat display. Let's convince the PET, instead, that its screen width is not 40 characters (or 80 in 80xx), but onlyy three. Butterfield's memory map indicates that information is held in 213. I don't know what it is in Original PETs, those maps were never printed in COMPUTE!. (Perhaps an equivalent of 213 does not exist. I If I' Butter- anyone would like to contribute an accurate crossreference type map for all these systems, please send one in). Type two lines: 1020 POKE213,3 (0 to squeeze the screen width 1080 POKE213,39 (0 to restore it back. (PET counts from zero) This works. Incidentally, line e 1080 may not be cross- needed, but out of overabundance of caution I'll keep it. PET's self preservation instinct seems lO to restore reSlOre 213 for subsequent screen work. Query whether 80-column window facility might be useful. (5) We're not out of the woods yet. What will happen if "ONE" were followed by a string of blanks, a typical sight in a left adjusted alphabetic information? rmation' Modify two twO lines to lo be: 100 ?LEFT$("ONE" + +" "10 I 0 sp'\10) sp", I + +" "10 t 0 left";: GOSUB1000 GOSUBIOOO 1020 POKE213.10 POKE213,10 RUN it. Trailing g blanks are handled correctly. y. (6) What at about leading blanks you might see in a right-justified number? number' Change one line: 100 ?RIGHT$("IO sp"+"472", IO)+ "lO left";! 100 ?RIGHT$("10 sp" + "472",10> + "10 left";: GOSUBI000 GOSUBIOOO and RUN it. Oops! The value is intact, but PET and RUN it. Oops! The va lu e is il~tact, but PET stripped the leading spaces, spaces. as it always does,in INPUT. I This T result may be satisfactory tisfaclOry for many applications, lOa sloppy for others. Let's handle it. applications, loo sloppy for others. Let's handle it. (7) One fix x might involve printing a phony character r in the e first position. But BUllhen, then, if we wanted to use the value in a numeric variable, able, we'd have to LO strip the character. Instead, we'll use a harmless strip the character. Instead. we'll use a harmless quote by typing 100 PRINT CHR$(34) + RIGHT$ GHTS ... etc. and in crease the screen width lo I I in line ... etc. and increase the screen width to 11 in line 1020. Unfortunately y this places a character on the screen. Unavoidable. RUN it. Not bad. . The T leading blanks are there, the value is all right, but the origi blanks are there, the value is all right, but the original string is useless with the in-quote cursors. In fa ct, any formatting command o n the same lin e, i. e. prio r lo goin g into 1000, wi ll print this nal string is useless with the in-quote cursors. In fact, any formatting command on the same line, i.e. prior to going into 1000, will print this way. TAB(x) will yield x right cursors. That's the way. TAB(x) will yield x right cursors. That's the way PET is built. We could POKEE 205 lo to disable the quote mode, but that gets messy in some applicall cations. We could close the quote, but that increases the space penalty on the line by another character. A less limiting way is needed. (8) Remember that all we reallyy wa want is lo to move the cursorr left. PET docsn't doesn't care how. TThe ~n memory elllo r.y map ind~ indicates G~tes the current cursor positionn IS is heldm in 198 (Original n gln 226?). 22(5?). To move the cursor into the first position we'll put a zero there. I Inn line 100 delete 10 left cursors and its surrounding unding quotes. Type 1005 POKE 198,0 lo to put cursor in the first posltlon, position, and 1040 POKE 198,1111 sothata a subsequent field prints in a correct position. RUN It. it. It reallyy works now. We can handle leading g and trailIn trailing g blanks and anything in between. Right) Right? (9) I Not Ot qU quite. Ite: How about a null string? I Itt cann happen. If a condition is true you might be printing h ~,~ ,~~n. I f a con~ llI on is true you might be printing a "*", '.: II if false you'lI you'll pnnt print nothlllg nothing and use TAB lo to position to the next item, or skip line if it is at the end. Our 1000 subroutine can't predict the future, and will allemptlO attempt to process a null string with all its IIlherent inherent troubles. Let's see what happens. Type WO 100 PRINl PRINT "" ;:GOS~ ;:GOSUB1000andB don't type, type/but Imagllle, imagine, 11100 PRINT INl TAB(!O)"whatever". TAB(!0)"whatever". RUN it. Very nasty. There is actually more wrong than the eye can see. If I fthe PET is alive you u have just learned, lor ror instance, IIl stancc, (he the easiest way of causing g active files to vanish into thin air (look at the table in $0251- 026E 026F on the Upgrade and 4.0 systems). Tragic results, to lo say the least. (10) ( A quote may help. TypeT 100 PRINT CHR$(34) + "M;:GOSUB "";:GOSUB 1000. Once O again, this I.his gives a correct result, ult. but subsequent TAB or cursor characters will cause trouble. This was not Il ot very important illl porlant with numbers. It's vital that it doesn't happen here. (11) ( II ) While we correct this mishap, mishap.let·s let's make the routine a bit more general for furl further testing. Type NEW and the code in lines 10-260, adjusting 198, 213 and screen width of 39 to lo your u r system. systcm. PI is the first position ot of the field. . P2 is the final linal posi tion n after a string, string. null or otherwise, is primed. printed. You can n try the code on various things within the quotes in line 30. When en done, type two quotes there (" '*) ") and convince yourself that it it can't work. rk. Then remove REM from line e 190 and try it. This works. Replace REM in 190 and remove REM in 200. This also works with some space penalty. Either method methocl should work for a particular application tion - the choice is is a function of further use for r the field. . Lines 190 or 200 simply check if the cursor has moved. If I r not, t, the subroutine utine detects a null string g and makes the needed adjustments by faking a different screen width. In I n case of 200, it it must also reset 198, since the PR I IT statement must also reset 198, since the PRINT statement
ASERT yourself", with CFI's new Database Retrieval System ASERT yourself... with CFI's new Database Retrieval System libraries libraries personnel departments dating services dating services schools employment agencies accountants ASERT — Aid for Search & Retrieval of Text — $495 complete For the 8032 CBM and 8050 disk drive —- Commodore Approved Software OTHER CFI SOFTWARE Federal Income Tax Preparation System* System' Personal Tax Calculator* lator' Emergency Control Program* Program' VIC Animation on Tutorial 'Distributed ' for lor CFI under the Commodore label WHO CAN USE ASERT? i(~ ~ schools accountants ANY BUSINESS THAT KEEPS RECORDS CAN USE ASERT TO: • Create up to 21 fields per record • Search & retrieve on any combination on of 90 searchwords • Restructure fields at any time • Search with MUST HAVE, HAVE. MAY NOT HAVE and OPTIONAL operators • Sort on any field at any time • Print out hardcopy including labels • Use FREE-TEXT area for comments • Output to any word processor • Create up to 90 searchwords • Compile summary statistics • Maintain 1900 records per disk with "virtual" 5K record length ASERT - Aid for Search & Retrieval of Text - $495 complete OTHER CFI SOFTWARE ALL CFI SOFTWARE AVAILABLE ALL CFI SOFTWARE AVAILABLE from your local Commodore dealer or direct from CFI CFI... Computer Solutions, 201 West 92 St., New York, NY 10025 The SM· KIT is a collection 01 machine language firl'Tl\\lare programming and test aids for The SM-KIT is a collection of machine language firmware programming and test aids for BASIC programmers. rammer~ SM-KIT is a 4K ROM (twice the normal capacity) which you yoo simply insert in a single ROM socket on any BASIC 4 CBM/PET-either CBM/PET-eilher 80 roumnor column or 40 column. Includes both programming aids and disk handling commands. ERROR DETECTION, DETECTION: lhe the SM-KIT automatically aulomalically indicates the !he erroneous line and statement for lor any BASIC program error. LINE NUMBERING. the SM-KIT automatically numbers BASIC statemenlS statements until yoo you turn the function off. SCREEN OUTPUT: OUTPUT, the me commands FIND. FIND, DUMP. DUMP, TRACE and DIRECTORY display on lhe the CRT while you hold the RETURN key (display pauses when the key is released). Continuous output is selected with shift-lock. OUTPUT CONTROL to DISK Of or PRINTER: in addition 10 to displaying on the lhe CRT. CRT, you can direct output to either disk or printer. HARDCOPY: HARDCOPY. allows screen displays to be either printed or stored on disk. FIND: FIND, searches all or any part of a program for text or command strings or variable names. Either exact search Of or wild card search supported. RENUMBER: the SM-KIT can renumber all or any part of a program. The selective renumbering allows you to move blocks of code within your program. VARIABLE DUMP. DUMP, displays the contents of lloating floating point. point, integer, and string variables (both simple and array). Can display all variables or any selected variables. variables, TRACE. SM-KIT can trace program execution either continuously or step by step starting with any line number. Selected program variables can be displayed while tracing. DISK COMMANDS: MANOS: asin DOS Support (Universal Wedge).lhe Wedge), the "shorthand" versions 01 of disk commands may be used for tor displaying disk directory, initializing, copying, scratching files, load and ru run, etc. etc, LOAD: LOAD. SM-KIT can load all or part of BASIC or machine language programs. It can append to a program in menny, memory, overwrite any part of a program. program, load starting with any absolute memory location, and load withrul without changing variable pointers. MERGE: allows merging all or any part of a program on disk with a program in memory. SAVE and VERIFY: SM-KIT provides one slep step program save am and verification. It also allows you 10 to save any part 01 of a program, or any address range. A 44KK ROM with both programming and disk handling aids. SM-KIT for Commodore Computers A Programming Productivity Tool ONLY $40 , ~ Developed by (and available in Europe Irom) from) SM Soltwareverbund- Softwareverbund-Microcomputer GmbH. GmbH, Scherbaumstrasse 29. 29, 8000 Munchen 83. 83, Germany 252 Bethlehem Pike ABC WRITE FOR CATALOG. C I r PA 18915 215·822-7727 Ada SI 2boei aider tai shipping We wy rj,ildncp»l UPS surfaceChdiges Colmar, PA 18915 215-822-7727 A B Computers omputers I\dClS1 2~ pe !Il!!lt'! r\~Vl lJl l! . ;N plkl l h. lll rl(tr t l P S~I " H " ~ I 'I)'~ o rna • 11I1 o" ,Iii an ~rp..l ixepaid Cl IY cutlers !le!~ P"I Prices " , listed '~ I. '(l we I" cm " cdsn 1," d discount \1 " ' ' Ddsis t' "'I ReguU 1,< I I Pf 'Ct'5 Sl q~ l, rlo lj~rl
Page 1 and 2:
1\ MALA Educational Programs M\~ Fo
Page 3 and 4:
May. 1982. Issue 24 COMPUTEI 101 Ma
Page 5 and 6: • the battle for the moons of Jup
Page 7 and 8: May, May. 1Q82lssue 1982, Issue 24
Page 9 and 10: i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~,
Page 11 and 12: • Announcing the Printing Breakth
Page 13 and 14: May. 1982. Issue 24 COMPUTEI 111 Ma
Page 15 and 16: APPLE • ALTOS • ATARI • MAXEL
Page 17 and 18: CBM Maintenance In-House DOWNEY, CA
Page 19 and 20: NEW PET/CBM SOFTWARE NEW PET/CBM SO
Page 21 and 22: CALL TOLL FREE CALL TOLL 800424 -27
Page 23 and 24: OLYMPIC SALES COMPANY 'ANY Vuthonze
Page 25 and 26: May, May. 1982, 1982. Issue 24 COMP
Page 27 and 28: OSI TRS-80 COLOR-80 OSI OSI TRS-80
Page 29 and 30: THEE MOSAIC 32K RAM FOR ATARI 32K R
Page 31 and 32: VOUNEED YOU NEED SpeedRead+ • Opt
Page 33 and 34: MOV, May, 1Q82, 1982, Issue 2A 24 C
Page 35 and 36: May. May, 1982, Issue 24 2.::1 COMP
Page 37 and 38: May, 1982, Issue 24 COMPUTEI 135 Ma
Page 39 and 40: MENAGERIE . ... $11.95 GRAFIX MENAG
Page 41 and 42: May. Mav. 1Q82.lssue 1982. Issue 24
Page 43 and 44: May. JIAov, 1982. 1Q82,lssue Issue
Page 45 and 46: May, 1982. 1982, Issue l$Sue 7& 2.4
Page 47 and 48: Micrn BEST PRICES BEST PRICES VIC-2
Page 49 and 50: May, May.1982, Issue 24 COMPUTEI ,.
Page 51 and 52: May, 1982.I$Ue 24 COMPUTEI 149 May,
Page 53 and 54: May, 1982, 19S2. Issue 201 24 COMPU
Page 55: tvk:rv. 1Q82.lssue 24 COMPUTEI 153
Page 59 and 60: The retailer contains The retailer
Page 61 and 62: BgeREM* * 900 1080 1000 DIM DIM Y '
Page 63 and 64: May, May. 1982. Issue 24 2A COMPUTE
Page 65 and 66: May. 1982. Issue 24 COMPUTE! PUTEI
Page 67 and 68: Program 1- Program I. 0000 13131313
Page 69 and 70: 202A 2e2A 0000 202C 0000 000£1 202
Page 71 and 72: Mov. May. 1982.lssue 1982, Issue 24
Page 73 and 74: May, 1982. 1982, Issue 24 211 COMPU
Page 75 and 76: May. WIoy. 1982, 1982. Issue 24 21:
Page 77 and 78: HP·S5 HP*85 ao BO Column Printer H
Page 79 and 80: ECLECTIC SYSTEMS CORPORATION P.O. B
Page 81 and 82: ECLECTIC SYSTEMS CORPORATION P.O. 8
Page 83 and 84: SOFTWARE STREET PRESENTS &JOOOo@~~~
Page 85 and 86: COI'l1lnodore commodore SHOW SPECTA
Page 87 and 88: Lyco Computer Marketing & Consultan
Page 89 and 90: EXTRA SPECIAL SPECIALS K-razJI K-ra
Page 91 and 92: & 0W «*$ cr ^ o & 0oV \P s —~ -
Page 93 and 94: E S o a. E g « JS M U I £ g g §
Page 95 and 96: : ;■:■■■■-.;-.■ ■;-.
show all

Section 2 - Commodore Computers

Create successful ePaper yourself

Delete template?

Save as template?