MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"W)!!n9DISKNAME.DAT4z;z;,MONITOR.CMDSU Ѭ:!n.PROTECT.BYPASS#Ѭ !n'REVIEWS.REVIEW\ Ѭ!nSEG.T',',*SUPER.TREK Ec ,!n!&TIPS.1hѬ!n+VIDEO.HELPS*Ѭ !n)EMULATION!n1-EZPS.PROBLEMSGѬ'!n:-FILE.RECOVERYLuѬ7!n*HARD.DISKS  !n2.LASER.PRINTERSQѬ9!n*MENU.MAKER Gz94 III.INF.12.075B' #BPI !n .BATTERY.BACKUP?z5![,COMPANY.MENUv5Ѭ&,COMPAT.65C02z!n *CURSOR.MODm Ѭ!n-EDD.COPY.HELPt79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"108 .d1/hello........."MENU.MAKER" (Version 4.55.1)=".d1":100: Coldstart 200: Warmstart (GOTO 30) (I=1L2(A$(I),A$))90<B$(J)=A$(I),1,31)!FJ/2<>J/2)=4:=+1:ۙ=44PB$(J);:J=J+1ZI:8dA$(1000),B$(1000),C8=11010<9F=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING":P2,280,2 Z1310dn"x ..... "DATE.TIME.LINE" ....M=Ҡ,4,2))BM1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540M$="JANUARY":1550M$SH$ SLOW FLASH :120#w=w+.5*(w=0):I=1(w*1000):: Halt Subroutine::=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING.": 1300(=23:=0::"79C";"CONTINUE...?":'(<>89<>121<>78<>11013202=70#4,B$(I),16,B)#5,".PRINTER" $ž#4120 .#4;a$ 8#5;a$ B1070LV:=24:=0::-`#8,".D1/FLASHNAME.DAT":#9;FLASH$:#8%jFLASH=110: FLASHER SUBROUTINEtSLOW=110~FLASH/2=FLASH/2):۴ =11:=07 FLA:=".d1":=12:=0:120=+B$(I),16,B)1408A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0 :120;::=23:=0::"79C";"WOULD YOU LIKE A HARD COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1010C$="N"C$="n"12C$<>"y"C$<>"N"C$<>"n"850\C$="N"C$="n"1000;f:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": p840z2,280,21K:=23:=0::"79C";"TO PRINT OR RETURN TO MENU, HIT THE SPACE BAR":C$:C$<>" "930:ۺ1000 $(I),16,B)$=01:=0::"80C";A$;::12)E=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING"::2,280,21 840#2,B$(I),16,B) ž#2910*#2;A$:A$:12304810 >:120*H:=23:=0::"79C";"CONTINUE...?":0RC$:C$<>"Y"B$(I),"BASIC 0")700B$(I),"TEXT 0")740B$(I),"CAT 0")960B$(I),"FONT 0")1660B$(I),"FOTO 0")1730400A$="RUNNING "+B$(I),16,B)"79C";A$;:=0B$(I),16,B):A$="LISTING "+BOS=44:I/2<>I/2)I=I+1&I2=-1:I=I-2:NIBOTM<30XTHPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:0b=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1lvB=B$(I),16)," ")-10 =Q:WW=0A=:A=21A=9oldprefix$=A=31110A=27:=".D1":980A=13630=THPOS:B$(I);A<8A>11400A-7500,520,550,580:=THPOS:B$(I);:380: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THP="BASIC 0":40,A$="TEXT 0":406A$="CAT 0":40@A$="FONT 0":40JA$="FOTO 0":40TA$(L),"BLOCKS")370*^=27:=19:"FREE MEMORY AVAILABLE: ";h=7:=20:"80C";A$(L);$r:=5:THPOS=4:I=1:IBOTM=J-1:480|Q=:=26:=21:140> selects; sets Prefix to .D1; aborts."12);::"80C";a$;:d$=DISKNAME$$=23:=0::"80C";d$;::12)1,180,22F=3:=14:"This /// SIG Disk is \^ 1991, Washington Apple `, Ltd."=4:B$(1)="":B$(2)="""A$ %(511),C$(20),name$(20):=10:=0n: GOSUB 1120 x=+B$(I),16,B)140 PREFIX$=.D1 #1, ž#1180I=0I=I+1:#1;A$(I):170#1 L=I-1j=1:same=0:/#9,".D1/DISKNAME.DAT":#9;DISKNAME$:#9Ta$="{,|,~,}; 13П,2))-12;џ,6);:1580$"П,2))=0"12";џ,6);:ٟ;$,П,2))=>12" PM-":" AM-" 61630@WW=1390J=26:=21:1400 T1400 ^:WW=1:h |: CHANGE THE FONT".D1/downloaing this information was to help fellow ///rs from having to install the /SYSTEM disk in the in-board drive. It was not intended as a new way to install the BPI modules. YOU HAVE TO FOLLOW BPI's INSTRUCTIONS TO INSTALL THEIR VARIOUS MODULES. By the D the /SYSTEM disk. When you execute the INSTALL program make sure that you select option 1 and THEN option 5. Option 1 initializes all the drivers, and option 5 incorporates all that info into BPI.CNF (including BPI.TRAPOFF). My intention for providhe INSTALL program. If the INSTALL program finds the file or directory BPI.TRAPOFF it then will create the file BPI.CNF in the BPI directory. If it can't locate the file or Directory BPI.TRAPOFF it then creates the file BPI.CNF on the INSTALL disk ANt the /SYSTEM disk in .D1 What I failed to mention is that you FIRST install the BPI module using their (BPI's) instructions to the letter and that your version of BPI programs have to be V2.0.0 or greater (V2.0.2). The file BPI.CNF is created by te aforementioned should allow you to now run BPI off the Profile without the /SYSTEM disk needed in .D1. Regards....... . #: 190236 S7/Apple /// 22-Apr-85 21:00:37 Subject: Installing BPI withouafile BPI.CNF Datafile BPI.BCF Datafile BPI.TRAPOFF Directory INSTALL Directory SYSTEM.STARTUP Codefile SYSTEM.STAR.LIB Datafile BPI.CNF Datafile Th Codefile BPI.DM.LIB Asciifile BPI.DM.INT.LIB Datafile BPI.GA.CODE Codefile BPI.GA.LIB Asciifile BPI.GA.INT.LIB Datafile BPI.CNF50 Datafile BPI.CNF1 DatAPOFF, it does not check for /INSTALL in .D1. For your info, the following is my listing on the Profile Root Directory. BPI SYSTEM.STARTUP Codefile SYSTEM.STAR.LIB Datafile BPI.LIB Datafile BPI.DM.CODE e GO when asked to install it. You will then be asked to insert the SYSTEM disk. 4- Again with the SYSTEM disk in .D1 type GO. The changes are then recorded on the Profile. Thus when the system finds the file on the Profile named BPI.TRsubdirectory /BPI.TRAPOFF. Then startup the computer with the INSTALL disk and: 1- Run command 5 - END INSTALLATION SESSION. 2- After a message confirms that the configuration has been changed, press Return. 3- With the INSTALL disk in .D1 typ NOTES ON HOW TO INSTALL BPI SOFTWARE WITHOUT THE /SYSTEM DISK NEEDED IN .D1 #: 190216 S7/Apple /// 22-Apr-85 20:03:57 Subject: Installing BPI without the /SYSTEM disk in .D1 In order to eliminate the need for the /INSTALL disk in .D1, create the d.inv"C$=B$(I),16,B)array$="C%"name$=34)+C$+34)getfont(@name$,@array$)loadfont(@array$)30#5,".GRAFIX"".D1/BGRAF.INV"D$=B$(I),16,B)name$=34)+D$+34) GLOAD.D$16);1) GRAFIXONX=120way, it is my opinion that the BPI accounting programs are unequaled in-terms of ease of use and integrity. The people who developed them KNEW WHAT THEY WERE DOING. However, you do have to have a SOLID understanding of accounting procedures to be able to utilize the power of the various modules. Good luck with your review; I will be looking forward to receiving those issues of the /// NEWSLETTER. e various modules. Good luck with your review; I will be looking forward to receiving those issues of the !"#$%&' starting to disassemble ***** the Profile. Some power supplies need time to leak stored current away. ***** Caution: The disk drive is a delicate instrument. Handle the Profile ***** carefully. You may want to work over a padded surface. Another good *** How to Disassemble a Profile Disk Drive (by someone who took it apart upside down) ***** Step 0: Disconnect the power and interface cables from the Profile. I ***** would even suggest waiting a few minutes beforegram that can run on a 48k ][+ should be runnable on a /// in emulation mode, and of course you can run 64-128k //e programs if you have the Titan ///+//e card. Ed Gooding, sysop ave the Titan ///+//e card. Ed Gooding, sysop e only difference in using it that I know of is that you have to disable interrupts (dip switch 7, I believe) since the ][ won't handle them. I would also suggest that you use slot 1 for the card, since that is the default printer slot on the ][. Any pro ][, and I need to know if it's worth getting a SSC to use it,"or if it will work at all in emulation. Thanks 08/04/86 00:03:27 The original Super Serial card was useable in either the ][ or ///, but I don't know about the current Serial Card ///. The interupts / should be on 9. Bank 2/switch 7=usually should be on. 10. Bank 1/switch 7-usually on 07/27/1986 14:18:41 Any hints on how to set up the Super Serial for ][ emulation? We have a copy of our PRONTO bank communication software for 48Kn 72 char=on/off) 80 char printer=off/on 132 line printer=off/off 7. Bank 2/switch 5=generates a line feed w/cariage return if on (ie./ if printer is doublespacing everything/set this switch off) 8. Bank 2/switch 6=to handln/on 9600 = off/off/off/on 19200 = off/off/off/off 4. Bank 2/switch 1=on (for 1 stop bit/all baud rates > 300) 5. Bank 2/switch 2=line delay (for slow printer) if on 6. Bank 2/switch 3/4=set video line length ie. 40 char=on/o 1. The jumper block I'd assume would be pointed to TERMINAL. 2. switches on 1st group (left corner of card): 5-off/6 on 3. 1st 4 switches(1st group) control Baud ie. 1200 = off/on/on/on 2400 = off/on/off/on 4800 = off/off/o 16-Jun-85 23:32:34 I have an SSC card, and use it to send info to my m100 and/or a Brother printer I have. I don't know what stats you need to run the Imagewriter (guess what-they aren't explicitly listed in the SSC manual). But I'll help if I can. /// NEWSLETTER. REGARDS.....David Mozer [75366,665] Press SPACE-BAR _ ** precaution is to wash your hands so that you'll be less likely to have ***** it slip from your hands. 1. Turn your Profile upside down. Take out the 3 screws along the front of the Profile. Turn it rightside up. 2. Look at the back of your Profile. power supply. Turn the case upside down, undo the 4 screws, and now the power supply is free. *** Congratulations! You just disassembled your Profile! *** To put it back together, just reverse the steps! Remember that the switch and power cord c there are 4 screws that are recessed into the case. Unscrew these. Don't undo the two that lie flush with the case! 14. Now lift the supply/case off and Voila! There's the drive! 15. Set aside the drive (carefully) and do the same routine for thee upside down so that it's resting on the disk drive itself. Put some padding down underneath the drive so that you have some protection in case it slips from your hands. 13. Under where the drive is (or on top since the case is upside down now), gh for me. The mid-air connector is keyed so you can't put it together wrong. Just in case, the two black wires of the connectors should be connected. This severs the connection between the drive and the power supply. 12. Now turn your Profilhe front, the red wire towards the rear. The controller card is now free to be removed. 11. The last connector left is in mid-air, kind of like the type you see all over the place under the dash of your car. Pull it apart. This was kind of tou molex connector. When putting the Profile back together again, remember that the red side of the ribbon cable should be on the front side of the drive. The molex should only go in one way, but just in case, the black wire should be towards tone screw and 5 plastic connectors. Just undo the screw and one by one, squeeze the plastic "pins" and pull the board from them. Don't forget the one in the middle of the board! Once the board is free, disconnect the gray ribbon cable and the and take the panel out. 9. Whew! Take a break if your hands are sweating. OK! Time to ge the drive and supply out of the case! 10. First, let's get the Profile controller board loose (the one on top of the power supply). It's held to the supply by supply, then the 2 screws on the bottom of the Profile behind the disk drive. 8. Lift the panel out carefully. The retainer in the panel between the drive and the power supply may get stuck on some of the wires. Just move the wires out of the way. The lower card is the analog electronics card. 6. At this point, you can remove the 2 back panels that are behind the disk drive and the power supply. 7. Now you'll want to remove the long back panel. Unscrew the 4 screws holding it to the power board on top of it. On the right, you see the Seagate hard disk drive (an ST506 for a 5 Meg Profile, who knows what for a 10Meg) with 2 boards underneath it. The higher board is the Motor Control Board. It makes sure the disk turns at the appropriate speedding the cover up, disconnect the front light connector from the circuit board in the Profile. It's the only cable connected to the cover. 5. You can now lift the cover off. What you see now is the power supply on the left with the Profile controller e, so don't take it all the way off. Lift the cover up a bit and tilt it so the back comes free. Once the back is free, you can move the cover towards the front so that the retainer tabs on the cover don't get stuck on the circuit boards. 4. Hol Take out the 4 screws. These hold the back plates onto the cover. 3. You can now take off the cover carefully. There's a cable that snakes along the inside top of the cover that connects a disk drive board to the light in the front of the Profilonnector for the Profile face toward the back of the case. Also the round part of the drive faces the back of the case. **** And remember, be careful with that drive! a message for me here on CIS via EASYPLEX. Remember to use my account number 76074,1REPRINTED FROM ///'S COMPANY BBS NORFOLK, VIRGINIA HOW TO HOOK UP A BATTERY BACKUP FOR YOUR CLOCK CHIP Well, I guess I've procrastinated long enough on this topic, especially since Apple has shipped the clock kits finally. But, if you can't get the kithanged on later models. However, you can certainly get composite color from the RGB port. Buy a 15 pin D type connector, some 22 AWG wire, and an RCA phono plug from your local Radio Shack. Cut two strands of 22 guage wire, both about 24" long. Solder sulating tubing that you can shrink around the connection. (2) From: Ed Gooding, 08-Jun-85 07:21:21 Composite color works on any /// in Emulation. On the earliest models, you could not get color from the RCA video connector port, but this was ce for that ground wire to touch one of the other pins, it's going to do it sooner or later. Plastic electrical tape is one way to pevent disaster. If you want to be a little fancier, and surer, perhaps your electronic supplier has some heat-shrinkable in the center conductor of your cable to Pin 12. Solder the shield to either pin 6 or pin 13. Both are grounds. Make sure that the shield can't touch one of the other pins. Remember Murphy's law:"If anything can go wrong, it will". If it is possibl what you see when you set the connector in position to do the soldering. If you have good eyes and good light, you will probably see find that there are small, rasied numbers in the plastic part of the connector. Pin 12 has the color video signal. Solderrge Oetzel, "ON THREE" - June/July 1983, This was a full page article. I have copied only about 1/4th of it here] The picture on page 132 of the Apple /// Owner's manual shows the numbering of the pins on the DA15P connector. The view shown matchesD using both the RGB Cable and the Composite cable. This model has a switch on the front that permits choosing which cable is used. Given below are two sets of instructions. (1.) [From Page 25, "/// The Hardway Color and the Emulation Mode" by Geomonitor or the RF Modulator used with a TV. I bought a wire with an RCA Male plug on one end and two alligator clips on the other at Crazy Eddy's in New York. I assume Radio Shack also has them. I currently have my /// connected to a Panasonic 1300g gun and it was sloppy. I recommend using the smallest soldering device you can get. You attach two wires to the appropriate points and then connect those two wires to a wire with a standard RCA Jack. This jack then plugs into the composite color )+,-./0123456789:;<=>fi like plug (RCA plug) on the back of the Apple ///. In later models color was sent out through this plug in emulation mode. The fix for the older ///'s requires soldering two wires to part of the RGB port. I did this using an old fashion solderin HOW TO GET COMPOSITE COLOR FROM YOUR APPLE /// Entered by Harry Baya 6/8/85 ] Older apple ///'s did not display color in emulation mode. This means that a color monitor or TV could not display color. These devices are connected to the small hi- for some reason, or you don't want to pay your dealer to install it for you, here are some easy and inexpensive directions for installing your own battery backup for your clock chip that I wrote about in previous messages. THINGone end of the first wire to pin 13 on the D connector (ground) and the other end to the metal ring around the RCA phono plug. Solder one end of the other wire to pin 12 of the D connector (NTSC video signal) and the other end to the tip of the RCA phono plug. Tape the two wires together over the 24" length to hold them together, plug the D connector into the RGB port on the back of your ///, and plug the RCA plug into the Video out port on your composite color monitor. Viola! Composite color. -. I was able to verify my ROM by installing it in my other ///. It would have been far simpler to just follow the signals on a scope rather than play mix & match with the chips but some clever devil hid most of the video chips under the memory board. Maybg chips. This is a problem for someone with only one machine because the first thing that the flowchart in the manual tells you to do is to replace the video control rom. Since you don't pick those up at JDR or Jameco, you have to send for them from Sun cket in the video circuit. Four dollars worth of solvent later the bloody thing still wouldn't work but I had sockets that would satisfy Mr. Clean. I had also dumped enough flurocarbons into the atmosphere to wipe out New Jersey. I then started switchinmembered that they nearly drove themselves into La-La land changing cables and monitors. Red herring number two was the intermittent nature of the beast. I immediately thought of the ///'s reputation for lousy sockets and promptly cleaned every IC and sotal foul ups such as the shift register or the two mux's. ( Hindsight may lend you to believe that I miscounted. I didn't believe the first count so I counted again.) I did recall seeing this kind of a glitch when I consulted with Verbatim in 1983 and reracters but were otherwise OK. I tried counting the pixels on the several graphics page displays on the disk and was surprised to see that I was getting a solid line every five or six pixels instead of every 8. That seemed to rule out the more usual digin about a quarter of an inch wide. Winston looked like he had been through a bread slicer. There was no, repeat, no text getting through on any of the text display features of the diagnostic disk. Color and the gray tone display were missing all the chaom an interesting glitch on my /// at work which might be worthwhile to pass on. My video suddenly started glitching in an intermittent fashion. The graphics display on the dealer diagnostic disk looked like someone had erased vertical lines on the scree port that has an RCA phono plug on the other end so that you can use your composite color monitor from the RGB port. See the file HARDWARE/MODS.1/COMPOSITE.COLOR for a tutorial on how to do this. 05/18/1986 20:06:03 I just recovered frfor bettertext resolution, and have a very nice color monitor for ][ games or graphics. NOTE: This may not work on real old ///'s since they may not have color available from their video port. I have made an adaptor that plugs into the RGB/// will now send its video signal to both monitors simultaneously. Just turn down the contrast or turn off the individual monitor that you do not wish to use after hooking this up. Now you can use your 80 col. green monitor with AppleWriter or Visicalc port at the back of your Apple ///. Plug the existing monitor cable for your green/amber/whatever monitor into one of the "Y"'ed connectors. Plug the newly purchased RCA cable into the remaining "Y" connector and into your composite color monitor. Your NITOR /// By Ed Gooding I have connected an Amdek Color I+ to one of my Apple ///'s. I went to my local Radio Shack and bought one RCA phono plug "Y" connector and a 36" inch long RCA phono cable with two male ends. Plug the "Y" connector into the video ---=> Compliments of ///'s Company 804-747-8752 <=---- ----=> 300/1200 baud, 7 or 8 bits, odd parity, full duplex <=---- ----=> 24 hours a day, 7 days a week, 365 days a year <=---- HOW TO USE A COMPOSITE COLOR MONITOR WITH YOUR MOe they were trying to outwit the pixel pirates. But what's the bottom line, you might ask? It was the shift register, a 74166 that had an intermittent problem (unusual in my experience). Moral? It is wisely written that within the false gleam of a sparkling socket may lurk a shiftless register. Regards Jim McCabe HOW TO RESOLVE MOST VIDEO PROBLEMS ON THE APPLE /// By: Ed Gooding If you have been having video problems on your Apple ///,(@ABC|}~<=---- ----------------------------------------------------------------------------- ----------------------------------------------------- ----=> Compliments of ///'s Company 804-747-8752 <=---- ----=> 300/1200 baud, 7 or 8 bits, odd parity, full duplex <=---- ----=> 24 hours a day, 7 days a week, 365 days a year round if you have lots of time, and just replace one chip at a time, but considering the prices of the IC's, and how valuable I consider my time, I usually use the Mongolian Horde approach, and replace all of them at one time. ------------------------7. I'll skip the part on timing problems, unless the above doesn't solve it, but the last thing to try is to replace the 74LS161 chips at locations F10, F11, G11, and G12. Jameco also has this one for $.49. Obviously, you can experiment a 5. If that doesn't cure it, replace the two 2114 1024x4 static RAM chips at locations E4 and E5. They are also available from Jameco for $1. 6. Next, replace the 74LS153 chip at location L8. You can also get this from Jameco for $.49. of the problem if the preceding step did not, etc. 4. Replace the 74LS374 chips at locations E2, E3, F2, F3, G2, G10. These IC's are the cause of over 70% of video problems. You can purchase them from Jameco Electronics for $.79 a piece.15-592-8097. They accept VISA and MasterCard for phone orders. 3. The following replacement steps are ordered by highest percentage of failure. In other words, the first step will cure most problems, the next step will probably take careuse these letters and numbers like x,y coordinates on a graph to locate the IC's (integrated circuits) that I refer to below. 2. All the chips referred to below are obtainable from Jameco Electronics at 1355 Shoreway Road, Belmont, CA 94002, 4rom the switch, also. You may now remove the motherboard and place it rightside up on a work surface. Note that along one side of the motherboard are alphabetic characters, and along the perpendicular side there are numbers. You will d the internal disk drive to the motherboard. Also, disconnect the white molex connector with the two black wires that connects the ///'s speaker to the motherboard. If you have the video interlace kit installed, disconnect the wire f the plate closest to your power supply and disconnect the connector that connects the power supply to the motherboard. Now, lift the right side of the large metal plate and remove the two ribbon cable connectors that connect the keyboard anyour /// and then remove all interface cards in slots 1-4. Replace the cover and turn the computer upside down. Remove all the Phillips Head screws around the larger of the two metal plates on the bottom of your ///. Lift the side of and have determined that its not a monitor problem by hooking up another monitor (don't forget to try a different cable, also), then here are the swap steps to take to cure most video problems: 1. Turn off the power to your ///. Remove the cover from S YOU WILL NEED: (1) Penlight battery holder (holds 2 "AA" cells). Radio Shack part# 270-382 Price: $ .79 Note: You can get a 4 battery holder but may only use 3 batteries. This will make your batteries last longer. You must solder a jumpeFHIJp I finally got the problem solved after two weeks of trial and error. Thought some might like to know how! The solution was kind of complex since my other programs worked fine with the printer driver I was using. I tried the suggestion to change typREPRINTED FROM ///'S COMPANY BBS NORFOLK VA. NOVEMBER 1985 26-Sep-85 23:05:05 Subject: 3E-Z PIECES PROBLEM Thanks to everyone on for your help in solving my 3E-Z Pieces Driver problem (3EZ was not recognizing the printer. Ed). With all your helD ACE RADIODF SHUTTLE CRAFT,COMPUTER,TRANSFER PANEL,PROBE LAUNCH,TRANSPORTER>P ABANDON,ANALYZE,BEAM,CHART,CLOCK,COMPUTER,DAMAGES,DEGREEEZ DESTRUCT,DOCK,HELP,IDLE,IMPULSE,LOAD,LRSCAN,MINE,NAVIGATE,ORBITAd PHASERS,PLANETS,PROBE,QUIT,SCORE,SHIELDS,S :G1$(16),V$(5,5),C$(40),G(8,8),D$(20),Q$(10,10),D4(20)&NS(8,8),S2(8,8),PL(10,5),H4(10,2))(V8=33:V9=14:PI=3.14159:D1$="D":Q$="?"A2 S.R. SENSORS,L.R. SENSORS,PHASERS,PHOTON TUBES,LIFE SUPPORT9< WARP ENGINES,IMPULSE ENGINES,SHIELDS,SUBSP installing the clock chip to learn how to remove and disconnect the mother- board if you haven't done it before. Below is my crude attempt to draw a schematic of the motherboard with good ole Applewriter ///: ____________ol of rosin core solder (60% tin, 40% lead) approx. $2.50. Do not use acid-core solder nor "non-corroding" paste flux. (1) Phillips screwdriver and (1) slotted screwdriver Here are the installation instructions. Refer to my previous messages aboute the two 24" lengths different colors to easily distinguish between pos. and neg. (1) 25 watt soldering pencil. Don't use a solder gun, they are too much for this kind of work. You can buy one of these at Radio Shack for $6.00. (1) small spo(1) spool of 22-24 guage, insulated wire. You will need two 24" lengths of this to connect the batteries to the motherboard and one short length if you need to wire the jumper in the battery holder's fourth chamber. If you want, you can makve a couple of inches of lead wire, usually one red and one black. The red one is the positive, it will be connected to the female connector on the battery replacement snap. (2 or 3) Size "AA" ALKALINE batteries (Alkaline batteries don't leak!) ears instead of two. (1) 9 Volt Battery Replacement Snap Radio Shack part# 270-325 (Unfortunately, you have to buy 5 of the suckers) Price: $ .99 These snap onto the corresponding connectors soldered onto the battery holder. They will also har wire between the posts on the un-used battery chamber, however. The clock chip only draws 3.0 volts, which is supplied by two of the batteries. The third battery means that you will only have to change the batteries every three ye $40 to $41 and sub-type $01 to $03 but the Pkaso driver or .Printer still could not be found by 3E-Z Pieces program. Then I tried another suggestion; to delete some of the other *.printer drivers. Now the 3E-Z Pieces program could find the .Printer bu Retriever, by D A DataSystems. He says it will "go where Lazarus will not and will even recover partial files." provide a good object lesson, though, in backing up important data frequently. It also demonstrated that you shouldn't give up on apparently unrecoverable data until ALL options are exhausted. ### Ed Gooding, ///'s Company Sysop also suggests trying Theulting in recovery of about 2/3 of the data on the diskette. Why the Filer could succeed where others failed I could not say. Perhaps someone out there can explain. How did this happen? A momentary power surge or spike was most likely the culprit. It dido the rescue! Using the Pascal Filer, I was able to list the directory. This listing gave an indication that some of the first files might be salvageable. Sure enough, the Filer was able to transfer files from the endangered volume onto another volume, resised that the files endangered consisted of the entire volume! Since it was a MicroSci A143 volume, that meant that there was potentially a lot of data in trouble. System utilities seemed helpless to cope (as did Lazarus ///, incidentally). Pascal Filer tKMNOcess files on a disk or even catalog or copy files from it using the System Utilities program. On verifying the volume, we discovered that block 4 was bad. Block 4 lies at the heart of the volume directory which occupies blocks 2 thru 5, and the system adv REPRINTED FROM THREE'S COMPANY NORFOLK, VA. NOVEMBER 1985 DISK FILE RECOVERY DATE POSTED: SUN MAR 4 8:58:38 AM Recently I was confronted with a problem (fortunately that of another Apple /// user) where he was unable to acks for all the help! h a loose Pkaso card and 3E-Z Pieces would not - I may never figure out! If my other programs had not have printed correctly, I might have checked this out sooner. You can be sure that I will keep a check on all my slots card from now on. Again, than finally decided to go into slots of my apple /// check for loose cards. Yes! I found the Pkaso card had moved upward a slight amount out of the slot. This with the other suggestions finally solved my problem. How my other programs printed correctly witt printed junk. I then tried the .Printer with my other programs and it still worked fine with all of them but not with 3E-Z Pieces - still printed junk on my Apple DMP. I tried different arrangements of the printer driver for three or four more days. I 29-Aug-85 01:25:12 Subject: Laser Printers and /// Has anyone used a laser printer on the ///? Does it require special drivers or will a parallel (or serial) driver work? An ad I read for one says it uses a standard parallel interface, but cannot be ADDR2. DANGEROUS as it will write anywhere. Error Codes. 80 drive error, 81 write protected, 82 read error. X * repeat last command until space bar is pressed R1 and ADDR2 U * gosub through vector at 3F8 [ADDR1]<[ADDR2].[ADDR3]V * verify ADDR2 through ADDR3 at ADDR1 [BLK#]/[ADDR1].[ADDR2]W * write to disk starting at BLK# from ADDR1 througho monitor [ADDR1]<[ADDR2].[ADDR3]M * move ADDR2 through ADDR3 to ADDR1 [BLK#]/[ADDR1].[ADDR2]R * read from disk starting at BLK# into ADDR1 through ADDR2 [BYTE]/[ADDR1].[ADDR2]S * search for BYTE between ADDTVWXYZControl Reset all together. The square brackets are not part of the command, but are used to set off the variable part of the command. [ADDR]G * gosub ADDR, return to monitor [ADDR]J * jump ADDR, do not return tREPRINTED FROM THREE'S COMPANY BBS NORFOLK, VA. NOVEMBER 1985 APPLE /// MONITOR COMMANDS Here is a list of the Apple /// monitor commands that I know of. If anyone has others please post them. To enter the monitor press Open-Apple ctly numerical data... # Anyway, the safest approach, if you want the graphics capability, is to try and find one that emulates a popular printer for which screen dumps are available.... # mmed graphics, is my term for graphics that are generated, as if they were going to a plotter for example...The distinction, bettween programmed, and screen dumps, is that you don't actually have a screen image to output, intead the output is based on strity issue... Screen dumps would most definitely require a special driver. You could do graphic output, from basic, or pascal, but not easily,(in the form of screen dump), other types of graphics, like (my term), programmed graphics, would be easy... Prograe as hooking it up. # Even the Apple Laser writer has a standard serial port, that can operate the laser printer, as if it were a Diablo 630. Bottom line is that text is easy. # Graphics, on the other hand, are again as with any printer the big compatabiliPRSlieve it would just hook up especially for graphics. There are two areas of concern, they are the same two areas, you would be concerned with, with any printer... # Generally, as far as basic capabilities,(standard text printing), go, it is just as simpl (must have a space before and after the X.) [ADDR]:[BYTE] * store BYTE into ADDR [ADDR]:'[TEXT]' * store TEXT into ADDR with high bit clear [ADDR]:"[TEXT]" * store TEXT into ADDR with high bit set [ADDR1].[ADDR2] * dump ADDR1 through ADDR2 to screen and display ASCII characters to right * dump next line of addresses to screen 40 care packages Contains unlimited number of pages Has page search Prints any page 05/25/1985 13:35:00 Sould add two comments: The software is also available from A.P.P.L.E. the Apple users group in Seattle for only $50. It's a very nice package to haveng machine Saves your calculations automatically Allows calculations to be transferred into almost any program Prints at any point SCRATCH PAD - Allows quick notes without the bother of saving files Allows the movement of info within or between softw set or check appointments Allows unlimited appointments per day Alerts you when appointments are due Goes forward/backward as many months as necessary Prints any portion at any time CALCULATOR - Full 4 function calculator Works like a tape additware, Inc., Suite 401, 14011 Ventura Blvd., Sherman Oaks, CA 91423 (818) 905-6419 and retails for $95..... (You can also try AIM at 800-342-5246). FEATURES: CALENDAR - Displays full month at a glance Displays week at a glance Zooms in on a day to-enter AW /// or Visicalc with nothing disturbed.....very nice to have around and helps you get rid of some of the things that clutter up your desk or worktable (like your calculator, calendar, and scratch pads)..... It was originally sold by Data Pak Sof[]^_`abcdefa calendar, and a scratchpad that hides in the background while you are using AW /// or Visicalc and can be invoked with a single keystroke to use one of the functions without having to reboot any disks. After using one of the utility functions, you can re REPRINTED FROM THREE'S COMPANY BBS NORFOLK VA. NOVEMBER 1985 REVIEWS CALENDAR PAK /// I have a program called Calendar Pak /// that is a background utility like Sidekick on the IBM PC (ugh).....It contains a calculator, * cancel present command line Both disk drive motors can be turned on by first reading C0D1 and then reading C0E8. Useful for cleaning drive heads. ape> * cursor down * stop output- display next line- any character to continue * interrupt- abort operation, return to monitor * set 40 column mode and clear screen 8 * set 80 column mode and clear screen * cursor left * cursor right * cursor up L * clear to end of line P * clear to end of page S * clear text window 4 around. One trouble though, the disk is copy-protected and you only get one disk. 05/25/85 17:22:41 It can be backed up with Locksmith 5.0 or Copy ][+ 4.4/5.2.....Ed 10/22/1985 18:44:09 Does anyone know if this package is compatible with the clock chip offered by ON THREE magazine. Also can the calendar be accessed independently of Applewriter, and will it work with other programs such as Access ///?..... 10/22/85 21:01:57 I have used it and found it to be compatible with everything but Catalyst REPRINTED FROM THREE'S COMPANY BBS NORFOLK, VA. NOVEMBER 1985 MISCELLANEOUS SOFTWARE TIPS DATE POSTED: SAT MAR 24 7:01:35 AM Did you know (a collection of tidbits you won't find in the manuals): That you can print text fiour battles with the 'run-all-night Basic Behemoths'. BASIC GTO is fully documented with suggestions for use and is specifically tailored to Apple /// devices and configurations. the various items affect actual performance improvement. But its a very rare Basic program indeed which does not benefit noticeably from this partial compilation. BASIC GTO will be one of your most useful tools in ystructions and variables into a format which executes with tremendously reduced overhead when the program runs. Now obviously most programs do more than jump around and access variables; and even the particular locations of finished and fixed, why go through all this when the absolute location of each line is fixed and no new variables will be encountered ? BASIC GTO answers that question. It translates all control transfer inable is encountered (such as within a loop) these searches are repeated. Now this is useful and even necessary in the program development stage when program structures change constantly, but once you've got your program am looking for a match on the 'target' line number. ALL references to variables (e.g. A = B*C) require a sequential search through internal tables of all variables for a match. EACH AND EVERY TIME the transfer or vari BASIC GTO overcomes two inherent limitations of most Interpreted Basics such as Apple /// Business Basic. ALL control transfer instructions (GOTO's and GOSUB's) execute by sequentially searching through the entire progre Apple /// Business Basic language. BASIC GTO will translate any Business Basic program into a format which executes between 10% and 900% faster. Typical applications might expect at least 25% performance improvements. merging and one that merges and prints the assembled output.....Full documentation for using it is included on the disk....... Program Description - BASIC GTO BASIC GTO is a Mini-Compiler or Partial Compiler for th, Mo. 63105, (314) 721-4300. It requires an Apple /// w/ 128K and at least 2 disk drives. It will also work with the Profile.... You also must have AW ///, PFS is optional..... These utilites consist of WPL programs that convert PFS or AW /// data forRGE /// Merge /// is a set of powerful utilities that allow data files created by Apple Writer /// or PFS /// to be merged with any letter or document created by Apple Writer ///. It is published by Forsythe Computers, Inc., 7748 Forsyth Blvd., St. Louist that you read the review of DA.DATASYSTEMS' Power Keys, which is a driver rather than a pre-boot, and will have all the above features plus many more. It is also current, and well supported by Daryl Anderson. Ed ME. Others have told me that their version does work with Catalyst. It is compatible with the clock chip, and works fine with Applewriter (the calculator feature is a nice complement to the word processor). Since it is not supported anymore, I might suggesles from the System Utilities Program? Use the Copy Files option and copy from your disk files to .PRINTER, or whatever you call your printer driver. That you can insert the OPEN APPLE graphic symbol into a text file with the Pascal editor by pressing thegijkthan 7 conductor wire if you can't find anything else. A 25 watt soldering pencil and some rosin core solder. INSTRUCTIONS: ------------- You will be connecting pins 2,4,3,5,6 of the plug for port "A" to pins 2,3cket part# 276-1538 $2.49 each (3) hoods for above part# 276-1539 $1.99 each (1) length of at least 7 conductor wire. It should be at least 12" long or longer depending on how far you want to extend your joystick. You may use more trols are assigned to port A and the horizontal to port B. PARTS YOU WILL NEED: -------------------- Once again, truck down to your local Radio Shack and get: (2) 9 pin plugs part# 276-1537 $1.99 each (1) 9 pin solnopqrmake it work with a lot of Apple II games. There will still be a lot of them that will not respond, however. Basically, what you have to do is to make a "Y" splitter to connect your Cursor /// to both ports A and B on the back of the ///. The vertical con HOW TO MODIFY YOUR CURSOR /// JOYSTICK TO PLAY APPLE II GAMES If you don't want to lay out the $59.00 for a Micro-Sci Gameport /// (even though its worth every penny of it), here's a relatively inexpensive mod you can make to your Cursor /// joystick to s in each file under the HS subdirectory back to /aw3master/help from that to .d1/help and you are in business. Sounds like a lot of work, but with the [F]= and [S]= options it is really easy. have them available as long as that disk is in the built-in drive. Transfer HELP and the entire HS subdirectory to another disk (System Utilities is most convenient for this). Then change all references to /AW3MASTER volume in HELP to .D1 and all referencen fact, you can enter virtually any of the 31 screen control codes that the .CONSOLE driver recognizes into a WPL program and produce all kinds of effects! That you can move the help screens from the Applewriter master disk to any other disk you want and s set as. That you can execute screen control commands, like Clear Viewport(28), Set Inverse Text(18), Set Normal Text(17), Sound Bell(7), perhaps the most useful, by entering CONTROL-\, CONTROL-R, CONTROL-Q, and CONTROL-G respectively in a WPL program? Iiter, but not the new 'cause the new AW recognizes this as the same as the ///+ DELETE key. That with Applewriter you can name any WPL file HELP and have it run from a disk in the built-in drive when you press OPENAPPLE-?, regardless of what your prefix i combination CONTROL-SHIFT-\? You can't print it on a printer very easily (nothing is impossible), but it will display to the console in text files which you call up as help screens, for example. You could do the same thing with the old version of Apple Wr,8,5,6, respectively of the socket and pins 3,4,5 of the plug for port "B" to pins 3,4,9 respectively of the socket. See the crude schematic in the following message for a graphic representation and refer to your Owner's manual (pages 128-130) for a description of the port assignments. Make your solder connections, assemble the hoods over the plugs and socket, plug it in and enjoy some good ole Apple ][ games for a change of pace after a hard day with Visicalc. Plug for port "A" Plug for port "B" I asked Utilico for help, but they ignored me. Their data did suggest a different form for Microcom for the ][, so I tried that. It worked, but as I mentioned above, it took a lot of brute work and retrys. I haven't had this problem with other copy prohem over and over until the program finally guessed the gap correctly (I think that is what it was doing). My copy works, but it is flawed. Certain commands (updating the system configuration file) causes the program to bomb. I will try your sugestion. ve to make all of my copies from the inboard drive to the inboard drive (a slow process, but it usually works). I finally succeeded in making a copy by brute fource. Certain tracks (20-24, I think) gave me read errors or write errors. I just kept doing td tracks 3-22 with option 2, Synchronized only. If you need more info, let me know. Regards......Ed Gooding 04/06/1986 17:32:12 HI ED, Many thanks for your sugestion. My problem is that my drive 2 is an A-143, which EDD will not work with. So I hapy from .d2 to .d1 since you are copying a boot disk which you will ultimately want to boot in .d1. Use copy option 5, Synchronized with a Nibble Count. This will get most stuff for the ///. If it doesn't get it, try copying tracks 0-2 with option 5, ansuvw45:28 I have the most success with EDD, though I use other nibble copiers as well. Here is the method that works for me on almost all /// software with EDD v3: Set your drive speed for .d1 slower than .d2. Use the scale on the speed check function. Co EDD.NEED.HELP 03/19/1986 19:25:45 l am having success making backup copies of A /// software using E.D.D. III. Some software fights E.D.D. III. Microterminal by Microcom is an example of one I'm having problems with. Any suggestions? 03/19/86 21:utral position. 's with X/Y axis adjustors, you will have to open the bottom of the joystick box, loosen the set screws that connect the stick to the potentiometers, and slightly adjust them so that the ports do not have power applied in the ne 7 4 <-------------------------------------------------> 8 5 <----------------------> 9 Note: You may notice that the cursor may drift in the neutral position. If you don't have one of the newer Cursor ///----------------> 3 4 <----------------------> 4 5 <-------------------------------------------------> 5 6 <-------------------------------------------------> 6 Joystick socket ------------------------------------------------------------ ------- 1 2 <-------------------------------------------------> 2 3 <----------------------> 3 <------tected stuff. I'm using my "flawed" copy now and hope to have a "clean " copy someday. Thanks for your help, further comments and suggestions are welcome and appreciated! -Aug-85 PARALLEL.1.3 Asciifile 46 14-Aug-85 DISASSEMBLIES Directory SOS.BOOT.CODE Asciifile 29 26-Mar-85 ROM.DISASSEM.1 Asciifile 61 19-Jul-85 RO little hole above the arrow. You can bend the end of the wire that is protruding through the hole (bottom of the motherboard) with the flat bladed screwdriver. Heat the soldering iron and melt one small drop of solder where the wire goeless connector to the wire and attach it to the screw before tightening it. 2. Point (2) above shows where you will solder the positive lead from the battery pack. Strip 1/4" of insulation from the wire and insert the wire through the |<--(2) 1. Point (1) above shows where to connect the negative lead from the battery pack. Loosen the screw with the Phillips screwdriver and attach the wire by curling it around the screw (curl it clockwise) or, attach a solder-|_____________| / | /o\ / | o----------/ ^ \------------------------------- |----------------|------------------ Edge of Motherboard ------------------ | | |<--(1) | |__________________________________________| (+) <--- Phillips Screw / ^ __ / / / \ _____________ / / o---------/ _ \------------- | hole-----> | | > Apple | \ / | | \_____/ | | ______________________________ _____ | | / \ | 341-0035-00 | Battery / \ | rsion of the 65802 for $50 plus shipping. (retail $95) Phone # 214-324-2050. NOTE: Try Jameco Electronics: They sell the 65C802 chip for $20.00 as of 8/87. guage programming with the additional instructions I would skip the 65C02 and get a 65802. It has 16 bit instructions as well as the entire 65C02 instruction set. It is the 8 bit bus, pin compatible version of a 65816 chip. S-C software sells a 2MHZ vey{l instructions or use an Apple ][ assember in the Emulation mode, such as Merlin Pro or S-C Macro Assembler that has the additional op codes. Presently there are no commercial programs that use the additional op codes. If you are interested in assembly lan 06-Oct-85 00:18:20 Subject: Question: Is the /// compatible with the 65C02 processor chip? A 65C02 or a 65802 rated at 2MHZ or greater will work in a ///. The problem with assembly language is that you have to write macros to implement the additionaM.DISASSEM.2 Asciifile 59 19-Jul-85 ROM.DISASSEM.3 Asciifile 32 19-Jul-85 s through the little hole. 3. After connecting the wires to the motherboard, you can then reassemble the motherboard back to the cpu cabinet. Make sure you note or mark which wire is positive and which is negative. After re-attaching your connectors and remounting the motherboard, turn the machine back rightside up. 4. Thread the two wires from the motherboard through the square little hole through which the two wires to your speaker are routed. Connect the pontially disasterous modification (meaning that if you forget to turn off the switch, you could bomb a good disk, which is usually a program in the internal drive). Note also that these modifications could probably be applied to a Disk II drive, as well. HOW TO BYPASS THE WRITE PROTECT SWITCH ON THE DISK /// This is a tutorial on how to bypass the write protect switch on an external Disk /// drive. The same principles could be applied on the internal drive, but it is not recommended since this is a pote00:X::RELEASE:#530%& Menu.Maker v. 4.55.1 (side two)thing checks out, you may have "cold soldered" the positive connection to the motherboard. Remove the solder connection and re-solder it. Also check the batteries to make sure they are good. . . . . . . . . . powering on and see if the date is still current. If so, then your installation has been successful. If not, you must go back and check all wire connections and also the batteries to make sure you placed them in the holder correctly. If every succeeded because there will be a valid time display on the SOS header screen that comes up when you boot an Apple /// disk. Set the time and date with the utility program and turn off your power to the ///. Reboot your utilities disk by re-mount the cover to the ///. You can see that by placing the battery pack where we did, it will be relatively easy to replace the batteries when they get old. 7. Boot up your System Utilities disk. You can tell immediately if you have I also pushed some of the excess wire length down there as a way of stowing it and also to wedge in the battery pack a little. Since my /// doesn't move around, I felt this would be sufficient for me. 6. Re-install any peripheral cards ande to the pack and stick it next to the speaker (you can also use velcro patches to do the same thing). Since I used a two-battery pack, I simply placed mine down in the little square hole where the security mounT for the /// was intended. 5. Mount the batteries in the battery pack and check that you have mounted them in with the positive/negative ends in the right places. You may mount the battery pack in several ways. You can attach Scotch double-faced taper you want to remove your mother board in the future. You might also want to put opposite connectors on each wire to prevent hooking them back up incorrectly in the future (if you didn't use different colored wires for both of them, that is).sitive wire to the positive lead from the battery pack and the negative wire to the negative lead. I would recommend that you install two solderless connectors (male/female type) in both of these wires to make it easier to separate them whenev PARTS AND TOOLS YOU WILL NEED: ------------------------------ Note: All these parts were purchased at my local Radio Shack. 1) One Subminiature LED Indicator Lamp Part# 276-068 Price $1.59 2) One Subminiatusing the experimenter box if you want. 6) Remove the bottom from the project box. Drill two 1/4" holes in one end of the box wherever it looks good to you. These will be used to mount the LED light and the switch. I mounted my LED above the on the drive. I routed mine around to the left front of the drive (as you are looking at it). I mounted my switch box on the left side. I did mine this way to avoid drilling any holes in the cabinet. You could do it this way and avoid ul cut the voltage to the LED down to the necessary amount required to power the LED properly. 5) Route the wires out the back of the drive around the edge of the back plate. They should come out slightly below the ribbon cable connector length of 22 guage wire to the wire on the end of the resistor that is closest to the adjacent 74LS74 chip (the other end of the resistor won't give you any juice). Solder the 470 ohm resistor to the other end of this 12" wire. This wilcate the resistor at location R14 on the analog board. It is located in a group of like looking resistors (they look like multi-colored tubes a half inch long with wires at both ends soldered into the analog board). Solder another 12" protect switch (two of them) where there is a wire already present (the brown one is ground, mark the new wire you are soldering to it at the opposite end from the end being soldered). 4) Now we need to get some power for our LED light. LoYou've probably heard the slight click before when you have inserted or removed diskettes. 3) Cut three lengths of wire about 12" long and strip 1/4 inch of insulation from both ends of each. Solder one wire to each connection on the write- h. You will see the little spring switch on top of the switch assembly that is depressed by a diskette that has no write-protect notch or has its notch covered. This is how it it activated when you slide the diskette into the drive. front side of the drive as you look at it. When you remove the cover, you will see the two small Allen screws that attach it to the side of the mechanical assembly. One of these is slotted to allow you to adjust the sensitivity of the switc remembered to turn off the power to your /// first, right?) 2) Use a small Allen (or hex) wrench to remove the write protect switch so you can get to the back of it to make your first two solder connections. The switch is located at the left-access. This mod will surely void your warranty, so wait until it is expired before you do it. INSTRUCTIONS: ------------- 1) Remove the cover from your drive to expose the analog card (of course yound Allen wrench set. 8) Some double sided tape or velcro strips to attach the box to the drive. This hardware modification will require limited electronic soldering experience. You will have to make about ten solder connections, most of them with easy he equivalent of this if you want. 4) One 1/2 watt, 470 ohm resistor Part# 271-019 Price $ .19 5) 22-24 guage wire (multi strand is best, it withstands bending). 6) Rosin core solder and a 25 watt soldering pencil. 7) Phillips screwdriver are DPDT Toggle Switch Part# 275-614 Price $2.19 Note: You could probably use a SPDT, but I already had this one laying around. 3) One Experimenter Box (3 1/4 L x 2 1/8 W x 1 1/8 D) Part# 270-230 $1.59 You can use something to t switch. I thought it would be easier to see this way. Use the drill bit to make a half-moon notch on the other end of the box at the edge where you screw the cover on. You will route the wires through this hole. Mount the LED and tighten the mounting nut. Do NOT mount the switch yet. 7) Solder the wire with the 470 ohm resistor to the longer of the two wires on the LED light. That one is the positive one. Cut a two inch length of 22 guage wire and strip 1/4 inch of iwitch in my .D2 external drive. Rather than put the items in an external box, I mounted the LED write protect off lamp and the over-ride switch in the lower right hand corner of the Disk /// drive. If anyone attempts this, however, be sure you have the te. Therefore, get in the habit of checking it every time you use the drive to prevent any tragedies. 07-Jul-85 22:52:09 Subject: Override Write Protect Notes Ed, # I used your notes in the WRITE article to allow me to override the write-protect slittle black chips all over your floor with). 13) Now that you have done this, you must be sure to check the position of the switch before you place a diskette in the drive. A lighted LED means DANGER, you can write on this diskett it has the write-protect notch covered or even if it doesn't have a write-protect notch (such as the flip side of so-called single-sided diskettes - yes Virginia, you can discard that hole punch or nibbling tool you have been using to drop e switch and try to re-initialize the diskette. Once again, if everything is ok, you will NOT be able to write to the diskette. 12) If everything worked ok, you are finished. If the switch is on, you may now write on any diskette, whetherr on its flip side and place it in the disk drive. Boot up the System Utilities and try to initialize or copy to the so-called write protected diskette. If everything is ok, it will write just fine. Next, turn off the write-protect overrid// and turn on the write-protect override switch. If the connections are correct, the LED should light up. If not, you will have to recheck all your solder connections. Next, cover the write protect notch on a diskette or turn it oveok if you wish. I also used electrical tape to wrap the three wires together to further insulate them and to keep them from dangling separately where they might catch on something. 11) Now for the big test. First, power up your Apple /e double-faced tape or velcro strips to the bottom of the box and attach the box to the disk drive wherever you feel it will be easiest for you to access it. You can store any excess lengths of the three wires inside the box for a neater lohis will cause the LED to light when the switch is on. 10) Route the three wires through the half-moon hole at the other end of the box and place the box cover in place. Insert and tighten the four holding screws. Attach either thded shaft through the hole below the LED. Screw on the washer and nut to hold it in place. Now for the last solder connection. Solder the loose end of the wire from the shorter of the LED wires to the top-right post on the switch. T one end of this wire to the same post that you just soldered the ground wire to. Solder the other end of the wire to the center-right post to ground both sides of the switch. 9) Now place the switch inside the project box and push the threahy we marked the ground wire earlier) to the top-left post on the DPDT switch. Solder the ground wire to the center-left post on the switch. Cut a one inch length of 22 guage wire and strip 1/4 inch of insulation from both ends. Solder nsulation from both ends. Solder one end of this wire to the other, shorter wire on the LED. This will be used to connect the LED to the switch so that it will only light when the switch is on. 8) Solder the positive wire (now you see wools to handle accurate measurement and alignment of the holes you will have to drill. You have to make holes in the external case and the internal door frame. A good guide for the holes would be to draw a line half-way between the diskette guide bevel and the lower front face bevel, and space the LED and switch 3/4 inch apart, aligned between the right door bevel and the right side bevel. When you have the marks for the holes, use a 1/8 inch or smaller drill and make two holes in the external casing and Directory PRNTR.INTERFACE Asciifile 33 24-Mar-85 RAM.DIAGNOSTIC Asciifile 13 23-Jun-85 MOTHERBOARD.ID Asciifile 8 24-Mar-85 COLOR.MONITOR Asciifi COMPOSITE.COLOR Asciifile 8 1-Jul-85 QUES.ANS Directory HELLO Asciifile 1 13-Apr-85 CLOCK.CHIPS Asciifile 5 14-Apr-85 TIPS.1 ATTERY.BACKUP Asciifile 15 1-Jul-85 WRITE.PROTECT Asciifile 17 1-Jul-85 JOYSTICK.MOD Asciifile 7 1-Jul-85 INTERLACE.ADAPT Asciifile 16 1-Jul-85 -Jul-85 CPM.APPLICARD Asciifile 31 1-Jul-85 SIDER.HARD.DISK Asciifile 5 1-Jul-85 INFAX.CARTRIDGE Asciifile 23 1-Jul-85 MODS.1 Directory B-85 MEMORY.512K Asciifile 5 1-Jul-85 LEGEND.RAM.CARD Asciifile 24 1-Jul-85 DISCUSS.CORVUS Asciifile 13 1-Jul-85 SPACE.COAST.SYS Asciifile 6 1 Asciifile 3 14-Apr-85 HARDWARE Directory REVIEWS.1 Directory TITAN.CARD Asciifile 7 1-Jul-85 INTERLACE.ADAPT Asciifile 7 1-Jul Asciifile 1 24-Jun-85 III.BBS.LIST Asciifile 10 14-Aug-85 WESTERN.STATES Asciifile 5 9-Jun-85 MIDWEST.STATES Asciifile 3 14-Apr-85 EASTERN.STATES um. Last ///'s Company: Type Blocks Modified CRUISE.MENU Directory III.USER.GROUPS Directory SUPPORT.SERVICE Asciifile 13 4-Apr-85 CANADA .STUFF 6) CRUISING.MAP 7) FEEDBACK 8) PROGRAMMING E)xpand this menu H)elp M)ain Menu Choose [1,2,3,4,5,6,7,8,H,E,M] _6 The Table of Contents for ///'s Company. Last Update: 08/14/85 File Nx 804-747-8752. ///'s Company Main Menu You're at MAIN.MENU I)ntroduction C)ruise.menu A)ffiliates.menu Q)uit Choose_C You're at CRUISE.MENU 1) III.USER.GROUPS 2) HARDWARE 3) SOFTWARE 4) PUBLIC.DOMAIN 5) BUY.SELL Note: While this is not the latest version of the ///'s Company Cruise.Menu, it will give you an idea of what is available. The Sysop, Ed Gooding, rarely takes things off. Rather, he simply continues to add to and expand upon. The ///'s Company BBS# is:internal door frame by just drilling through both at once. These holes will give you the correct alignment for the LED, and the notch you will have to make for the switch throw. # le 6 9-Jun-85 DISK.CLEANER Asciifile 6 29-Jun-85 A143.PRICE.DROP Asciifile 4 22-Jun-85 HI.FI.III Asciifile 5 3-Apr-85 CORVUS.OMNINET Asciifile 8 16-Apr-85 SUPER.SER.SETUP Asciifile 4 17-Jun-85 TIPS.2 Directory RS232.NOTES Asciifile 47 9-Jul-85 REVIEWS.2 Directory ry VISICALC.VS.3EZ Asciifile 4 21-Apr-85 VERSAFORM Asciifile 34 28-Apr-85 THREE.EZ.PIECES Asciifile 24 25-May-85 WOSBASE Asciifile 4 9-Jule 3 21-Apr-85 BPI.SUPPORT Asciifile 5 5-Jun-85 EDIT.PASCAL.AW Asciifile 3 27-Jun-85 MICRO.COURIER Asciifile 3 14-Aug-85 REVIEWS.2 Directoe 2 21-Apr-85 BLOWN.DIRECTORY Asciifile 9 22-May-85 PAGE.NUMBER.3EZ Asciifile 1 21-Apr-85 CATALYST.A143 Asciifile 4 21-Apr-85 RICK.MCKINNEY AsciifilES Asciifile 6 9-May-85 BPI.ON.PROFILE Asciifile 8 15-May-85 LETSTALK.CATLYS Asciifile 5 14-Aug-85 QUES.ANS Directory HELLO AsciifilY Asciifile 4 29-Mar-85 MISC.TIPS.AIDS Asciifile 5 5-Apr-85 BPI.ON.CATALYST Asciifile 12 5-Jun-85 THNK.TNK.CTLYST Asciifile 3 17-Jun-85 WORD.JUG.NOT TIPS.1 Directory MOD.EMULATION Asciifile 8 19-Jun-85 MONITOR.CMDS Asciifile 7 24-Mar-85 CATALYST.NOTES Asciifile 17 29-May-85 FILE.RECOVER PRICE.LIST Asciifile 11 16-Jun-85 NON.DA.PRODUCTS Asciifile 20 16-Apr-85 POWER.KEYS Asciifile 13 14-Aug-85 PASSWORD.III Asciifile 7 4-Apr-85 5 31-Mar-85 BASIC.XT Asciifile 6 31-Mar-85 DISK.WINDOW Asciifile 5 31-Mar-85 PRODUCT.INFO.2 Directory THE.RETRIEVER Asciifile 6 16-Apr-85 Asciifile 6 31-Mar-85 TECH.NOTES Directory POWER.CAT Asciifile 6 31-Mar-85 POWER.PRINT Asciifile 6 31-Mar-85 BASIC.UTILITIES Asciifile Asciifile 6 16-Jun-85 BASIC.XREF Asciifile 5 16-Jun-85 SOURCE.WINDOW Asciifile 6 16-Jun-85 DISK.WINDOW Asciifile 5 16-Jun-85 DATA.WINDOW Asciifile 6 16-Jun-85 POWER.PRINT Asciifile 7 16-Jun-85 BASIC.UTILITIES Asciifile 6 16-Jun-85 BASIC.XT Asciifile 6 16-Jun-85 BASIC.GTO 6 21-Apr-85 CATALYST.2.1 Asciifile 4 30-Mar-85 DA.DATASYSTEMS Directory PRODUCT.INFO.1 Directory HELLO Asciifile 3 31-Mar-85 POWER.CAT 3 25-May-85 CALENDAR.PAK Asciifile 5 25-May-85 AE.PRO.4.2 Asciifile 3 29-Mar-85 COPY.III Asciifile 4 25-May-85 KEYSTROKE Asciifile RAMDISK.SUMMARY Asciifile 6 14-Aug-85 COPROCESS.68000 Asciifile 6 14-Aug-85 SOFTWARE Directory REVIEWS.1 Directory MERGE.III Asciifile -85 STOCKS Asciifile 9 14-Aug-85 EDD.VERS.3 Asciifile 8 14-Aug-85 PUBLIC.DOMAIN Directory GAMES.1 Directory STARTREK Asciifile 59 5-Apr-85 CANIBAL.ISLAND Asciifile 32 5-Apr-85 TRUCKER Asciifile 38 5-Apr-85 WORD.PUZZLE Asciifile 10 5-Apr-85 PIANO.PLINKER Ascii 12 9-Jul-85 PASCAL Directory PATCH.1.2 Asciifile 61 1-Jun-85 ACCESS3.PATCHES Asciifile 12 28-Apr-85 MAKEINTERP.TXT Asciifile 4 26-Jun-85 Asciifile 3 29-Mar-85 CUCK.KOO.SOUND Asciifile 3 16-Apr-85 SAMPLE.PROGS.2 Directory REVISED.RENUM Asciifile 9 27-Jun-85 FILE.RENAMER Asciifile Asciifile 17 28-Apr-85 REM.REMOVER Asciifile 7 29-Mar-85 ONERR.TEXT Asciifile 4 29-Mar-85 DMP.CHAR.DEF Asciifile 6 29-Mar-85 SCREEN.CODES DOWNLOAD.INVOKE Asciifile 4 16-Apr-85 SAMPLE.PROGS.1 Directory SMARTMENU Asciifile 16 29-Mar-85 CENTER.JOYSTICK Asciifile 3 29-Mar-85 ACCESS3.PATCH Directory DOCUMENTATION Directory REQUEST.INVOKE Asciifile 11 16-Apr-85 VOLUMES.INVOKE Asciifile 5 16-Apr-85 RENUMBER.INVOKE Asciifile 10 16-Apr-85 JOEL.BOWMAN Asciifile 1 21-May-85 TO.TROY.ROBERTS Asciifile 5 2-Jun-85 TO.MIKE.CORBIN Asciifile 1 14-Aug-85 PROGRAMMING Directory BUS.BASIC 13-Aug-85 MICRO.COURIER Asciifile 1 13-Aug-85 ANOTHER.SYSTEM Asciifile 3 14-Aug-85 FEEDBACK Directory HELLO Asciifile 15 2-Jul-85 TO. 30-Jul-85 HELLO Asciifile 1 12-May-85 SUN.DATA Asciifile 4 22-Jul-85 SYSTEM.FOR.SALE Asciifile 8 14-Jun-85 NEED.CPM.TITAN Asciifile 2 sciifile 9 27-Jun-85 BUY.SELL.STUFF Directory DA.DATASYSTEMS Asciifile 11 19-Apr-85 BYTE.BROKERS Asciifile 3 23-Apr-85 C.MCCONATHY Asciifile 11 OGRAMS Asciifile 8 24-Jun-85 PROG.DISKS Asciifile 7 11-Apr-85 UTILITY.1 Directory EPSON.CONTROL Asciifile 14 27-Jun-85 HEX.DEC.BIN.CNV A.MODEM Asciifile 11 5-Apr-85 S.T.E.P. Asciifile 10 5-Apr-85 MAILBASE Asciifile 24 5-Apr-85 CALENDAR Asciifile 19 27-Jun-85 FREE.PRApr-85 TRIANGLES Asciifile 3 5-Apr-85 DIAMONDS Asciifile 3 5-Apr-85 NEWDOWNLOAD Asciifile 3 5-Apr-85 BUSINESS.1 Directory BASICApr-85 GRAFPAK2 Asciifile 12 5-Apr-85 FONT.EDITOR Asciifile 34 5-Apr-85 GRAPH.PLOT Asciifile 5 5-Apr-85 RECTANGLES Asciifile 3 5-file 8 5-Apr-85 CIVIL.WAR Asciifile 18 5-Apr-85 FOOTBALL.GURU Asciifile 15 5-Apr-85 GRAPHICS.1 Directory DAZZLE Asciifile 3 5- CATALOG.UTILITY Directory PART.1.OF.2 Asciifile 48 9-Jul-85 PART.2.OF.2 Asciifile 33 9-Jul-85 SOS.ERROR.LIST Asciifile 5 10-Jul-85 DRIVER.USAGE Asciifile 5 2-Aug-85 SAMPLE.PROGS.1 Directory KEYBOARD.READ Asciifile 11 30-Mar-85 SCREEN.UTILS Asciifile 12 12-Apr-85 FONT.EXTRACT Asciifile 0:250: -- IDLE920:z=12505770:650: -- IMPULSE14650:250: -- PROBE6020:250: -- LRSCAN13630:650: -- NAVIGATE!&9000:j3=0250: -- PHASERS0490:10630:250: -- SCORE5D:"-- Live Long and Prosper! --"::640,670,750,730,74014150:250: -- ABANDON1800:250: -- CHART2260:650: -- COMPUTERd1$="C":"Clock Mode":2503270:250:: -- DAMAGES14390:250: -- DESTRUCT3150:250: -- DOCKd1$="D":"Degree Mode":2501347ur pardon, Captain?":270J:i=1v87@T225;C$(i),c$(i+1),c$(i+2),c$(i+3),c$(i+4),c$(i+5),c$(i+6) ^i::250Bhi400,850,870,410,430,420,440,470,450,460,330,480,510,890,5309ri-15880,540,860,550,910,520,820,570,590,900,610,620!|i-27630,=0:t1=0::"Command: ";a$:a$)>1300"A$)=1A$="?"A$="HE":300+""Use at least 2 letters, please.":270B,i=1a$):a$,i,1))>90a$,i,1)=a$,i,1))-32)::ۂ61i=1v8:a$=c$(i),a$))dx=i:i=v8::i=dx:3606I'@:"Beg yoI=13:t$(I)::I=15:s$(I):9I=17:c2$(I)::I=116:g1$(I)::I=19:c5(I):! 11a,11a,11a,11a,11a,11a,11a811000:s7$(1)=" ":s7$(2)=" ":s7$(3)=" ":s7$(4)=""n9$="Negative Zone":l5=0a2<>0820z=0:zm=0:rt=0:j3=0:gw=0-j4EBARAN,ALTAIR,REGULUS,BELLATRIX,ARCTURUS. POLLUX,SPICA,10.5,12,1.5,9,0,3,7.5,6,4.5,A(X)=8*1))+1:B(X)=10*1))+1#D(X)=X/30:E(X)=X*30+.5)1R(X)=X*10+.5)/10:S(X)=X*100+.5)/100'I=1V9:D$(I)::I=1V8:C$(I):%HUTTLE,SOS,SRSCAN0n STATUS,TORPEDO,TRANSFER,UNDOCK,VISUAL,WARPEx SHORT,MEDIUM,LONG,BEGINNER,NOVICE,SENIOR,EXPERT,EMERITUS,COURSEI WCOST,ICOST,PEFFECT,NAVIGATE,TORPEDO,END,ANTARES,SIRIUS,RIGEL,MERAK PROCYON,CAPELLAD VEGA,DENEB,CANOPUS,ALDifile 63 27-Jul-85 DRIVERS Directory SERIAL.PRINTER Asciifile 33 11-Jul-85 RS232.1.0 Asciifile 39 11-Jul-85 RS232.1.3 Asciifile 65 14ifile 18 26-Mar-85 MOCKINGBOARD Asciifile 10 26-Mar-85 MONITOR.INTERP Asciifile 8 19-Jul-85 JEPPSON.SPOOLER Asciifile 32 25-Jul-85 UNLOCK.CATALYST AsciLES Directory DISK.FORMATTER Asciifile 46 11-Jul-85 CHAR.UPSHIFT Asciifile 5 11-Jul-85 SOS.TERMINATE Asciifile 3 11-Jul-85 III.PEEK.POKE Ascir-85 PRT.VAL.CREATE Asciifile 4 11-Apr-85 ONLINE.HELP.SCR Asciifile 25 12-Apr-85 CONTROL.CHARS Asciifile 29 15-Apr-85 ASSEM.6502 Directory INVOKABory UPPER.TO.LOWER Asciifile 5 30-Mar-85 SCREEN.PRINT Asciifile 1 30-Mar-85 MULTI.PRINT Asciifile 4 29-Mar-85 WIDTH.FIXER Asciifile 24 11-ApS Asciifile 5 30-Mar-85 MODULA.2 Directory HELLO Asciifile 3 30-Mar-85 MODULA.TUTORIAL Asciifile 9 30-Mar-85 WPL Direct 3 17-Jun-85 MOUSE.UTILITY Asciifile 12 26-Jun-85 COBOL Directory HELLO Asciifile 5 30-Mar-85 FORTRAN Directory PASCAL.FUNC"MENU.MAKER""N11590:j3=0250: -- SHIELDSX920:s9=0:250b5090:250: -- S O Sl12370:250: -- SRSCANv:14630:250: -- STATUS9380: -- TORPEDOSj3=025076012750: -- TRANSFERj3=0250a2<>0820l5<>0250g(q1,q2)<>100025081012940:680: -- VISUAL11480:250: -- WARP14830:250: -- UNDOCKa2<>0820t1<>03370 a2<>0820l5<>0490 g(q1,q2)<>1000490*1530:760)4:"Would you like to try again? ";a$!f "Are you a Beginner, Novice, Senior, Expert or Emeritus Player? ";a$:a$)=0=-3:29):2030D*a$=A$,2):i=12:a$,i,1))>90a$,i,1)=a$,i,1))-32)/54i=15:a$=s$(i),a$))dx=i:i=5::i=dx:2120>i:=-1:2080 Hs8=i:j:"74c";"S T A R T R E K"::"74c";"A Simulation Game"::=12C"Would you like a Short, Medium or Long game? ";a$:a$)=0(a$=A$,1):a$)>90a$=a$)-32)5i=13:a$=t$(i),a$))dx=i:i=3::i=dx:2070 i:=-1:2030l2=i$=b):b<10001890X" ***";:1910bs7$(b$));b$;:1910 lb$=a-1000):s7$(b$));b$;vj::I:l5=08240&:"The ";s5$;" is currently in ";"l5=0g2$;" (";q1;"-";q2;")"l5<>0"the ";n9$#:1,180,7:::3,278,6::H 1660 r1<>0f9=1:4400:,:" 1 2 3 4 5 6 7 8"+" --- --- --- --- --- --- --- ---"0i=18:i;" ";:j=18:a=s2(i,j):b=g(i,j)&a)+21840,1850,18600" .1.";:1910:" ...";:1910Da>9991900Nb6*(p2-50):d7=1.4142+1.2*1)d1=d6:d6>d7d1=d7!t1=d1/.6:d2=12*1):j4=0:io=05970:1760Kw1=6+2*1):w2=w1*w1:p2=.75*e1:d6=p2/(w1*w1*w1*(s4+1)):d7=1.4142+2*1)d1=d6:d6>d7d1=d7+t1=10*d1/w2:d2=12*1):j4=0:io=0:13870j4<>01780pts to Hurl ";+@S5$:" Safely Out of the Quadrant."$JS2(Q1,Q2)=1:7680:d4(6)=01710 T:"Warp Engines Damaged.":.^"Attempting to engage Impulse engines..."hd4(7)=01670r"Impulse Engines Damaged."|f9=8:4400:0p2=.75*e1:d6=.00he ";s5$w4=1nh:k8(w4)=k7(w4): 12240::ig=0:14880:a2<>0j4=01590$"*** RED ALERT! RED ALERT!":2"*** The ";S5$;" has Stopped in a Quadrant ";""Containing a Supernova." ,1464056"*** Emergency Auto-Override Attemaged, ";'p4));"%":h2<200h3<5001510"j8=h3*1)*.015):j8<21510X:"McCoy - 'Sickbay to Bridge. We suffered ";j8;" casualties in the last attack!'"c4=c4+j8:1510f9=5:4400:="*** Enemy Attacks -- Starbase Shields Protect tj5<>01370:P"Enemy Attacks -- Shield Strength Reduced to ";:1430Zz3=013900"Up, ";s4=0d4(8)=0"Down, ";d4(8)>0"Dam12700v=1w4:j9=c5(v-1)dx=v:v=w4::v=dx:1280vk9=k9+1:k9=3 " and "; d$(j9);W4 " Damaged.":d4(8)=01320(s4<>0"*** Shields Knocked Down."s4=0(e1=e1-h4:1000 2a3=0<e1<=01480 Fp4=100*p2*s3+.5:.~h3=h3+h4:h4<(275-25*s8)*(1+.5*1))1320n4=1+h4/(500+100*1))) "*** Critical Hit --";:k9=1 w4=1n41j9=v9*1))+1:d4(j9)>8j9=10sc<>11190*c5(w4)=j9:e3=(h4*d5)/(n4*(75+25*1)))j9=6e3=e3/3 d4(j9)=d4(j9)+e3:w4=13=p2*s3$h5=p3*c6*h4+1:h5>s3h5=s3.s3=s3-h5:h4=h4-h58p3>.1h4<.005*e11000Bj5=1:z3=01110Lz8=z8+h4:1140.Vr(h4);" Unit Hit on the ";s5$;" from ";.`j6=k4(l):j7=k5(l):a$=q$(j6,j7):16050:a$;j" at ";j6;"-";j7th4>h2h2=h4>0j4=06890 nh=0 a2<>0&p2=1/i8:j5=0::c5$="Docked"1490'h2=0:h3=0:c6=1:s9=1c6=.5+.5*1)a3=0:z8=0:l=0 l=l+1l>nh1330k6(l)<01000%a3=1:h4=k6(l)*(.8+.05*1))^k8(l)s4=0s9=01090p3=.1:p2*s3>p3p>a$,1)="y"a$,1)="Y"10H580R15690:250: -- ANALYZE\15110:680: -- ORBITf15270:250: -- BEAMp15450:650: -- MINEz15560:250: -- LOAD15750:650: -- SHUTTLE15030:250: -- PLANETSnz=0940 nz=0:c3<=0(R"Enter your Mission Password...";x$\x$)=0=-1:2130"fi=1x$):j=j+x$,i,1)):/p=12:29);"Scanning the Galaxy...":j=1)@zd5=.5*s8:i2=l2+2+1)*3):np=10:rr=2+1)*s8):i2>5i2=52r3=i2:i5=7*l2:r5=i5:r7=(s8-2*1)+1)*s8*.1+.15r7<.2r7=r7+.1i1=2*r7*i5):r1=i1i1<802230i2=5:r3=i2i4=s8+.0625*i1*1))i4>10i4=10!r2=i4:i3=(i1+4*i4)*i5:r4=i3:d4(11)=02280""Library Computer Disabled":,:"---- Library Computer Active ----":',s(d4(i)),s(d3*d4(i)) i; j=0"Mr. Spock - 'All devices functional, Captain.'" * m=0:a2<>04 d7=d0+t1:l=16> f1(l)>d73410H m=l:d7=f1(l)R %\ x6=d7-d0:d0=d7:r4=r4-(r1+4*r2)*x6f r5=r4/(r1+4*r2):r5>03460p f9=2 z 440":> "Mr. Chekov - 'We must first leave standard orbit, Sir.'"  j=0::i=1v9 d4(i)<=03340 j<>03330) " Device";21);"-Repair Times-"- 25);"In Flight Docked":j=1: 2X,18A,6X,3#.2#,12X,3#.2#* 3320;d$(i)s7-b7)<=13200)v s5$;" not adjacent to a Starbase.":9 "Helmsman Sulu - 'Docking Maneuver Completed, Sir.'"! extra=e1-i7:extra<1extra=0 e1=i7+extra:s3=i8 t4=i9:l1=j1 c5$="Docked":9 "Mr. Sulu - 'But, Captain, we're already docked!'nh=nh-1:f>nh3120D g=fnh:k4(g)=k4(g+1):k5(g)=k5(g+1):k6(g)=k6(g+1):k7(g)=k7(g+1)& k8(g)=k7(g):g:0 k4(nh+1)=0:k5(nh+1)=0:k7(nh+1)=0:k8(nh+1)=0:k6(nh+1)=0: k3<=0z3=0D N c5$="Docked"3240X io<>03250b b6=03190#l s6-b6)<=140 "*** Klingon "; k1=k1+1:3040; "*** Romulan ";:ns(q1,q2)=ns(q1,q2)-10:rh=rh-1:rk=rk+1 rr=rr-1' 7);"at ";a5;"-";a6;" destroyed." q$(a5,a6)=".":r1=0 r5=r4/(r1+4*r2):f=1nh2 k4(f)=a5k5(f)=a6dx=f:f=nh::f=dx:3090:ۂ 2)=g(q1,q2)-100:k3=k3-1:r1=r1-1h t2$<>"C"3000r c3=0:"*** Commander ";;| f=1r2:c1(f)=q1c2(f)=q2dx=f:f=r2::f=dx:2960:ۂ/ c1(f)=c1(r2):c2(f)=c2(r2):c1(r2)=0:c2(r2)=0 r2=r2-1:f1(2)=1e30$ r2<>0f1(2)=d0-(i4/r2)*1)) k2=k2+1:30ormat is 'M,N,X,Y' where M and N are the quadrant coordinates and"?" "X and Y are sector coordinates. E.g. 6,4,3,10 refers to"=, "quadrant 6-4, sector 3-10. The commas are required.":6 z=02290@ i=52370 J zm=1:T t2$="R"3020)^ g(q1,q a3=a3*10:c7=(.9^a3)*1009 "Phasers are ";c7));"% effective at that range." 2290 z=1:13630:z=0: z=1:9380:z=0  :l<>62840D "Format is 'X,Y'...Comma is required. The range of X and Y is" " from 1 to 10."::2870I "Frgy (";r(c7+c7);" if shields are up)." x 2290' "Enter distance...";d1:d1<02290 c7=250*d1+50:t1=d1/.63 "It would take ";r(t1);" Stardates and use "! c7;" units of energy.":2290+ "Enter Phaser range in quadrants: ";a3 a3<02290Course is ";s(d2);" for a distance of ";"2 s(d1);" quadrants.":z=1 < 2290-F "Enter Distance and Warp Factor: ";d1,a4P d1<02290!Z c7=d1*a4^3:t1=(10*d1)/(a4*a4)3d "It would take ";s(t1);" Stardates and use "Cn r(c7);" units of ene x=q1+((s6-1)/10)-c6(1):y=q2+((s7-1)/10)-c6(2) d1=0:d2=0:x=0y=02600 d1=x*x+y*y) x<0z7=y)*(pi-y/x))) x=0z7=y)*1.5708 x>0z7=y/x) x<0y=0z7=pi' d2=12-z7*1.9098593:d2>12d2=d2-12 d1$="D"d2=e(d2)0( "<0a4<02290~ a3=0a3=q1*10+q2' a3=a3+.5:k=a3/10):k<1k>82810, c6(1)=k:k=a3-c6(1)*10):k<1k>82810 c6(2)=k:a4=a4+.5:k=a4/100) k<1k>102810& c6(1)=c6(1)+(k-1)/10:k=a4-k*100) k<1k>102810 c6(2)=c6(2)+(k-1)/101 Peffect"7. "Navigate Torpedo End"::2290-8 l=i:l2370,2630,2690,2730,2780,2790,2800/B "Enter Quadrant and Sector - ";a3,a4,a5,a6L a3=a3*10+a4:a4=a5*100+a6V a3<>a3)a4<>a4)2810` z=02420j a3<0a4<0t a3"Program name? ";b$:B$)=02330Bi=1b$):b$,i,1))>90b$,i,1)=b$,i,1))-32)::ۂ I=17. b$=c2$(i),b$))dx=i:i=7::i=dx:2360 i" :"The Valid Programs are:":E$ "Course Wcost Icost 0: d4(5)=0c5$="Docked"3510 l1=>x6d4(5)<=l13490 f9=3:3450 l1=l1-x6 d4(5)<=x6l1=j1 r=x6:c5$="Docked"r=x6/d3 l=1v9:d4(l)<=03570 d4(l)=d4(l)-r (d4(l)-.06)<0d4(l)=0 d4(l)<>035706 :"Damage Control- '";d$(l);" now operational.'"  t1=t1-x6:m=0$m3600,3650,3880,4060,4250,4300x2=0:y2=0:11740'f1(1)=d0-.5*i5*1)):l5<>03370 $q1<1q2<1q1>10q2>10.g(q1,q2)=1000 83370Br2=03870Lc5$="Docked"3860Vi== "Your starship is now Klingon property, and you are put"@"on trial as a war criminal. On the basis of your record," r1*3>i146703*"you are found guilty and sentenced to death!"4a1=0:4600>"you are acquitted.":4600EH"Your life sto 'Commodore Emeritus";:s8=545804"'."::"The 'Emeritus' game awaits you!":4600" Supremus!'":B"Now you can retire and write your own Space Encounter Game!" 10630:F"Your time has run out, and the Federation has been conquered!":1+k2)/(d0-j2)34560'"promotes you one step in rank, ";-"from ";s$(s8);" to ";s$(s8+1);" class!"2:"76C";"***** Congratulations *****":46007"promotes you 50,5060,5070=N"76C";"You have Destroyed the Klingon Invasion Fleet!"=X:"76c";"***** The Federation is Saved *****":g1=1ba1=0b1<>04600ls5$,1)<>"E"4600v(3*s1+35*n1+c4)=>1004600d0-j2<=645000r8=.1*s8*(s8+1)+.3:(k:"Probe report for quadrant ";xi;"-";yi:ps=1!m5=q1:m6=q2:q1=xi:q2=yi:6050%&f1(6)=1e30:q1=m5:q2=m6:ps=0:33700a2=1:WT=1800:"5:"It is Stardate ";r(d0):/:f94430,4610,4680,4710,4720,4730,4740,47601Df9-84780,4820,4830,5030,5040,50has been drained!'":e1=e1/2:s3=s3/2f1(5)=d0-i5*1)):3370f1(6)=1e303370r2=04370(i=1r2:c1(i)<>xic2(i)<>yi4360<"Probe destroyed by Commander in quadrant ";xi;"-";yi:%f1(6)=1e30:dx=i:i=r2::i=dx:3370i23<=142408ri=1r3:b2(i)=b4b3(i)=b5dx=i:i=r3::i=dx:4230|%b2(i)=b2(r3):b3(i)=b3(r3):r3=r3-1b4=0:b5=0:3370c5$="Docked"rt=14290;:"Mr. Spock - 'Captain, we just passed a black hole."<13);"Half our total energy supply aptain, I believe the Starbase has been destroyed.'":41906r3=1d4(9)>04190@LJ"Lt. Uhura - 'Captain, Star Fleet Command reports that the Starbase in"?T" quadrant ";b4;"-";b5;" has been destroyed!'"^g(b4,b5)=g(b4,b5)-10hr,b5)/100):(g(b4,b5)-k*100)<1042408i=1r2:c1(i)=b4c2(i)=b5dx=i:i=r2::i=dx:4100 i:4240s2(b4,b5)=-1s2(b4,b5)=0*s2(b4,b5)>999s2(b4,b5)=s2(b4,b5)-10b4<>q1b5<>q24150!"q$(b6,b7)=".":b6=0:b7=0:7620P,:"Mr. Spock - 'Cunder"Q" attack and can hold out only until Stardate ";r(f1(4));"'":r6=03370A"Mr. Spock - 'Captain, shall we cancel the idle period? ";b$#b$,1)="n"b$,1)="N"3370 r6=0: f1(4)=1e30:r2=0r3=042400k=g(b4Pj:iZf1(3)=d0-.3*i5*1))df1(4)=1e30:3370nf1(3)=1e30:f1(4)=1e30:3370xb4=b2(i):b5=b3(i)0f1(4)=d0+.5+3*1):f1(3)=f1(4)-.3*i5*1))d4(9)>03370V"Lt. Uhura - 'Captain, the Starbase in ";b4;"-";b5;" reports that they are 011610:s9=0 l5=0:7680:r2<=03870)f1(2)=d0+t1-1.5*(i5/r2)*1)):3370f1(2)=1e30:3370(r2<=0r3<=0395072i=1r3:j=1r2:b2(i)<>c1(j)b3(i)<>c2(j)3920<b2(i)=q1b3(i)=q23920+Fdx=j:j=r2::j=dx:dx=i:i=r3::i=dx:3960 d4(10)=-10 sc=-1)q1=c1(i):q2=c2(i):s6=b(1):s7=b(1)=" Pulled to quadrant ";q1;"-";q2;", sector ";s6;"-";s77r6<>0" (Remainder of Idle period cancelled.)"r6=0:s4<>03850d4(8)=0s3>03840$" (Shields not usable)":3851)*r2)+1 `y6=(c1(i)-q1)^2+(c2(i)-q2)^2jy6=03860ty6=y6):t1=.17778*y69~:"*** ";s5$;" caught in Long Range Tractor Beam --"14870:a2<>0ic<>13750f9=16:4400:sc<>037808"The Galileo is captured by Klingons."::upport reserves have run out, and you will soon die"R"of asphyxiation!"4\:"Your starship is a derelict in space.":4840-f"Your energy supply is exhausted.":47006p"The ";s5$;" has been destroyed in battle.":48407559106  lost its firepower.'":Nk6(n)=-k6(n) Xn=n+1bk lz3=0,v:r(z8);" unit hit against the enemy"j3=0:ld<>15790 6010:d4(7)<>06000EC5$="Docked":"Mr. Sulu - 'We must undock first, Captain.'":e1<=755860(:a$;" at ";x8;"-";y8k6(n)<>05660#a5=x8:a6=y8:t2$=q$(x8,y8):2900r1<>05730f9=1:4400k6(n)<05720&1)<.95720 0k6(n)>(.4+.4*1))*p357205::"Mr. Spock - 'Captain, the vessel at sector ";1Dx8;"-";y8;" has just720$d6=.9+.01*1):h2=h3(k)*d6^k7(n)&p3=k6(n):p=p3):p4*h24.995590 "Very small hit on ";:5600r(h2);" unit hit on ";a$=q$(x8,y8):16080<1i>1054606j=b7+3*1))-1@j<1j>105460'Jq$(i,j)="."dx=k:k=5::k=dx:5470Tk:"Fails.":5390+^"Succeeds.":s6=i:s7=j:q$(i,j)=s5$,1)3h:3210:"Lt. Uhura - 'We made it, Captain!'": rz8=0:p4=2:l6=nh:n=1:k=1l6|h3(k)=05es."p2=(1-.994^d1)^.333333 :l=13l=1"1st ";l=2"2nd ";l=3"3rd ";7"attempt to re-materialize the ";s5$;" . . . . .";#1)>p2dx=l:l=3::l=dx:5410 "Fails."f9=11:4400:"k=15:i=b6+3*1))-1,iPn1=n1+1:b6=05220 Z5280 dd1=1e302nl=1r3:x=j*(10*(b2(l)-q1)^2+(b3(l)-q2)^2))xx>d15260 d1=x:k=llq1=b2(k):q2=b3(k):7680q$(s6,s7)="."9:"Starbase in quadrant ";q1;"-";q2;" responds ---"; " ";s5$;" dematerializitted":j=2r3<>05200O"Lt. Uhura - 'Captain, I'm not getting any response from the Starbase.'":(ld<>1518072"You must be aboard the ";s5$;" first, Captain.":<sc<>05200AF"Spock - 'We can't leave without the shuttle craft, Sir.'":tored, but breaks up under the strain!":"Without your leadership, the ";s5$;" is lost!":4840c5$<>"Docked"5120;"Ensign Chekov - 'But Captain, we're already docked!'"j=1:d4(9)=05140; "Subspace radio damaged...weak signal transm now drifting through space!":4840B"You and the landing party are stranded on the planet.":5080C"You and the landing party are killed in the explosion!":4750A"The Galileo is instantly destroyed by the supernova!":5050>"Galileo also trac0630:M~"Since you took the last Klingon with you, you are a Martyr and a Hero."R"Someday maybe they'll erect a statue in your memory. Rest in peace and try","not to think about pigeons!":g1=1:a1=0 10630:F"You and the landing party areh the Klingon Empire has been signed."$8"The terms of the treaty are ";Ba3<3*1)4960%L"favorable to the Federation.":V"Congratulations.":49802`"highly unfavorable to the Federation.":4980(j"The Federation will be destroyed!" t1"Starbase was unable to re-materialize your starship.":s5$,1)="D"s5$=""s5$,1)="E"s5$="Darius"a1=0r1=04990#g3=r4/i3:b8=(r1+2*r2)/(i1+2*i4) a3=g3/b8$a3<(1+.5+1))4970U."As a result of your actions, a treaty witse to be"T"returned to, you would have been repatriated and given another chance. Since"H"you have no Starbases, you will be mercilessly tortured to death!" 4840O:"The ";s5$;" is now an expanding cloud of sub-atomic particles...":4840;"quadrant. They are, therefore, useless now.'":1"quadrant. We can go, therefore, a maximum"1 "of ";r(.004*(e1-50)-.05);" quadrants.'":*t1=d1/.6:t1" per Stardate. Are you sure we dare to spend the time?' ";b$"Hb$,1)<>"Y"b$,1)<>"y"R6230:j3=1:a2<>0\e1=e1-p3:e1>0ff9=4:4400:!p"Impulse Engines Damaged.":Bz"Scotty - 'We can't leave orbit until you're aboard"."7320a=-a:7330 r=l:s=ml2q$(r,s)="C"r=cs=d.k4(k)=r:k5(k)=s:k7(k)=(s6-r)^2+(s7-s)^2)#k8(k)=k7(k):n=-1:k7(k)0"*** Commander Advances ";%n<0"*** Commander Retreats ";"to secto90 q$(l,m)="."7320q=bp=07250 m=s+b:m<=0m>107220*l>0l<=1072304n)+27430,7240,7240>q$(l,m)="."7320Hb=-bRp=aq=07330 \l=r+afl<=0l>107290pm>0m<=107300zn)+27430,7310,7310q$(l,m)=t>10t=10 t<1t=1#p=s6-c:q=s7-d:2*p)0p=p*n)q<>0q=q*n)r=c:s=d:q$(c,d)="."l2=1t:l=r+p:m=s+ql>0l<=107160n)+27430,7250,7250m>0m<=107180n)+27430,7190,71d4(4)=06980:y1=0:f=f+300 Df=f-50*t4*y1+.2*(2500-e1)*x1Nf>1000n=1-1)^2)*x6+1'Xc5$="Docked"n=n-s8*(2-1)^2))#bn=0n=((f+200*1))/150)-5) ln=0vn>0x6<1.5n)>s8n=n)*s8)t=n):n>0t>y6t=y6(l)=f3: 12240 7620:Ia=1:b=1:k=1nh:c=k4(k):d=k5(k):q$(c,d)="C"dx=k:k=nh::k=dx:6910k8n=0:f=k6(k)+100*nh:x6=k7(k):y6=x6):s4=0f=f+1000d4(3)=0d4(4)=06940f=f+1000:6990x1=1:y1=1:d4(3)=06960&x1=0:f=f+30006810r:"Entering the ";,|l5=0g2$;" quadrant (";q1;"-";q2;")"l5<>0n9$;"!"l5<>0m8=1q$(s6,s7)=s5$,1):7680:q$(s6,s7)=s5$,1) l5=1k3=06880,l=1k3:f3=(f4-k4(l))^2+(f5-k5(l))^2)"k8(l)=.5*(f3+k7(l)):k7x7=10*(q1-1)+s6:y7=10*(q2-1)+s7x1=x7+10*d1*b8*d4+.5) "y1=y7+10*d1*b8*d6+.5):l6=0(,l5=0:x1<0x1>80y1<0y1>80l5=16tl5=0m8=0 @t5<>0#Jq1=(x1+9)/10):q2=(y1+9)/10)#Ts6=x1-10*(q1-1):s7=y1-10*(q2-1)^l5=08240hm8=1-k-s6=x7-d4+.5):f4=s6:s7=y7-d6+.5):f5=s7e1>06820f9=4:4400:s6=x1:s7=y1:10410:rv=1f4=s6:f5=s7:6820k3=06670,l=1k3:f3=(x1-k4(l))^2+(y1-k5(l))^2)k8(l)=.5*(f3+k7(l)):g(q1,q2)<>1000920 a2<>0# Entered ***":67500dt6=1:k=50*d1/t1:d1=.1*(s6=x1)^2+(s7-y1)^2).na$=q$(x1,y1):a$="K"a$="C"a$="R"6600xs5$;" blocked by ";,16050:a$;" at sector ";x1;"-";y1:6550rv=1:"Emergency stop required ";r(k);" units of energy." e1=e1q$(x1,y1)<>" "dx=l:l=h9::l=dx:6500 l d1=.1*(s6-x1)^2+(s7-y1)^2)s6=x1:s7=y1(f4=s6:f5=s7#2x1<1x1>10y1<1y1>106820<q$(x1,y1)<>"O"6820Ft2=a(1):t3=a(1)-Pq1=a(1):q2=a(1):s6=b(1):s7=b(1):)Z"*** Space Portalh9=10*d1*b8+.5)l5=1q$(s6,s7)=" "h9=06440 l=1h9-x7=x7+d4:x1=x7+.5):y7=y7+d6:y1=y7+.5)(x1<1x1>10dx=l:l=h9::l=dx:6620(y1<1y1>10dx=l:l=h9::l=dx:6620*q$(x1,y1)="O"dx=l:l=h9::l=dx:6420;q$(x1,y1)<>"."62605j"Mr. Sulu - 'Leaving standard orbit, Sir.'":io=0td4=-a5):d6=a5):b8=d4)~d6)>b8b8=d6)d4=d4/b8:d6=d6/b8:t5=0:t6=0d0+t106220:"L.R. Scan for ";/l5=0"quadrant ";q1;"-";q2:" the ";n9$i=q1-1:j=q1+1:k=q2-1:l=q2+1m=ij:n=klm<=0m>86150n<=0n>86150d4(11)=0ps=1s2(m,n)=1g(m,n)<100061r ";r;"-";s 12240:)i=q1+(l+9)/10)-1:j=q2+(m+9)/10)-1i<1i>87610j<1j>87610 $g(i,j)+10*ns(i,j)>9997610<.l3=1r2:c1(l3)=ic2(l3)=jdx=l3:l3=r2::l3=dx:7610,8b4=q1b5=q1dx=l3:l3=r2::l3=dx:7610*Bk6(k)>1000dx=l3:l3=r2::l3=dx:7610%Ll3:"*** Commander Escapes to ";3V"quadrant ";i;"-";j;" (and regains strength)"7`k4(k)=k4(nh):k5(k)=k5(nh):k7(k)=k7(nh):k8(k)=k8(nh)%jk6(k)=k6(nh):nh=nh-1:k3=k3-1:c3=0tc5$<>"Docked"7620 ~12240+g(q1,q2)=g(q1,1):y1=y1+s7-h4(m,2):k=k+1:8870"a$<>"C"8850 "v=1nh/$"k4(v)=j5k5(v)=j6dx=v:v=nh::v=dx:8760."v#8"k6(v)=k6(v)-800:k6(v)<=08850%B"n5=j5+j5-h4(m,1):n6=j6+j6-h4(m,2)5L""*** Commander at sector ";j5;"-";j6;" damaged";#V"n5<1n5>10*** Starship buffeted by Nova shockwave.":s4<>08650!e1=e1-1500:8680!s3=>15008700'!d6=1500-s3:e1=e1-d6:7620:s3=0:s4=0>!"*** Starship Shields knocked out.":d4(8)=.005*d5*1)*d6!e1>08710!f9=7:4400:!s3=s3-15001"x1=x1+s6-h4(m!f9=6:4400:f!a$<>"B"8620!p!g(q1,q2)=g(q1,q2)-10:v=1r3z!b2(v)<>q1b3(v)<>q28590!b2(v)=b2(r3):b3(v)=b3(r3)&!v:r3=r3-1:b6=0:b7=0:b1=b1+1:76206!"*** Starbase at sector ";j5;"-";j6;" destroyed." !8860!s6<>j5s7<>j68720"@"8550!>!ns(q1,q2)=ns(q1,q2)-1:pk=pk+14H!"*** Planet at sector ";j5;"-";j6;" destroyed."4R!i=15:pl(ip,i)=0::ip=0:px=0:py=0:ld<>18860\)=a5:h4(b9,2)=a6 m=b9t6:q=13:j=13 j*q=48870! j5=h4(m,1)+q-2:j6=h4(m,2)+j-2 j5<1j5>108870 j6<1j6>108870& a$=q$(j5,j6):a$="."a$="O"8870 a$<>"*"8500!1)>.28470 !x2=j5:y2=j6:11740:7!t7=t7+1:h4(t7,1)l):l=q2N l<=48290 X l=q2-4b g3$="IV":l=48310l g3$=g4$,l)v g2$=g2$+" "+g3$: 1)>.28340 11740:< q$(a5,a6)=".":"*** Star at sector ";a5;"-";a6;" Novas." g(q1,q2)=g(q1,q2)-1:s1=s1+1 b9=1:t6=1:t7=1:k=0:x1=0:y1=0 h4(b9,1b(1):t=b(1):q$(s,t)<>"."8190 q$(s,t)="O":V "Spock - 'Captain, my sensors detect a space warp somewhere in this quadrant.'":% a=110:b=110:q$(a,b)="."::& q$(s6,s7)=s5$,1):0 g4$="III":l=2:q2=>58260: l=1D g2$=g1$(2*(q1-1)+b6<>08180d4(9)>08170E:10);"You have entered the Romulan Neutral Zone! Unless you"@12);"leave immediately, we shall start an attack against"914);"your puny starship.....We are waiting......."nz=1t2<>q1t3<>q2)s=8080Ahi=1np:ip=i:pl(i,1)=q1pl(i,2)=q2dx=i:i=np::i=dx:8060ri:ip=0:8080)|s=b(1):t=b(1):q$(s,t)<>"."8060q$(s,t)="@":px=s:py=t7620:u<1 a=1u)s=b(1):t=b(1):q$(s,t)<>"."8100q$(s,t)="*":rh=0k3<>0i=jnh9s=b(1):t=b(1):k4(i)=s:k5(i)=t:q$(s,t)<>"."79506q$(s,t)="R":k7(i)=(s6-s)^2+(s7-t)^2):k8(i)=k7(i)"k6(i)=450+400*1)+50*s8: ,122406u<108030 @u=u-10-Jb6=b(1):b7=b(1):q$(b6,b7)<>"."8010Tq$(b6,b7)="B"^np=0="K":k7(a)=(s6-s)^2+(s7-t)^2):k8(a)=k7(a)l5<>0q$(s6,s7)=" "k6(a)=1)*150+300+25*s8:r2=07930 a=1r2/c1(a)=q1c2(a)=q2dx=a:a=r2::a=dx:7920 :7930.q$(s,t)="C":k6(k3)=950+400*1)+50*s8:c3=1rh=07980j=k3+1::b=110:q$(a,b)="."::Zq$(s6,s7)=s5$,1)du<1007930nk3>01)>.7rh=0z3=1xz3=078206:"** Klingons equipped with Cloaking devices **"u=u-100*k3:a=1k3%s=b(1):k4(a)=s:t=b(1):k5(a)=tq$(s,t)<>"."78306q$(s,t)&z3=0:j4=1:b6=0:b7=0:k3=0:c3=0:nh=0' px=0:py=0:rh=0:ip=0:nz=0:io=0:ld=-1l5=07730%a=110:b=110:q$(a,b)=" "::(q$(s6,s7)=s5$,1):2u=g(q1,q2):v=ns(q1,q2)<u>9998220.Frh=v/10):pn=v-rh*10:k3=.01*u):nh=k3+rh%Pa=110,q2)-100:g(i,j)=g(i,j)+100 l3=1r24c1(l3)=q1c2(l3)=q2dx=l3:l3=r2::l3=dx:7600l3c1(l3)=i:c2(l3)=j:a=-a:b=-b:7330c5$="Green"l5=07650c5$="Orange":e1<1000c5$="Yellow"(g(q1,q2)>99ns(q1,q2)>9c5$="RED"n6<1n6>108840)`"" and buffeted to sector ";n5;"-";n6#j"q$(n5,n6)="C":k4(v)=n5:k5(v)=n6,t"k7(v)=(s6-n5)^2+(s7-n6)^2):k8(v)=k7(v)~"q$(j5,j6)="." ":8870)"a5=j5:a6=j6:t2$=q$(j5,j6):2900:8870":q$(j5,j6)="." "j:q:m"t6=t78900"b9=t6+1:t6=t7:8380 "k=0 "d1=k*.1"x1<>0x1=x1)"y1<>0y1=y1)"i=3*(x1+1)+y1+2 "d2=c5(i)#d2=0d1=0 #d1=0*#:"Force of Nova displaces starship." #6230: (#p=2:j3=12#c5$<>"Docked"9030=<#"Phasers can't be filanet at ";a5;"-";a6;" destroyed.":pk=pk+1:io=03'ns(q1,q2)=ns(q1,q2)-1:i=15:pl(ip,i)=0::ip=0)'px=0:py=0:q$(a5,a6)=".":ld<>110380'f9=14:4400:(a$<>"*"10320 (1)>.1510280C("*** Star at sector ";a5;"-";a6;" unaffected by Photon bed...Congratulations..You Turkey!"'s2(q1,q2)<0s2(q1,q2)=0 'w=1r3 'b2(w)<>q1b3(w)<>q210170'b2(w)=b2(r3):b3(w)=b3(r3)&'w:q$(a5,a6)=".":r3=r3-1:b6=0:b7=0-'g(q1,q2)=g(q1,q2)-10:b1=b1+1:7620:10380'q$(a5,a6)<>"@"10240:'"*** P'q$(p,q)=q$(a5,a6):q$(a5,a6)=".":"Damaged--"/L'" Displaced by blast to sector ";p;"-";q.V'k4(v)=p:k5(v)=q:k7(v)=(s6-p)^2+(s7-q)^2)`'k8(v)=k7(v)j'12240:10380)t'"Damaged, but not destroyed.":10380~'a$<>"B"10190<'"*** Starbase destroy$=q$(a5,a6):2900:103801&a$=q$(a5,a6):16050:a$;" at ";a5;"-";a6;" ";'a7=a8+2.5*(1)-.5)*'w3=-a7)):a7))>w3w3=a7))'x7=-a7)/w3:y7=a7)/w3$'p=a5+x7+.5):q=a6+y7+.5) .'p<1p>10q<1q>10101008'q$(p,q)<>"."101000B)>.19910E&"*** Commander as sector ";a5;"-";a6;" used anti-photon device!"&&" Torpedo neutralized.":10380 &v=1nh&a5=k4(v)a6=k5(v)9940&v&k=k6(v):w3=200+800*1)&k)09980&t2=s6:y5=s7"4&l9=115:x5=x5+x4:a5=x5+.5)>&a5<1a5>1010370H&y5=y5+y4:a6=y5+.5)R&a6<1a6>1010370\&l9=5l9=9f&r(x5);"-";r(y5);", ";p&a$=q$(a5,a6):a$<>"."9860 z&10360&:a$="K"a$="R"9910&a$<>"C"10110&1"Docked"r=r+.001*s3*r%a3=c6+.25*r:n=19740#%a8=(15-a3+(2-z6)*g2)*.5235988:.&"Track for Torpedo number ";z7;"--":9750- &:"Torpedo track --":a8=(15-a3)*.5235988&x4=-a8):y4=a8):b8=x4) &y4)>x4)b8=y4)!*&x4=x4/b8:y4=y4/b8:x5r=(r+1))*.5-.5%r=>-.4r<=.49700%r=(1)+1.2)*r:n=39660$%"*** Torpedo Misfires...":9670,%"*** Torpedo number ";z6;" Misfires..."%1)>.29700+%"*** Photon Tubes damaged by misfire."%d4(4)=d5*(1+2*1)):10390'%s4<>0c5$=:n=1:%b$,1)="-"9490#D%b$,1)="N"b$,1)="n"9590,N%b$,1)<>"Y"b$,1)<>"y"=-1:95205X%"Spread angle: (0 - 45 degrees) ";g2:g2<09490b%g2>45=-1:9560l%g2=g2/60:n=3 v%z6=1n%c5$<>"Docked"t4=t4-1%z7=z6:r=1)%sted.":9490$z=094604$zm=0:"Sector coordinates: ";i,j:i<0j<09490%$a3=0:a4=100*i+j:2390:zm=19430$c6=d2:9470$"Torpedo Course: ";c6$d1$="D"c6=d(c6)%c6=>09500 %j3=0:%t4>29520 &%n=1:95900%"Burst of 3? ";b$:i=dx:9330^$h3(i)=h5(i):e=e-r7 h$i:9340r$h3(i)=h3(i)+e:e=0 |$5490$e<>0a2=09370 $j3=1:4$r(e);" units expended on empty space.":j3=1:$j3=1:d4(4)=09400"$"Photon Tubes damaged.":9490$t4>09420&$"Torpedo supply exhau.":#e=p1:nh=09370#e=0:t5=(nh*(nh+1))/2#$i=1nh:h3(i)=((nh+1-i)/t5)*p1$h5(i)=k6(i))/(p*.9^k7(i))$h3(i)<=h5(i)9260!"$e=e+(h3(i)-h5(i)):h3(i)=h5(i),$i6$e=09340@$i=1nh:r7=h5(i)-h3(i)J$r7<=09320"T$r7=>edx=i:i=nh: #j3=0:5#"Phasers locked on target. Energy available: ";#.01*100*e1).#"Units to fire? ";p1:p1=>e1=-1:9110#p1>09160 #j3=0: #e1=e1-p1#d4(11)=09200#p1=p1*(1)*.5+.5)8#:"Computer malfunction hampers Phaser accuracyred through Starbase shields.":9100F#d4(3)=09050"P#"Phaser Banks damaged.":9100Z#s4=090702d#"Shields must be down to fire Phasers.":9100n#nh>09110>x#:"Mr. Spock - 'Captain, my sensors detect no Klingons ";#"in this quadrant.'"last." (10380!((x2=a5:y2=a6:8320:a5=x2:a6=y22(g(q1,q2)=1000 <(a2<>0 F(103808P(:"AAAAAAAAARRRRRRRRRRRRRGGGGGGGGGGGGHHHHHHHHHHH!!",Z(" Hack! Hack! Cough! *Choke*"1d(:"Mr. Spock - 'Fascinating!'":q$(a5,a6)="."n(t2=0:t3=0:10380x(l9(:"Torpedo missed!"(Z6 (r1<>0(f9=1:4400:1(:"*** RED ALERT!! RED ALERT!! ***":!("*** COLLISION IMMINENT!!":.(14640:w7=.75:a$=q$(s6,s7):a$="R"w7=1.1(a$="C"w7=1.58(s5$;" on collision course with v - 'Warp factor ";w1;", Captain.'":O-"Engineer Scott - 'Aye, Captain, but our maximum safe speed is Warp 6.'":J(-"Engineer Scott - 'Aye, Captain, but our engines may not take it.'":=2-"Ensign Chekov - 'We can't go below Warp 1, Captain.'":=<-ٺ,ns(x,y)=ns(x,y)+10::i=d0)::s0=0,,t2=a(1):t3=a(1):g(t2,t3)<10011460,7680::12370:6020:$,"Warp factor: ";k::k<111570,k>1011580,j=w1:w1=k:w2=w1*w1,w1<=jw1<=611540-w1<=811550 -w1>8115607-"Ensign Cheko'j,g(x,y)=g(x,y)+100:c1(i)=x:c2(i)=y: t,i=1np'~,x=a(1):y=a(2):ns(x,y)>0113905,ns(x,y)=1:pl(i,1)=x:pl(i,2)=y:pl(i,3)=1)*3)+1$,pl(i,4)=1.95*1)):pl(i,5)=0: ,i=1rr(,x=a(1):y=a(1):x=q1y=q211430,ns(x,y)=>1011430'=a(1):g(x,y)+n>99911270,x=q1y=q211270&,g(x,y)=g(x,y)+n:k=k-m:k<>011250 $,i=1i41.,x=a(1):y=a(1):g(x,y)<991)<.75113108,x=q1y=q211310B,g(x,y)>89911310L,i=111370*V,m=i-1:j=1m:c1(j)=xc2(j)=y11310`,j+i<211220/+k=i-1:j=1k:d1=(b2(j)-x)^2+(b3(j)-y)^2)!+d1<2dx=j:j=k::j=dx:11160+j2+b2(i)=x:b3(i)=y:s2(x,y)=-1:g(x,y)=g(x,y)+10:I%+b1=0:k=i1-i4:l=.25*s8*(9-l2)+1) +l>9l=9+m=(1-1)^2)*l):m>km=k +n=100*m*,x=a(1):y1e30%R+f1(2)=d0-1.5*(i5/r2)*1)):i6=0\+f1(3)=d0-.3*i5*1))&f+f1(6)=1e30:f1(5)=1e30:s8<311130p+f1(5)=d0-i5*1)))z+i=18:j=18:k=1)*9+1):i6=i6+k+g(i,j)=k:::s1=0 +i=1i2+x=1)*6+2):y=1)*6+2)+g(x,y)=>10111601):s7=b(1):i9=10:t4=i9! +w1=5:w2=25:i=1v9:d4(i)=0:3*+rk=0:i6=0:im=0:cr=0:ic=0:pk=0:sc=1:ld=-1:cp=.05<4+j2=100*21*1)+30):d0=j2:k1=0:k2=0:n1=0:n2=0:r6=0:c4=07>+a1=1:d3=.25:i=18:j=18:s2(i,j)=0:ns(i,j)=0::%H+f1(1)=d0-.5*i5*1)):f1(4)=s$(s8);" game";58);l>*15);"-------------------------------------------------""*48);"Total";58);j;" **":$*a2=0:g1=0:1980:s5$="Enterprise"+pr=3:ps=0:z3=05 +i7=5000:e1=i7:i8=2500:s3=i8:s4=0:s9=s4:j1=4:l1=j17+q1=a(1):q2=a(1):s6=b(100*b1*pk=010910,*10750;pk,"Planet(s) destroyed",-10*pk*n1=0109302*10750;n1,"SOS call(s) to a Starbase",-35*n1*c4=010950)*10750;c4,"Casualties incurred",-c4*m=010960*g1=010980:*15);"Bonus for winning the ";oyed",20*rk:*rr=0g1=010830(D*10750;rr,"Romulan(s) captured",rrN*k=0108506X*10750;r(n),"Klingons per Stardate, average",kb*s1=010870)l*10750;s1,"Star(s) destroyed",-3*s1v*b1=010890/*10750;b1,"Starbase(s) destroyed",-et, you have no score.":#)"Your score --"::k1=010770) 3#.2#,8X,42A,4#.2#5*10750;k1,"Ordinary Klingon(s) destroyed",10*k1*k2=0107906*10750;k2,"Klingon Commander(s) destroyed",50*k2&*rk=010810,0*10750;rk,"Romulan(s) destrr1=010650 )p<5p=5!)n=(k2+k1)/p:k=500*n+.5):l=0)g1<>0l=100*s8)i=0:s5$,1)="E"m=0)s5$,1)="D"m=1)s5$,1)=""m=20)j=10*k1+50*k2+k+l-100*b1-100*m-35*n1-3*s1-c4")j=j+20*rk-10*pk:g1<>0j=j+rr):j<>010740#)"As ys6,s7))")2900:"*** ";s5$;" heavily damaged.";,)k=5+1)*20):"*** Sickbay reports ";k;" casualties!"6)c4=c4+k:l=1v9@)d4(l)<010600J)j=(3*w7*1)+1)*d5 T)l=6j=0^)d4(l)=d4(l)+jh)lr)s4=0:r1<>0|)f9=1:4400:)p=d0-j2:p<>0";:16050:a$;" at";(" sector ";s6;"-";s7:*("Sulu - 'Shall we ram him, Sir?' ";b$$(b$,1)="Y"b$,1)="y"10510)(:"Scotty - ''Full reverse warp!'": )6540:#)"*** ";s5$;" rams ";a$;" at ";2)"sector ";s6;"-";s7:a5=s6:a6=s7:t2$=q$("Ensign Chekov - 'Our top speed is Warp 10, Captain.'":F-j3=0:d4(8)<>011710P-s4<>0116406Z-"The Shields are down. Do you want them up? ";b$$d-b$,1)="Y"b$,1)="y"11670n-6x-"The Shields are up. Do you want them down? ";b$$-b$,1)="Y"b$,1)="y"11700-&-s4=1:s9=1:c5$<>"Docked"e1=e1-50$-"Shields raised.":e1<=011720 -j3=1:(-s4=0:s9=1:"Shields lowered.":j3=1:"-"Shields damaged and down.":/-:"Shields use up the last of the energy."-f9=4:4400:ptain.'"$(2:s3=s3+e1-10000:e1=10000:1286022e1=e1+s3-j:s3=j%<2"-- Energy Transfer Complete --"=F2"(Ship energy=";r(e1);" Shield energy=";r(s3);")"P2j3=1'Z2t1=.1:p5=(nh+4*c3)/48:p5<.1p5=.1d2p5>1)920 n2a2<>0 x23370: 2""Scotty - 'The Shields can't hold more than 2500 ";$1"units, Captain.'":=-1:127602e1+s3-j>012820> 2"Mr. Scott - 'We only have ";r(e1+s3);" units left.'":2e1+s3-j<=1000012850C2"Scotty - 'The reserves will hold only 10000 units, Ca;" left":12730%1"In flight to ";xi;"-";yi:127301" Klingons left ";r1*1i:k);" Time Left ";s(r5):%1"Short range sensors damaged.":1j3=0:d4(12)<>01293011"Number of units to the Shields? ";j:j<01j<=25001280081cr=0"No" `112730"j1" Torpedos ";t4:127307t1" Shields ";:b$="Down, ":s4<>0b$="Up, "~1d4(8)>0b$="Damaged, "91b$;100*s3/i8+.5);"% (";s3+.5);" units )":12730,1" Probe Status ";:f1(6)<1e30127101"Idle: ";pr1;"-";q2;", ";s6;"-";s71l5<>0" ";n9$ 112730*$1" Life Support ";:d4(5)<>012600.1"Active":12730(81"Damaged, Reserves=";s(l1):12730'B1" Warp Factor ";r(w1):12730:L1" Energy ";.01*100*e1);"/ ";:cr=1"Yes"V1k$0i12490,12500,12540,12580,12610&0i-512620,12650,12660,12690,12720'0" Stardate ";r(d0):127300c5$<>"Docked"7620*0" Condition ";c5$;:io=112530 0:127300" / in Orbit":127300" Position ";$1l5=0q0z4<>012260H0R0d4(1)<>012740\0k=35:l5=0s2(q1,q2)=1*f0:" 1 2 3 4 5 6 7 8 9 10"p0i=110:i<10" ";z0i;" ";:j=1100z3=012450&0q$(i,j)<>"K"q$(i,j)<>"C"124500".";" ";:124600q$(i,j);" "; 0j:=;" has just destroyed the last Klingon.'"/f9=1:4400: /a2=0/f9=8:4400: /nh<=1 /a=nh-1/z4=0"/o=1a:k7(o)<=k7(o+1)12340/k7(o),k7(o+1)0k8(o),k8(o+1) 0k4(o),k4(o+1)0k5(o),k5(o+1) 0k6(o),k6(o+1)*0z4=140>n/10)*10):b1=b1+n/10)#l/k1=k1+r:k2=k2+q:pk=pk+c:rk=rk+a-v/s2(x,y)>0d4(9)<>0s2(x,y)=g(x,y)+1000%/d4(9)=0(q1=xq2=y)s2(x,y)=1/g(x,y)=1000/r1<>0(x=q1y=q2)122208/:"Mr. Spock - 'Captain, a supernova in quadrant ";5/x;"-";yc=012070+/l=1np:pl(l,1)<>xpl(l,2)<>y12060/m=15:pl(l,m)=0:/&/r3=012110'0/l=1r3:b2(l)<>xb3(l)<>y121007:/b2(l)=b2(r3):b3(l)=b3(r3):b2(r3)=0:b3(r3)=0:r3=r3-1D/N/x2=012150X/n=g(x,y)-g(x,y)/100)*100&b/s1=s1+(n-11960.k3=0:c3=0:rh=0:nh=0.r=012020.r1=r1-r:r2=012020'.l=1r2:c1(l)<>xc2(l)<>y12010/.c1(l)=c1(r2):c2(l)=c2(r2):c1(r2)=0:c2(r2)=0'.r2=r2-1:r=r-1:q=1:r2=0f1(2)=1e30.5.x6=ns(x,y):ns(x,y)=0:a=x6/10):rr=rr-a:c=x6-10*a.511930;r."*** Emergency Auto-Override Jammed ***":a2=1:11930|.d4(9)<>011930?.:"Message from Star Fleet Command...Stardate: ";r(d0):>."'Supernova in quadrant ";x;"-";y;".....Caution advised'".n=g(x,y):r=n/100):q=0.x<>q1y<>q2"11830>,.n=n-1:n=0dx=y2:y2=10::y2=dx:dx=x2:x2=10::x2=dx:118406.:-@.:"*** RED ALERT!! RED ALERT!! ***"J.x3=x2:y3=y2:BT."*** INCIPIENT SUPERNOVA DETECTED AT SECTOR ";x3;"-";y3#^.x=q1:y=q2:k=(x2-s6)^2+(y2-s7)^2h.14640:k>1.-x2<>011840"-n=1)*i6+1):x=18:y=18N-n=n-(g(x,y)-g(x,y)/10)*10):n<=0dx=y:y=8::y=dx:dx=x:x=8::x=dx:11780 -y:x:.x<>q1y<>q211900.j4<>011900(.n=1)*(g(x,y)-g(x,y)/10)*10))+1.".x2=110:y2=110:q$(x2,y2)<>"*Transfer panel damaged.":2"Which direction? ";zx:2j3=0:zx<02d1$="D"zx=d(zx)2zx<=1213010"2"Use 0 to ";:d1$="C""12";2d1$="D""360";2" only.":12940'2t1=.05:p=(k3+4*c3)/48:p<.05p=.052p>1)920 2a2<>023370:j3=1:a2<>0j4=1#2d5=(zx/12)*8+1.5):d5>8d5=1'3i=15:j=15:v$(i,j)=" ":::n=03v$(3,3)=s5$,1)73d513090,13130,13170,13210,13250,13290,13330,133707"3i=s6-2:j=s7-2:v$(1,1)=q$:j>0i>0v$(1,1)=q$(i,j)7,3i=s6-1:j=s7-1:v$ost ";100*t1/r5);" percent of our remaining time."+<7=9:"Are you sure this is wise? ";b$:F7d4(10)=-1015780"P7d4(10))+214170,14190,14180(Z7"The Darius has no shuttlecraft.":d7"Shuttlecraft damaged.":Tn7"Are you sure you want to abantt here - ";*6"'We've just blown the Warp engines."77" We'll have to shut 'er down here, Captain.'" 7d4(6)=d5*(3*1)+1) 7j3=1:7"Warp Engines damaged.":F(7"Spock - 'Captain, I compute that such an operation will require"B279);"almn::l=dx:1401076y=y+y1:r=y+.5):r<1r>10dx=l:l=n::l=dx:140106q$(q,r)="."140006q4=0666230:a2<>0)6e1=e1-d1*w1*w1*w1*(s4+1):e1>0140406f9=4:4400:6t1=10*d1/w26q4=01410076:"Engineering to Bridge -":" Sco6-w1)^2/66.66666:p>1)q4=1B6q4<>0d1=1)*d1L6q4=014010'V6a=(15-d2)*.5235998:x1=-a):x2=a)#`6b8=x1):x2)>x1)b8=x2)0j6x1=x1/b8:y1=y1/b8:n=10*d1*b8+.5):x=s6:y=s7t6n=014010 ~6l=1n76x=x+x1:q=x+.5):q<1q>10dx=l:l= it at Warp ";g5s4<>0138105*5" if you'll lower the shields.":@5" We can't do it, Captain. We haven't got the energy."6 6t1=10*d1/w2:t1<.8*r513870614120:b$,1)="Y"13870 $6j3=0:.6q4=0:w=0:w1<=614010(86p=d1*(1+.5)*w1^3*(s4+1):pe113770G5" We haven't the energy to go that far with the shields up.":+5w=(e1/(d1+.05))^.333333):w<=013820@5" We haven't the energy, but we could do=0:D4(6)<>014110H5LD<>113660 R56010:E\5C5$="Docked":"Mr. Sulu - 'We must undock first, Captain.'":f5z=013700p52370:a4<0a3<0 z513710(5"Enter Course and Distance: ";d2,d15d2<0d1<=05d1$="D"d2=d(d2)&5p=(db$,1)<>"Y"b$,1)<>"y"4r6=14z5<=0r6=0 4r6=04t1=z5:z6=z54k3=0135704t1=1+1):z5053370:j3=1:a2<>0 5z5=z5-z6:l5<>013510*5g(q1,q2)<>10001351045r6=0:t1=0:>5J3v$(2,1)=q$:i>0j>0v$(2,1)=q$(i,j) b413090 l4i=151v4v$(i,1)=" "v$(i,3)=" "v$(i,5)=" "13460 4" ";4j=15:v$(i,j);" ";::4:.4J3=0:"How many Stardates? ";z5$:z5=z5$)4z50v$(4,2)=q$(i,j)&4n=n+1:n=313420104j=s7-2:v$(4,1)=q$:i<11j>0v$(4,1)=q$(i,j),:4j=s7-2:v$(3,1)=q$:j>0v$(3,1)=q$(s6,j),D4j=s7-1:v$(3,2)=q$:j>0v$(3,2)=q$(s6,j)N4n=n+1:n=3134207X4i=s6-1:j=s7-2:5,4)=q$:i<11j<11v$(5,4)=q$(i,j)-3i=s6+2:v$(5,3)=q$:i<11v$(5,3)=q$(i,s7)-3i=s6+1:v$(4,3)=q$:i<11v$(4,3)=q$(i,s7)3n=n+1:n=31342084i=s6+2:j=s7-1:v$(5,2)=q$:i<11j>0v$(5,2)=q$(i,j)84i=s6+2:j=s7-2:v$(5,1)=q$:i<11j>0v$(5,1)=q$(i4)=q$:j<11v$(3,4)=q$(s6,j)3n=n+1:n=31342093i=s6+1:j=s7+2:v$(4,5)=q$:i<11j<11v$(4,5)=q$(i,j)93i=s6+2:j=s7+2:v$(5,5)=q$:i<11j<11v$(5,5)=q$(i,j)93i=s6+1:j=s7+1:v$(4,4)=q$:i<11j<11v$(4,4)=q$(i,j)3n=n+1:n=31342023i=s6+2:v$((1,4)=q$(i,j)8r3i=s6-2:j=s7+2:v$(1,5)=q$:i>0j<11v$(1,5)=q$(i,j)8|3i=s6-1:j=s7+1:v$(2,4)=q$:i>0j<11v$(2,4)=q$(i,j)3n=n+1:n=31342013j=s7+2:v$(2,5)=q$:i>0j<11v$(2,5)=q$(i,j)-3j=s7+2:v$(3,5)=q$:j<11v$(3,5)=q$(s6,j)-3j=s7+1:v$(3,(2,2)=q$:i>0j>0v$(2,2)=q$(i,j)63n=n+1:n=3134200@3i=s6-2:v$(1,2)=q$:i>0j>0v$(1,2)=q$(i,j),J3i=s6-2:v$(1,3)=q$:i>0v$(1,3)=q$(i,s7),T3i=s6-1:v$(2,3)=q$:i>0v$(2,3)=q$(i,s7)^3n=n+1:n=3134208h3i=s6-2:j=s7+1:v$(1,4)=q$:i>0j<11v$don the ship? ";b$:b$,1)<>"Y"b$,1)<>"y"Ds7:"76C";"***** ABANDON SHIP! ABANDON SHIP! *****":Bx7"76C";"***** ALL HANDS ABANDON SHIP *****": 71464057"You and the Bridge crew escape in the Galileo."Z7"The remainder of the crew beams down to the nearest habitable planet.":r3<>0142507f9=9:4400:R7:" You are captured by the Klingons and released to the Federation in a"Q7"prisoner-of-war exchange. Star Fleet puts you in command of another shidamaged.":d4(10)<>07;:"Spock - 'I suggest we use the Galileo, Sir.'":;io<>015320:;"Mr. Chekov - 'We are not in standard orbit, Sir.'":;s4=015340?;"Scotty - 'We can't beam through the shields, Captain.'":;pl(ip,5)=115360RMr. Sulu - 'Entering standard orbit, Sir...":7620`;j3=1:3370:a2<>0j;l5<>015230t;g(q1,q2)=1000 ~;j4<>00;ht=1400+7200*1)):13);"Altitude: ";ht;;" Kilometers.'":io=1:;i=11000::;d4(14)=015300);"Transporter 'We are already in standard orbit, Sir.'":;d4(6)=0d4(7)=015150*$;"Warp and Impulse engines damaged.":.;px=015170(8;(s6-px)<=1)(s7-py)<=1)15180*B;s5$;" is not adjacent to a planet.":&L;t1=.05+.03*1):d4(6)>0t1=t1*108V;"";10);"Dilithium"::i=1np:pl(i,5)=0150909:j=1:16);pl(i,1);" - ";pl(i,2);34);pl(i,3)+76);":50);:l=pl(i,4):l=0" No":l<>0"Yes":i:j=1.:=19:"No information is available yet.":;j3=0:io=015130<;"Mr. Sulu -eless!":14900@p:" and beams up the mining crew just in time!":im=0150007z:im=0::"The crystals mined were ";:1)>.514990:"lost.":15000:"saved.":cr=1::ig<>0 :ic=0:f9=15:4400:::j=0:=141:"Quadrant";10);"Class'"::ig=1 :ld<>115000*:d4(14)=0149104:f9=6:4400:1>::"Scotty rushes to the Transporter room..."H:s4<>014950R:d4(14)=014960@\:" but with the Transporter damaged, it's hopeless!":149007f:" but with the Shields up, it's hop$<>"Docked"e1=e1-200999:"Format is 'X,Y'...Comma is required. Range of ";'9"X and Y is from 1 to 8."::147509c5$="Docked"1485059"Mr. Sulu - 'But, Captain, we're not docked!'": :76203 :"Mr. Sulu - 'Undocking maneuver completed.e - 'Sorry, Captain, we haven't the energy to spare.'"929"Destination quadrant: ";xi,yi:xi<0yi<0 9xi<>xi)yi<>yi)14810"9xi<1xi>8yi<1yi>81481059f1(6)=d0+(3*1)+1)::"Expect Probe report at ";19r(f1(6)):pr=pr-1:c5a:::::9f1(6)=1e3014680?D9"Mr. Sulu - 'We already have a Probe in flight, Captain.'"N9X9pr>014700:b9"Mr. Sulu - 'We haven't any Probes left, Captain.'":l9d4(13)=014720v9"Probe launch damaged.":9e1>20014750F9"Scott her1k:k6(l)*k7(l)>w14580)8a5=k4(l):a6=k5(l):t2$=q$(a5,a6):29008dx=l:l=k::l=dx:145408l8f9=10:4400:9"Password-Rejected"9"Continuity-Affected"::9m=150:k=k-k::7);:&9k=1:i=110:12470:)09i=125:7);:m=14:a=a-equence-Otherwise-Destruct"48"Sequence-Will-Be-Aborted...";b$:b$<>x$146008"Password-Accepted":j=10&8i=51-1:j);i:14620:j=j+3:?8:"******** Entropy of ";s5$;" Maximized ********" 8:w=20*e18nh=0r1=014590&8k=nh:l=execute destruct sequence."J8T8:" ---- Working ----""^8:"Identification - Positive"+h8"Self-Destruct-Sequence-Activated":j=3 r814640'|8i=106-1:j);i:14620:j=j+3:.8"Enter-Your-Mission-Password-to-Continue"08"Self-Destruct-Sdx=l:l=3::l=dx:14350 8l:1429008s5$="Darius":q$(s6,s7)=s5$,1):c5$="Docked".8l=1v9:d4(l)=0::d4(10)=-1:e1=3000:i7=e17"8s3=1500:i8=s3:t4=6:i9=t4:l1=3:j1=l1:s4=0:w1=5:w2=25,8cr=0:im=0:pr=1:68d4(11)=014420;@8"Computer damaged - cannot p,"57"the Darius, which is somewhat antiquated, but";67" still usable.":n=1)*r3+1):q1=b2(n):q2=b3(n)!7s6=5:s7=5:7680:q$(s6,s7)="."7l=13:s6=3*1)-1+b6)7s6<1s6>1014340)7s7=3*1)-1+b7):s7<1s7>1014340*7q$(s6,s7)=".";"Spock - 'Captain, regulations require we run a planetary analysis first.'":1im=1cr=1 2015390AF<"Mr.Sulu - 'We can't leave the Galileo on the planet, Sir.'"P<Z<:j3=0:ld=115470(d<"Mining party not on the planet.":n"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"THE BEST OF ED GOODING'S ///s COMPANY BBS : DISK 1 a$="*"a$="Star">a$="B"a$="Starbase">a$="@"a$="Planet">a$="K"a$="Klingon">a$="C"a$="Commander">a$="R"a$="Romulan">$=te *":ld=1:ic=0:?b>"You and the mining crew board the Galileo for the trip ";l>"back.":ic=1:ld=-1v>j3=1:3370:a2<>0>l5<>016020>g(q1,q2)=1000 >j4<>0>ic=0:sc=1:im<>0cr=1.>im=0:i=11000::"* Trip Complete *":>er use the Transporter, Captain? ";b$">b$,1)<>"N"b$,1)<>"n"C&>"Mining party boards the Galileo and heads toward the planet.""0>ic=1:sc=0:j3=1:3370:a2<>0:>l5<>015950D>g(q1,q2)=1000 N>j4<>03X>i=11000::"* Trip comples4=0c5$<>"Docked"158204="Shuttle craft cannot penetrate the shields.":=pl(ip,5)<>115350=t1=3e-5*ht:t1<.8*r515860=14120:b$,1)="Y"15860 =j3=0:=ld<>115910=sc<>115970>d4(14)<>015910B>"Spock - 'Would you rathy;" is class ";pl(ip,3)+76);.r=". Readings show ";:pl(ip,4)=0"no ";&|="Dilithium present.":pl(ip,5)=1:=j3=0:d4(10)=015790=d4(10)>014180=d4(10)=-1141704="Shuttle craft was captured by the Klingons.":=:io<>115310=cuits activated...Loading...";:15260,=1)>cp15680)6="She's gonna blow!!":14640:14520:9@=e1=e1+4000*(1+.9*1)):"It worked, Captain!!":cr=0:J=d4(1)<>012740T=:px<>015720%^="No planets in this quadrant.":8h="Planet at ";px;"-";p0 units of energy, Captain.":<=13:"The Matter/Anti-matter Integrator will blow if"!<=13:"we overload it now.":4="Scotty - 'It's a risky operation, Captain. ";(="Do you still want to try it?' ";b$"=b$,1)<>"Y"b$,1)<>"y"0"=:"Cir>"Y"00155400(<"Mining operation complete.":im=1: