86.04 apple bug

the newsletter of apple-q the Brisbane Users Group April 1986 In this issue: Special Rush Issue - wer'e late again! Mostly Tips & Techniques Pending Book Review CREDITS Peter Pegg Editor at large Peter Newland Editing in a Rush Graham Hannam Assistant Rush MacWrite word processing LaserWriter Printing and so on Hooper Education Centre printing and distribution APPLE J , //e & Jc the reason for it all! and Apple ///, Lisa, Macintosh and Macintosh Plus too! Published by Apple-Q, the Brisbane Users Group P.O. Box 721, South Brisbane, Qld 4101 Australia Registered by Australia Post - Publication No. QBG 3485 | Apr 86 Editorial Peter J. Pegg First, special thanks to Peter Newland and Graham Hannam who are making sure that a newsletter is produced. | am finding that other matters which must, of necessity, be given the highest priority are leaving me little time for the normally enjoyable task of preparing apple-bug. Recent news items show Apple Computer Inc. to be not only alive and well, but also flourishing with record earnings in the last quarter. The Macintosh has recently been enhanced as the Macintosh Plus, and a considerable amount of speculation is appearing in computer journals over the expanded future of the Apple Il series. Some reports suggest that the {I series will receive a SCSI port, and that the Macintosh and the II will one day share the same peripherals; other articles strongly suggest that future Apple Ils will have a Macintosh style interface. Obviously it is not yet possible to confirm these speculations, but they do seem to presage some very exciting developments. One message that does seem to be coming from Apple is that the Il series is not dead yet, but has a glowing future. We all await this future with considerable interest if not outright enthusiasm. What's when... Sunday 20 April 1986 Open day at the Hooper Centre Monday 21 April 1986 Committee meeting Sunday 18 May 1986 Open day at the Hooper Centre Monday 19 May 1986 Committee meeting apple-bug April 86 apple-bug April 86 EO | SECRETADY’S | RKO ~=©6Graham Hannam From time to time members have come up to the Trading Table requesting a power supply cord to connect their Apple to the Club's Kambrook board, because, in the rush to get to the meeting that particular item got left on the floor. Now we can come to your rescue as we have purchased a number of these items. The cost us $5 each and any member requiring one will be asked to pay a rental of $1 for the use of the cord anda refundable deposit of $4. This is not to be confused with the 4-way power boards which are available at as a free service. We have purchased more power boards with overload protection switches built in. Due to an oversight in last months Newsletter we forgot to convey our appreciation to The Computer Shop, 137 Melbourne St., South Brisbane for the loan of an Apple //e with associated equipment to help run the trading table. Book REVIEW DAVID BOURNE Some new Apple related books have been received but as mentioned before David Bourne is on the other side of the world | until sometime in June. We hope to have the books reviewed by David as soon as he | returns. (Trading houre: 11.90 am = §.30 pa.) MX100 Printer All sorts of Even more Goodies a Goodies Due to unforeseen circumstances, the price of disks will rise considerably once our existing stocks are depleted. The Federal Government, in its wisdom, has imposed another tax on disks. The claim is that it is a mere 19% on the importers’ costs, WHICH means more like 66% once it reaches the retail outlet. We have a reasonable stock at present, and our present selling price is Yess than our new cost price. The Trading Table is the club’s only means of raising funds, and we hope you will continue to suport the club in the future, as you have in the past. Due to the continuing price changes, it has been an impossible task, trying to keep a price list up to date, and to publish it in Apple-Bug. All prices are confirmed only two days before the meetings, when the new stocks are purchased, so please bare with us. As you will see, many of the prices are unknown for the listed items, and therefore we cannot give a firm price. If there is anything else you would like to see on the Trading Table, then please let us know and we will try and get it for you. We have simply run out of ideas as to what people would like to see on sale. We need your ideas. Description Price Datalife SS/DD disks (single) $ 3.50 Datalife SS/DD disks (lib.case) $ 34.00 Control Data SS/DD disks (lib.case) + 25.50 3.5" SS/DD disks (softpak) P.O.A 3.5" DS/DD disks (softpak) $ 75.00 Basic Programming (book) P.O. Workshops volumne 1 (book) P.0.A Workshops volumne 2 (book) P.0.A Computer Connection : (book) P.0.A Word Processing with ZARDAX (book) $ 16.00 Media drawers 3.5" (each) $ 28.00 DX-1@0A Media drawers 5.25" (each) $ 28.00 M.F. Media drawers 5.25" (each) $ 95.00 Mini disk tray .FD3@ (each) P.O. Epson MX/RX/FX ribbon refills (each) P.0.A Epson MX8@ ribbon cartridge (each) P.O.A Epson LX8@ ribbon cartridge (each) P.0.A Epson L@15@Q ribbon cartridge (each) 5 16.00 Keyboard cover //e (each) + 9.80 Keyboard cover //c (each) + 9.08 Apple Keyring (each) $ 7.08 apple-bug April 86 - THE TECH NOTES | ECR PASSwW 10 REM - SECRET FASSWORD 20 REM - THE USE OF MID$ FUNCTION, 30 REM - THE ‘GET’ STATEMENT, 40 REM - THE “FOR...NEXT’ LOOP, AND sa REM - THE ‘IF...THEN’ STATEMENT. 6a REM 70 REM ~- RESET ALL VARIABLES. 80 CLEAR as REM - CLEAK THE SCREEN AND 8b REM - HOME THE CURSOR. 98 HOME 95 REM ~ THE PASSWORD IS IN Pus 100 PWE = "APF 110 REM 120 REM - BODY OF PROGRAM. 125 REM 130 PRINT "ENTER PASSWORD "3 135 REM - DETERMINE THE LENGTH OF Fws 140 FOR I = 1 TO LEN(FWS) 15@ GET ANS: PRINT "#"; 168 REM 178 REM - CHECK TO SEE IF KEY ENTERED 1980 REM - IS PART OF THE PASSWORD (Fue) 192 REM — IN LINE 100. 200 REM 210 IF MID (FPW6,1,1) = ANS THEN X# = XS + ANS: NEXT T 220 REM 230 REM ~— CHECK TO SEE IF THE PASSWORD 24AB REM - IS WRONG. IF IT IS THEN EXIT 250 REM - THE LOOP AND SET I TO LEN(PWS) 260 REM - AND THEN GO TO THE ERROR ROUTINE 270 REM - AT LINE 610. 288 REM 290 IF X$ < > PWS THEN T = LEN(FWS): GOTO 610 300 REM - PASSWORD IS CORRECT. 31@ HOME 320 PRINT "YOU GOT THE CORRECT PASSWORD frre 33@ END 620 REM - PASSWORD 15 WRONG. 610 HOME 612 REM - PRINT ON THE 10th LINE 615 VTAB 1@ 620 PRINT : PRINT “YOU BLEW IT 625 REM - FRINT LINE 635 FIVE TIMES. 630 FOR J = 1 705 635 PRINT CHR#(7) : REM BEEP 648 NEXT J apple-bug . 658 REM April 86 660 REM ~ GO BACK TO THE START OF 678 REM - THE PROGRAM AND START 680 REM — AGAIN. 698 GOTO 10 COMMENTS: This program will continue to run until you enter the correct password. The paseword is defined in line 1@8. If you wish to limit the number of attempts at the password, then insert the following FOR...NEXT loop at lines 82 and 692 1- 82 FORK = 17T05 698 NEXT K <> means: DOES NOT EQUAL. HOME means: CLEAR SCREEN and place the CURSOR in the top left hand corner of the screen. CLEAR means: CLEAR ALL VARIABLES so that they equal nothing. END = means: END of program. GET means: Single key input. The RETURN key is not needed. LET = means: Assign a value to a variable. LET A = 35. You do not need the LET command, so do not use it, as it takes up extra room in memory. LET A = 35 is the came as A = 35 in most computer languages. LET AS = "COMPUTER" is the same as. AS = “COMPUTER” ans: REMark. This is used to aid the programmer and not the program. The program will ignore the REM statement and every- thing that follows it in the same line. Get into the habit of using REM statements when writing a program. LEN = means: LENgth. LEN(PWS) will show the LENgth of the string PWS. If PWS = “APPLE” then the LENgth of PWS is 5 (the 5 characters within the quotes). REM EORMULA PASSWORD 18 REM -— FORMULA PASSWORD 28 REM 38 REM - RN = RANDOM KEY FOR 48 REM - FORMULA: RN # 4 - 2 58 REM ~ * + RN # CN - 2 68 REM 78 REM -— RNS = FORMULA IN LINE 168 8a REM 98 HOME 188 CLEAR 118 REM - GENERATE A RANDOM 128 REM — WHOLE NUMBER 1-9 13@ RN = INT (RND (1) # 9) + 1 148 REM - SET FORMULA VARIABLES 15@ CN = 4:CD = RN - 1 168 REM - SET PRINT POSITION 178 VTAB 6: HTAB 16 168 REM - CALCULATE THE ANSWER 185 REM —- AND CONVERT RN TO A 198 REM - STRING VARIABLE 288 RNS = STR (RN # CN ~ 2) 218 REM - GENERATE AND DISPLAY 228 REM - THE FORMULA KEY ALONG 225 REM - WITH SOME FALSE ONES 23@ FOR C = 1 TO CN#CD = CD + 1: PRINT CD; "- PRINT CHR® (6)5" " NEXT Cr apple-bug April 86 apple-bug April 86 248 REM - ERAISE LINE 1@ AND 258 REM - SET HTAB 260 VTAB 10: CALL —- 868: HTAH 8 270 PRINT “ENTER PASSWORD “; 280 REM — SETUP LOOP TO ENTER 298 REM - PASSWORD 308 FOR I = 1 TO LEN (RNS) 318 REM - ENTER PASSWORD AND PRINT 328 REM - A SPACE AND A BACKSPACE 330 GET ANt: PRINT " "3; CHRS (8)5 340 REM - IF THE ENTRY IS CORRECT 358 REM - GO BACK AND GET THE NEXT 368 REM — CHARACTER 370 IF MIDS (RNS,1,1) = ANS THEN X# = X% + ANS: NEXT I 380 REM - IF THE PASSWORD IS 398 REM - CORRECT, THEN CONTINUE 402 REM — PROGRAM 410 IF X$ = RNS THEN PRINT: GOTO SOO 420 REM - GO BACK TO LINE 90 430 GOTO 90 44@ END 5@@ VTAH 22: HTAB B S1@ PRINT "CORRECT CALCULATION" COMMENTS: I know that password programs are a dime a dozen, but here is one with « difference. The formula in this program can be changed in several ways. You can change the calculation, and you can change the random key. You need remember only the formula, and when the program displays the numbers, you calculate the first number (RN * CN - 2) and enter the answer. The additional numbers are only there to confuse anyone who would try to guess your password. CHANGING PASSWORD 10 REM — CHANGING PASSWORD 20 REM 3a REM — THE NUMBER GF PASSWORDS 40 REM - IS SET IN THE FIRST DATA 50 REM - STATEMENT IN LINE 14@ AND 60 REM - THE PASSWORDS THEMSELVES 78 REM - ARE IN LINE 160 8a REM 98 REM 10@ HOME 110 REM - SET UP ARRAY FUR 115 REM - NUMBER OF PASSWORDS 120 DIM PWs(11) 138 REM - NUMBER OF PASSWORDS 142 DATA 11 150 REM — PASSWORDS 168 DATA ONE, TWO, THREE ,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE, TEN,FINISH 173 REM — READ FIRST DATA ELEMENT 168 READ A 198 REM — READ PASSWORDS AND PUT 200 REM - THEM INTO AN ARRAY 210 FOR I = 1 TO As READ FWSCT): NEXT T 228 REM - ERAISE 18TH LINE 230 VTAB 10: CALL - 868 1} 248 PRINT “ENTER PASSWORD "; 258 REM - NUMBER OF ATTEMPTS AT PASSWORD 268 FOR P = 1T0A 278 REM - FIND LENGTH OF PASSWORD 280 FOR I = 1 TO LEN (PWS(P)) 298 REM ~ ENTER A CHARACTER AND PRINT # 3@@ GET ANS: PRINT “#"3 3108 REM - IF CHARACTER IS CORRECT 328 REM ~ GO BACK AND GET THE 325, REM - NEXT CHARACTER 330 IF MIDS (PWS(P),I,1) = ANS THEN X$ = XS + ANS: NEXT I 348 REM - IF CHARACTER IS WRONG, EXIT LOOP 358 REM - AND GO TO ERROR ROUTINE 360 IF X$ < > PWS(P) THEN I = LEN (PWS(P)): GOTO 5020 378 REM - PASSWORD IS CORRECT 374 REM - RESET P AND EXIT LOOP 376 P = A: NEXT P 368 PRINT : VTAB 20 . 398 PRINT "YOU GOT THE CORRECT PASSWORD" 395 REM - END PROGRAM Hl 4@@ END 5008 REM ~ ERROR ROUTINE 5a18 REM ~- SET X# TO NULL STRING 3028 XS = "": PRINT 5838 VTIAB 20 5040 REM — GET NEXT DATA STATEMENT 3@5@ READ BLS 5868 REM - PRINT TEXT, DATA, AND BELL 5@7@ PRINT "YOU HAVE BLOWN YOUR ";BL$;" ATTEMPT"; CHIX$ (7) 5080 REM ~ PAUSE ROUTINE 5@90 FOR F = 1 TO 1008: NEXT F 5108 REM - CLEAR FROM 1@TH LINE TO 3185 REM - BOTTOM RIGHT HAND CORNER OF SCREEN Si1@ VTAB 1@: CALL - 958: HTAE 16 5120 REM - GO BACK AND ATTEMPT NEW PASSWORD 5130 NEXT P 5145 REM - DATA FOR BLS 515@ DATA 18T,2ND,3RD,4TH,5TH, 4TH, 7TH,8TH, 9TH, 12TH, LAST COMMENTS: This program has many passwords. If you make a mistake entering the Password, then the password changes, and you can try again. Now you need to remember a whole list of passwords, and their correct order. PaUSE ROUTINES Any one of these routines can be inserted where you want a program to pause. 108 PRINT “PRESS ANY KEY TO CONTINUE ” GET ANS: PRINT m ‘ apple-bug 1@@ INPUT "PRESS RETURN TO CONTINUE “:ANS April 86 apple-bug April 86 I don’t know about you guys but I am always looking for some new trick for my programs. I have been reading the manuals and old magazines and generaly picking the brains of other computerists for ‘TIPS & TECHNIQUES’ and here are a few for your perusal: PEEKs POKEs & CALLs CALL -155 enter monitors no bell CALL -151 enter monitor: with bell POKE 44033,16 prevent <CATALOG> POKE 2049,1 LIST protection: ist line continually listed PEEK(218) + PEEK(219) * 256 line number where ERROR occurs x = PEEK (-16287) read push button on PDL # Q: IF X > 127 THEN button pressed X = PEEK (-16286) read push button on PDL # 1: IF X > 127 THEN button pressed X = PEEK (222) looks at ERROR code page 136. REFERENCE MANUAL. X = PEEK(37) reads. the current vertical position of cursor: POKE 37,X 10 X = PEEK (-16384) read keyboard strobe: IF X > 127 THEN key pressed 110 POKE -16368,@ reset keyboard strobe CALL -958 clear from cursor to bottom of screen POKE 32,L set left margin : lL = 1 to 39 POKE 33,W set right margin : W= 1 to 39 POKE 34,T set top margin + T = 1 to 23 POKE 35,B set bottom margin: B = 1 to 24 CALL 65200 NEW CALL -1998 fill screen with INVERSE @ CALL 1002 reconnect DOS RECOVER (from disaster) Have you ever deleted a program by typing NEW or INT accidentally? It happens to the best of us at the most inconvenient times. Here is a good little machine language program that will restore it for you. To use it, BRUN RECOVER from your disk directly after your accident. When you type LIST your old program will be back again. NOTES: 1> Only APPLESOFT programs can be recovered. 2> If you typed INT you must type FF to return to APPLESOFT before BRUNing RECOVER. 3> To execute the program just BRUN RECOVER or BLOAD RECOVER and CALL 768. @382- AZ WW BS O6 AZ BB BS @7 @308- AB OS Bi 6 CB DB @2 ES @31@- 87 C9 2B DS FS BD a2 eB @318- GC Q1 @8 AS @7 BE B2 2B @328- A2 B2 DB B2 AZ O3 Bi a6 @328- C8 DO 2 Eb 87 C9 BB DB @338- F3 CA DO F2 B4 69 84 AF @338- A& @7 US 5A 86 BB 6B BSAVE RECOVER,AS300,L$3E