íEíCfÃçü       Initializing Media      y expander. But it may be age of the expander. [Orphan] ---------------------------------------------------------------- REPLY.........Am a little lost....WHAT did you buy from Terry and just WHAT did he send you???? The HD idea is a good one, and works well. Do you have any other programs that will access the memory expander... such as Filemanage, or Backup 3.0??? ADAMcalc will use it as a printer buffer so you can get back to work with the calc program ....a possible way to test it. Also, did you reconfFIRST DIR  Uªÿ BOOT       DIRECTORY  ØDeadADAMA 1stREADMEA€RegisterA AC13P     

HELLOANUA©WEXIT-MENUA@WSIGNMAKERAâWWEEKDAYAH$%WWALLCALNDRA'VWAPPSCALNDRA2OWLABELMAKERA6`WINDEXLABELA9¶WBANNER-ffA=KWBANNER-ssAAWGREETINGSAE`WREPDGNCARDALÀWLOVEPRINTAQnths of indiffence :) it would no longer boot with the memory card in- stalled. May be a problem with the addition of the other interface cards. But when I uninstalled them still had the same problem. [Orphan] ---------------------------------------------------------------- REPLY:One thing to remember about TDOS is that it assumes it's always going to be loaded with a setup similar to the system where it was first installed. In other words, if you installed TDOS on a system where there was no memory expÌ1 ×69                        SAGA OF A DISGRUNTLED ADAMite !!! ***************************************************************** HELP MESSAGE....Adamites Looking for a software hook up for the ADAM. Bought the hardware from Adams House. The software he shipped only works with a specific drive. Would like my software put on the hard drive to preserve the disk and carts from my little girls warm hands. Any help would be appreciated. Also have a bug develop in my T-DOS. It no longer works with my 64k Memorigure TDOS and not have the mem expander inserted good???? [Bob]----------------------------------------------------------------- HELP POST FROM SENDER: Thanks for the feedback Bob. Bought an interface card for hardrive and an interface card for dot matrix printer and monitor. The software sent will only work with a Micro hardrive. This fellows follow up is terrible. Will not get any of my business in the future.  My T-Dos was configured to run with the 64 K memory card, but when I rebooted ater a few mo[WBUNNYARHTWSAMPLESAWÏWREPEATAYöWELECTRICA\åWSKYLINESA`~WWORDSEARCHAc6WMATPUZZLEAjlWAMAZINGAHnÕWBINGOAHHr%WFRUITSAHw,WCALNDRFORMH}@ASSETSAHAˆ WFINANCPLANA¹Wreadme_1stH”

BLOCKS LEFTžBLOCKS LEFTž.ander, and wrote the system thus generated to a boot disk, that boot disk will not recognize a memory expander if you decide to put one in later. You have to re-install TDOS with everything hooked up and plugged in (or installed) that you intend to use on that system. It may well be that you've already done this and if so we've still got a problem, but reinstallation of TDOS is one thing that you can try if you haven't already. As for the hard drive setup, unfortunately, the Micro Innovations System only woor your system not being able to see yours. Tell me more. What's your setup now? What was it before you installed the hard drive? And have you attempted to re-install the system since you got it from ADAM's House? [Ron Mitchell] ----------------------------------------------------------------- ADDITIONAL REPLYThe HD interface card is compatible with ANY IDE harddrive, you have to set it up, partition it, initialize it, and install the sytems (TDOS & EOS) on it in order for ADAM to use it REPEAT, do you  installed. Are you now trying to boot exactly the same system; (ie... I have the impression that you've added a hard drive. Before the addition of the hard drive, did it boot ok? And when you booted it, did you set it up so that the memory expander was drive A: or did you have the memory expander assigned as the last drive; ie, B: C: D: or whatever? If you had assigned it Drive A:, and it would not boot unless the memory expander was there and working. What kind of message do you get when you try to boot load anythingon to it. Is there a new T-DOS that someone would send to me that would see the Hard drive. My T-DOS is about 12 years old. [Orphan]----------------------------------------------------------------- REPLYSeagate 44 meg is GOOD! and IF it formatted ok, it is good. You MUST! repeat MUST! start from ground ZERO here. You have only the simplest beginnings so far. You must partition the HD under a special program; initialize those partitions; initialize the EOS partitions; copy programs onto the expander if assigned last, comes after or before the tape drives. I have my 512K memory expander assigned as drive E: Then after that there's Drive F: (my first disk drive Drive G: (my second disk drive) Drive H: (my first tape drive) Drive I: (my second tape drive)  Gets rather confusing, and I don't know if I'm explaining it very well. Suffice it to say, that if your TDOS system came from ADAM's House, pre-installed, it may have been installed without any memory expander present, and that would account frks with Micro Innovations gear. I honestly wish it were otherwise, because the guy who produced all that stuff is no longer on the scene. It's left some of us with some compatibility problems.   Tell us what kinds of drives you're attempting to use, and what kinds of software. There may be way's around some of it. [Ron Mitchell]---------------------------------------------------------------- ADDITONAL REPLY MESSAGE:]Oh yes, one other thing. You say that your system used to boot with the memory expanderhave ANY copy program such as FILEMANAGER or BACKUP 3.0 ??? They will USE that expander and you will KNOW if it is good!!! ++++ [Bob] -------------------------------------------------------------------HELP POST FROM SENDER Have a seagate 44 meg harddrive hooked up to my adam through the hard drive interface bought from ADAM's House(Ha Ha). The ADAM does not regonize the drive as being there but T-DOS sees a B0: drive that it says it cannot use.   The drive has been formated in msdos. I have been unable to it with the memory expander installed?  With the Micro Innovations hard drive installed, your first 4 logical drives would be on the hard drive, ie: A: B: C: D:. Following that, depends on a choice that you make when you install TDOS as to whether or not you want the memory expander to be the next one in the sequence, or instead, you first disk drive. If you want your first disk drive to be drive E: then the memory expander goes to the bottom of the pile. Can't quite recall at this point whether the memory EOS & TDOS partitions...... THEN and only then can you access it! DID Terry send you ANY instructions AND/OR ANY disks to do the above things?????? A new TDOS will do you no good, the system MUST be followed!!!! [Bob]                   -----------------------------------------------------------------HELP POST FROM SENDER: I want you to send me your email address (can't get it here-either I am too dumb to figure it out or they just don't want to display it) and I will send you a .jpg of the IDE harddrivem into his ADAM.  BUT, Mr Murphy struck again !!!!  The new found parts did not seem to work; at least not to the owner's satisfaction.   NOW! I want you to closely follow the replies to Orphan about his ADAM and the upgrades purchased.  You will notice that he does not seem to be communicating along the same lines as the replies he sought. The sad part  of the entire situation is that Orphan finally threw in the towel on his ADAM and its upgrades about 8 months after communications stopped with users whseems to know the drive is there but will not work with it. Have tried formating the hard drive without any break through. Thanks for all the feedback. May your ADAM live forever! [Orphan]---------------------------------------------------------------- HELP POST FROM SENDER: Will take a lok at that JPG Bob. Thanks [Orphan]++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++NO MORE HELP NEEDED ` GOING TO SELL!!!!!!Its gnot wanting to accept help - disposed of a working harddrive interface, hard- drive, printer interface card......ALL BECAUSE he would not keep the lines of communication open to those around the web who know the ADAM and can put it into operational condition.Other than web access, the ADAM is a very versatile computer and can do wonderous things - IF only the user will let it !!!!   With the harddrive upgrades, memory expanders, disk drives, printers, monitors, etc; the ADAM is truly a computer that can too Auctions. [Orphan8431]+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++THE ABOVE CONVERSATION (VIA EMIAL)  TOOK PLACE IN LATE 1999 AND ON INTO 2000.IF you follow the conversation closely, you will find an eager ADAM owner ready, willing and eager to put some hard earned cash into upgrading his ADAM computer.  A good thing you might say, and you would be correct !!!!  He found the right parts, purchased them and installed the controller for the ADAM - then you can see if that is what you truly bought! Come to think of it.....http://home.att.net/~r.slopsema/EbayPics/ HD.JPG....download it and see if it matches your controller. IF it does not! you may indeed have an MFM controller in which case it takes an entirely different set of install disks..... [Bob]----------------------------------------------------------------- HELP POST FROM SEMDER:As I have stated the T-DOS programs will only work with the MICRO drive. In TDOS it o KNEW how to get his ADAM working with the upgrades he had  purchased.  It took Orphan about a month or so to purchase his harddrive and boards; about 2 months to ask for help; probably a few weeks to try it on his own; and then........8 months to decide to dump the whole entire computer along with the upgrades he purchased. The sad part of the entire situation is that we can be almost POSITIVE that Orphan - either because of not under standing the questions asked of him/her OR self taught know- how and ot to go. This is fully loaded with every thing you can think of except the hardrive. Coleco Adam with 5.25 disk drive-2 tape drives installed-64k memory expander-harddrive interface board- parellel printer and monitor interface card-printer + 2 none working units good for external power supplies-2 key boards one not working-extra tape drive-Software on tape and disks.Also a Roller ball controller. Extra tapes brand new never opened. Print wheels. If you are looking for an old friend check it out at Yahake on the new millinium and do it grandly!!!!!ASK FOR HELP !!!  IT IS FREE AND VERY FREELY GIVEN AWAY TO YOU !!!  USE IT !!!                                                         =                        .OGNIB on fi emag fo noitpmuseR )4  =                         .noitpo emag wen trats ro tiuQ )5  =*----------------------------------------------------------*=     STIURF nur                         EMAG EVITCETED TIURF= anquet   /in room with 2 adults                 /in room with 2 adults          $ 120.00                                $ 45.00 ---------------------------------------------------------------- Full Delegate .. Fri-Sat Sun      Non-Delegate Spouse . Fri-Sat-Sun 3 nights room, 3 days meals,     3 nights room-2 breakfast- Sun all sessions                                               banquet           $230.00                                $160.00 ----------------------------------------------------------Ì1 ×67              ADAM NEWS NETWORK MAY 2001 DISK~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~We have the "official" registration form for ADAMCON 13 right here for you to print out and fill out before sending it on to Mr Rich Drushel.  We have a file containing email correspondence from an ADAMite who had good intentions for his ADAM, but who somehow lost interest or desire and finally sold the whole business just because he would not ask for help and listen to the replies he was tion fee in advance through installments. Mail all payments in US funds (checks payable to "ADAMcon 13") to:  Richard F. Drushel  3353 Mayfield Road  Cleveland Heights, OH 44118-1329 USA-------------------- REPLY:One thing to remember about TDOS is that it assumes it's always going to be loaded with a setup similar to the system where it was first installed. In other words, if you installed TDOS on a system where there was no memory expÌ1 ×68ADAMcon XIII Fee ScheduleFull Delegates and Families Full Delegate ...... $275.00      Non-Delegate Spouse .. $200.00 4 nights room, 3 days meals,     4 nights room-3 breakfast- Sun all sessions                                             banquet ---------------------------------------------------------------- Full Delegate Child (under 18)    Non-Delegate Child (under 18) 4 nights room, 3 days meals,     4 nights room-3 breakfast- Sun all sessions                                             b .retupmoc eht yb detceles stiurf ruof fo redro eht sseuG  =    eht dnif pleh ot stuotnirp depyt dna yalpsid cihparg esU=                               .noitanibmoc hcae ot noitulos=*----------------------------------------------------------*=  elif retirwTRAMS **                             MROFRDNLAC= ylhtnom egral a tcurtsnoc ot erutaef ypoc retirwTRAMS esU  =       .seton dna stneve ,srednimer rof secaps htiw radnelac=*----------------------------------------------------------*=     STESSA-------- Full Delegate ...... Sat-Sun      Non-Delegate Spouse... Sat-Sun 2 nights room, 2 days meals,     2 nights room-1 breakfast-Sun 2 days sessions                                       banquet          $160.00                                $120.00  rooms are based on double occupancy   for single room ADD $40.00 per night For other configurations for attendance, including day passes, please contact the Chairman. A payment plan is available for ADAMcon XIII delegates who wish to pay their convengiven. (file called DEADADAM)  The ADAMCON 13 logo is here in PowerPaint format for you to see and print out.  Herman Mason and George Koczwara have a new website....... www.hlm-gmk.comWe also have a PD disk from 463 ADAM library.  Menu driven volume called PRINTSHOP for finding financial data, calanders, etc.  Boot SmartBASIC first, then run HELLO.use it as a printer buffer so you can get back to work with the calc program ....a possible way to test it. Also, did you reconf€€€üü6NB` @øøüüÕU*J•UUUUUUUUUUUUUUUUUUUUUUUU$Œ‡‡‡øøøø?€ðàððø?€€ðƒ‡÷’€ççàøüü?17‘ÿÿðø‰ÿÿ’üøD@øøÀÀððààŒááññùùððððð €ÀðøøÈàøø±7?<@€€ñüèÀþp??0??1Ç;ÃÀàÀàáÆ?ƒÃCÃÃãþ 08Ç>8  þþþþüþ€€Àà€ÀÀáã?€€øðààÀ€€ˆàààààààà@@@@@@@@ƒƒƒƒƒƒƒƒüüüüüüüü		
@@Q]PàJ:‚‡€ªjªp00°°”É%CCc%ž€JJJÌƒƒ `0p€€þüøÇ€€Àà ??€€Ààðøøüàààààààà@@@@@@@@ƒƒƒƒƒƒƒƒüüüüüüüüÿªðÿ¥ÿUÿJþÿªÿ¤àÿ•@ÿ*ƒÿªüÿªððààD½€€€€€€wühüTüüTüX€@@22221˜¨ ÐB"@BBì1Ü””4€…***o€IUQIh))¼žVRFŠªªJ(@ì¨¨,øøøøûûùø  xôþþüøüüüüüüüüýjµÛ¬üüüüt……cLUQlPTˆI '%!Í))	£(†€UU%JJJî¤¥¥dTPØ@BB1©©¨<J*¢”•”ÖŠ*ªÚøøøøøÔø  üüüüü¸€’Áùy€€ÿùãÃðàÀø1088ùññÃÃÿÃÿ»Æ‡ÃÁ€Àøx 0ó€þüøøðàÀÀàààààààà@@@@@@@@ƒƒƒƒƒƒƒƒüüüüüüüüUTT¢‚Â0&0ÎÀLÂ,Ì222DÀÀÀÀÀ?ààðøüüþàààààààà@@@@@@@@ƒƒƒƒƒƒƒƒüüüüüüüüññññññññññññññññOßßïMÞÞOOOÞÞÞßßßßßßOOßßßßßßßßoOooOÞÞÞÞÞÞÞÞÏßÏß?ßÏßññññññññññññññññoOo_oO6OnÎN^ßÏßß_OoßßßmßßßßÞßßOOßßßßßßßßooOooÞÞÞÞÞÞÞÞÏß?ßÏßÏßññññññññññññññññß?ß?ßÏßññññññññññññññññOOOHHOo?ßŽ?ß?ßÏß?ßññññññññññññññññÏß?ßÏßÏßññññññññññññññññ=ñññññññ-ñññññññ-ñññññññ=ñññññññ-ñññññññ=ñññññññ-ñññññññ-ñññññññ-ñññññññ-ñññññññÍñññññññÍñññññññÍñññññññ-ñññññññ-ñññññññ-ñññññññ-ñññññññ-ñññññññ-ñññññññ=ñññññññ=ñññññññ=ñññññññ=ñññññññ-ñññññññ-ñññññññ-ñññññññ=ñññññññ=ñññññññ-ñññññññ=ñññññññññññññññññññññññßßOmßßßßßßßßÞßßßßß=ïoßOßmMmÞmßßßßßßßMMMmMmßßÏß?ßÏß?ßññññññññññññññññßßOooßßßßßßßßßßOßßßßßßßßßÞmßßßßÞOooOÞÞßßßßÞßoßßMßßßßßßßßMmßßßßßßŸïoOßßßßßßßßoOoOoÞÞÞÞÞÞÞÞÏß?ßÏß?ßññññññññññññññññOïï?ï_oïïOoïO_ïooOïo_ÏOßßßßmMßÞßmßßßßßßßßßOOOßßßßßßßßooOoÞÞÞÞÞÞÞÞ?ßÏßÏß?ßññññññññññññññññïïïßßïßßßßoMÞßßOïÏßÏß?ßÏßññññññññññññññññOOOOOOïEHNHNIHïŽïïŸŽïnOoOOOïnïNnoßŽŽŽŸŽŽŽŽÏß?ßÏß?ßññññññññññññññññïŸïïïïïïïŸïïoßNn=ooÎïOoïnooooïnßoïßïïŸŸïŽŽïÏß?ßÏß?ßññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññ5 THEN POKE 17240, 241:POKE 17251, 20:TEXT:POKE 17251, 15:GOTO 7060POKE 17115, 241:POKE 17126, 20:TEXT:POKE 17126, 1570&               100CLEAR:DIM fl$(46)110 bk$=CHR$(8): zz=0150VTAB 2:? CHR$(24); " ONE MOMENT..CATALOGING "180CALL 28900185IF zz=1 THEN 260200HOME:INVERSE:VTAB 24:HTAB 1:? " PRESS ARROW KEYS - <RETURN>  "; :NORMAL210VTAB 1:HTAB 6:? "DIRECTORY:"; :HTAB 17220FOR n=29000 TO 29011230IF PEEK(n)=3 THEN  n=55307:GOTO 250240? CHR$(PEEK(n)); 250NEXT:VTAB 5:HTAB 2:? "ONE MOMENT..":VTAB 52ññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññ=PEEK(64885):IF p=0 THEN 350360POKE 64885, 0365IF p=128 THEN ? bk$; " "; :GOTO 340367IF p=3 OR p=27 THEN 1000368IF p=13 THEN 600370IF p>159 THEN 400375IF p<160 THEN ? CHR$(7); bk$; " "; :GOTO 340400IF p=162 AND v<2+num/2 THEN HTAB h:? " "; bk$; : v=v+1:VTAB v:? CHR$(27); 410IF p=160 AND v>3 THEN HTAB h:? " "; bk$; : v=v-1:VTAB v:? CHR$(27); 420IF p=163 AND h=18 THEN HTAB h:? " "; : h=3:HTAB h:? CHR$(27); 430IF p=161 AND h=3 THEN HTAB h:? " "; : h=18:HTAB h:? CHR$(27); 440IF p>163 THEN ? CHR$(7); 10&            *** CATMENU ***12&               by BOB TARNOWSKI14&           20&            adapted from:22&               MENU-SELECT                by BOB LENNES30LOMEM :3025035POKE 16149, 255:POKE 16150, 255:POKE 64885, 040FOR a=28900 TO 28920:READ v:POKE a, v:NEXT43 cd=PEEK(16821)45DATA  205,138,252,62,8,33,72,113,1,0,0,17,1,0,205,243,252,50,71,113,20147POKE 28904, cd:REM  current drive for catalog50IF PEEK(257)<>255 THEN POKE 16150, 255:POKE 16953, 055IF PEEK(257)=25ññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññ60FOR i=29000 TO 30000 STEP 26270 p=PEEK(i+12):IF p<>16 AND p<>208 THEN 310280FOR t=0 TO 10:IF PEEK(t+i)=3 THEN  t=10:GOTO 300290 lt=PEEK(t+i): fl$(num)=fl$(num)+CHR$(lt)300NEXT t: num=num+1310NEXT i311IF zz=1 THEN 315313IF PEEK(29012)=2 THEN POKE 28912, 2: zz=1:GOTO 180315?:VTAB 3320FOR i=0 TO num-1 STEP 2325HTAB 4:? LEFT$(fl$(i), LEN(fl$(i))-1); :HTAB 19330 f$=fl$(i+1):IF f$<>"" THEN ? LEFT$(f$, LEN(f$)-1)335NEXT340&              345 h=3: v=3:VTAB v:HTAB h:? CHR$(27); 348POKE 64885, 0350 pññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññññ:GOTO 340490GOTO 350600REM  Run File610 x=h/18: y=(v-3)*2615HTAB 1620IF fl$(x+y)="" THEN VTAB 2:FLASH:? CHR$(7); " CANNOT ACCESS-"; :GOTO 680630IF RIGHT$(fl$(x+y), 1)="A" THEN 648632IF RIGHT$(fl$(x+y), 1)="H" THEN 634633VTAB 2:FLASH:? CHR$(7); " *** '"; RIGHT$(fl$(x+y), 1); "' FILE-"; :GOTO 680634ONERR  GOTO 700:IF PEEK(257)<>255 THEN POKE 16953, 95635? CHR$(4); "brun "; LEFT$(fl$(x+y), LEN(fl$(x+y))-1)640ONERR  GOTO 700645IF PEEK(257)<>255 THEN POKE 16953, 95648ONERR  GOTO 700:IF PEEK(257)<>25VTAB (15):HTAB (2):? "                           "75FOR x=1 TO 5000:NEXT97REM     98REM     "INDIVIDUAL PARTS OF ALL CHAR."99REM     100DIM l$(52)105 l=0110FOR x=1 TO 52120READ l$(x)130NEXT x150REM     151REM     "WHAT PARTS TO USE FOR EACH CHARACTER"152REM     155DIM ch$(65, 7)160FOR x=1 TO 65170FOR y=1 TO 7180READ ch$(x, y):NEXT:NEXT185REM     186REM     "SET UP FOR 7 STRINGS FOR EACH LINE ON SIGN"187REM     190DIM p$(7, 7)195DIM j$(7)200HOME:NORMAL210IF l=0 THEN GOTO 270214REM    10HOME:?:INVERSE:? " YOU ARE NOW IN SMARTBASIC ":NORMAL:?:?:NEWÈHELLOARCHHÍWSIGNMAKERAOWLABELMAKERA\WBANNER-FFA*WEXIT-MENUAWwsASEARCHAWWORDSEARCHA+WBLOCKS LEFT&zAB (5):? "& = border ,@ = box,"310VTAB (17):HTAB (2):? "` = arrow down, NO '_' or ','"320VTAB (19):HTAB (5):? "Maximum - 10 Characters"330 wo$(l)=""340VTAB (21):HTAB (12):? "__________|"350VTAB (21):HTAB (11):INPUT wo$(l)400IF wo$(l)=CHR$(27) THEN  l=0:GOTO 200410 m=LEN(wo$(l))415IF m>10 THEN 1045420 z=1430 h$=MID$(wo$(l), z, 1): n=ASC(h$)-31440GOSUB 1000450FOR x=1 TO 7460 g=VAL(ch$(n, x))470 p$(l, x)=p$(l, x)+l$(g)480NEXT x490 z=z+1:IF z<=m THEN GOTO 430500IF m=10 THEN  t(l)=0:GOTO 6305105REM     "SIGNMAKER by DAR 11-86"7REM     SGNMKR5 5-878REM   - modified by Dean Roades of 463...ADAM - 198720IF k$="M" OR k$="m" THEN ? CHR$(4); "run HELLO"30POKE 16953, 040TEXT50INVERSE54VTAB (9):HTAB (2):? "                           "55VTAB (10):HTAB (2):? "   WELCOME TO SIGNMAKER    "57VTAB (11):HTAB (2):? "                           "60VTAB (12):HTAB (2):? "  Each line has a maximum  "65VTAB (13):HTAB (2):? "of 10 characters and spaces"70VTAB (14):HTAB (2):? "      Maximum 7 lines      "715 THEN POKE 16953, 95650? CHR$(4); "RUN "; LEFT$(fl$(x+y), LEN(fl$(x+y))-1):IF d%=4 THEN ? 5655? 1660END680? "SELECT ANOTHER"; :NORMAL:FOR de=1 TO 2500:NEXT681VTAB 2:HTAB 1:? "                              "; 690VTAB v:HTAB h:? " "; :GOTO 340700 e=ERRNUM(0):CLRERR710IF e=8 THEN ? " READ ERROR. RE-INSERT MEDIA.":CLRERR:FOR t=1 TO 1400:NEXT:RUN720TEXT:? "ERROR#"; e790POKE 16953, 95:END1000POKE 16953, 95:TEXT:END=161 AND h=3 THEN HTAB h:? " "; : h=18:HTAB h:? CHR$(27); 440IF p>163 THEN ? CHR$(7);  215REM     "PRINTS LINES ENTERED ON SCREEN"216REM     220VTAB (1):HTAB (10):? "------------"230VTAB (9):HTAB (10):? "------------"240FOR x=2 TO 8250VTAB (x):HTAB (10):? "|":NEXT260FOR x=1 TO l:VTAB (1+x):HTAB (11):? wo$(x):NEXT265FOR x=2 TO 8267VTAB (x):HTAB (21):? "|":NEXT268FOR x=1 TO l:VTAB (1+x):HTAB (23):? j$(x):NEXT270 l=l+1274REM     275REM     "INPUT LINE TO PRINT"276REM     280VTAB (12):HTAB (5):? "Input Line No. "; l290VTAB (15):HTAB (5):? "Special characters are:"300VTAB (16):HTPOKE 17115, 21:TEXT520HOME530VTAB (12):HTAB (4):? "Would you like this line:"540VTAB (13):HTAB (7):? "L - on left margin?"550VTAB (14):HTAB (7):? "C - centered?"560VTAB (15):HTAB (7):? "R - on right margin?"570GET k$:IF k$="" THEN GOTO 570572 j$(l)=k$575 b=LEN(p$(l, 1))580IF k$="C" OR k$="c" THEN  t(l)=INT(80-b)/2590IF k$="R" OR k$="r" THEN  t(l)=80-b610HOME630HOME640IF l=7 THEN GOTO 700650VTAB (10):HTAB (1):? "Is that your last line? Y or N"660GET k$670IF k$="" GOTO 650680IF k$="N" OR k$="," X X X  "," XX     ","X XX    ","XX  X   ","   XXXX ","XXXX    ","  XXX X "2080DATA     " XXXXXX "," XXXX X "2100DATA     35,35,35,35,35,35,35,2,2,2,2,2,35,2,37,37,35,35,35,35,35,35,13,34,13,34,13,35,4,34,8,34,38,34,42110DATA     39,40,41,4,42,43,28,36,35,51,14,51,35,36,24,24,35,35,35,35,35,7,6,5,5,5,6,7,1,2,3,3,3,2,1 2120DATA     35,13,16,34,16,13,35,35,4,4,34,4,4,35,35,37,21,11,13,16,4,35,35,35,34,35,35,35,35,35,35,35,35,45,45   2130DATA     7,6,5,4,3,2,1,24,13,11,11,11,13,24,4,15,12,4,4,4,34,32,112VTAB (10):? "Press any key to start printing"905GET k$:IF k$="" THEN GOTO 740910IF k$=CHR$(27) THEN  l=0:GOTO 200915POKE 17115, 26:TEXT920FOR x=1 TO 5:VTAB (20):HTAB (16):? CHR$(7):NEXT925PR #1:FOR y=1 TO l:FOR x=1 TO 7930? TAB(t(y)); p$(y, x)935NEXT940? CHR$(7):? CHR$(7)945NEXT950PR #0955HOME:GOTO 725997REM     998REM     "CHECKS FOR PRINTABLE CHARACTERS"999REM     1000 v=n+311010IF v>96 AND v<127 THEN  n=n-32:RETURN1020IF v>126 OR v<32 THEN GOTO 10401030RETURN1040POP1045HOME1047INVER,7,7,7,7,11,13,24,10,9,8,46,47,10,11,1,1,1,1,1,1,342190DATA     11,25,27,21,11,11,11,11,18,20,21,22,23,11,32,11,11,11,11,11,32,33,11,11,33,1,1,1,32,11,11,11,22,10,522200DATA     33,11,11,33,9,10,11,32,11,1,32,7,11,32,34,4,4,4,4,4,4,11,11,11,11,11,13,24,11,11,11,11,13,16,42210DATA     11,11,11,11,21,27,13,11,13,16,4,16,13,11,11,13,16,4,4,4,4,34,6,5,4,3,2,34,48,4,4,4,4,4,48 2220DATA     1,2,3,4,5,6,7,49,4,4,4,4,4,49,4,24,44,21,4,4,4,35,35,35,35,35,35,35,4,4,4,21,44,24,4,zzzz1,13,24,4,15,12,4,4,4,34,32,11 ","      X ","X  X    ","X   X   ","X    X  ","X     X "   2015DATA     " X X    "," X   X  "," X    X "   2020DATA     "  XX    ","  X X   ","XX   X  ","XX    X ","X X X   ","X X   X " 2030DATA     "X  X  X ","X   X X ","X    XX ","  XXX   ","XX   XX ","X XXX   "  2040DATA     "X X X X ","X   XXX "," XXXX   ","  XXXX  ","XXXXX   "," XXXXX  " 2050DATA     "XXXXXX  ","XXXXXXX ","        ","XXXXXXXX" 2060DATA     " XX XX  ","   X  X ","XXX   X ","X X  X  ","XXX X   ","  X XXX " 2070DATA     " X  X X "n" THEN GOTO 200700HOME710GOSUB 1200725VTAB (10):HTAB (6):? "Do you want to:"735VTAB (12):HTAB (8):? "P - print this sign?"755VTAB (14):HTAB (8):? "N - make a new sign?"765VTAB (16):HTAB (8):? "Q - or quit?"775VTAB (18):HTAB (8):? "M - return to menu?"785GET k$795IF k$="" GOTO 795805IF k$="N" OR k$="n" THEN 835815IF k$="P" OR k$="p" THEN GOTO 900825POKE 17059, 2:POKE 17115, 252:POKE 17126, 207:POKE 16953, 95:TEXT826? CHR$(4); "run HELLO"835POKE 17115, 242:TEXT:HOME845CLEAR:GOTO 100900HOME90,7,30,2,1,34,32,11,7,30,7,11,32 2140DATA     11,11,11,34,7,7,7,34,1,1,33,7,11,32,32,11,1,33,11,11,32,34,10,5,4,3,2,1,32,11,11,32,11,11,322150DATA     32,11,11,51,7,11,32,35,15,15,35,15,15,35,35,15,15,35,15,15,4,4,3,2,34,2,3,4,35,35,34,35,34,35,35 2160DATA     4,5,6,34,6,5,4,24,13,6,5,4,35,4,35,34,11,11,11,34,35,24,13,11,34,11,11,11,33,11,11,33,11,11,332170DATA     30,14,1,1,1,14,30,31,10,11,11,11,10,31,34,1,1,31,1,1,34,34,1,1,31,1,1,1,32,11,1,28,11,11,322180DATA     11,11,11,34,11,11,11,34,4,4,4,4,4,34SE1050VTAB (10):HTAB (2):? "This line cannot be printed"1055IF m>10 THEN VTAB (12):HTAB (6):? "It is too long"1060VTAB (14):HTAB (4):? "Please input line again."1065NORMAL1070FOR x=1 TO 5000:NEXT1080HOME: l=l-11090GOTO 2001197REM     1198REM     "REMOVES LAST CHARACTER TO PREVENT DOUBLE CARRIAGE RETURN"1199REM     1200FOR y=1 TO 7:FOR x=1 TO 71210LET p$(y, x)=MID$(p$(y, x), 1, 79)1220NEXT:NEXT1230RETURN2000DATA     "X       "," X      ","  X     ","   X    ","    X   "  2010DATA     "     X 4POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT10DIM dw$(7), mo$(12), ld(12)19REM          --INITALIZE VARIABLES AND ARRAYS--20 bl$=""30FOR i=1 TO 740READ dw$(i)50 bl$=bl$+"  "60NEXT i70FOR i=1 TO 1280READ mo$(i), ld(i)90NEXT i100 dy$=" 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031"110HOME:INVERSE:? "                              ":? "         W E E K D A Y        "120? "                              ":NORMAL130?140?:? " TYPE IN A DATE IN ANY YEAR"150?:? " BETWEEN 1800 AN940RETURN950? CHR$(4); "run HELLO"w$(i), 3); " "; 380NEXT i390?400?410 dy$=bl$+LEFT$(dy$, 2*ld(m))+bl$+bl$420FOR i=1 TO 6430? TAB(3); 440FOR j=1 TO 7450 pt=i*7+j-fom-6460IF pt=d AND d<10 THEN ? " "; 470IF pt=d THEN INVERSE:? d; :NORMAL:GOTO 490480? MID$(dy$, 2*pt+13, 2); 490? "  "; 500NEXT j510?520?530NEXT i540INVERSE545PR #0549REM          --DO ANOTHER DATE OR STOP--550? " HIT <Q> TO QUIT OR ANY OTHER "560? " KEY TO TRY ANOTHER DATE.     "; :NORMAL570GET k$580IF k$<>"q" AND k$<>"QONTH m FALLS ON--280 fom=fom-INT(fom/7)*7+1290IF m>12 THEN  m=m-12: y=y+1292?:?:? " WANT A CALENDAR OF THIS":?:INPUT " MONTH PRINTED?  y/n "; cp$294IF cp$="y" OR cp$="Y" THEN  pm=1:GOSUB 900296IF cp$="n" OR cp$="N" THEN  pm=0299REM          --PRINT DAY OF WEEK AND TOP OF CALENDAR PAGE--300HOME310? "  "; mo$(m); " "; d; ", "; y; ", is a..."320?:? "  "; dw$(dow); "."322?:INVERSE:? "                              ":NORMAL324IF pm>0 THEN PR #1325?330? TAB(14-LEN(mo$(m))/2); mo$(m); " "; y340?350? ?100 g1=d8105 g=g1:GOSUB 1720: d1=d: e1=e110 g2=g+1: g=g2:GOSUB 1720: d2=d: e2=e115 g3=g+1: g=g3:GOSUB 1720: d3=d: e3=e120 g4=g+1: g=g4:GOSUB 1720: d4=d: e4=e125 g5=g+1: g=g5:GOSUB 1720: d5=d: e5=e130 g6=g+1: g=g6:GOSUB 1720: d6=d: e6=e135 g7=g+1: g=g7:GOSUB 1720: d7=d: e7=e140 g1=g7+1:GOSUB 1109:?:?:IF g1<=e9 THEN 105155?1000GOTO 50001109 x=e1: x1=d1:GOSUB 110001120 x=e2: x1=d2:GOSUB 110001130 x=e3: x1=d3:GOSUB 110001140 x=e4: x1=d4:GOSUB 110001150 x=e5: x1=d5:GOSUB 110001160 x=e6: x1=d6:G" AND k$<>CHR$(113) THEN 100590GOTO 950600DATA          SUNDAY,MONDAY,TUESDAY,WEDNESDAY610DATA           THURSDAY,FRIDAY,SATURDAY700DATA           January,31,February,28,March,31710DATA           April,30,May,31,June,30720DATA           July,31,August,31,September,30730DATA           October,31,November,30,December,31900HOME:INVERSE:? "                              ":NORMAL910?:FLASH:? " PREPARE PRINTER ":NORMAL920?:?:?:? " INSERT PAPER IN PRINTER AND"930?:INPUT " PRESS <RETURN> WHEN READY "; qx$D 2400 "160?:? " THEN PRESS <RETURN>."170?:? " USE THIS FORMAT:"180?190? " 1,31,1985"200?210?:INPUT " ENTER DATE>>> "; m, d, y220 ld(2)=28+((y=INT(y/4)*4 AND y<>INT(y/100)*100) OR y=2000)230IF m<1 OR m>12 THEN 170240IF d<1 OR d>ld(m) OR y=1801 OR y>2399 THEN 170249REM          --COMPUTE WHAT DAY THE DATE FALLS ON (dow)--250IF m<3 THEN  y=y-1: m=m+12260 fom=INT(y*1.25)+(y<1900)+(y>2000)*INT((y-2000)/100)+INT((m-2)*2.59)270 dow=fom+d-INT((fom+d-1)/7)*7279REM          --fom IS DAY THAT FIRST OF M4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM   - WALL CALENDAR6REM   - COMPUTE!'s First Book of IBM7REM   - COMPUTE! Publications,Inc. - 19858REM   - Modified for ADAM by H.M.Guill - 198810 width=40:GOTO 2011 e1=1: e2=1: e3=1: e4=1: e5=1: e6=1: e7=112GOSUB 1109: d8=d7-1:RETURN20GOSUB 4000:GOSUB 3200:?:?30ON mo GOSUB 3010, 3020, 3030, 3040, 3050, 3060, 3070, 3080, 3090, 3100, 3110, 312040?:?:GOSUB 1610:GOSUB 1650:GOSUB 166080ON d9 GOSUB 1811, 1821, 1831, 1841, 1851, 1861, 187199?:TAB(3); 360FOR i=1 TO 7370? LEFT$(dw$(i), 3); " "; 380NEXT i390?400?410 dy$=bl$+LEFT$(dy$, 2*ld(m))+bl$+bl$420FOR i=1 TO 6430? TAB(3); 440FOR j=1 TO 7450 pt=i*7+j-fom-6460IF pt=d AND d<10 THEN ? " "; 470IF pt=d THEN INVERSE:? d; :NORMAL:GOTO 490480? MID$(dy$, 2*pt+13, 2); 490? "  "; 500NEXT j510?520?530NEXT i540INVERSE545PR #0549REM          --DO ANOTHER DATE OR STOP--550? " HIT <Q> TO QUIT OR ANY OTHER "560? " KEY TO TRY ANOTHER DATE.     "; :NORMAL570GET k$580IF k$<>"q" AND k$<>"QOSUB 110001170 x=e7: x1=d7: fl=1:GOSUB 110001209 x=e1: x1=d1:GOSUB 120001220 x=e2: x1=d2:GOSUB 120001230 x=e3: x1=d3:GOSUB 120001240 x=e4: x1=d4:GOSUB 120001250 x=e5: x1=d5:GOSUB 120001260 x=e6: x1=d6:GOSUB 120001270 x=e7: x1=d7: fl=1:GOSUB 120001309 x=e1: x1=d1:GOSUB 130001320 x=e2: x1=d2:GOSUB 130001330 x=e3: x1=d3:GOSUB 130001340 x=e4: x1=d4:GOSUB 130001350 x=e5: x1=d5:GOSUB 130001360 x=e6: x1=d6:GOSUB 130001370 x=e7: x1=d7: fl=1:GOSUB 130001409 x=e1: x1=d1:GOSUB 140001420 x=e2: x1=d2:GO d1=1: d2=1: d3=1: d4=1: d5=3: d6=4: d7=5:GOSUB 11:RETURN1851 d1=1: d2=1: d3=1: d4=1: d5=1: d6=3: d7=4:GOSUB 11:RETURN1861 d1=1: d2=1: d3=1: d4=1: d5=1: d6=1: d7=3:GOSUB 11:RETURN1871 d1=3: d2=4: d3=5: d4=6: d5=7: d6=8: d7=9:GOSUB 11:RETURN2000? "    "; :RETURN2001? " @@ "; :RETURN2002? "@  @"; :RETURN2003? "@  @"; :RETURN2004? "@  @"; :RETURN2005? " @@ "; :RETURN2011? " @  "; :RETURN2012? " @  "; :RETURN2013? " @  "; :RETURN2014? " @  "; :RETURN2015? " @  "; :RETURN2021? " @@ "; :RETURN2022"T H U"; :? "      "; 1615? "F R I"; :? "      "; 1616? "S A T"; :? " "1620? "  "; :? "====="; :? "      "; 1621? "====="; :? "      "; 1622? "====="; :? "      "; 1623? "====="; :? "      "; 1624? "====="; :? "      "; 1625? "====="; :? "      "; 1626? "====="; :? " ":?:?:RETURN1650IF mo=1 OR mo=3 OR mo=5 OR mo=7 OR mo=8 OR mo=10 OR mo=12 THEN  e9=311652IF mo=4 OR mo=6 OR mo=9 OR mo=11 THEN  e9=301654IF mo=2 AND y/4<>INT(y/4) THEN  e9=281656IF mo=2 AND y/4=INT(y/4) THEN  e9=291658RETURN1660I "; :RETURN2071? "@@@@"; :RETURN2072? "   @"; :RETURN2073? "  @ "; :RETURN2074? " @  "; :RETURN2075? " @  "; :RETURN2081? " @@ "; :RETURN2082? "@  @"; :RETURN2083? " @@ "; :RETURN2084? "@  @"; :RETURN2085? " @@ "; :RETURN2091? " @@ "; :RETURN2092? "@  @"; :RETURN2093? " @@@"; :RETURN2094? "   @"; :RETURN2095? " @@ "; :RETURN2111? "  @ "; :RETURN2112? "  @ "; :RETURN2113? "  @ "; :RETURN2114? "  @ "; :RETURN2115? "  @ "; :RETURN3010GOSUB 2000:? "      ***   ***  *   *"3011GOSUB 2000:? " d9=0 THEN  d9=71715RETURN1720IF g>e9 THEN GOTO 17401722IF g<10 THEN GOTO 17421726IF g>=10 AND g<20 THEN GOTO 17461728IF g>=20 AND g<30 THEN GOTO 17481730IF g>=30 THEN GOTO 17501740 d=1: e=1:GOTO 17551742 d=g+2: e=1:GOTO 17551746 d=g-10+2: e=2:GOTO 17551748 d=g-20+2: e=3:GOTO 17551750 d=g-30+2: e=41755RETURN1811 d1=1: d2=3: d3=4: d4=5: d5=6: d6=7: d7=8:GOSUB 11:RETURN1821 d1=1: d2=1: d3=3: d4=4: d5=5: d6=6: d7=7:GOSUB 11:RETURN1831 d1=1: d2=1: d3=1: d4=3: d5=4: d6=5: d7=6:GOSUB 11:RETURN1841SUB 140001430 x=e3: x1=d3:GOSUB 140001440 x=e4: x1=d4:GOSUB 140001450 x=e5: x1=d5:GOSUB 140001460 x=e6: x1=d6:GOSUB 140001470 x=e7: x1=d7: fl=1:GOSUB 140001509 x=e1: x1=d1:GOSUB 150001520 x=e2: x1=d2:GOSUB 150001530 x=e3: x1=d3:GOSUB 150001540 x=e4: x1=d4:GOSUB 150001550 x=e5: x1=d5:GOSUB 150001560 x=e6: x1=d6:GOSUB 150001570 x=e7: x1=d7: fl=1:GOSUB 150001600RETURN1610? "  "; :? "S U N"; :? "      "; 1611? "M O N"; :? "      "; 1612? "T U E"; :? "      "; 1613? "W E D"; :? "      "; 1614? ? "@  @"; :RETURN2023? "  @ "; :RETURN2024? " @  "; :RETURN2025? "@@@@"; :RETURN2031? "@@@ "; :RETURN2032? "   @"; :RETURN2033? " @@ "; :RETURN2034? "   @"; :RETURN2035? "@@@ "; :RETURN2041? "  @ "; :RETURN2042? " @@ "; :RETURN2043? "@ @ "; :RETURN2044? "@@@@"; :RETURN2045? "  @ "; :RETURN2051? "@@@@"; :RETURN2052? "@   "; :RETURN2053? "@@@ "; :RETURN2054? "   @"; :RETURN2055? "@@@ "; :RETURN2061? " @@ "; :RETURN2062? "@   "; :RETURN2063? "@@@ "; :RETURN2064? "@  @"; :RETURN2065? " @@F mo=1 THEN  mo=13: y=y-1:GOTO 16701665IF mo=2 THEN  mo=14: y=y-11670 m=mo-21675 d9=INT(2.6*m-.2)+d+y-1900+INT((y-1900)/4)1680 d9=d9+INT(19/4)-2*191685 d9=d9-INT(d9/7)*7+11690IF mo=24 OR mo=9 THEN  d9=d9+11695IF mo=13 THEN  mo=1: y=y+1:GOTO 17101700IF mo=14 THEN  mo=2: y=y+1: d9=d9+11705IF d9=8 THEN  d9=11710IF (y=2100 AND mo>=3) OR (y>2100) THEN  d9=d9-1:IF d9=0 THEN  d9=71711IF (y=2200 AND mo>=3) OR (y>2200) THEN  d9=d9-1:IF d9=0 THEN  d9=71712IF (y=2300 AND mo>=3) OR (y>2300) THEN  d9=d9-1:IF       *   *   * **  *"3012GOSUB 2000:? "       *   *   * * * *"3013GOSUB 2000:? "     * *   ***** *  **"3014GOSUB 2000:? "     ***   *   * *   *"3015RETURN3020GOSUB 2000:? "     ***** ***** **** "3021GOSUB 2000:? "     *     *     *   *"3022GOSUB 2000:? "     ***   ****  **** "3023GOSUB 2000:? "     *     *     *   *"3024GOSUB 2000:? "     *     ***** **** "3025RETURN3030GOSUB 2000:? "     *   *  ***  **** "3031GOSUB 2000:? "     ** ** *   * *   *"3032GOSUB 2000:? "     * * * *   * **** "3033  ****  *****  *** "3125RETURN3200 i1=INT(y/1000): j1=y-i1*1000: i2=INT(j1/100): j2=j1-i2*100: i3=INT(j2/10)3210 i4=j2-i3*103211IF i2=0 THEN  i2=103212IF i3=0 THEN  i3=103213IF i4=0 THEN  i4=103214GOSUB 2000: x=i1:GOSUB 6000:GOSUB 2000: x=i2:GOSUB 6000:GOSUB 2000: x=i3:GOSUB 60003215GOSUB 2000: x=i4: fl=1:GOSUB 60003314GOSUB 2000: x=i1:GOSUB 7000:GOSUB 2000: x=i2:GOSUB 7000:GOSUB 2000: x=i3:GOSUB 70003315GOSUB 2000: x=i4: fl=1:GOSUB 70003414GOSUB 2000: x=i1:GOSUB 8000:GOSUB 2000: x=i2:GOSUB 8000: *   *  "3055RETURN3060GOSUB 2000:? "      ***  *   * *   *"3061GOSUB 2000:? "       *   *   * **  *"3062GOSUB 2000:? "       *   *   * * * *"3063GOSUB 2000:? "     * *   *   * *  **"3064GOSUB 2000:? "     ***    ***  *   *"3065RETURN3070GOSUB 2000:? "      ***  *   * *    "3071GOSUB 2000:? "       *   *   * *    "3072GOSUB 2000:? "       *   *   * *    "3073GOSUB 2000:? "     * *   *   * *    "3074GOSUB 2000:? "     ***    ***  *****"3075RETURN3080GOSUB 2000:? "      ***  *   *  *** "3081GOSFOR PRINTING"4020?:? "       MONTHLY CALENDARS":?:? "        ON YOUR PRINTER"4030?:?:? " Please type in the month and"4035? " year that you wish to see":?:? " (Example: 12,1983)"; :? "  "; 4060INPUT mo, y4080HOME:?:? " Thank you!--":?:?:?:?4081?:INVERSE:? " Please prepare printer and   "4082? " insert paper. Press <RETURN> ":? " when ready to print.         "4083NORMAL4085INPUT r$4110HOME:?:INVERSE:? " Printing WALL CALENDAR..."4130PR #1:?:FOR i=1 TO 800:NEXT:RETURN4999?:? "  "5000GOSUB 162050  *  "3103GOSUB 2000:? "     *   * *   *   *  "3104GOSUB 2000:? "      ***   ***    *  "3105RETURN3110GOSUB 2000:? "     *   *  ***  *   *"3111GOSUB 2000:? "     **  * *   * *   *"3112GOSUB 2000:? "     * * * *   * *   *"3113GOSUB 2000:? "     *  ** *   *  * * "3114GOSUB 2000:? "     *   * *   *   *  "3115RETURN3120GOSUB 2000:? "     ****  *****  *** "3121GOSUB 2000:? "     *   * *     *   *"3122GOSUB 2000:? "     *   * ****  *    "3123GOSUB 2000:? "     *   * *     *   *"3124GOSUB 2000:? "   GOSUB 2000:? "     * * * ***** *  * "3034GOSUB 2000:? "     *   * *   * *   *"3035RETURN3040GOSUB 2000:? "      ***  ****  **** "3041GOSUB 2000:? "     *   * *   * *   *"3042GOSUB 2000:? "     *   * ****  **** "3043GOSUB 2000:? "     ***** *     *  * "3044GOSUB 2000:? "     *   * *     *   *"3045RETURN3050GOSUB 2000:? "     *   *  ***  *   *"3051GOSUB 2000:? "     ** ** *   * *   *"3052GOSUB 2000:? "     * * * *   *  * * "3053GOSUB 2000:? "     * * * *****   *  "3054GOSUB 2000:? "     *   * *  GOSUB 2000: x=i3:GOSUB 80003415GOSUB 2000: x=i4: fl=1:GOSUB 80003514GOSUB 2000: x=i1:GOSUB 9000:GOSUB 2000: x=i2:GOSUB 9000:GOSUB 2000: x=i3:GOSUB 90003515GOSUB 2000: x=i4: fl=1:GOSUB 90003614GOSUB 2000: x=i1:GOSUB 10000:GOSUB 2000: x=i2:GOSUB 10000:GOSUB 2000: x=i33615GOSUB 10000:GOSUB 2000: x=i4: fl=1:GOSUB 10000:RETURN4000INVERSE:? "                              "4002? "   W A L L   C A L E N D A R  "4004? "                              ":NORMAL4010?:?:? "       THIS IS A PROGRAM":?:? "         UB 2000:? "     *   * *   * *    "3082GOSUB 2000:? "     *   * *   * *  **"3083GOSUB 2000:? "     ***** *   * *   *"3084GOSUB 2000:? "     *   *  ***   *** "3085RETURN3090GOSUB 2000:? "      **** ***** **** "3091GOSUB 2000:? "     *     *     *   *"3092GOSUB 2000:? "      ***  ****  **** "3093GOSUB 2000:? "         * *     *    "3094GOSUB 2000:? "     ****  ***** *    "3095RETURN3100GOSUB 2000:? "      ***   ***  *****"3101GOSUB 2000:? "     *   * *   *   *  "3102GOSUB 2000:? "     *   * *     01PR #0:NORMAL:HOME:?:?:?5002? CHR$(4); "run HELLO"6000ON x GOSUB 2011, 2021, 2031, 2041, 2051, 2061, 2071, 2081, 2091, 20016010IF fl<>1 THEN ? " "; :RETURN6020? " ": fl=0:RETURN7000ON x GOSUB 2012, 2022, 2032, 2042, 2052, 2062, 2072, 2082, 2092, 20027010IF fl<>1 THEN ? " "; :RETURN7020? " ": fl=0:RETURN8000ON x GOSUB 2013, 2023, 2033, 2043, 2053, 2063, 2073, 2083, 2093, 20038010IF fl<>1 THEN ? " "; :RETURN8020? " ": fl=0:RETURN9000ON x GOSUB 2014, 2024, 2034, 2044, 2054, 2064, 2074, 2084, 2094, ONTHLY APPOINTMENT CALENDARS"105?:? r$; r$; r$; "     ON YOUR ADAM PRINTER":? d$110?:?:? r$; " Please type in the month and":? " year that you want printed."111?:? " (EXAMPLE: 12,1983) "; 120? TAB(5); :INPUT mo, y130HOME:?:? " THANK YOU!":?:?:INVERSE:? " PLEASE PREPARE THE PRINTER & "131? " INSERT PAPER WITH TOP EDGE   ":? " 1/16 INCH ABOVE RIBBON.      "132? " PRESS <RETURN> WHEN READY.   "; :INPUT r$:NORMAL154HOME:?:?:INVERSE:? " Printing calendar..."; d$:PR #1:FOR i=1 TO 800:NEXT:GOSUB 1292202?:; :RETURN12030 fl=0:? " ":RETURN13000ON x GOSUB 2000, 2113, 2023, 2033:? " "; 13010ON x1 GOSUB 2000, 2003, 2013, 2023, 2033, 2043, 2053, 2063, 2073, 2083, 209313020IF fl<>1 THEN ? "  "; :RETURN13030 fl=0:? " ":RETURN14000ON x GOSUB 2000, 2114, 2024, 2034:? " "; 14010ON x1 GOSUB 2000, 2004, 2014, 2024, 2034, 2044, 2054, 2064, 2074, 2084, 209414020IF fl<>1 THEN ? "  "; :RETURN14030 fl=0:? " ":RETURN15000ON x GOSUB 2000, 2115, 2025, 2035:? " "; 15010ON x1 GOSUB 2000, 2005, 2015, 2025, 2035, 2045, 20OTO 10801060IF mo=2 THEN  mo=14: y=y-11080 m=mo-21100 d1=INT(2.6*m-.2)+d+y-1900+INT((y-1900)/4)1150 d1=d1+INT(19/4)-2*191200 d1=d1-INT(d1/7)*7+11210IF mo=24 OR mo=9 THEN  d1=d1+11230IF mo=13 THEN  mo=1: y=y+1:GOTO 12451240IF mo=14 THEN  mo=2: y=y+1: d1=d1+11244IF d1=8 THEN  d1=11245IF (y=2100 AND mo>=3) OR (y>2100) THEN  d1=d1-1:IF d1=0 THEN  d1=71247IF (y=2200 AND mo>=3) OR (y>2200) THEN  d1=d1-1:IF d1=0 THEN  d1=71249IF (y=2300 AND mo>=3) OR (y>2300) THEN  d1=d1-1:IF d1=0 THEN  d1=71250RETURN10HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT12REM   - APPOINTMENT CALENDAR14REM   - COMPUTE!'s FIRST BOOK OF IBM 16REM   - COMPUTE! Publications, Inc. - 198518REM   - Modified for ADAM by H.M.Guill - 198820INVERSE:? "                              "22? "    A P P O I N T M E N T S   "24? "                              ":NORMAL80DIM m$(12), w$(7):FOR i=1 TO 12:READ m$(i):NEXT i:FOR i=1 TO 7:READ w$(i):NEXT i100?:? d$; sp$; sp$; "       THIS PROGRAM PRINTS":?:? r$; r$; r$; r$; r$; r$; " M20049010IF fl<>1 THEN ? " "; :RETURN9020? " ": fl=0:RETURN10000ON x GOSUB 2015, 2025, 2035, 2045, 2055, 2065, 2075, 2085, 2095, 200510010IF fl<>1 THEN ? " "; :RETURN11000ON x GOSUB 2000, 2111, 2021, 2031:? " "; 11010ON x1 GOSUB 2000, 2001, 2011, 2021, 2031, 2041, 2051, 2061, 2071, 2081, 209111020IF fl<>1 THEN ? "  "; :RETURN11030 fl=0:? " ":RETURN12000ON x GOSUB 2000, 2112, 2022, 2032:? " "; 12010ON x1 GOSUB 2000, 2002, 2012, 2022, 2032, 2042, 2052, 2062, 2072, 2082, 209212020IF fl<>1 THEN ? "  "? ">>>"; m$(mo); ", "; y; "  *************** A P P O I N T M E N T S ***************"204? "   ================                ========================="206GOSUB 1700:FOR d=1 TO e1: j1=j1+1210GOSUB 1050:IF d<10 THEN  g$=" "213IF d>=10 THEN  g$=""214IF d1=1 THEN ? " "; sp$; sp$; sp$; w$(d1); " "; g$; d; " ("; j1; ")":GOSUB 1600217IF d1=1 THEN GOTO 220219? " "; sp$; sp$; sp$; w$(d1); " "; g$; d; " ("; j1; ")":GOSUB 1600220NEXT d1000PR #0:NORMAL:?:? CHR$(4); "run HELLO"1050IF mo=1 THEN  mo=13: y=y-1:G55, 2065, 2075, 2085, 209515020IF fl<>1 THEN ? "  "; :RETURN15030 fl=0:? " ":RETURN5, 2035, 2045, 2055, 2065, 2075, 2085, 2095, 200510010IF fl<>1 THEN ? " "; :RETURN11000ON x GOSUB 2000, 2111, 2021, 2031:? " "; 11010ON x1 GOSUB 2000, 2001, 2011, 2021, 2031, 2041, 2051, 2061, 2071, 2081, 209111020IF fl<>1 THEN ? "  "; :RETURN11030 fl=0:? " ":RETURN12000ON x GOSUB 2000, 2112, 2022, 2032:? " "; 12010ON x1 GOSUB 2000, 2002, 2012, 2022, 2032, 2042, 2052, 2062, 2072, 2082, 209212020IF fl<>1 THEN ? "  "1292IF mo=1 OR mo=3 OR mo=5 OR mo=7 OR mo=8 OR mo=10 OR mo=12 THEN  e1=311293IF mo=4 OR mo=6 OR mo=9 OR mo=11 THEN  e1=301295IF mo=2 AND y/4=INT(y/4) THEN GOSUB 14001296RETURN1400IF (y/100=INT(y/100)) AND (y/400<>INT(y/400)) THEN  e1=28:GOTO 14101405 e1=291410RETURN1600FOR i=1 TO 20:? " "; sp$; :NEXT i1605FOR k=1 TO 18:? "~~~"; :NEXT k:? "~"1610RETURN1700IF mo=1 THEN  j1=01702IF mo=2 THEN  j1=311704IF mo=3 THEN  j1=591706IF mo=4 THEN  j1=901707IF mo=5 THEN  j1=1201709IF mo=6 THEN  j1=151171 d=8:GOTO 170130IF a$="c" OR a$="C" THEN  d=11:GOTO 170140?150? " USE ONLY: A, B or C  "160GOTO 70170?175GOSUB 900180HOME:INVERSE:? ">>>>>>>>>>>>>>><<<<<<<<<<<<<<<":NORMAL182?:? " You can print up to "; d190?:? " lines on each label."200?:?210? " For each line, type up to "; w220?:? " characters & press <RETURN>;"225?:? TAB(15); "or"230?:? " just press <RETURN> if done."240?:?250 ln=1260? " Line #"; ln270? TAB(3); "_____________________________"280INPUT " "; l$(ln)290IF l$(ln)="" THEN 38Y","   TUESDAY"," WEDNESDAY","  THURSDAY"2040DATA   "    FRIDAY","  SATURDAY"IF mo=4 OR mo=6 OR mo=9 OR mo=11 THEN  e1=301295IF mo=2 AND y/4=INT(y/4) THEN GOSUB 14001296RETURN1400IF (y/100=INT(y/100)) AND (y/400<>INT(y/400)) THEN  e1=28:GOTO 14101405 e1=291410RETURN1600FOR i=1 TO 20:? " "; sp$; :NEXT i1605FOR k=1 TO 18:? "~~~"; :NEXT k:? "~"1610RETURN1700IF mo=1 THEN  j1=01702IF mo=2 THEN  j1=311704IF mo=3 THEN  j1=591706IF mo=4 THEN  j1=901707IF mo=5 THEN  j1=1201709IF mo=6 THEN  j1=151171printer is ready,"540?:? "  please press any key."; 550GET k$560?570 n=no580PR #1590FOR j=1 TO n600FOR i=1 TO d+1610IF i>=ln THEN ?:GOTO 640620IF cn$="C" OR cn$="c" THEN ? SPC(w/2-LEN(l$(i))/2); 630? l$(i)640NEXT i650IF j>=no THEN 680670NEXT j680PR #0690HOME:INVERSE:? ">>>>>>>>>>>>>>><<<<<<<<<<<<<<<":NORMAL700?:? "  Would you like to:"710?720? "   <p>rint this label again,"730? "   <c>ompose another label, or"735? "   change <s>ize of label, or"740? "   <q>uit?"745?:? " "; 750GET k$75&    NIAD BASIC P.D.                VOLUME # BNDV17             6REM   - modified by H.M.Guill - 19878POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT10DIM l$(12)20HOME:?:? "   "; 30INVERSE:? " ALL-PURPOSE LABELMAKER ":NORMAL40?50?60? "  What size label do you have?"70?:? "   Enter A if 1 inch high"80? "         B if 1 1/2 inches"90? "         C if 2 inches"95?:? "      and press <RETURN>"100?:?:INPUT " My label is: "; a$110IF a$="a" OR a$="A" THEN  d=5:GOTO 170120IF a$="b" OR a$="B" THEN 1IF mo=7 THEN  j1=1811713IF mo=8 THEN  j1=2121715IF mo=9 THEN  j1=2431717IF mo=10 THEN  j1=2731719IF mo=11 THEN  j1=3041721IF mo=12 THEN  j1=3341723IF y/4<>INT(y/4) THEN 17301725IF (y/100=INT(y/100)) AND (y/400<>INT(y/400)) THEN 17301727IF (y/4=INT(y/4)) AND (mo>=3) THEN  j1=j1+11730RETURN2000DATA   "  JANUARY"," FEBRUARY","    MARCH","    APRIL","      MAY"2010DATA    "     JUNE","     JULY","   AUGUST","SEPTEMBER","  OCTOBER"2020DATA   " NOVEMBER"," DECEMBER"2030DATA   "    SUNDAY","    MONDA0300IF LEN(l$(ln))<=w THEN 360310?:?320? "  That line was too long."330?:? "  Please try again."340?350GOTO 260360 ln=ln+1370IF ln<d+1 THEN ?:GOTO 260380HOME:INVERSE:? ">>>>>>>>>>>>>>><<<<<<<<<<<<<<<":NORMAL400?:? "  Do you want this label"410?420? "   <c>entered, or "430? "   <l>eft-justified?"435?:? " "; 440GET cn$450IF cn$<>"C" AND cn$<>"c" AND cn$<>"L" AND cn$<>"l" THEN 440470?480?490? "  How many labels do you"; 500?:INPUT " want?  "; no510IF no=0 THEN 680520?:?530? "  When your 1IF mo=7 THEN  j1=1811713IF mo=8 THEN  j1=2121715IF mo=9 THEN  j1=2431717IF mo=10 THEN  j1=2731719IF mo=11 THEN  j1=3041721IF mo=12 THEN  j1=3341723IF y/4<>INT(y/4) THEN 17301725IF (y/100=INT(y/100)) AND (y/400<>INT(y/400)) THEN 17301727IF (y/4=INT(y/4)) AND (mo>=3) THEN  j1=j1+11730RETURN2000DATA   "  JANUARY"," FEBRUARY","    MARCH","    APRIL","      MAY"2010DATA    "     JUNE","     JULY","   AUGUST","SEPTEMBER","  OCTOBER"2020DATA   " NOVEMBER"," DECEMBER"2030DATA   "    SUNDAY","    MONDA60IF k$="P" OR k$="p" THEN 380770IF k$="C" OR k$="c" THEN 180775IF k$="S" OR k$="s" THEN 50780IF k$<>"Q" AND k$<>"q" THEN 750790HOME:INVERSE:? " done done done done done done":NORMAL800?:? " Please stand by ......"810?:? "                 Loading menu."820?:? CHR$(4); "run HELLO"900HOME:INVERSE:? ">>>>>>>>>>>>>>><<<<<<<<<<<<<<<":NORMAL:?905? " What is your label length?"910?:? "  Enter D if 2 1/2 inches long"920? "        E if 3     inches long"930? "        F if 3 1/2 inches long"940? "                           |"162IF k=1 THEN ? "|            :            :            |            :            :            |"164IF k<>1 THEN ? "|A                 :                  B|A                 :                  B|"170FOR i=1 TO 12180IF k=1 THEN ? "|____________:____________:____________|____________:____________:____________|"190IF k<>1 THEN ? "|__________________:___________________|__________________:___________________|"200NEXT i210RETURN300? "*--------------------------------------*--------4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM   - INDEXLABEL6REM   - by H.M.Guill - 198710?:? "         "; :INVERSE:? "            ":NORMAL12? "         "; :INVERSE:? " INDEXLABEL ":NORMAL14? "         "; :INVERSE:? "            ":NORMAL20?:? "  This program prints index"22?:? " labels for data packs, audio"24?:? " cassettes, or other uses."26?:? " (6 labels per 8.5x11 sheet)"28?:INVERSE:? ">[oo]>>[oo]>>[oo]>>[oo]>>[oo]>":NORMAL30?:? " SELECT LABEL TO BE PRINTED:"32?:? "  0) none"SSETTES:  ":NORMAL610?:? "  Now that you have finished"612? " __ printing your index labels"614? " \ \ just cut along the dashed"616? "  \ \ lines forming the boxes"618? "  |\_\ with '*'s at their four"620? "  |   | corners. Next, fill in"622? "   \  | available index info  "624? "    \ | and fold back the top "626? "     \| section along the ===="628? " line. Finally, insert the "630? " label into a ddp or cassette"632? " case so that the content list"634? " shows through one side with"636? "  |Artist:                       [       |"122IF k<>2 THEN ? "|Type:                         [       |Type:                         [       |"130? "|======================================|======================================|"140IF k=1 THEN ? "|Programs:                             |Programs:                             |"150IF k=2 THEN ? "|Songs:                                |Songs:                                |"160IF k<1 OR k>2 THEN ? "|Contents:                             |Contents:          G if 4     inches long"945?:? "     and then press <RETURN>"947?:?950INPUT " My label is:  "; w$960IF w$="d" OR w$="D" THEN  w=20:GOTO 1050970IF w$="e" OR w$="E" THEN  w=26:GOTO 1050980IF w$="f" OR w$="F" THEN  w=30:GOTO 1050990IF w$="g" OR w$="G" THEN  w=36:GOTO 1050995?1000? "  Use ONLY D, E, F, or G "1010?1020GOTO 9001050?1060RETURN"710?720? "   <p>rint this label again,"730? "   <c>ompose another label, or"735? "   change <s>ize of label, or"740? "   <q>uit?"745?:? " "; 750GET k$7------------------------------*"310PR #0320HOME:INVERSE:? "                              ":NORMAL330?:? " Would you like to print"340?:INPUT " more index labels?  y/n "; yn$350IF yn$="N" OR yn$="n" THEN 600360IF yn$="y" OR yn$="Y" THEN CLEAR:GOTO 50370GOTO 340400HOME:INVERSE:? "                              ":NORMAL410?:FLASH:? " PREPARE PRINTER ":NORMAL420?:? " INSERT PAPER IN PRINTER AND"430?:INPUT " PRESS <RETURN> WHEN READY "; qz$440HOME:INVERSE:RETURN600HOME:INVERSE:? " FOR DATA PACKS & CA34? "  1) DIGITAL DATA PACK INDEX"36? "  2) CASSETTE INDEX (music)"38? "  3) CASSETTE INDEX (other)"40? "  4) MISC. FILE INDEX"42?:INPUT " ENTER 0,1,2,3 or 4 >>> "; k44IF k=0 THEN 70046IF k<1 OR k>4 THEN 4250GOSUB 40060PR #1:?:?:GOSUB 10065GOSUB 10070GOSUB 10080GOTO 300100? "*--------------------------------------*--------------------------------------*"110? "|Vol.Name:_____________________[Vol.No.|Vol.Name:_____________________[Vol.No.|"120IF k=2 THEN ? "|Artist:                       [      the volume name showing along"638? " the edge. That's it, you are"640? " finished!"650INPUT "                     <return> "; fin$700HOME:?:?:? " BYE!":?:? CHR$(4); "run HELLO"F yn$="N" OR yn$="n" THEN 600360IF yn$="y" OR yn$="Y" THEN CLEAR:GOTO 50370GOTO 340400HOME:INVERSE:? "                              ":NORMAL410?:FLASH:? " PREPARE PRINTER ":NORMAL420?:? " INSERT PAPER IN PRINTER AND"430?:INPUT " PRESS <RETURN> WHEN READY "; qz$440HOME:INVERSE:RETURN600HOME:INVERSE:? " FOR DATA PACKS & CA TO 0 STEP -1580IF v>=bin%(k) THEN  v=v-bin%(k): c$=ch$:GOTO 600590 c$=" "600FOR l=1 TO cc610 line$=c$+line$620NEXT l630NEXT k640FOR k=1 TO (cc+1)/2650? line$660NEXT k670NEXT j680NEXT i690?:PR #0700HOME710?:INVERSE:? " YOUR BANNER IS FINISHED!     ":NORMAL720?730? "PRESS <P> TO PRINT ANOTHER BANNER"740? "OR <E> TO END."; 750GET k$760IF k$="P" OR k$=CHR$(112) THEN 270770IF k$="E" OR k$=CHR$(101) THEN HOME:POKE 17115, 240:TEXT:?:? CHR$(4); "run HELLO"780GOTO 7501000DATA     0,0,0,0,0,0,05&     NIAD BASIC P.D.                VOLUME # BNDV17            8POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT10DIM a%(471), bin%(6)20HOME30INVERSE:? "GETTING READY-+-+-PLEASE WAIT.":NORMAL40FOR i=0 TO 464 STEP 850FOR j=0 TO 760IF j=0 OR j=7 THEN  a%(i+j)=0:GOTO 8070READ a%(i+j)80NEXT j:NEXT i100 a%(80)=8110 a%(87)=8120 a%(367)=63130 a%(447)=63140FOR i=0 TO 6150 bin%(i)=2^i160NEXT i:HOME:VTAB 4170? "          "; :INVERSE:? "+*BANNER*+":NORMAL180?:?:? "  CONTINUOUS BANNER PRINTER"1906,481120DATA     22,63,41,41,63,22,16,57,41,43,62,281130DATA     0,0,54,54,0,0,0,0,109,110,0,0 1140DATA     0,8,28,54,99,65,18,18,18,18,18,181150DATA     65,99,54,28,8,0,16,48,37,45,56,161160DATA     30,63,33,45,61,29,15,31,50,50,31,151170DATA     63,63,41,41,63,22,30,63,33,33,51,181180DATA     63,63,33,51,30,12,63,63,41,41,41,331190DATA     63,63,40,40,40,32,30,63,33,37,39,391200DATA     63,63,8,8,63,63,33,33,63,63,33,331210DATA     2,3,1,1,63,62,63,63,12,30,51,331220DATA     63,63,1,1,1,1,63,63R    BANNER?"370?:INPUT " (e.g. @,#,$,%,&,*)  "; ch$380IF ch$="" THEN 340390 ch$=LEFT$(ch$, 1)400HOME410VTAB 4:? " PLEASE ENTER THE MESSAGE YOU   WANT PRINTED ON THE BANNER."430?:? " DO NOT USE LOWER CASE LETTERS  OR COMMAS."440?450INPUT message$460?470? "When your printer is ready,"480? "Please press any key."490GET k$500?:PR #1510FOR i=1 TO LEN(message$)520 pntr=(ASC(MID$(message$, i, 1))-32)*8530IF pntr<0 OR pntr>464 THEN  pntr=0540FOR j=pntr TO pntr+7550 line$=""560 v=a%(j)570FOR k=6SSETTES:  ":NORMAL610?:? "  Now that you have finished"612? " __ printing your index labels"614? " \ \ just cut along the dashed"616? "  \ \ lines forming the boxes"618? "  |\_\ with '*'s at their four"620? "  |   | corners. Next, fill in"622? "   \  | available index info  "624? "    \ | and fold back the top "626? "     \| section along the ===="628? " line. Finally, insert the "630? " label into a ddp or cassette"632? " case so that the content list"634? " shows through one side with"636? ",0,61,61,0,0,1010DATA     0,56,0,0,56,0,18,63,18,18,63,181020DATA     18,58,107,107,46,36,51,54,12,24,51,351030DATA     6,47,121,93,118,39,0,0,52,56,0,0 1040DATA     0,0,30,63,51,33,33,51,63,30,0,01050DATA     42,62,28,28,62,42,8,8,62,62,8,81060DATA     0,0,13,14,0,0,8,8,8,8,8,81070DATA     0,0,3,3,0,0,3,6,12,24,48,321080DATA     30,63,37,41,63,30,1,17,63,63,1,11090DATA     17,51,39,45,57,17,34,35,41,61,55,341100DATA     6,14,26,63,63,2,58,59,41,41,47,381110DATA     30,63,41,41,47,6,32,35,39,44,5?:? "  (Fanfold paper suggested)"200?:?:? " HOW MANY LETTERS CAN YOUR      PRINTER PRINT ON A SINGLE      LINE? "; :INPUT ""; cl220IF cl>=7 AND cl<=136 THEN 270230?240? "I DON'T THINK THAT'S RIGHT."250? "PLEASE CHECK YOUR MANUAL. "260GOTO 200270HOME:VTAB 4280? " HOW TALL DO YOU WANT THE       LETTERS IN YOUR BANNER?"300?310? "<1> = Shortest; <"; INT(cl/7); "> =Tallest "; 320INPUT cc330IF cc<1 OR cc>INT(cl/7) THEN 300340HOME350VTAB 4:? " WHAT CHARACTER SHALL I USE TO  COMPOSE THE LETTERS OF YOU,24,12,24,631230DATA     63,63,28,14,63,63,30,63,33,33,63,301240DATA     63,63,36,36,60,24,30,63,33,34,63,291250DATA     63,63,36,38,63,25,16,57,41,41,47,61260DATA     32,32,63,63,32,32,63,63,1,1,63,631270DATA     60,62,3,3,62,60,63,63,6,12,6,631280DATA     51,63,12,12,63,51,48,56,15,15,56,481290DATA     35,39,45,57,49,33DATA     30,63,37,41,63,30,1,17,63,63,1,11090DATA     17,51,39,45,57,17,34,35,41,61,55,341100DATA     6,14,26,63,63,2,58,59,41,41,47,381110DATA     30,63,41,41,47,6,32,35,39,44,5 lc=lc+1:IF lc/3=INT(lc/3) THEN GOSUB 1700140 i$=MID$(ms$, n, 1)141IF i$<>" " THEN 145142FOR j=1 TO 13:?144NEXT j:GOTO 170145FOR j=1 TO 5: p(j)=0:NEXT j150GOSUB 1200160GOSUB 1500162?165?166?170NEXT n171PR #0176GET a$177IF a$="y" OR a$="Y" THEN 95180?:? CHR$(4); "run HELLO"730GET g$1000DIM b(5), p(5)1005DIM l(26, 5)1010RETURN1100 pf=1: lc=-11105FOR n=1 TO 261110FOR x=1 TO 51120READ a: b=01125FOR m=0 TO 4: a=a/21126IF a<>INT(a) THEN  b=b+2^(4-m)1127 a=INT(a):NEXT m1128 l(n, x)=b1134HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM    - BANNER6REM    - The Coleco Adam Entertainer7REM    - by Brian Sawyer - 19848REM    - modified by H.M.Guill - 198710? "          "; :INVERSE:? "          ":NORMAL12? "          "; :INVERSE:? "  BANNER  ":NORMAL14? "          "; :INVERSE:? "          ":NORMAL16?:? " (Suggested for 8.5x11 sheets)"18?:? "   This program enables you to"20? " print banners with medium to"22? " giant-sized letters. Insert a"24? " sheet of paper into prin6201615 b$="":FOR j=1 TO sz: b$=b$+CHR$(64+i):NEXT1620? b$; 1630NEXT p1635?1640NEXT y1645FOR j=1 TO 5:IF p(j)=2 THEN  p(j)=11646NEXT j1650RETURN1700IF pf=0 THEN RETURN1705PR #01710HOME:INVERSE:? "                              ":NORMAL1720?:FLASH:? " PREPARE PRINTER ":NORMAL1722?:?:?:? " LOAD PAPER, THEN HIT ANY KEY"1730GET g$1740HOME:?:POKE 17126, 25:TEXT1745PR #11750RETURN9500DATA   4,10,31,17,17,30,17,30,17,319510DATA   15,16,16,16,15,30,17,17,17,309520DATA   31,16,31,16,31,31,16,30,16UB 1000104HOME:INVERSE:? "                              ":NORMAL105?:? " SELECT LETTER SIZE (3 to 15) ":?:? "  4 = 1/4 page high letters"106?:? " 15 = full page letters"107?:INPUT " ENTER SIZE >> "; sz108?:?:?:INVERSE:? "                              ":NORMAL109?:? " Reading in data, Please wait."110GOSUB 1100115HOME:INVERSE:? "                              ":NORMAL116?:? " PLEASE ENTER BANNER MESSAGE"117?:? " (letters and spaces only)"120?:INPUT " >>> "; ms$125PR #0:?130FOR n=1 TO LEN(ms$)1356,481120DATA     22,63,41,41,63,22,16,57,41,43,62,281130DATA     0,0,54,54,0,0,0,0,109,110,0,0 1140DATA     0,8,28,54,99,65,18,18,18,18,18,181150DATA     65,99,54,28,8,0,16,48,37,45,56,161160DATA     30,63,33,45,61,29,15,31,50,50,31,151170DATA     63,63,41,41,63,22,30,63,33,33,51,181180DATA     63,63,33,51,30,12,63,63,41,41,41,331190DATA     63,63,40,40,40,32,30,63,33,37,39,391200DATA     63,63,8,8,63,63,33,33,63,63,33,331210DATA     2,3,1,1,63,62,63,63,12,30,51,331220DATA     63,63,1,1,1,1,63,630NEXT x1140NEXT n1150RETURN1200 i=ASC(i$)-961210IF i>-32 AND i<-5 THEN  i=i+321220IF i>26 OR i<1 THEN  i=11230RETURN1500FOR h=1 TO 5: b(h)=l(i, h):NEXT h1510FOR h=1 TO 51520FOR s=5 TO 1 STEP -11530 b(s)=b(s)/21550IF b(s)=INT(b(s)) THEN 15551551 p(s)=21555 b(s)=INT(b(s))1570NEXT s1575GOSUB 16001580NEXT h1590RETURN1600FOR y=1 TO 31605FOR p=5 TO 1 STEP -11610 b$=LEFT$("                                        ", sz)1612IF p(p)=1 THEN  p(p)=0:GOTO 16151613IF p(p)=2 THEN GOTO 16151614GOTO 1ter"26? " so the top is sticking out "28? " about one inch. Select the "30? " size letters you want printed"32? " and then enter your message."34? " It will be printed vertically"36? " on the paper as a banner. If"38? " the banner has not been "40? " completely printed, the pro-"42? " gram will pause at the end of"44? " each piece of paper so you "46? " can insert a new piece. Press"48? " any key, and the printing "50? " will resume."52INPUT "                     <return> "; qx$60CLEAR100GOS,169530DATA   14,16,23,18,14,17,17,31,17,179540DATA   28,8,8,8,28,7,2,2,18,149550DATA   18,20,24,20,18,16,16,16,16,319560DATA   10,21,21,21,21,14,17,17,17,179570DATA   14,17,17,17,14,30,17,30,16,169580DATA    14,17,17,21,14,30,17,30,18,179590DATA   14,16,14,1,14,31,4,4,4,49600DATA   17,17,17,17,14,17,17,10,10,49610DATA   21,21,21,21,10,17,10,4,10,179620DATA   17,10,4,4,4,31,2,4,8,31,31                              ", sz)1612IF p(p)=1 THEN  p(p)=0:GOTO 16151613IF p(p)=2 THEN GOTO 16151614GOTO 11)1335IF c$(m)="." THEN  c$(m)=" "1336IF c$(m)="!" THEN  c$(m)="["1340IF c$(m)=" " THEN  m=m-1:GOSUB 1500: m=01350NEXT n1360IF m>0 THEN GOSUB 15001390RETURN1400PR #11405FOR n=yn TO 281410?1420NEXT n1425PR #01430RETURN1500?1510FOR h=5 TO 1 STEP -11520FOR s=1 TO m1540 i=ASC(c$(s))-961542IF i>-32 AND i<-4 THEN  i=11543IF i>27 OR i<1 THEN  i=11545 b=l(i, h)1546FOR t=5 TO 1 STEP -11547 b=b/21548 i$=" "1550IF b<>INT(b) THEN  i$="*"1555 b=INT(b)1560? i$; 1570NEXT t1575? "  "; 1580NEXT s4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM      - GREETINGS6REM      - The Coleco Adam Entertainer7REM      - by Brian Sawyer - 19848REM      - modified by H.M.Guill - 198710?15? "          "; 20INVERSE:? "           ":NORMAL25? "          "; 30INVERSE:? " Greetings ":NORMAL35? "          "; 40INVERSE:? "           ":NORMAL45?:?50GOTO 400095CLEAR100GOSUB 1000105GOSUB 1100110GOSUB 1200120GOSUB 1300125GOSUB 1600127 yn=yn-16+INT(q/2)128GOSUB 1400130GOSUB 1700135HOME:INV1700PR #11710FOR n=1 TO q-11720 tb=60-INT(LEN(n$(n))/2)1730? TAB(tb); n$(n)1740NEXT n1745PR #01750RETURN1900HOME1910?:INVERSE:? " MESSAGE CONTAINS ILLEGAL     "1912? "                              "1915? " CHARACTERS, TRY AGAIN.       ":NORMAL1920FOR t=1 TO 1800:NEXT t1925RETURN2000HOME2010?:INVERSE:? " WORD TOO LONG (5 letters max)"2012? "                              "2015? " TRY AGAIN.                   ":NORMAL2020FOR t=1 TO 1800:NEXT t2030RETURN2100HOME2110?:INVERSE:? " TOO MANY WOReach.)"1235?:? " Press <RETURN> when finished."1236?1237INPUT ms$1238FOR n=LEN(ms$) TO 1 STEP -1:IF MID$(ms$, n, 1)=" " THEN NEXT n1239 ms$=MID$(ms$, 1, n)1240FOR n=1 TO LEN(ms$)1242 c$=MID$(ms$, n, 1)1243IF c$=" " AND le=0 THEN 12481244IF c$=" " THEN  wd=wd+1: le=0: m$=m$+" ":GOTO 12481245 m$=m$+c$1246 le=le+1:IF le>5 THEN GOSUB 2000:GOTO 12001248NEXT n:IF wd>4 THEN GOSUB 2100:GOTO 12001249 ms$=m$1250RETURN1300PR #11305 m=01310FOR n=LEN(ms$) TO 1 STEP -11315 m=m+11330 c$(m)=MID$(ms$, n, 6201615 b$="":FOR j=1 TO sz: b$=b$+CHR$(64+i):NEXT1620? b$; 1630NEXT p1635?1640NEXT y1645FOR j=1 TO 5:IF p(j)=2 THEN  p(j)=11646NEXT j1650RETURN1700IF pf=0 THEN RETURN1705PR #01710HOME:INVERSE:? "                              ":NORMAL1720?:FLASH:? " PREPARE PRINTER ":NORMAL1722?:?:?:? " LOAD PAPER, THEN HIT ANY KEY"1730GET g$1740HOME:?:POKE 17126, 25:TEXT1745PR #11750RETURN9500DATA   4,10,31,17,17,30,17,30,17,319510DATA   15,16,16,16,15,30,17,17,17,309520DATA   31,16,31,16,31,31,16,30,161590?1592 yn=yn+11595NEXT h1596?1597 yn=yn+21599RETURN1600 q=11605PR #01606HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL1607?:? " PLEASE ENTER THE LINES OF"1608?:? " YOUR MESSAGE FOR INSIDE THE "1609?:? " CARD. (up to 40 characters":?:? " per line and 25 lines)"1610?:? " ________________________________________|"1614GOSUB 30001615IF LEN(n$(q))>40 THEN ?:INVERSE:? " LINE TOO LONG. ":NORMAL:GOTO 16141620IF n$(q)="q" OR n$(q)="Q" THEN RETURN1625 q=q+11630IF q<30 THEN 16141640RETURNERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL:?:? " DO YOU WANT ANOTHER ONE?"136?:? " (y or n)"137GET a$:IF a$="y" OR a$="Y" THEN 95140?:? CHR$(4); "run HELLO"1000DIM c$(10), n$(30)1005DIM l(27, 5)1010RETURN1100REM     1105FOR n=1 TO 271110FOR x=1 TO 51120READ l(n, x)1130NEXT x1140NEXT n1150RETURN1200 le=0: wd=1: m$=""1210?:? " PLEASE ENTER MESSAGE FOR THE"1212?:? " FRONT OF THE CARD."1220?:? " (Up to 4 words, separated by"1225? " spaces, having a maximum of 5"1230? " lower case letters DS (4 word limit)"2112? "                              "2115? " TRY AGAIN.                   ":NORMAL2120FOR t=1 TO 1800:NEXT t2130RETURN3000GET a$3005IF a$=CHR$(13) THEN 30503020? a$; 3030 n$(q)=n$(q)+a$3040GOTO 30003050IF LEN(n$(q))>40 THEN ?:INVERSE:? " LINE TOO LONG. TRY AGAIN.    ":NORMAL: n$(q)="":GOTO 30003060 is=0:?:RETURN4000?:?:? "   This program makes a simple"4010?:? " greeting card using an 8.5x11"4020?:? " sheet of paper, your message"4030?:? " and the Adam printer."4040?:?:? "is always fold-"4590? " ed toward the outside. The "4600? " completed card will contain"4610? " your greeting on the front "4620? " and your message on the "4630? " inside."4640?:?:INPUT " Press <return> to begin."; zx$4650HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4660?:?:GOTO 1009500DATA     4,10,31,17,17,30,17,30,17,319510DATA     15,16,16,16,15,30,17,17,17,309520DATA     31,16,31,16,31,31,16,30,16,169530DATA     14,16,23,18,14,17,17,31,17,179540DATA     28,8,8,8,28,7,2,2,18,1495="n" THEN 46504200HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4210?:? "   Now run the program and"4220? " enter a cover message using"4230? " lower case letters. The cover"4240? " message should be 4 words or"4250? " less, and each word should   "4260? " not have more than 5 letters."4270? " You may use any letter in the"4280? " alphabet plus the exclamation"4290? " point. Type the message into"4300? " the computer, using spaces to"4310? " separate each word, and then"4320? " press reis always fold-"4590? " ed toward the outside. The "4600? " completed card will contain"4610? " your greeting on the front "4620? " and your message on the "4630? " inside."4640?:?:INPUT " Press <return> to begin."; zx$4650HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4660?:?:GOTO 1009500DATA     4,10,31,17,17,30,17,30,17,319510DATA     15,16,16,16,15,30,17,17,17,309520DATA     31,16,31,16,31,31,16,30,16,169530DATA     14,16,23,18,14,17,17,31,17,179540DATA     28,8,8,8,28,7,2,2,18,1495URN. When you are finished"4460? " with your message, type a "4470? " lower case 'q' on a new line"4480? " and press RETURN. Your "4490? " message will now be printed"4500? " in the lower right corner of"4510? " the paper."4520?:INPUT "                     <return> "; zx$4530HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4540?:? "   When the printer stops,"4550? " remove the paper, fold it in"4560? " half lengthwise and then in"4570? " half widthwise. Make sure the"4580? " cover message  Would you like instructions?"4050?:INPUT " y/n "; qx$4060IF qx$="Y" OR qx$="y" THEN 41004070IF qx$="N" OR qx$="n" THEN 41004080GOTO 40504100HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4110?:?:? " FIRST insert an 8.5x11-inch"4120? " sheet of paper into the "4130? " printer, making sure that the"4140? " top of the paper is flush "4150? " with the three small guide"4160? " rollers."4170?:?:INPUT " Press <return> to continue."; zx$4180IF qx$="Y" OR qx$="y" THEN 42004190IF qx$="N" OR qx$50DATA     18,20,24,20,18,16,16,16,16,319560DATA     10,21,21,21,21,14,17,17,17,179570DATA     14,17,17,17,14,30,17,30,16,169580DATA     14,17,17,14,1 ,30,17,30,18,179590DATA     14,16,14,1,14,31,4,4,4,49600DATA     17,17,17,17,14,17,17,10,10,49610DATA     21,21,21,21,10,17,10,4,10,179620DATA     17,10,4,4,4,31,2,4,8,319630DATA     4,4,4,0,4hen the printer stops,"4550? " remove the paper, fold it in"4560? " half lengthwise and then in"4570? " half widthwise. Make sure the"4580? " cover message turn. The Adam will"4330? " print each word inverted in"4340? " rows of large letters."4350?:INPUT "                     <return> "; zx$4360HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4370?:? " Next, enter the lines for the"4380? " message that will appear"4390? " inside the card. This may be "4400? " upper or lower case letters."4410? " A line should be no more than"4420? " 40 characters long and you"4430? " can enter as many as 25 lines"4440? " End each line by pressing "4450? " RET4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM         - GREETINGS6REM         - The Coleco Adam Entertainer7REM         - by Brian Sawyer - 19848REM     - REPEAT-A-DESIGN9REM     - Basic and the Personal Computer10REM     - Thomas Dwyer & Margot Critchfield - 197815REM     - Combined & modified for ADAM by H.M.Guill - 198720INVERSE:? "                              "30? "     REPEATING DESIGN CARD    "40? "                              ":NORMAL45?:?50GOTO 400095CLEAR100GOSUB 1000:? " sheet of paper, your design,"4030?:? " your message and the printer."4040?:?:? " Would you like instructions?"4050?:INPUT " y/n "; qx$4060IF qx$="Y" OR qx$="y" THEN 41004070IF qx$="N" OR qx$="n" THEN 41004080GOTO 40504100HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4110?:?:? " FIRST insert an 8.5x11-inch"4120? " sheet of paper into the "4130? " printer, making sure that the"4140? " top of the paper is flush "4150? " with the three small guide"4160? " rollers."4170?:?:INPUT " Pres 21130? " XXXXXXXXX"1140IF i=2 THEN 11901150FOR j=1 TO 6:? " X       X":NEXT j1160NEXT i1190?:? " TYPE IN YOUR DESIGN."1200?:? " IT SHOULD BE "; a; " STRINGS,":?:? " EACH "; b; " CHARACTERS LONG."1210?:? " FOLLOW EA. STRING WITH RETURN"1215?:? " IF YOU MAKE A MISTAKE,":?:? " TYPE STOP."1225FOR i=1 TO 91226 p$(i)=""1230?:? " DESIGN = >>>  _________"1231INPUT "               "; s$1240IF s$="STOP" OR s$="stop" THEN 12201250FOR j=1 TO 4: p$(i)=p$(i)+s$:NEXT j1260NEXT i1270 c=271275 n=01280FOR times in 3 rows forming a  "4310? " block in the upper left quad-"4320? " rant of the paper. This block"4330? " however, will later be folded"4340? " over and appear upside down, "4342? " so plan your design with this"4344? " in mind."4350?:INPUT "                     <return> "; zx$4360HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4370?:? " Next, enter the lines for the"4380? " message that will appear"4390? " inside the card. This may be "4400? " upper or lower case letters."4410? " AOO LONG. ":NORMAL:GOTO 16141620IF n$(q)="q" OR n$(q)="Q" THEN RETURN1625 q=q+11630IF q<30 THEN 16141640RETURN1700PR #11710FOR n=1 TO q-11720 tb=60-INT(LEN(n$(n))/2)1730? TAB(tb); n$(n)1740NEXT n1745PR #01750RETURN3000GET a$3005IF a$=CHR$(13) THEN 30503020? a$; 3030 n$(q)=n$(q)+a$3040GOTO 30003050IF LEN(n$(q))>40 THEN ?:INVERSE:? " LINE TOO LONG. TRY AGAIN.":NORMAL: n$(q)="":GOTO 30003060 is=0:?:RETURN4000?:?:? "   This program makes a simple"4010?:? " greeting card using an 8.5x11"4020?105GOSUB 1100110GOSUB 1600115 yn=yn-16+INT(q/2)120GOSUB 1400130GOSUB 1700135HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL:?:? " DO YOU WANT ANOTHER ONE?"136?:? " (y or n)"137GET a$:IF a$="y" OR a$="Y" THEN 95140?:? CHR$(4); "run HELLO"1000DIM c$(10), n$(30)1002PR #11004?:?1006PR #01010RETURN1100REM     - routine for inputing and printing cover design *******************************1102HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL:?1105 a=9: b=91110DIM p$(9)1120FOR i=1 TOs <return> to continue."; zx$4180IF qx$="Y" OR qx$="y" THEN 42004190IF qx$="N" OR qx$="n" THEN 46504200HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4210?:? "   Now run the program and"4220? " enter a cover design that has"4230? " 9 rows of 9 characters or"4240? " spaces. The first and 9th "4250? " space of each row must have a"4260? " character in order to retain "4270? " the proper spacing and format"4280? " for your design. The program "4290? " will then repeat your design"4300? " 4 i=1 TO 991290FOR j=1 TO 91295 n=n+11300IF n>c THEN 13901305PR #11310? p$(j)1320NEXT j1330NEXT i1350PR #01390RETURN1400PR #11405?1410?1420?:?1425PR #01430RETURN1600 q=11605PR #01606HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL1607?:? " PLEASE ENTER THE LINES OF"1608?:? " YOUR MESSAGE FOR INSIDE THE "1609?:? " CARD. (up to 40 characters":?:? " per line and 25 lines)"1610?:? " ________________________________________|"1614GOSUB 30001615IF LEN(n$(q))>40 THEN ?:INVERSE:? " LINE T line should be no more than"4420? " 40 characters long and you"4430? " can enter as many as 25 lines"4440? " End each line by pressing "4450? " RETURN. When you are finished"4460? " with your message, type a "4470? " lower case 'q' on a new line"4480? " and press RETURN. Your "4490? " message will now be printed"4500? " in the lower right corner of"4510? " the paper."4520?:INPUT "                     <return> "; zx$4530HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4540?:? "   When the  i: p=0400IF a1>60 THEN 200410GOTO 210600DATA     60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5      610DATA     4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4         620DATA     4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4630DATA     4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4640DATA     4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 650DATA     1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1 660DATA     5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1 670DATA 4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM    - LOVE6REM    - Program by David H.Ahl7REM    - Basic Computer Programs - by David H.Ahl - 19788REM    - Program conversion by Steve North - 19789REM    - Modified for ADAM by H.M.Guill - 198710?:? "          "; 12FOR x=1 TO 10:? CHR$(132); :NEXT x:? " "14? "          "; CHR$(132); :INVERSE:? "        "; CHR$(132):NORMAL16? "          "; CHR$(132); :INVERSE:? "  LOVE  "; CHR$(132):NORMAL18? "          "; CHR$(132); :INVERSE:? "        i: p=0400IF a1>60 THEN 200410GOTO 210600DATA     60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5      610DATA     4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4         620DATA     4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4630DATA     4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4640DATA     4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 650DATA     1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1 660DATA     5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1 670DATA NTER. ":?54FOR x=1 TO 3056? CHR$(132); 58NEXT x:?:?60?:?:? " YOUR MESSAGE, PLEASE..."61?:? "(omit spaces for best results)"62? " ____________________________________________________________"64?:INPUT a$: l=LEN(a$)70DIM t$(120):PR #1:FOR i=1 TO 5:?:NEXT i100FOR j=0 TO INT(60/l)110FOR i=1 TO l120 t$(j*l+i)=MID$(a$, i, 1)130NEXT i, j140 c=0200 a1=1: p=1: c=c+1:IF c=37 THEN 999205?210READ a: a1=a1+a:IF p=1 THEN 300240FOR i=1 TO a:? " "; :NEXT i: p=1:GOTO 400300FOR i=a1-a TO a1-1:? t$(i); :NEXTprinter stops,"4550? " remove the paper, fold it in"4560? " half lengthwise and then in"4570? " half widthwise. Make sure the"4580? " cover design is always folded"4590? " toward the outside. The "4600? " completed card will contain"4610? " your design on the front"4620? " and your message on the "4630? " inside."4640?:?:INPUT " Press <return> to begin."; zx$4650HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL4660?:?:GOTO 100d. This may be "4400? " upper or lower case letters."4410? " A    6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10680DATA     7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10 690DATA     8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1700DATA     9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1710DATA     11,8,13,27,1,11,8,13,27,1,60800REM  999FOR i=1 TO 5:?:NEXT i:PR #01000?:? CHR$(4); "run HELLO"0 c=0200 a1=1: p=1: c=c+1:IF c=37 THEN 999205?210READ a: a1=a1+a:IF p=1 THEN 300240FOR i=1 TO a:? " "; :NEXT i: p=1:GOTO 400300FOR i=a1-a TO a1-1:? t$(i); :NEXT "; CHR$(132):NORMAL20? "          "; 22FOR x=1 TO 10:? CHR$(132); :NEXT x:? " "24?26? "   This program is a tribute"28?:? " to the great American artist,"30?:? " Robert Indiana. His great "32?:? " work will be reproduced with"34?:? " a message of your choice up "36?:? " to 60 characters. If you can"38?:? " not think of a message, just"40?:? " type the word 'LOVE'."42?:INPUT "                     <return> "; qx$44HOME46FOR x=1 TO 3048? CHR$(132); 50NEXT x:? ""52?:? " BE SURE PAPER IS IN PRI1HOME4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM   - BUNNY6REM   - Basic Computer Games7REM   - by David H.Ahl - 19788REM   - Modified for ADAM by Bradley S.Guill - 198410?:? "         "; :INVERSE:? "             ":NORMAL11? "         "; :INVERSE:? "  B U N N Y  ":NORMAL12? "         "; :INVERSE:? "             ":NORMAL20?:?:? "     This program prints a"30?:? "   facsimile of a well known"40?:? "         BUNNY emblem."50?:?:?:INPUT " Do you want a print?  y/n "; qx$60IF qx$="nDATA     19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1360DATA      8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1370DATA     4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1380DATA       2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,34,-1390DATA         14,17,19,25,28,35,      -1,15,19,23,30,36,36,-1400DATA     14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1410DATA     12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1420DATA     10,11,17,18,22,22,24,24,29,29,-1430DATA     22,23,26,29,-1,27,29,-1,28,29,-1,4096450PR #046*INT(i/5)200? CHR$(l+b(j)); 210NEXT i220GOTO 170230REM    240GOSUB 260:GOTO 450250REM    260FOR i=1 TO 6:? CHR$(10); :NEXT i270RETURN280REM    290DATA       2,21,14,14,25300DATA           2,3,-1,1,3,45,50,-1,1,5,43,52,-1,1,7,41,52,-1310DATA      1,9,38,51,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1320DATA     5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1330DATA     9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1340DATA     13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1350XT l45?48NEXT k49?55NEXT i60PR #0: p=p+1:GOSUB 600110FOR i=67 TO 101 STEP 5115? i, i+1, i+2, i+3, i+4120FOR k=1 TO 5125FOR l=0 TO 4130FOR j=1 TO 10135? CHR$(i+l); 140NEXT j145? "     "; 150NEXT l155?160NEXT k165?170NEXT i175 p=p+1:PR #0180GOSUB 600210FOR i=102 TO 126 STEP 5215? i, i+1, i+2, i+3, i+4220FOR k=1 TO 5225FOR l=0 TO 4230FOR j=1 TO 10235? CHR$(i+l); 240NEXT j245? "     "; 250NEXT l255?260NEXT k265?270NEXT i280?:?:?:?290PR #0:HOME:?:?300GOTO 700500?:? " This pro0?:? CHR$(4); "run HELLO"); 210NEXT i220GOTO 170230REM    240GOSUB 260:GOTO 450250REM    260FOR i=1 TO 6:? CHR$(10); :NEXT i270RETURN280REM    290DATA       2,21,14,14,25300DATA           2,3,-1,1,3,45,50,-1,1,5,43,52,-1,1,7,41,52,-1310DATA      1,9,38,51,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1320DATA     5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1330DATA     9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1340DATA     13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1350" OR qx$="N" THEN 46065HOME:INVERSE:? "                              ":NORMAL70?:FLASH:? " PREPARE PRINTER ":NORMAL80?:?:?:? "  INSERT PAPER IN PRINTER WITH"82?:? " TOP STICKING OUT ABOUT 1-INCH"84?:? " AND LEFT EDGE UP AGAINST THE"86?:? " LEFT ROLLER SUPPORT ARM."90?:?:?:?:INPUT " PRESS <RETURN> WHEN READY "; qx$100PR #1110REM    120FOR i=0 TO 4:READ b(i):NEXT i130GOSUB 260140 l=64:REM    150REM    160?170READ x:IF x<0 THEN 160175IF x>128 THEN 240180? TAB(x); :READ y190FOR i=x TO y: j=i-52HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT3REM    - ALPHANUMERIC CHARACTER SET4REM    - Basic and the Personal Computer5REM    - Thomas Dwyer & Margot Critchfield - 19786REM    - Modified for ADAM by H.M.Guill - 19877INVERSE:? "                              ":? "         S A M P L E S        "8? "                              ":NORMAL9 p=1:GOSUB 50010FOR i=32 TO 66 STEP 515? i, i+1, i+2, i+3, i+418FOR k=1 TO 520FOR l=0 TO 425FOR j=1 TO 1030? CHR$(i+l); 35NEXT j38? "     "; 40NEDATA     19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1360DATA      8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1370DATA     4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1380DATA       2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,34,-1390DATA         14,17,19,25,28,35,      -1,15,19,23,30,36,36,-1400DATA     14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1410DATA     12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1420DATA     10,11,17,18,22,22,24,24,29,29,-1430DATA     22,23,26,29,-1,27,29,-1,28,29,-1,4096450PR #046gram prints helpful"510?:? " reference sheets containing"520?:? " blocks of each usable ASCII"530?:? " character. This way you can"540?:? " see both the patterns they"550?:? " produce, and the shades of"560?:? " gray the eye perceives when"570?:? " looking at a given group of"580?:? " characters."590?:?:INPUT " Would you like a print? y/n "; yn$592IF yn$="n" OR yn$="N" THEN 700600REM  610HOME:INVERSE:? "                              ":NORMAL620?:FLASH:? " PREPARE PRINTER ":NORMAL630?:?:?:? " Ine a"320?:? " textile or wallpaper design"322?:? " that does not involve some"324?:? " element of repetition."330?:?:INPUT "                     <RETURN> "; qx$332HOME:INVERSE:? "<o><o><o><o><o><o><o><o><o><o>":NORMAL334?:? " This program allows the"336?:? " artist to specify a rectang-"338?:? " ular pattern as the basic"340?:? " element of a design. The     "342?:? " design can then be printed "344?:? " across and down a sheet as "346?:? " many times as desired."390?:?:INPUT "                 4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM    - SIMPLE REPEAT-A-DESIGN6REM    - Basic and the Personal Computer7REM    - Thomas Dwyer & Margot Critchfield - 19788REM    - Modified for ADAM by H.M.Guill - 19879GOSUB 30010DIM p$(10):HOME:INVERSE:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":NORMAL20?:? " HOW MANY CHARACTERS PER LINE?"25?:INPUT " (3 to 10)>>> "; c30?:?:? " HOW MANY LINES PER BLOCK?"35?:INPUT " (3 to 10)>>> "; l36?:?:? " HOW MANY ROWS OF BLOCKS?"37?:? " (1 to "; INT(60/l); ")ne a"320?:? " textile or wallpaper design"322?:? " that does not involve some"324?:? " element of repetition."330?:?:INPUT "                     <RETURN> "; qx$332HOME:INVERSE:? "<o><o><o><o><o><o><o><o><o><o>":NORMAL334?:? " This program allows the"336?:? " artist to specify a rectang-"338?:? " ular pattern as the basic"340?:? " element of a design. The     "342?:? " design can then be printed "344?:? " across and down a sheet as "346?:? " many times as desired."390?:?:INPUT "                 k250?260NEXT j270NEXT i275PR #0280GOTO 600300? "X[0]X[0]X[0]X[0]X[0]X[0]X[0]X["302? "X[0]X["; :INVERSE:? "                   "; :NORMAL:? "[X]0["304? "X[0]X["; :INVERSE:? " REPEAT-A-DESIGN I "; :NORMAL:? "[X]0["306? "X[0]X["; :INVERSE:? "                   "; :NORMAL:? "[X]0["308? "X[0]X[0]X[0]X[0]X[0]X[0]X[0]X["310?:? "  Artists have used repetitive"312?:? " design throughout the ages to"314?:? " produce art that is both "316?:? " intriguing and beautiful. It"318?:? " is pretty hard to imagiNSERT PAPER IN PRINTER AND"640?:INPUT " PRESS <RETURN> "; qx$645PR #1650HOME:?:? " ASCII CHARACTER SAMPLE BLOCKS                                 page "; p; " of 3":?:?660RETURN700? CHR$(4); "run HELLO" l155?160NEXT k165?170NEXT i175 p=p+1:PR #0180GOSUB 600210FOR i=102 TO 126 STEP 5215? i, i+1, i+2, i+3, i+4220FOR k=1 TO 5225FOR l=0 TO 4230FOR j=1 TO 10235? CHR$(i+l); 240NEXT j245? "     "; 250NEXT l255?260NEXT k265?270NEXT i280?:?:?:?290PR #0:HOME:?:?300GOTO 700500?:? " This pro    <RETURN> "; qx$400RETURN500HOME:INVERSE:? "                              ":NORMAL510?:FLASH:? " PREPARE PRINTER ":NORMAL520?:?:? " INSERT PAPER IN PRINTER AND"530?:INPUT " PRESS <RETURN> WHEN READY "; qx$540RETURN600HOME:INVERSE:? "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":NORMAL610?:?:? " Would you like to create"620?:INPUT " another design?  y/n "; yn$630IF yn$="Y" OR yn$="y" THEN CLEAR:GOTO 10640IF yn$="n" OR yn$="N" THEN 660650GOTO 620660HOME:?:?:? " BYE!":?670?:? CHR$(4); "run HELLO"d to imagi>>> "; 38INPUT r39HOME:INVERSE:? "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&":NORMAL40FOR j=1 TO l50?:?:? " TYPE "; c; " CHARACTERS "52?:? " FOR LINE #"; j; " >>> "; 60INPUT p$(j)70NEXT j100?:?:? " HOW MANY BLOCKS ACROSS?"105?:? " (up to "; INT(78/c); ")>>> "; :INPUT b110?:?:? " YOU NEED A PRINTER WITH "; b*c112?:? " COLUMNS. WANT TO CHANGE THE #"120?:? " OF BLOCKS PER ROW (0=NO) ? "; 125INPUT a130IF a>0 THEN 100140GOSUB 500150PR #1:?200FOR i=1 TO r210FOR j=1 TO l220FOR k=1 TO b230? p$(j); 240NEXT 4HOME:POKE 17059, 13:POKE 17115, 111:POKE 17126, 75:TEXT10REM   - ELECTRIC20REM   - by John M.Nevison - October 1,197730REM   - This a styled version of an original Basic-Plus program by M.Shore40REM   - ref: Basic and the Personal Computer50REM   - by Thomas Dwyer & Margot Critchfield - 197860REM   - modified for ADAM by H.M.Guill - 1987100REM   *******************************110INVERSE:? "@@%%\\\\\\!!!!!!!!!!//////%%@@"120? "@>>=-"; :NORMAL:? " ELECTRIC FIELD ART "; :INVERSE:? "-=<<@"130? "@@%%\EXT i500PR #1:?:?510FOR j=1 TO 120 STEP 2520LET x=j*SQR(3)/2530FOR y=1 TO 78540GOSUB 740550LET v=(v+1)*50560IF v>=32 THEN 580570LET v=32580REM  590IF v<=126 THEN 610600LET v=126610REM  620LET b$=CHR$(v)630IF v<=INT(v)+.5 THEN 650640LET b$=" "642IF b$=" " THEN INVERSE650REM  660? b$; 662NORMAL670NEXT y680?690NEXT j700REM  710GOTO 940720REM  730REM  740REM   - subroutine: charge at point750REM   - in: x,y,x(),y(),c()760REM   - out: v770REM  780REM   - calculate the total charge,terns"156?:? " you must input the number of"158?:? " point charges, their location"160?:? " on a 78 wide x 120 long grid,"162?:? " and the strength of each of"164?:? " the charges. More than 4 or"166?:? " 5 points, however, tend to"167?:? " overcrowd the field and slow"168?:? " the printing way down with "169?:? " added calculation time."170?:INPUT "                     <return> "; qx$172HOME:INVERSE:? "##############################":NORMAL180REM   *******************************190REM   - varEXT i500PR #1:?:?510FOR j=1 TO 120 STEP 2520LET x=j*SQR(3)/2530FOR y=1 TO 78540GOSUB 740550LET v=(v+1)*50560IF v>=32 THEN 580570LET v=32580REM  590IF v<=126 THEN 610600LET v=126610REM  620LET b$=CHR$(v)630IF v<=INT(v)+.5 THEN 650640LET b$=" "642IF b$=" " THEN INVERSE650REM  660? b$; 662NORMAL670NEXT y680?690NEXT j700REM  710GOTO 940720REM  730REM  740REM   - subroutine: charge at point750REM   - in: x,y,x(),y(),c()760REM   - out: v770REM  780REM   - calculate the total charge,U WANT?"360?:INPUT " (1 to 7 >>> "; n370FOR i=1 TO n372HOME:INVERSE:? "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@":NORMAL380?:?:? " TYPE IN THE X AND Y POSITION"390?:? " OF CHARGE #"; i392?:INPUT " (1-120,1-78 >>> "; x(i), y(i)400NEXT i410FOR i=1 TO n420LET x(i)=x(i)*SQR(3)/2430NEXT i432HOME:INVERSE:? "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%":NORMAL440?:?:? " TYPE IN THE SIZE OF EACH "442?:? " CHARGE. USE +/- 4 AS HIGH OR "444?:? " LOW. (-4 to 4)"460FOR i=1 TO n470?:? " CHARGE #"; i; " >>> "; 480INPUT c(i)490N\\\\\!!!!!!!!!!//////%%@@":NORMAL132?:? "  This program generates ASCII"134?:? " characters in patterns that"136?:? " describe the potential of an"138?:? " electrical field about 1 or "140?:? " more point charges."142?:? " Formulas calculate the field "144?:? " potentials based upon the   "146?:? " distances between points and "148?:? " their charge strengths."150?:INPUT "                     <return> "; qx$152HOME:INVERSE:? "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&":NORMAL154?:? "   To generate these patv,at a point, (x,y),790REM   - in the field800REM  810LET v=0820FOR i=1 TO n830LET d=SQR((x-x(i))^2+(y-y(i))^2)840IF d=0 THEN 870850LET v=v+c(i)/d860GOTO 900870REM  880LET v=99999890GOTO 920900REM  910NEXT i920REM  930RETURN940PR #0950CLEAR:HOME:INVERSE:? "******************************":NORMAL960?:? " DO YOU WANT TO MAKE ANOTHER"970?:INPUT " ELECTRIC PICTURE? (y/n >>> "; yn$980IF yn$="Y" OR yn$="y" THEN 172990HOME:?:?:?:? " BYE!"1000?:? CHR$(4); "run HELLO" >>> "; 480INPUT c(i)490Niables:200REM   -  c(i)...size of charge I210REM   -  d......distance from point to charge220REM   -  i,j....index variables230REM   -  n......number of charges240REM   -  v......value of the field at x,y250REM   -  x,y....x and y position in the field260REM   -  x(i)...x position of charge I270REM   -  y(i)...y position of charge I280REM   *******************************300REM   - main program320REM   - plot the electric field that surrounds a set of point charges350?:? " HOW MANY CHARGES DO YO4HOME:POKE 17059, 5:POKE 17115, 245:POKE 17126, 177:TEXT5REM   - SKYLINE SAMPLES6REM   - Basic and the Personal Computer7REM   - by Thomas Dwyer & Margot Critchfield - 19788REM   - modified for ADAM by H.M.Guill - 19879?:? "  AA    S K Y L I N E S  XXX  "10? " MMMM                    XXX  "12? " MMMM  []   AA   ^^ ^^  XXXXX "14? "MMMMMM OO  HHHH  UU UU WWWWWWW"16? "MMMMMMOOOOHHHHHHUUUUUUUWWWWWWW"18? "MMMMMMOOOOHHHHHHUUUUUUUWWWWWWW"20?:? " This program generates unique"21? " abstract pictures of 61 THEN GOSUB 300116IF l=121 THEN GOTO 500120?130NEXT k140NEXT j150NEXT i160GOTO 500200INVERSE:? a$; :NORMAL:RETURN210? b$; :RETURN220INVERSE:? c$; :NORMAL:RETURN230? d$; :RETURN240INVERSE:? e$; :NORMAL:RETURN300PR #0:HOME310?:FLASH:? " PREPARE PRINTER ":NORMAL320?:?:? " ALIGN TOP OF PAGE SLIGHTLY"330?:? " ABOVE TOP OF PRINTER RIBBON"340?:INPUT " & PRESS <RETURN> WHEN READY "; zz$350PR #1:?:HOME:RETURN500PR #0:HOME510?:? " Do you want to print another"520?:INPUT " SKYLINE?  (y/n >>> "; y]]]]]]]]]]]]]]]]]]"38? " }}}}}}}}}}}}}}}}}}}}}}}}}":?:?40INPUT a$, b$, c$, d$, e$50HOME51?:? " HOW MANY CITY BLOCKS DO YOU"52?:? " WANT PRINTED? (each block is"53?:? " 25 typed lines and uses only"54?:? " one of the 5 strings for its"55?:? " base. 5 blocks =2 full pages)"56?:?:INPUT " ENTER 1 to 5 >>> "; n58 l=059GOSUB 30060FOR i=1 TO n70FOR j=1 TO n80FOR k=1 TO n90ON i GOSUB 200, 210, 220, 230, 240100ON j GOSUB 200, 210, 220, 230, 240110ON k GOSUB 200, 210, 220, 230, 240112 l=l+1114IF l=e program takes a set of":?:? " words, supplied by you, and":?:? " fits them into a word search"70?:? " puzzle."72?:INPUT "                     <return> "; qz$74HOME:INVERSE:? "******************************":NORMAL90?:? " In the course of making the":?:? " puzzle, the computer may find"92?:? " that a particular word won't"100?:? " fit, and will ask if you want":?:? " to start the whole puzzle"102?:? " over. If you don't, typing"110?:? " 'no' will throw that word":?:? " away. If this persists, try"n$530IF yn$="y" OR yn$="Y" THEN CLEAR:GOTO 30540IF yn$="n" OR yn$="N" THEN GOTO 600550GOTO 510600?:? CHR$(4); "run HELLO""52?:? " WANT PRINTED? (each block is"53?:? " 25 typed lines and uses only"54?:? " one of the 5 strings for its"55?:? " base. 5 blocks =2 full pages)"56?:?:INPUT " ENTER 1 to 5 >>> "; n58 l=059GOSUB 30060FOR i=1 TO n70FOR j=1 TO n80FOR k=1 TO n90ON i GOSUB 200, 210, 220, 230, 240100ON j GOSUB 200, 210, 220, 230, 240110ON k GOSUB 200, 210, 220, 230, 240112 l=l+1114IF l=big city"22? " skylines. The pictures are  "23? " created by using 5 strings of"24? " typed characters in various"25? " combinations. Each string"26? " should contain from 5 to 25"27? " of the same, but different,"28? " ASCII character. The output ":? " is then printed and shown":? " sideways."29?:INPUT "                     <return> "; qx$30HOME31?:? " PLEASE TYPE IN FIVE STRINGS"32?:? " (5 to 25 characters each)"33?:? " EXAMPLE:"34?:? " XXXXX"35? " HHHHHHHHHH"36? " |||||||||||||||"37? " ]]2 z=14POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM    - WORD SEARCH PUZZLE6REM    - Program by Leor Zolman7REM    - More Basic Computer Games8REM    - Program conversion by Steve North - 19799REM    - Modified for ADAM by H.M.Guill - 198710HOME:INVERSE:? "                              "11? "      WORD SEARCH PUZZLE      ":? "                              ":NORMAL40?:?50? " This program is a word search":?:? " puzzle maker."55?:INVERSE:? " ** USE NO CAPITAL LETTERS ** ":NORMAL60?:? " Th61 THEN GOSUB 300116IF l=121 THEN GOTO 500120?130NEXT k140NEXT j150NEXT i160GOTO 500200INVERSE:? a$; :NORMAL:RETURN210? b$; :RETURN220INVERSE:? c$; :NORMAL:RETURN230? d$; :RETURN240INVERSE:? e$; :NORMAL:RETURN300PR #0:HOME310?:FLASH:? " PREPARE PRINTER ":NORMAL320?:?:? " ALIGN TOP OF PAGE SLIGHTLY"330?:? " ABOVE TOP OF PRINTER RIBBON"340?:INPUT " & PRESS <RETURN> WHEN READY "; zz$350PR #1:?:HOME:RETURN500PR #0:HOME510?:? " Do you want to print another"520?:INPUT " SKYLINE?  (y/n >>> "; y120?:? " using either fewer words or ":?:? " larger puzzle dimensions."130?:INPUT "                     <return> "; qz$140HOME:INVERSE:? "******************************":NORMAL150?160REM   300DEF FN a(z)=INT(RND(1)*z+1)310 tw=80315? CHR$(7)320? " DO YOU WANT A PRINTOUT OF THE":?:INPUT " PUZZLE SOLUTION?  y/n "; x$322? CHR$(7)324HOME:INVERSE:? "******************************":NORMAL330?:? " ENTER A PUZZLE WIDTH  (6-36) ":?:INPUT " "; w: md=w340IF w*2<=tw-8 THEN 345343?:INVERSE:? " THAT WON'T WORAL:GOTO 480630 w$(i)=t$640NEXT i644? CHR$(7); chr4$(7)650HOME:INVERSE:? " THAT'S IT..."; m; " WORDS.        ":NORMAL660?:? " NOW I NEED TIME TO THINK..."680FOR i=1 TO m-1685FOR j=i+1 TO m690IF LEN(w$(i))<LEN(w$(j)) THEN  hz$=w$(i): w$(i)=w$(j): w$(j)=hz$700NEXT:NEXT710FOR i=1 TO 8:READ dxy(i, 1), dxy(i, 2):NEXT720FOR i=1 TO 28:READ dd(i):NEXT730DATA           0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1740DATA           2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7750FOR i=1 TO m760 ln=LENN 380376?:INVERSE:? " SORRY, "; mxw; " WORDS MAXIMUM ":NORMAL:?:GOTO 360380?390DIM a$(l, w), w$(m)400DIM w(m, 3), dxy(8, 2), dd(28)402HOME:INVERSE:? "******************************":NORMAL404?:? CHR$(7)410? " NOW ENTER A 'THEME' HEADING":?:? " TO BE PRINTED OVER THE PUZZLE"420?:? " ("; tw; " characters maximum) "430?:INPUT xy$432HOME:INVERSE:? "******************************":NORMAL435?:?440? " ENTER A WORD AT EACH '?'"448?450?:?:? " TYPE A '-' TO RE-DO A WORD."460?:?:? " TYPE A '.' WHEN YOU (j, k)<>MID$(w$(i), p, 1) THEN 790880 j=j+dxy(sd, 2): k=k+dxy(sd, 1):NEXT p900 j=sy: k=sx910FOR p=1 TO ln: a$(j, k)=MID$(w$(i), p, 1)920 j=j+dxy(sd, 2): k=k+dxy(sd, 1):NEXT940 w(i, 1)=sx: w(i, 2)=sy: w(i, 3)=sd950NEXT i970FOR i=1 TO l975FOR j=1 TO w980IF a$(i, j)="" THEN  a$(i, j)=CHR$(FN a(26)+96)990NEXT:NEXT1010FOR i=1 TO m-1:FOR j=i+1 TO m1020IF w$(i)<=w$(j) THEN 10301021 hz$=w$(i): w$(i)=w$(j): w$(j)=hz$1025FOR k=1 TO 3: hz=w(i, k): w(i, k)=w(j, k): w(j, k)=hz:NEXT k1030NEXT j:NEXT i1032HEN  t$=LEFT$(t$, j-1):GOTO 580550IF j=1 THEN  t$=RIGHT$(t$, LEN(t$)-1): j=j-1:GOTO 570560 t$=LEFT$(t$, j-1)+RIGHT$(t$, LEN(t$)-j): j=j-1570 j=j+1:IF j<=LEN(t$) THEN 520580? "-"; t$; "-"600IF LEN(t$)<=md THEN 610602?:INVERSE605? " THAT'S TOO LONG! ":? "                  "607? " TRY ANOTHER ONE. ":NORMAL:GOTO 480610FOR iz=1 TO i-1:IF w$(iz)<>t$ THEN NEXT:GOTO 630615? CHR$(7)620?:INVERSE:? " YOU ENTERED THAT ONE ALREADY!"622? "                              ":? " TRY ANOTHER WORD.            ":NORMK! ":NORMAL:GOTO 330345IF w<6 THEN 343348?:? CHR$(7)350? " ENTER A PUZZLE LENGTH  (6-40)"351?:INPUT " "; l:IF l>w THEN  md=l352?355IF l<6 OR l>40 THEN ?:INVERSE:? " THAT WON'T WORK! ":NORMAL:?:GOTO 350356HOME:INVERSE:? "******************************":NORMAL358?:? CHR$(7)360 mxw=INT(SQR(w*l))362? " ENTER THE MAXIMUM NUMBER OF":?:? " WORDS, (2-"; mxw; "), YOU WANT"364?:INPUT " TO USE IN THE PUZZLE "; m370IF m>=2 THEN 374372?:INVERSE:? " SORRY, 2 WORDS MINIMUM ":NORMAL:?:GOTO 360374IF m<=mxw THE(w$(i))770 nt=0790 sd=dd(FN a(28))800 sx=FN a(w): x1=sx+(ln-1)*dxy(sd, 1):IF x1<1 OR x1>w THEN 790810 sy=FN a(l): x1=sy+(ln-1)*dxy(sd, 2):IF x1<1 OR x1>l THEN 790820 nt=nt+1:IF nt<>w*l*2 THEN 850825? CHR$(7), CHR$(7)830?:?:? " I COULDN'T FIT":?:? " '"; w$(i); "'":?:? " INTO THE PUZZLE..."831?832?:? " DO YOU WANT ME TO LOOK AGAIN?":?:INPUT " y/n "; a$834IF LEFT$(a$, 1)="y" THEN 750835?:?:? " OK, I THREW THAT ONE OUT."836 w$(i)="":GOTO 950850 j=sy: k=sx860FOR p=1 TO ln870IF LEN(a$(j, k)) AND a$ARE DONE":?:? " ENTERING THE WORDS YOU WANT":?:? " IN THE PUZZLE."465?470FOR i=1 TO m480? CHR$(7):INPUT t$:IF t$="-" THEN  i=i-1:?:? " Re-do "; w$(i); "...":GOTO 480490IF t$="." THEN  m=i-1:GOTO 660500IF LEN(t$)=0 THEN ?:INVERSE:? " YOU GOOFED!  TRY AGAIN. ":NORMAL:GOTO 480510 j=1520 te$=MID$(t$, j, 1):IF te$>="a" AND te$<="z" THEN 570525IF te$<"A" OR te$>"Z" THEN 530527 t$=LEFT$(t$, j-1)+CHR$(ASC(MID$(t$, j, 1))+32)+RIGHT$(t$, LEN(t$)-j):GOTO 570530IF te$=t$ THEN  t$="":GOTO 500540IF j=LEN(t$) THOME:INVERSE:? "******************************":NORMAL1035?:? CHR$(7)1040? " HOW MANY COPIES OF THIS PUZZLE":?:INPUT " DO YOU WANT? "; n1045IF n<1 THEN  z=0: n=11050?:?:? " FOR EACH COPY, INSERT A SHEET":?:? " OF 8.5x11 PAPER, AND PRESS":?:? " <return> TO BEGIN PRINTING."1060FOR c=1 TO n:GOSUB 1070:NEXT:GOTO 12301070INPUT " "; a$:?1075PR #z1080 t=(tw-2*w)/2:?1090?1100? TAB((tw-LEN(xy$))/2); xy$1110?:?1120FOR j=1 TO l:? TAB(t); 1130FOR k=1 TO w:IF a$(j, k)="." THEN ? ". "; :GOTO 11401135? CHR$( up to 6"30?:? " words, up to 6 letters each, "40?:? " and equal in length. The"50?:? " computer will scramble them"60?:? " and print them in a matrix."62?:? " The computer will also print"70?:? " a corresponding number board."80?:?:? " Do you want to print a puzzle":?:INPUT " y/n ?"; qx$90IF qx$="n" OR qx$="N" THEN 88092HOME:INVERSE:? "                              ":NORMAL100?:? " HOW MANY WORDS DO YOU WANT?"105?:INPUT " (1 to 6) "; w110?:INVERSE:? "                              ":NORMAL112?: TO w: a$(i, j)=".":NEXT j:NEXT i1270FOR i=1 TO m1280 ln=LEN(w$(i)): j=w(i, 2): k=w(i, 1)1290FOR p=1 TO ln1300 a$(j, k)=MID$(w$(i), p, 1)1310 j=j+dxy(w(i, 3), 2): k=k+dxy(w(i, 3), 1):NEXT p1320NEXT i1325?1330 xy$=" HERE IS THE ANSWER KEY:"1340GOSUB 10701350?:?1355PR #01360?:? CHR$(4); "run HELLO"GOTO 12301070INPUT " "; a$:?1075PR #z1080 t=(tw-2*w)/2:?1090?1100? TAB((tw-LEN(xy$))/2); xy$1110?:?1120FOR j=1 TO l:? TAB(t); 1130FOR k=1 TO w:IF a$(j, k)="." THEN ? ". "; :GOTO 11401135? CHR$(EN READY TO"208?:INPUT " PRINT PUZZLE "; qx$210PR #1:HOME:?:POKE 17126, 23:TEXT:INVERSE215FOR p=1 TO 34220? ":"; 221NEXT p222? " MATPUZZLE "; 223FOR p=1 TO 34224? ":"; 225NEXT p226? " "230?240FOR z=1 TO 60250 f=INT(RND(1)*w+1)260 d=INT(RND(1)*w+1)270 g=INT(RND(1)*l+1)280 e=INT(RND(1)*l+1)290 j$=b$(f, g)300 b$(f, g)=b$(d, e)310 b$(d, e)=j$320NEXT z330? TAB(4); 340FOR z1=1 TO l350? TAB(5); z1; "   "; 360NEXT z1370?380?390FOR z2=1 TO w400? z2; "   "; 410FOR z3=1 TO l420? b$(z2, z31HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT2REM   - MATPUZZLE3REM   - Program by Dave Schroeder4REM   - More Basic Computer Games5REM   - Edited by David H.Ahl - 19796REM   - Program conversion by Steve North - 19797REM   - Modified for ADAM by H.M.Guill - 19878INVERSE:? "                              ":? "           MATPUZZLE          "9? "                              ":NORMAL10DIM a$(6), b$(6, 6), c(6, 6), c$(6, 6)20?:? " This program prints MATPUZZLE"22?:? " word games. You inputASC(a$(j, k))-32); " "; 1140NEXT:?:NEXT1150?:?1160? " FIND THESE WORDS IN THE ABOVE PUZZLE:"1170?: x=-1:? "  "; 1180FOR j=1 TO m:IF LEN(w$(j))=0 THEN 12101185 x=x+11190IF x>=4 THEN ?: x=0:? "  "; 1200FOR ww=1 TO (LEN(w$(j)))1202 ww$=MID$(w$(j), ww, 1)1204? CHR$(ASC(ww$)-32); 1206NEXT ww:? "  ", 1210NEXT:?:?1215IF LEFT$(x$, 1)="Y" OR LEFT$(x$, 1)="y" THEN ? " <R>"; 1220RETURN1230IF LEFT$(x$, 1)="Y" OR LEFT$(x$, 1)="y" THEN 12501235PR #a1240GOTO 13601250REM          1260FOR i=1 TO l:FOR j=1? " HOW MANY LETTERS IN THE WORDS"114?:? " (words must be same length)"115?:INPUT " (1 to 6) "; l120HOME:INVERSE:? "                              ":NORMAL122?:? " TYPE ONE "; l; " LETTER WORD ON":?:? " EACH LINE..."124?:?130FOR x=1 TO w140?:INPUT "            "; a$(x)150NEXT x160FOR x=1 TO w170FOR y=1 TO l180 c$(x, y)=MID$(a$(x), y, 1): b$(x, y)=MID$(a$(x), y, 1)190NEXT y200NEXT x202HOME:?:FLASH:? " PREPARE PRINTER ":NORMAL204?:?:?:?:? " INSERT PAPER IN PRINTER AND"206?:? " PRESS <RETURN> WHASC(a$(j, k))-32); " "; 1140NEXT:?:NEXT1150?:?1160? " FIND THESE WORDS IN THE ABOVE PUZZLE:"1170?: x=-1:? "  "; 1180FOR j=1 TO m:IF LEN(w$(j))=0 THEN 12101185 x=x+11190IF x>=4 THEN ?: x=0:? "  "; 1200FOR ww=1 TO (LEN(w$(j)))1202 ww$=MID$(w$(j), ww, 1)1204? CHR$(ASC(ww$)-32); 1206NEXT ww:? "  ", 1210NEXT:?:?1215IF LEFT$(x$, 1)="Y" OR LEFT$(x$, 1)="y" THEN ? " <R>"; 1220RETURN1230IF LEFT$(x$, 1)="Y" OR LEFT$(x$, 1)="y" THEN 12501235PR #a1240GOTO 13601250REM          1260FOR i=1 TO l:FOR j=1); "   "; 430NEXT z3440?450?460NEXT z2470?480?490?500FOR p=1 TO l510FOR q=1 TO w520 t=0530FOR r=1 TO w540FOR s=1 TO l550IF t=1 THEN 600560IF b$(r, s)<>c$(q, p) THEN 600570 c(q, p)=r+s580 t=1590 b$(r, s)=" "600NEXT s610NEXT r620NEXT q630NEXT p640FOR x=1 TO w650? TAB(4)660FOR m=1 TO l670IF c(x, m)>9 THEN 700680? c(x, m); "       "; 690GOTO 710700? c(x, m); "      "; 710NEXT m720?:?730? TAB(2); 740FOR m1=1 TO l750? "-----"; "   "; 760NEXT m1770?780NEXT x790?800?802PR #0:Hd guarantees only"22?:? " one path through. You can    "24?:? " choose the dimensions of the "26?:? " maze - i.e. number of squares"28?:? " wide and long.":?:INPUT "                     <return> "; qx$30HOME:INVERSE:? " **========================** "35? " ** PLACE PAPER IN PRINTER ** "40? " **========================** ":NORMAL50?:?:?:?100? " ENTER WIDTH AND HEIGHT FOR":?:? " THE MAZE (2-20,2-25 max.)    ":?:INPUT " "; h, v102IF h<>1 AND v<>1 THEN 110104?:?:INVERSE:? " MEANINGLESS DIMENSIONS.    ould fit in the same spot."850? "Try to find the correct letters for the words used, and solve the puzzle."855? "--GOOD LUCK "856?:?:PR #0:HOME:POKE 17126, 246:TEXT858INVERSE:? "                              ":NORMAL860?:? " DO YO WANT ANOTHER PUZZLE?"862?:INPUT " y/n "; y9$870IF y9$="Y" OR y9$="y" THEN 92880HOME:?:?:? " BYE! "890? CHR$(4); "run HELLO"TO 710700? c(x, m); "      "; 710NEXT m720?:?730? TAB(2); 740FOR m1=1 TO l750? "-----"; "   "; 760NEXT m1770?780NEXT x790?800?802PR #0:H80IF w(r, s-1)<>0 THEN 390290IF r=h THEN 330300IF w(r+1, s)<>0 THEN 330310 x=INT(RND(1)*3+1)320ON x GOTO 790, 820, 860330IF s<>v THEN 340334IF z=1 THEN 370338 q=1:GOTO 350340IF w(r, s+1)<>0 THEN 370350 x=INT(RND(1)*3+1)360ON x GOTO 790, 820, 910370 x=INT(RND(1)*2+1)380ON x GOTO 790, 820390IF r=h THEN 470400IF w(r+1, s)<>0 THEN 470405IF s<>v THEN 420410IF z=1 THEN 450415 q=1:GOTO 430420IF w(r, s+1)<>0 THEN 450430 x=INT(RND(1)*3+1)440ON x GOTO 790, 860, 910450 x=INT(RND(1)*2+1)460ON x GO4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM      - AMAZING PROGRAM6REM      - Program by Jack Hauber7REM      - Basic Computer Games - by David H.Ahl - 19788REM      - Program conversion by Steve North - 19789REM      - Modified for ADAM by H.M.Guill - 198710INVERSE:? " **========================** "12? " **     AMAZING PROGRAM    ** "14? " **========================** ":NORMAL15? " "16?:? "   This program will print out"18?:? " a different maze every time  "20?:? " it is run anOME:POKE 17126, 246:TEXT804INVERSE:? "                              ":NORMAL:?:? " DO YOU WANT INSTRUCTIONS"806?:? " PRINTED WITH THE PUZZLE? y/n ":?:INPUT " "; yn$807IF yn$="n" OR yn$="N" THEN ?:?:GOTO 858808PR #1:HOME:?:POKE 17126, 23:TEXT:INVERSE810? "The number above each dash line represents the sum of the coordinates"820? "(in the matrix block) for the correct letter to be used in that spot."830? "The problem is that the sum of several coordinates could be the same,"840? "and several letters c  "106? "                              "108? " TRY AGAIN.                   ":NORMAL:?:GOTO 100110DIM w(h, v), v(h, v)120?130?140?150?155PR #1160 q=0: z=0: x=INT(RND(1)*h+1)165FOR i=1 TO h170IF i=x THEN 173171? ".--"; :GOTO 180173? ".  "; 180NEXT i190? "."195 c=1: w(x, 1)=c: c=c+1200 r=x: s=1:GOTO 260210IF r<>h THEN 240215IF s<>v THEN 230220 r=1: s=1:GOTO 250230 r=1: s=s+1:GOTO 250240 r=r+1250IF w(r, s)=0 THEN 210260IF r-1=0 THEN 530265IF w(r-1, s)<>0 THEN 530270IF s-1=0 THEN 3902OME:POKE 17126, 246:TEXT804INVERSE:? "                              ":NORMAL:?:? " DO YOU WANT INSTRUCTIONS"806?:? " PRINTED WITH THE PUZZLE? y/n ":?:INPUT " "; yn$807IF yn$="n" OR yn$="N" THEN ?:?:GOTO 858808PR #1:HOME:?:POKE 17126, 23:TEXT:INVERSE810? "The number above each dash line represents the sum of the coordinates"820? "(in the matrix block) for the correct letter to be used in that spot."830? "The problem is that the sum of several coordinates could be the same,"840? "and several letters cTO 790, 860470IF s<>v THEN 490480IF z+1 THEN 520485 q=1:GOTO 500490IF w(r, s+1)<>0 THEN 520500 x=INT(RND(1)*2+1)510ON x GOTO 790, 910520GOTO 790530IF s-1=0 THEN 670540IF w(r, s-1)<>0 THEN 670545IF r=h THEN 610547IF w(r+1, s)<>0 THEN 610550IF s<>v THEN 560552IF z=1 THEN 590554 q=1:GOTO 570560IF w(r, s+1)<>0 THEN 590570 x=INT(RND(1)*3+1)580ON x GOTO 820, 860, 910590 x=INT(RND(1)*2+1)600ON x GOTO 820, 860610IF s<>v THEN 630620IF z=1 THEN 660625 q=1:GOTO 640630IF w(r, s+1)<>0 THEN 660640 - data initialization *******************************40 y=1: ln=050DIM c(2, 75)60DIM a$(5)70READ a$(1), a$(2), a$(3), a$(4), a$(5)80DATA   "B","I","N","G","O"90HOME:INVERSE:? "                              ":NORMAL92?:? " DO YOU WANT BINGO CARDS"94?:? " PRINTED? "; 100INPUT " ( y or n >>> "; g$:?110IF g$="N" OR g$="n" THEN 160112IF g$="Y" OR g$="y" THEN 120114GOTO 100120GOSUB 590130?140?150?160? " PRESS <RETURN> FOR THE NEXT"162? " CALL - OR - ENTER 'BINGO'"170FOR io=1 TO 75180?:INPUT "0:GOTO 260860 w(r+1, s)=c870 c=c+1:IF v(r, s)=0 THEN 880875 v(r, s)=3:GOTO 890880 v(r, s)=2890 r=r+1900IF c=h*v+1 THEN 1010905GOTO 530910IF q=1 THEN 960920 w(r, s+1)=c: c=c+1:IF v(r, s)=0 THEN 940930 v(r, s)=3:GOTO 950940 v(r, s)=1950 s=s+1:IF c=h*v+1 THEN 1010955GOTO 260960 z=1970IF v(r, s)=0 THEN 980975 v(r, s)=3: q=0:GOTO 1000980 v(r, s)=1: q=0: r=1: s=1:GOTO 2501000GOTO 2101010FOR j=1 TO v1011? "I"; 1012FOR i=1 TO h1013IF v(i, j)<2 THEN 10301020? "   "; 1021GOTO 10401030? "  I";0332IF ln=56 OR ln=112 OR ln=168 OR ln=224 THEN 1200340NEXT j350?360RETURN370REM   - random draw of cards *******************************380LET z=(RND(y)*((h-l)/100)+.01)*100+l390LET x=INT(z)400IF c(k, x)<>0 THEN 370410LET c(k, x)=c(k, x)+1420RETURN430REM   - array clears and fills440FOR l=1 TO 2450FOR k=1 TO 75460LET c(l, k)=0470NEXT k480NEXT l490FOR l=0 TO 60 STEP 15500LET h=l+15510FOR t=1 TO 5520FOR k=1 TO 2530GOSUB 370540NEXT k550NEXT t560NEXT l570RETURN580REM   - card print ro4HOME:POKE 17059, 14:POKE 17115, 31:POKE 17126, 246:TEXT5REM   - BINGO PROGRAM6REM   - Basic Computer Programs for the Home7REM   - by Charles D.Sternberg - 19808REM   - modified for ADAM by H.M.Guill - 198710?11INVERSE:? "                              "12? "  ****  ***  *  *  ****  **** "13? "  *  *   *   ** *  *     *  * "14? "  ***    *   ****  * **  *  * "15? "  *  *   *   * **  *  *  *  * "16? "  ****  ***  *  *  ****  **** "17? "                              ":NORMAL:?20GOSUB 150030REM   x=INT(RND(1)*2+1)650ON x GOTO 820, 910660GOTO 820670IF r=h THEN 740680IF w(r+1, s)<>0 THEN 740685IF s<>v THEN 700690IF z=1 THEN 730695 q=1:GOTO 830700IF w(r, s+1)<>0 THEN 730710 x=INT(RND(1)*2+1)720ON x GOTO 860, 910730GOTO 860740IF s<>v THEN 760750IF z=1 THEN 780755 q=1:GOTO 770760IF w(r, s+1)<>0 THEN 780770GOTO 910780GOTO 1000790 w(r-1, s)=c800 c=c+1: v(r-1, s)=2: r=r-1810IF c=h*v+1 THEN 1010815 q=0:GOTO 260820 w(r, s-1)=c830 c=c+1840 v(r, s-1)=1: s=s-1:IF c=h*v+1 THEN 1010850 q= >>> "; b$190IF b$="BINGO" OR b$="bingo" THEN 220200GOSUB 1020210NEXT io220HOME:INVERSE:? "                              ":NORMAL222?:? " NUMBERS CALLED:"230?:? " "; 240FOR i=1 TO 75250IF c(1, i)=0 THEN 270260? a$(i/15+1); " -"; i, 270NEXT i280REM  290REM   - termination point *******************************300GOTO 2000310REM   - line printing routine *******************************320FOR j=1 TO 2330? ":-----:-----:-----:-----:-----:     "; : ln=ln+1331IF n=8 OR n=16 OR n=24 OR n=32 THEN 34 1040NEXT i1041?1043FOR i=1 TO h1045IF v(i, j)=0 THEN 10601050IF v(i, j)=2 THEN 10601051? ":  "; 1052GOTO 10701060? ":--"; 1070NEXT i1071? "."1072NEXT j1073?:?:?1074PR #01075?:? CHR$(4); "run HELLO" GOTO 860, 910730GOTO 860740IF s<>v THEN 760750IF z=1 THEN 780755 q=1:GOTO 770760IF w(r, s+1)<>0 THEN 780770GOTO 910780GOTO 1000790 w(r-1, s)=c800 c=c+1: v(r-1, s)=2: r=r-1810IF c=h*v+1 THEN 1010815 q=0:GOTO 260820 w(r, s-1)=c830 c=c+1840 v(r, s-1)=1: s=s-1:IF c=h*v+1 THEN 1010850 q=utine ********************************590HOME:INVERSE:? "                              ":NORMAL592?:? " HOW MANY CARDS SHOULD I PRINT"594?:? " (prints 8 cards per sheet)":?600?:INPUT " (even # 0 to 40 >>> "; n610IF n=0 THEN 1010620?:?:FLASH:? " PREPARE PRINTER ":NORMAL622?:? " PLACE PAPER IN PRINTER NOW &"624?:? " PRESS <RETURN> WHEN READY":?630INPUT g$640FOR i=1 TO n/2+.5650HOME:PR #1:?:GOSUB 430660GOSUB 310670FOR j=1 TO 2680? "|  "; a$(1); "  |  "; 690? a$(2); "  |  "; a$(3); "  |  "; a$(4)  * **  *  * "2065? "  *  *   *   * **  *  *  *  * "2066? "  ****  ***  *  *  ****  **** "2067? "                              ":NORMAL:?2070?:?:?:INPUT " WANT ANOTHER GAME?  (y/n>>> "; yn$2080IF yn$="y" OR yn$="Y" THEN CLEAR:GOTO 302090HOME:?:?:?:? " BYE!"2100?:? CHR$(4); "run HELLO"OTE ":NORMAL1610?:?:? "   ADDITIONAL CARDS MAY BE"1620?:? " PRINTED IF THE <CONTROL S>"1630?:? " COMMAND IS USED TO PAUSE THE"1640?:? " PRINTER AFTER THE FIRST 40"1650?:? " CARDS ARE PRINTED."1700?:?:INPUT "       *******************************1030LET z=(RND(y)*.75+.01)*1001040LET x=INT(z)1045IF x>=75 THEN 10301050IF c(1, x)<>0 THEN 10301060LET c(1, x)=c(1, x)+11070LET j=INT(x/15)+11080? "            "; a$(j); "-"; x1100RETURN1200HOME:PR #0:INVERSE:? "                              ":NORMAL1210?:FLASH:? " INSERT MORE PAPER ":NORMAL1220?:? " IF USING SINGLE SHEETS AND"1230?:INPUT " PRESS <RETURN> TO CONTINUE "; zx$1240GOTO 6601500? " BINGO ALLOWS THESE OPTIONS:"1520?:? "  1) Automatic printing of up"1100GOSUB 1000110 ap=1111GOSUB 8000115GOSUB 1100116GOSUB 1200117GOSUB 1300118GOSUB 1400:GOSUB 1500119IF w2=4 THEN 200120GOSUB 1800125 gs=gs+1130 gn=gn+1:GOTO 117160END200HOME205PR #ap210? " YOU GUESSED THE FRUITS!!"215PR #0220? " Would you like to play again?"230GET a$240IF a$="Y" OR a$="y" THEN 95250TEXT260END1000HGR1010HCOLOR =151015DIM g(4), a(4), cl(6), h(4)1020SCALE =1:ROT =01046FOR n=1 TO 61047READ cl(n)1048NEXT n1050RETURN1100HGR:HCOLOR =11110HPLOT 10, 10 TO 250, 101115               <RETURN> "; zx$1710RETURN2000?:INPUT " SEE NUMBERS AGAIN? (y/n>>> "; yn$2010IF yn$="y" OR yn$="Y" THEN 2202020?:? " DO THE NUMBERS MATCH?"2030?:INPUT " (y/n>>> "; yn$2040IF yn$="n" OR yn$="N" THEN HOME:INVERSE:? "                              ":NORMAL:?:GOTO 1602050IF yn$<>"Y" AND yn$<>"y" THEN 20302052HOME:?:? " WE HAVE A ...":?:?:?2060?2061FLASH:? "                              "2062? "  ****  ***  *  *  ****  **** "2063? "  *  *   *   ** *  *     *  * "2064? "  ***    *   ****; "  |  "; a$(5); "  |     "; 700NEXT j710?720GOSUB 310730FOR k=1 TO 5740FOR j=1 TO 2750LET s=1760FOR l=1 TO 5770FOR m=s TO s+14780IF c(j, m)=0 THEN 890790IF m<10 THEN 860800IF k<>3 THEN 840810IF l<>3 THEN 840820? "|*FREE"; 830GOTO 870840? "|  "; m; " "; 850GOTO 870860? "|  "; m; "  "; 870LET c(j, m)=0880GOTO 900890NEXT m900LET s=s+15910NEXT l920? "|     "; 930NEXT j940?950GOSUB 310960NEXT k970REM  980?990REM  1000NEXT i1010HOME:PR #0:RETURN1020REM   - random draws for calls0HIMEM :410001REM      (c) 1984 by BRIAN SAWYER5TEXT10 pm$="FRUIT DETECTIVE"15FOR n=1 TO 420? CHR$(162)25NEXT n30 tb=16-INT(LEN(pm$)/2)35? TAB(tb); pm$40FOR n=1 TO 4:? CHR$(162):NEXT n41NORMAL42 d=d+1:IF d/2=INT(d/2) THEN INVERSE45? " HIT CONTROLLER BUTTON TO PLAY"; CHR$(160)50 iv=0: r=055NORMAL:IF iv=1 THEN INVERSE60? " HIT"; CHR$(160)65 c=070 c=c+1: r=r+1:IF (PDL(7)=0) AND (PDL(9)=0) AND (c<40) THEN 7080IF c=40 THEN  iv=1-iv:GOTO 5590 r=RND(-r)92NORMAL95CLEAR96GOSUB 960098GOSUB 9920530? "     to 40 BINGO cards - *"1540?:? "  2) Random number calling"1550?:? "  3) Review of called numbers"1560? "     to verify BINGO"1570?:? "  4) Resume game if NO bingo"1580?:? "  5) Start new game or quit"1590?:INPUT "                     <RETURN> "; zx$1600HOME:?:INVERSE:? " * NOTE ":NORMAL1610?:?:? "   ADDITIONAL CARDS MAY BE"1620?:? " PRINTED IF THE <CONTROL S>"1630?:? " COMMAND IS USED TO PAUSE THE"1640?:? " PRINTER AFTER THE FIRST 40"1650?:? " CARDS ARE PRINTED."1700?:?:INPUT "      FOR x=10 TO 250 STEP 601120HPLOT x, 10 TO x, 1501130NEXT x1140HPLOT 10, 150 TO 250, 1501145GOSUB 18001150RETURN1200FOR n=1 TO 41210 a(n)=INT(RND(1)*6+1)1220NEXT n1225 gn=1: gs=11230RETURN1300IF gn=13 THEN  gn=1:GOSUB 11001305 y=(gn-1)*22+30: x=171310IF gn>6 THEN  x=135: y=(gn-7)*22+301320RETURN1400REM     R.G.F.P.1405FOR n=1 TO 41410 pd=PDL(13):IF pd=15 THEN 14101412IF pd=0 OR pd>6 THEN 14101413 g(n)=pd1415 fr=pd:IF fr=6 THEN  fr=11416HCOLOR =cl(pd)1420DRAW fr AT x+(n-1)*13, y1422? CH45,459149DATA     39,63,63,47,45,45,45,39,63,63,639152DATA     101,45,45,61,55,61,45,39,60,63,639155DATA     55,44,55,36,45,54,47,36,45,45,609158DATA     63,63,45,37,36,39,36,60,36,46,539161DATA     54,54,53,54,36,44,37,36,53,54,639164DATA     55,55,54,63,39,36,61,60,36,37,09503DATA     109,9,173,18,62,62,55,63,39,63,609506DATA     220,36,36,44,45,45,45,45,45,45,539509DATA     54,54,54,54,62,63,63,63,63,63,639512DATA     39,36,36,09538DATA     109,9,173,146,34,63,60,63,62,55,2239541DATA     36,3 TO x+cx+6, y-h1640NEXT h1645 cx=cx+141650NEXT n1660RETURN1700PR #ap1710? " Guess #"; gs; ": "; 1720FOR d=1 TO 41730? g(d); "   "; 1740NEXT d:?1742FOR dl=1 TO 1000:NEXT dl1745PR #0:RETURN1750PR #ap1755? " Fruits in correct position: "; w21757? " Fruits that exist but in"1758? " wrong position: "; w11759FOR dl=1 TO 1000:NEXT dl1760PR #01770RETURN1800HOME1810? " 1-apple  2-pear  3-banana "1820? " 4-grapes 5-pineapple  6-plum"1830RETURN7000DATA     15,13,13,14,11,98000 qs=5: pt=16766: t0?:? " This is done by entering a 4-"9680?:? " digit sequence using the key-"9690?:? " pad on game controller 1."9700?:? "    1 = apple", "4 = grapes"9710? "    2 = pear", "5 = pineapple"9720? "    3 = banana", "6 + plum"9730?:INPUT "                     <RETURN> "; xx$9740HOME:INVERSE:? " INSTRUCTIONS: ":NORMAL9750?:?:? "  As you press each number on"9760?:? " on the keypad, the fruit will"9770?:? " be displayed on the screen,"9780?:? " The ADAM will then rate your"9790?:? " guess by displaying,61,60,479044DATA     36,39,4,09070DATA     36,61,62,37,36,53,44,39,61,47,449073DATA     47,63,37,47,47,47,61,60,45,39,479076DATA     45,60,39,45,37,63,37,37,44,62,629079DATA     62,62,54,54,54,54,53,45,60,7,09105DATA     41,45,60,60,55,36,60,55,45,45,45,9108DATA     45,54,63,39,36,36,45,53,54,63,639111DATA     39,36,60,63,55,54,45,36,36,44,459114DATA     45,54,62,39,36,36,45,53,54,53,629117DATA     63,63,39,36,36,44,39,36,53,54,549120DATA     36,36,44,4,09146DATA     45,39,63,45,45,39,63,63,45,R$(7); 1425FOR t=1 TO 3001427NEXT t1430NEXT n1440RETURN1500 w1=0: w2=01505GOSUB 17001507FOR n=1 TO 41508 h(n)=11509NEXT n1510FOR n=1 TO 41520IF g(n)=a(n) THEN  w2=w2+1: h(n)=0: g(n)=01525NEXT n1526FOR m=1 TO 41530FOR n=1 TO 41535IF h(n)=0 THEN 15601545IF a(n)=g(m) THEN  w1=w1+1: h(n)=0:GOTO 15701560NEXT n1570NEXT m1580GOSUB 16001585GOSUB 17501590RETURN1600 cx=601605HCOLOR =11606IF w1+w2=0 THEN RETURN1610FOR n=1 TO w1+w21615IF n>w1 THEN HCOLOR =31620FOR h=1 TO 51630HPLOT x+cx, y-h6,36,36,45,45,45,45,45,45,549544DATA     54,54,54,54,63,63,63,63,63,63,369570DATA     109,9,173,146,63,63,63,255,35,36,369573DATA     44,45,45,45,45,45,53,54,54,54,629576DATA     63,63,63,63,63,39,4,09600HOME:?:? " Would you like instructions?":?:INPUT " "; qx$9610IF qx$="N" OR qx$="n" THEN RETURN9620HOME:INVERSE:? " INSTRUCTIONS: ":NORMAL9630?:?:? "  The game of FRUIT DETECTIVE"9640?:? " is played by determining the"9650?:? " correct order of the 4 fruits"9660?:? " selected by the computer."967l=410008005 of=qs*2+38010 by=tl:GOSUB 81008015POKE pt, lo:POKE pt+1, hi8020POKE tl, qs8030FOR n=1 TO qs8040 by=of:GOSUB 81008050POKE tl+n*2, lo:POKE tl+n*2+1, hi8060READ a:POKE tl+of, a: of=of+18065IF a<>0 THEN 80608070NEXT n8080RETURN8100 hi=INT(by/256): lo=by-hi*2568120RETURN8130RETURN9000DATA     69003DATA     45,61,60,63,45,45,61,60,63,47,459009DATA     36,4,09035DATA     45,39,63,47,45,45,61,60,63,63,459038DATA     45,45,39,63,63,47,45,45,61,60,639041DATA     47,44,61,60,47,61,45,47 the clues"9800?:? " to the right of the fruit."9802?:INPUT "                     <RETURN> "; xx$9804HOME:INVERSE:? " INSTRUCTIONS: ":NORMAL9810?:?:? " One white box for each fruit"9820?:? " whose identity and position"9830?:? " have been correctly guessed,"9840?:? " and one green box for each"9850?:? " fruit whose identity, but not"9860?:? " position, has been correctly"9870?:? " guessed. The clues will also"9880?:? " be printed on your printer "9890?:? " for you to study."9900INPUT "         II II===========================================================================II II                                                                           II II                                                                           II II===========================================================================II II===SUN========MON========TUE========WED========THU========FRI========SAT===II II          I          I          I          I          I          I         II II          I          I     „O  O     O  BBBBBB   EEEEE    RRRRRR        IIII       O     O  C           T     O     O  B     B  E        R   R         IIII        O   O    C    C     T      O   O   II===========================================================================II II                                                                           II II                                                                           II II===========      I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II===========================================================================II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          II          I          I         II II===========================================================================II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I                     <RETURN> "; xx$9910RETURN9920HOME:?:?:?:?:?9930INVERSE:? "                              "9932? " PREPARE PRINTER, INSERT PAPER"9940? " AND PRESS <RETURN> WHE READY "9950? " TO START THE GAME.           "9952? "                              ":NORMAL9960?:INPUT " "; xx$9970RETURNSTRUCTIONS: ":NORMAL9750?:?:? "  As you press each number on"9760?:? " on the keypad, the fruit will"9770?:? " be displayed on the screen,"9780?:? " The ADAM will then rate your"9790?:? " guess by displaying     I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II===========================================================================II II          I          I          I          I          I          I         II II          I          I          I          I          I    ================================================================II II===SUN========MON========TUE========WED========THU========FRI========SAT===II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I                    I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II===========================================================================II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I                  E        B     B  R     R  U     U  A     A  R     R    Y Y    IIII   FFFFF    EEEEE    BBBBBB   RRRRRR   U     U  AAAAAAA  RRRRRR      Y     IIII   F        E        B     B  R   R    U     U  A     A  R   R       Y     IIII   F        E        B     B  R    R    U   U   A     A  R    R      Y     IIII   F        EEEEEEE  BBBBBB   R     R    UUU    A     A  R     R     Y     IIII                           J  U     U  L        Y     Y                    IIII                           J  U    II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II===========================================================================II II   N     N    OOO    V     V  EEEEEEE  M     M  BBBBBB   EEEEEEE  RRRRRR   IIII   NN    N   O   O   V     V  E        MM   MM  B     B  E        R     R  IIII   N N   N  O     O  V     V  E        M M M M  B     B  E        R     R  IIII   N  N  N  O     O  V         IIII                           J  U     U  NN    N  E                          IIII                           J  U     U  N N   N  E                          IIII                           J  U     U  N  N  N  EEEEE                      IIII                     J     J  U     U  N   N N  E                          IIII                      J   J    U   U   N    NN  E                          IIII                       JJJ      UUU    N     N  EEEEEEE                    IIII              AAA B  E        R     R  IIII   D     D  EEEEE    C        EEEEE    M  M  M  BBBBBB   EEEEE    RRRRRR   IIII   D     D  E        C        E        M     M  B     B  E        R   R    IIII   D    D   E         C    C  E        M     M  B     B  E        R    R   IIII   DDDDD    EEEEEEE    CCCC   EEEEEEE  M     M  BBBBBB   EEEEEEE  R     R  IIII   FFFFFFF  EEEEEEE  BBBBBB   RRRRRR   U     U    AAA    RRRRRR   Y     Y  IIII   F        E        B     B  R     R  U     U   A   A   R     R   Y   Y   IIII   FI          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II===========================================================================II II          I          I          I          I          I          I         II II          I          I          I          I          I          I         II II          I          I          I          I          I          I          U  L         Y   Y                     IIII                           J  U     U  L          Y Y                      IIII                           J  U     U  L           Y                       IIII                     J     J  U     U  L           Y                       IIII                      J   J    U   U   L           Y                       IIII                       JJJ      UUU    LLLLLLL     Y                       IIII                           J  U     U  N     N  EEEEEEE                V  EEEEE    M  M  M  BBBBBB   EEEEE    RRRRRR   IIII   N   N N  O     O   V   V   E        M     M  B     B  E        R   R    IIII   N    NN   O   O     V V    E        M     M  B     B  E        R    R   IIII   N     N    OOO       V     EEEEEEE  M     M  BBBBBB   EEEEEEE  R     R  IIII   DDDDD    EEEEEEE    CCCC   EEEEEEE  M     M  BBBBBB   EEEEEEE  RRRRRR   IIII   D    D   E         C    C  E        MM   MM  B     B  E        R     R  IIII   D     D  E        C        E        M M M M  B        U     U    GGGG   U     U   SSSSS   TTTTTTT           IIII             A   A   U     U   G    G  U     U  S     S     T              IIII            A     A  U     U  G        U     U  S           T              IIII            AAAAAAA  U     U  G        U     U   SSSSS      T              IIII            A     A  U     U  G   GGG  U     U        S     T              IIII            A     A   U   U    G    G   U   U   S     S     T              IIII            A     A    UUU      GGGG     UUU      A  P        R   R       I     L                      II II                A     A  P        R    R      I     L                      II II                A     A  P        R     R     I     LLLLLLL                II II                         M     M    AAA    Y     Y                         II II                         MM   MM   A   A    Y   Y                          II II                         M M M M  A     A    Y Y                           II II                         M  M  M  AAAAAAA     Y   SSSS   EEEEEEE  P           T     EEEEEEE  M     M  BBBBBB   EEEEEEEII         OOO      CCCC   TTTTTTT    OOO    BBBBBB   EEEEEEE  RRRRRR        IIII        O   O    C    C     T      O   O   B     B  E        R     R       IIII       O     O  C           T     O     O  B     B  E        R     R       IIII       O     O  C           T     O     O  BBBBBB   EEEEE    RRRRRR        IIII       O     O  C           T     O     O  B     B  E        R   R         IIII        O   O    C    C     T      O   O             J  AAAAAAA  N  N  N  U     U  AAAAAAA  RRRRRR      Y          II II       J     J  A     A  N   N N  U     U  A     A  R   R       Y          II II        J   J   A     A  N    NN   U   U   A     A  R    R      Y          II II         JJJ    A     A  N     N    UUU    A     A  R     R     Y          II        MM   MM   A   A    Y   Y                          II II                         M M M M  A     A    Y Y                           II II                         M  M  M  AAAAAAA     Y       II II                M     M  A     A  R    R    C    C  H     H                II II                M     M  A     A  R     R    CCCC   H     H                II II                  AAA    PPPPPP   RRRRRR   IIIIIII  L                      II II                 A   A   P     P  R     R     I     L                      II II                A     A  P     P  R     R     I     L                      II II                AAAAAAA  PPPPPP   RRRRRR      I     L                      II II                A    SSSSS      T              II.SSSSS   EEEEEEE  PPPPPP   TTTTTTT  EEEEEEE  M     M  BBBBBB   EEEEEEE  RRRRRR S     S  E        P     P     T     E        MM   MM  B     B  E        R     RS        E        P     P     T     E        M M M M  B     B  E        R     R SSSSS   EEEEE    PPPPPP      T     EEEEE    M  M  M  BBBBBB   EEEEE    RRRRRR       S  E        P           T     E        M     M  B     B  E        R   R  S     S  E        P           T     E        M     M  B     B  E        R    R  S                         II II                         M     M  A     A     Y                            II II                         M     M  A     A     Y                            II II                         M     M  A     A     Y                            II II             J    AAA    N     N  U     U    AAA    RRRRRR   Y     Y       II II             J   A   A   NN    N  U     U   A   A   R     R   Y   Y        II II             J  A     A  N N   N  U     U  A     A  R     R    Y Y         II II   B     B  E        R    R        IIII         OOO      CCCC      T       OOO    BBBBBB   EEEEEEE  R     R       IIII                M     M    AAA    RRRRRR     CCCC   H     H                II II                MM   MM   A   A   R     R   C    C  H     H                II II                M M M M  A     A  R     R  C        H     H                II II                M  M  M  AAAAAAA  RRRRRR   C        HHHHHHH                II II                M     M  A     A  R   R    C        H     H            4HOME:POKE 17059, 5:POKE 17115, 245:POKE 17126, 23:TEXT5REM    - PERSONAL BALANCE SHEET6REM    - by Kimball J.Beasley7REM    - Family computing - July, 19858REM    - modified by H.M.Guill - 198710DIM p$(20), lp(20), a(20), hd$(5), lh(5), st(5)20 d$=" = $": tl$="TOTAL": sp$=CHR$(32)30FOR x=1 TO 40: l$=l$+CHR$(45): s$=s$+sp$:NEXT x: fm$=CHR$(0)+sp$40 ul$=LEFT$(s$, 27)+LEFT$(l$, 11)+sp$+fm$+LEFT$(s$, 27)+LEFT$(l$, 11)50 br$=LEFT$(s$, 39)+fm$60FOR x=1 TO 20:READ p$(x): lp(x)=LEN(p$(x)):NEXT x70FOR x=d$(2*x-1); 430? LEFT$(s$, 39-lh(2*x-1)); fm$; hd$(2*x)440? LEFT$(l$, lh(2*x-1)); LEFT$(s$, 39-lh(2*x-1)); 450? fm$; LEFT$(l$, lh(2*x)):? br$460FOR y=4*x-3 TO 4*x470? p$(y); : t=a(y): l=lp(y):GOSUB 1000:? fm$; 480IF y=8 THEN 500490? p$(y+13); : l=lp(y+13): t=a(y+13):GOSUB 1000500?:NEXT y:? ul$510? LEFT$(s$, 18); tl$; : t=st(2*x-1): l=23:GOSUB 1000520? fm$; LEFT$(s$, 18); tl$; : t=st(2*x):GOSUB 1000530?:? br$:NEXT x540? hd$(5); RIGHT$(br$, 24):? LEFT$(l$, lh(5)); RIGHT$(br$, 24)550FOR y=9 TO 135 LEFT$(l$, 12-w)180IF x=18 THEN ?:? LEFT$(l$, 13-w); hd$(4); LEFT$(l$, 13-w)190?:? p$(x); " = "; 200? "$"; : t$="":INPUT t$210 v=VAL(t$):IF v=0 THEN 230220 a(x)=a(x)+VAL(t$):?:? "SUBTOTAL"; d$; a(x):?:GOTO 200230?:? LEFT$(l$, 41-w*2); :INVERSE:? tl$; sp$; p$(x); d$; a(x):NORMAL240 a(x)=INT(a(x)+.5):NEXT x249REM    --TOTAL CASH ASSETS--250 st(1)=a(1)+a(2)+a(3)+a(4)259REM    --TOTAL TIME DEPOSITS AND INVESTMENTS--260 st(3)=a(5)+a(6)+a(7)+a(8)269REM    --TOTAL VALUE OF PROPERTY--270 st(5)=a(9)+a(1"; pg; "%"670? "LIQUID ASSETS AS PERCENT OF TOTAL ASSETS = "; pl; "%"680PR #0:HOME690? "SEE YOU NEXT MONTH!"695?:? CHR$(4); "run HELLO"1000? LEFT$(s$, 25-l); "= $"; LEFT$(s$, 10-LEN(STR$(t))); t; 1010? sp$; :RETURN2000DATA    CASH,CHECKING ACCOUNTS,SAVINGS ACCOUNTS2010DATA    OTHER LIQUID DEPOSITS,BANK CD'S AND NOTES2020DATA    STOCKS AND BONDS, OTHER GROWTH INVESTMENTS2030DATA    NONGROWTH INVESTMENTS,HOME,AUTO/VEHICLE2040DATA    HOME FURNISHINGS,JEWELRY/COLLECTIBLES2050DATA    OTHER PROPERTY,U330 pg=INT(1000*(a(3)+a(4)+a(5)+a(6)+a(7)+a(9))/(tassts+1E-06))/10338REM    --LIQUID ASSETS (CASH ASSETS + STOCKS &--339REM    -- BONDS) AS % OF TOTAL ASSETS340 pl=INT(1000*((st(1)+a(6))/(tassts+1E-06)))/10350? "PRESS ANY KEY":? "WHEN PRINTER IS READY."360GET t$:IF t$="" THEN 360370?:PR #1380? l$; l$:? LEFT$(l$, 28); 390? " PERSONAL BALANCE SHEET "; LEFT$(l$, 28):? l$; l$400?:? "AS OF "; dt$:?:? LEFT$(s$, 15); "<ASSETS>"; LEFT$(s$, 32); 410? "<LIABILITIES>":? l$; l$:? br$:? br$420FOR x=1 TO 2:? h1 TO 5:READ hd$(x): lh(x)=LEN(hd$(x)):NEXT x80 w=5:HOME:? LEFT$(s$, 3); 90INVERSE:? " PERSONAL BALANCE SHEET ":NORMAL:? LEFT$(l$, 40-w*2)100? "BALANCE SHEET DATE (MM/DD/YY)":?110INPUT dt$:IF dt$="" THEN 100120?:?:?:? "PRESS <RETURN> TO MOVE TO NEXT CATEGORY."130FOR x=1 TO 20: a(x)=0140IF x=1 THEN ?:? LEFT$(l$, 14-w); hd$(1); LEFT$(l$, 15-w)150IF x=5 THEN ?:? LEFT$(l$, 6-w); hd$(3); LEFT$(l$, 6-w)160IF x=9 THEN ?:? LEFT$(l$, 12-w); hd$(5); LEFT$(l$, 11-w)170IF x=14 THEN ?:? LEFT$(l$, 13-w); hd$(2);60? p$(y); : l=lp(y): t=a(y):GOSUB 1000:? fm$570NEXT y580? LEFT$(ul$, 40):? LEFT$(s$, 18); tl$; : t=st(5): l=23:GOSUB 1000590? fm$:? LEFT$(l$, 38); sp$; fm$; LEFT$(l$, 39)600? "TOTAL ASSETS"; : l=12: t=tassts:GOSUB 1000610? fm$; "TOTAL LIABILITIES"; : l=17: t=liab:GOSUB 1000620?:?:? LEFT$(s$, 27); "NET WORTH = "; 630 t$="":IF netwrth<0 THEN ? "("; : t$=")"640? "$"; ABS(netwrth); t$:?:? l$; l$650? LEFT$(l$, 35); " ANALYSIS "; LEFT$(l$, 35):? l$; l$660?:? "GROWTH ASSETS AS PERCENT OF TOTAL ASSETS = 0)+a(11)+a(12)+a(13)279REM    --TOTAL ASSETS--280 tassts=st(1)+st(3)+st(5)289REM    --TOTAL SHORT-TERM DEBT--290 st(2)=a(14)+a(15)+a(16)+a(17)299REM    --TOTAL LONG-TERM DEBT--300 st(4)=a(18)+a(19)+a(20)309REM    --TOTAL LIABILITIES--310 liab=st(2)+st(4)319REM    --NET WORTH EQUALS ASSETS MINUS LIABILITIES--320 netwrth=tassts-liab327REM    --GROWTH ASSETS (SAVINGS+OTHER LIQUID ASSETS--328REM    -- +CD'S & NOTES+STOCKS & BONDS+OTHER GROWTH--329REM    -- INVESTMENTS+HOME) AS % OF TOTAL ASSETS --NPAID RENT,UNPAID UTILITIES2060DATA    UNPAID CHARGE ACCT. DEBT,OTHER SHORT-TERM DEBT2070DATA    BALANCE OF MORTGAGE,BALANCE OF AUTO LOAN2080DATA    OTHER LONG-TERM DEBT,CASH ASSETS2090DATA    SHORT-TERM DEBT,TIME DEPOSITS AND INVESTMENTS2100DATA    LONG-TERM DEBT,VALUE OF PROPERTY? LEFT$(s$, 27); "NET WORTH = "; 630 t$="":IF netwrth<0 THEN ? "("; : t$=")"640? "$"; ABS(netwrth); t$:?:? l$; l$650? LEFT$(l$, 35); " ANALYSIS "; LEFT$(l$, 35):? l$; l$660?:? "GROWTH ASSETS AS PERCENT OF TOTAL ASSETS =  1))=a(t(x, 1))+t(x, 0)*(1+g*t(x, 2))^t(x, 1)220IF t(x, 1)>l THEN  l=t(x, 1)230NEXT x235HOME:INVERSE:? "                              ":NORMAL240PR #1242?:? " $$ SPECIAL ACCOUNT DEPOSIT SCHEDULE $$$$$$$$$$$$$$$$$$$$$$$$"250?:?:? SPC(17); "MINIMUM DEPOSIT"; SPC(21); "END OF YEAR"260? SPC(7); "+"; u$; "+   +"; LEFT$(u$, 24); "+"270? SPC(7); "DEPOSIT AT START  LUMP-SUM DEPOSIT"; 280? SPC(4); "EXPENSE PLUS"; SPC(5); "ACCOUNT"290? "YEAR"; SPC(4); "OF EACH YEAR"; SPC(4); "AT START OF YEAR 1"; 300? SPC(4POKE 17059, 11:POKE 17115, 19:POKE 17126, 252:TEXT5REM    - HOME/MONEY MANAGEMENT6REM    - by Kimball J.Beasley7REM    - Family Computing - Jan/19858REM    - modified by H.M.Guill - Oct/198710DIM t(100, 2), a(100)20 tru=130FOR x=1 TO 33: sp$=sp$+CHR$(32): u$=u$+CHR$(45)40NEXT x: ls$(0)=LEFT$(sp$, 19)50FOR y=1 TO 10070NEXT y: c=180HOME90INVERSE:? "                              "92? "    FINANCIAL GOAL PLANNING   "94? "                              ":NORMAL96GOTO 4000100INVERSE:? "           L ACCOUNT INTEREST RATE"; SPC(4); "="; e*100; "%"440? "ESTIMATED AVERAGE INFLATION RATE ="; g*100; "%"450PR #0:HOME460INVERSE:? "                              ":NORMAL462?:?:? " Do you wish to change the"470?:? " Interest or inflation rate                                    (y/n)"; 480INPUT t$:GOSUB 2000:IF t THEN 160490?:INVERSE:? "                              ":NORMAL492?:?:? " Do you wish to start again     (y/n)"; 500INPUT t$:GOSUB 2000:IF t THEN 50510GOTO 60001000 p=0:FOR s=f TO l1010 p=p+y/n)"; :INPUT t$:HOME140GOSUB 2000: t(c, 2)=tru*t150 c=c+1:GOTO 100160HOME:INVERSE:? "                              ":NORMAL162?:?:? " What is the interest rate for                                 this special account "; :INPUT t$: e=VAL(t$)/100170IF e=0 THEN 160180?:INVERSE:? "                              ":NORMAL182?:?:? " What will be the estimated                                    average inflation rate "; :INPUT t$: g=VAL(t$)/100190FOR x=1 TO 100: a(x)=0:NEXT x: l=1200FOR x=1 TO c210 a(t(x,"; pg; "%"670? "LIQUID ASSETS AS PERCENT OF TOTAL ASSETS = "; pl; "%"680PR #0:HOME690? "SEE YOU NEXT MONTH!"695?:? CHR$(4); "run HELLO"1000? LEFT$(s$, 25-l); "= $"; LEFT$(s$, 10-LEN(STR$(t))); t; 1010? sp$; :RETURN2000DATA    CASH,CHECKING ACCOUNTS,SAVINGS ACCOUNTS2010DATA    OTHER LIQUID DEPOSITS,BANK CD'S AND NOTES2020DATA    STOCKS AND BONDS, OTHER GROWTH INVESTMENTS2030DATA    NONGROWTH INVESTMENTS,HOME,AUTO/VEHICLE2040DATA    HOME FURNISHINGS,JEWELRY/COLLECTIBLES2050DATA    OTHER PROPERTY,U4); "INFLATION"; SPC(7); "BALANCE"310? LEFT$(u$, 4); SPC(3); LEFT$(u$, 16); " "; 320? LEFT$(u$, 18); SPC(3); LEFT$(u$, 12); "  "; LEFT$(u$, 12)330 f=1:GOSUB 1000: t=p340GOSUB 3000: ls$(1)=LEFT$(sp$, 15-LEN(t$))+"OR $"+t$350 b=0:FOR y=1 TO l360 b=(b+a)*(1+e)-a(y)370IF b>=0 THEN  w=a:GOTO 390380 w=a-b/(1+e): b=0: f=y+1:GOSUB 1000390 t$=STR$(y)400? t$; : t=w:GOSUB 3000:? SPC(10-tru*(y>9)); pf$; ls$(tru*(y=1)); SPC(3); 410 t=a(y):GOSUB 3000:? pf$; : t=b:GOSUB 3000:? "  "; pf$420NEXT y430?:? "SPECIA                     ENTRIES:                                                    ":NORMAL102?:? " Enter an expense amount or 0                                  to end entries "; 110INPUT t(c, 0):IF t(c, 0)=0 THEN  c=c-1:GOTO 160112?:INVERSE:? "                              ":NORMAL120?:? " Year of expense (1,2,3 etc.)                                  "; :INPUT t(c, 1)122?:INVERSE:? "                              ":NORMAL130?:? " Is the expense subject to                                     inflation (a(s)/(1+e)^(s-f+1)1020NEXT s1030IF (l-f)<0 THEN  f=l1040 a=p*e*(1+e)^(l-f)/((1+e)^(l-f+1)-1)1050RETURN2000 t$=LEFT$(t$, 1): t=(t$=CHR$(89) OR t$=CHR$(121)):RETURN3000 t$=STR$(INT((t+1)*100))3010 pf$=RIGHT$(t$, 2)3020 t=VAL(LEFT$(t$, LEN(t$)-2))-13030 t$=STR$(t)3040 pf$=t$+"."+pf$: t$=pf$3050 pf$=LEFT$(sp$, 11-LEN(pf$))+"$"+pf$:RETURN4000?:? "   This program provides a way"4010?:? " to establish financial goals "4020?:? " by creating a special account"4030?:? " deposit schedule to help you "40GOTO 42105000HOME:INVERSE:? "                              "5010? " SAMPLE WORKSHEET:            "5020? "                              ":NORMAL5030?:?:INVERSE:? " Prepare Printer ":NORMAL5040?:? " Insert paper in printer and "5050?:? " press <return> when ready."5060?:INPUT " "; q$5062PR #15070HOME:? " SAMPLE:"5080? " ======="5090?:?:? "                      Expense Worksheet"5100? "                      -----------------"5110?:? " End of     Expense     Inflation?     Description"5120? " YeaRMAL4170?:INPUT " (Enter 1,2 or 3) "; qz4180IF qz<1 OR qz>3 THEN 41704190IF qz=1 THEN 43004200IF qz=3 THEN HOME:?:?:GOTO 60004210HOME:INVERSE:? "                              "4220? " PREPARE PRINTER              "4230? "                              ":NORMAL4240?:?:?:? " To create a deposit schedule,"4250?:? " first load paper in printer. "4260?:INPUT " When ready press <return> "; q$4270HOME:GOTO 1004300HOME:INVERSE:? "                              "4310? " INSTRUCTIONS:  First Step    "43205290?:? " 10         $5000        y             James' tuition"5300?:? " 11         $5000        y             James' tuition"5310?:? "            $5000        y             John's tuition"5320?:? " 12         $5000        y             John's tuition"5330?:? " 13         $5000        y             John's tuition"5340?:? " 14         $5000        y             John's tuition"5350?:?:PR #05460GOTO 41006000?:? CHR$(4); "run HELLO"110?:? " End of     Expense     Inflation?     Description"5120? " Yea" OR ws$="y" THEN 50004500HOME:INVERSE:? "                              "4510? " INSTRUCTIONS:  Next Step     "4520? "                              ":NORMAL4530?:? "   After you have filled out a"4540?:? " worksheet you are ready to"4550?:? " create a deposit schedule."4560?:? " (For demonstration purposes, "4570?:? " use the sample worksheet)"4580?:? " Using the worksheet, enter "4590?:? " information when prompted by"4600?:? " the program."4610?:?:INPUT "                     <return> "; q$465040?:? " meet all of your anticipated "4050?:? " expenses. The program allows "4060?:? " for an inflation factor and  "4070?:? " interest earnings on your    "4080?:? " account."4090?:INPUT "                     <return> "; q$4100HOME:INVERSE:? "                              "4110? " SELECT ONE:                  "4120? "                              ":NORMAL4130?:? " 1) Instructions"4140?:? " 2) Create Deposit Schedule"4150?:? " 3) Exit Program"4160?:INVERSE:? "                              ":NOr       Amount      (y/n)          of Expense"5130? " ======     =======     ==========     ==========="5140?:? "  2         $5000        y             new car - downpayment"5150?:? "  3         $3000        y             car payment ($250/month)"5160?:? "  4         $3000        y             car payments"5170?:? "  6         $4000        y             replace roof"5180?:? "  7         $5000        n             pay off debt to partner"5190?:? "  9         $5000        y             James' tuition"? "                              ":NORMAL4330?:? "   In order to oganize your "4340?:? " financial goals, fill out a "4350?:? " worksheet using a pencil and "4360?:? " paper. Create a column on the"4370?:? " worksheet for each of the    "4380?:? " following items:"4390?:? "  a) year of expense"4400? "  b) expense amount"4410? "  c) subject to inflation? y/n"4420? "  d) description of expense   "4430?:? " Would you like to see a print"4440?:INPUT " of a sample worksheet? (y/n)"; ws$4450IF ws$="Yx	E---------------------------*FRUIT DETECTIVE GAME                         run FRUITS       Guess the order of four fruits selected by the computer.  Use graphic displayreadme 1stPRINTSHOP-1 ********************************** VOL. 463...B4************ 463...ADAM PUBLIC DOMAIN LIBRARY **************************************************************************Welcome to the 463...ADAM PRINTSHOP                     high       d) 2 1/2" long      Prints labels with     b) 1 1/2" high   e) 3" long          (5-11) lines of from   c) 2" high       f) 3 1/2" long      (2-36) characters on                    g) 4" long          each line.          *----------------------------------------------------------*INDEX LABEL MAKER                            run INDEXLABEL   Select label types as required for listing the contents ofdata packs, audio cassettes, disk sleeves, binders, folders,storage boxes,etc. Just print t. Up to seven lines of 10 characters each   may be printed. Special features include:                   -  All letters, numbers & symbols (except ',' & ' ')        -  left, right or center adjustment of lines                -  2 styles of box borders                                  -  Downward pointing arrow                                  *----------------------------------------------------------*WEEKDAY                                      run WEEKDAY      Enter any date from 1800 to 2400.       *----------------------------------------------------------*BANNER MAKER (for 8 1/2 x 11 sheets)         run BANNER-ss    Prints banner message sideways down the length of the     paper (3 letters per sheet) and pauses to allow new sheets  to be inserted in the printer. The letters are composed of  like characters (A's for A's, B's for B's, etc.) and may be from 1/4 page to full height across the page width.         *----------------------------------------------------------*GREETING CARDNDR  Prints a monthly appointment calendar in a list type formatwith day of week, month, and year printed in front of lines for appointments, reminders, or notes.                      (NOTE: Start printing as near to top edge of paper as       possible for months with 31 days.)                          *----------------------------------------------------------*LABEL MAKER                                  run LABELMAKER   All-purpose label maker, prints labels...                    a) 1"       This volume is a menu driven collection of 24 useful and  entertaining programs for use with the ADAM printer. They   include programs for printing signs, banners, labels,       calendars, cards, financial worksheets, computer art and    games. The following are brief descriptions of the programs:*----------------------------------------------------------*SIGN MAKER                                   run SIGNMAKER    Prints 8 1/2 x 11 signs composed of large block letters,  seven lines highhe appropriate label and thenwrite in the contents as needed. Prints 6 index labels per  8 1/2 x 11 sheet.                                           *----------------------------------------------------------*BANNER MAKER (for fan fold paper)            run BANNER-ff    Prints continuous banner in large block letters, sideways,down the length of the paper. Select character (e.g. @,#,$, %,&,*) that you want the letters composed of, the letter    size (1-8), then enter and print your message.        The program will displaythe weekday and a calendar for that month. A small copy of  the calendar may also be printed, if desired.               *----------------------------------------------------------*WALL CALENDAR                                run WALLCALNDR   Prints 8 1/2 x 11 monthly calendars with large block      numbers, suitable for hanging on the wall.                  *----------------------------------------------------------*APPOINTMENT CALENDAR                         run APPSCAL MAKER                          run GREETINGS    Makes a simple Greeting card from an 8 1/2 x 11 sheet of  paper. Enter a message of up to 4 words of no more than 5   letters each. Then enter up to 25 lines of no more than 40  letters each. After the messages are printed, fold the paperin half widthwise and then lengthwise. The 4 word message   should be on the cover with the 25 line message inside.     NOTE:  Corrections to the inside message cannot be made by         backspacing or overtyping.NES     Generates and prints unique skyline pictures using stringsof typed characters to create the buildings. You select the charcters to be used and the width of the picture.          (makes pictures up to 22 inches long)                       *----------------------------------------------------------*WORD SEARCH PUZZLE                           run WORDSEARCH   The program hides words, supplied by you, in a block with other letters. The program will also print a puzzle solutionif desired.   for   more details.)                                              *----------------------------------------------------------*LOVEPRINT                                    run LOVEPRINT    Program reproduces famous work of artist Robert Indiana,  using a message, entered by you, of up to 60 characters and spaces.                                                     *----------------------------------------------------------*BUNNY                                        run BUNNY        Program pri dash on the game board.*----------------------------------------------------------*MAZE GENERATOR                               run AMAZING      Program prints a different maze every time it is run.     Chose any size maze up to 8 1/2 x 11 inches.                *----------------------------------------------------------*BINGO                                        run BINGO        BINGO program with the following features:                  1) Automatic printing of up to 40 BINGO cards.       erns using your design and input.                                                      *----------------------------------------------------------*ELECTRIC FIELD ART                           run ELECTRIC     Generates and prints ASCII characters in patterns that    describe the potential of an electrical field about one or  more charged points.                                        *----------------------------------------------------------*SKYLINES                                     run SKYLI To correct a line, just          run the line past the 40 character limit and return.        The program will then prompt you to re-enter the            line.                                                *----------------------------------------------------------*REPEATING DESIGN CARD                        run REPDGNCARD   Similar to the Greeting card program except that you      create a block of repeating designs on the cover instead of a four word message. (see GREETINGS & REPEAT programs                                               *----------------------------------------------------------*MATRIX PUZZLE WORD GAME                      run MATPUZZLE    Input up to 6 words of equal length and up to 6 letters inlength. The words are then scrambled and printed in a matrixwith numbered columns and rows. A board is then printed withnumbered dashed lines. To find the correct words used in thepuzzle you must select the letters from the matrix whose rowand column equal the number for eachnts a reproduction of the well-known Playboy   bunny emblem.                                               *----------------------------------------------------------*SAMPLES                                      run SAMPLES      Prints blocks of ASCII characters, helpful in visualizing the patterns and shadings formed by these characters.       *----------------------------------------------------------*REPEAT-A-DESIGN I                            run REPEAT       Prints blocks of repeating patt          (more if required)                                       2) Random number calling.                                   3) Review of called numbers.                                4) Resumption of game if no BINGO.                          5) Quit or start new game option.                         *----------------------------------------------------------*FRUIT DETECTIVE GAME                         run FRUITS       Guess the order of four fruits selected by the computer.  Use graphic dispåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå prints a BALANCE SHEET.*----------------------------------------------------------*FINANCIAL GOAL PLANNING                      run FINANCPLAN   Prints sample worksheet and a SPECIAL ACCOUNT deposit     schedule for you to use to establish financial goals.       game option.                         *----------------------------------------------------------*FRUIT DETECTIVE GAME                         run FRUITS       Guess the order of four fruits selected by the computer.  Use graphic dispåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååålay and typed printouts to help find the    solution to each combination.                               *----------------------------------------------------------*CALNDRFORM                             ** SMARTwriter file    Use SMARTwriter copy feature to construct a large monthly calendar with spaces for reminders, events and notes.       *----------------------------------------------------------*PERSONAL BALANCE SHEET                       run ASSETS       Input assets and debts and programåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååålay and typed printouts to help find the    solution to each combination.                               *----------------------------------------------------------*CALNDRFORM                             ** SMARTwriter file    Use SMARTwriter copy feature to construct a large monthly calendar with spaces for reminders, events and notes.       *----------------------------------------------------------*PERSONAL BALANCE SHEET                       run ASSETS       Input assets and debts and program