@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr 5 DIM A$(1),NAME$(25),SNAME$(25)10 REM LIFE INSURANCE CALCULATOR20 REM HOW MUCH LIFE INSURANCE DO YOU NEED30 REM BY FRED N}. BUSH 72327,20040 ? "}":GRAPHICS 0:POKE 752,1:POKE 709,1:POKE 710,150:POSITION 3,10:? "HOW MUCH LIFE INSURANCE DO YOU NEED?}"50 RESTORE 60:FOR X=3 TO 14:READ A:POSITION X+8,13:PRINT CHR$(A);:FOR DEL=1 TO 200:NEXT DEL:NEXT X55 POSITION 23,13:? ", L}UTCF"60 DATA 66,89,32,70,82,69,68,32,66,85,83,7270 FOR Y=1 TO 2000:NEXT Y80 ? "}":POSITION 3,6:? "WOULD YOU LIKE INSTRUCTI}ONS?"85 TRAP 9090 ? "ANSWER (Y/N) ";:INPUT A$:IF A$="Y" THEN GOSUB 10000:GOTO 200100 IF A$<>"N" THEN 80200 REM *** BASIC }INFO INPUT ***210 LPRINT CHR$(12);CHR$(27);CHR$(69)220 LPRINT :LPRINT :LPRINT 230 LPRINT "LIFE INSURANCE NEEDS":LPRINT :LP }RINT "BASIC INFORMATION"235 TRAP 240240 ? "WHAT IS YOUR NAME";:INPUT NAME$250 LPRINT "NAME: ";NAME$260 ? "WHAT IS YOUR SP }OUSE'S NAME (IF MARRIED)? PRESS RETURN IF NONE"261 INPUT SNAME$263 IF SNAME$="" THEN 280270 LPRINT "SPOUSE NAM }E: ";SNAME$280 ? "HOW MANY CHILDREN DO YOU HAVE";285 INPUT CH:IF CH<=0 THEN 400287 COUNT=0288 DIM TEMP$(25)290 DIM CHIL$ }(250)291 FOR CL=1 TO 250:CHIL$(CL)=CHR$(32):NEXT CL292 TEMP$(1)="":TEMP$(25)="":TEMP$(2)="":TEMP$=TEMP$(1)295 ? "ENTER EAC}H CHILD'S NAME, PRESSING BETWEEN EACH NAME"300 INPUT TEMP$:CHIL$(((COUNT*25)+1),((COUNT*25)+25))=TEMP$302 CHIL$(}((COUNT*25)+25),((COUNT*25)+25))=CHR$(155)305 COUNT=COUNT+1:IF COUNT>(CH-1) THEN 350310 GOTO 300350 LPRINT :LPRINT CHIL$:G}OTO 400395 LPRINT CHR$(12);"SPOUSE NEEDS"400 ? "DO YOU HAVE EXISTING INSURANCE?"405 TRAP 410410 ? "IF SO, PLEASE ENTER AM}OUNT ON MAIN WAGE EARNER":INPUT INSAMT420 AVAILCASH=0:AVAILCASH=AVAILCASH+INSAMT425 LPRINT "LIFE INSURANCE IN FORCE: "};INSAMT430 ? "ENTER VALUE OF ANY SAVINGS ACCOUNTS, INCLUDING CD'S, AND OTHER INVESTMENTS.":INPUT SAVINGS435 LPRINT "INVEST}MENTS PLUS SAVINGS: ";SAVINGS:LPRINT :LPRINT 440 AVAILCASH=AVAILCASH+SAVINGS450 ? "AMOUNT FOR FINAL EXPENSE ":INPUT FINEXP}455 LPRINT "FINAL EXPENSE ALLOTMENT: ";FINEXP460 ? "AMOUNT FOR EMERGENCY FUND ";:INPUT EMERG465 LPRINT "EMERGENCY FUND: ";E}MERG470 ? "AMOUNT FOR DEBT LIQUIDATION ";:INPUT DEBT475 LPRINT "DEBT LIQUIDATION FUND: ";DEBT480 ? "MORTGAGE BALANCE ";:IN}PUT MORT485 IF MOR<=0 THEN PRINT "ENTER AMOUNT OF MONTHLY RENT";:INPUT RENT:RENT=RENT*120490 IF MORT>0 THEN LPRINT "MORTGAG}E BALANCE: ";MORT500 IF RENT>0 THEN LPRINT "RENT FUND: ";RENT510 ? "ENTER AMOUNT DESIRED FOR EACH CHILD'S EDUCATION PER YEA}R."511 INPUT ED1:IF ED1<=0 THEN 530520 ? "NUMBER OF YEARS YOU WISH TO PROVIDE"525 INPUT ED2530 ED3=(ED1*ED2)*CH:LPRINT "E}DUCATION FUND: ";ED3540 ? "AMOUNT PER MONTH FOR CHILD CARE EXPENSE ":INPUT CCARE541 IF CCARE<=0 THEN 560545 ? "WHAT IS YOU}NGEST CHILD'S AGE ":INPUT YAGE550 CCARE=(CCARE*12)/0.07560 LPRINT "CHILD CARE FUND: ";CCARE561 CCARE=INT(CCARE)570 TCNEED}=FINEXP+EMERG+DEBT+MORT+RENT+ED3+CCARE580 LPRINT "TOTAL CASH NEEDS: ";TCNEED590 LPRINT :LPRINT "AVAILABLE RESOURCES: ";AVAI}LCASH600 NCNEED=TCNEED-AVAILCASH:LPRINT :LPRINT "CASH STILL NEEDED FOR BASIC CASH NEEDS: ";NCNEED605 TRAP 610610 ? "DO YOU} WISH TO STOP HERE (Y/N)"620 ? "OR DO YOU WISH TO PROCEED?"625 INPUT A$630 IF A$="Y" THEN GOSUB 3500:GOTO 640635 IF A$="N}" THEN 1000637 IF A$<>"N" THEN 610640 POKE 752,0:LPRINT CHR$(12):END 1000 ? "INPUT YOUR ANNUAL INCOME";:INPUT ANNINC1010 }IF ANNINC<15000 THEN PRINT "SOCIAL SECURITY WILL PROBABLY BE ENOUGH":GOTO 6401020 IF ANNINC>15000 AND ANNINC<30000 THEN 1100 }1030 IF ANNINC>29999 AND ANNINC<45000 THEN 12001040 IF ANNINC>44999 THEN 13001100 FAMINC=(ANNINC*0.35)/0.071110 LPRINT "F!}AMILY INCOME FUND: ";FAMINC:GOSUB 2000:GOSUB 3500:GOTO 40001200 FAMINC=(ANNINC*0.45)/0.07:GOTO 11101300 FAMINC=(ANNINC*0.6)"}/0.07:GOTO 11102000 FAMINC1=FAMINC*5.83E-032010 TEMP=FAMINC12020 TEMP=TEMP*100:TEMP=INT(TEMP)2030 FAMINC1=TEMP/100:GOSUB #}3000:RETURN 3000 LPRINT :LPRINT "THIS WILL PROVIDE ";FAMINC1;" PER MONTH AND LEAVE ";FAMINC;" TO PASS ON TO YOUR"3001 LPRIN$}T "CHILDREN."3010 LPRINT :LPRINT "THIS WILL BE IN ADDITION TO SOCIAL SECURITY EXPECTED."3020 RETURN 3500 LINEED=FAMINC+NCN%}EED3510 LPRINT :LPRINT "THE TOTAL AMOUNT OF NEW INSURANCE NEEDED IS: ";LINEED3520 LPRINT :LPRINT "YOU SHOULD TAKE CARE OF T&}HIS AS SOON AS POSSIBLE."3535 LPRINT "CALL YOUR LOCAL AGENT OR BROKER AND REVIEW THIS FACT SHEET WITH HIM."3540 RETURN 400'}0 TRAP 40054005 ? "DO YOU WISH TO CALCULATE THE NEEDS FOR YOUR SPOUSE";:INPUT A$4010 IF A$="Y" THEN 3954020 IF A$<>"N" THE(}N 40004030 GOTO 64010000 REM *** INSTRUCTION MODULE ***10010 ? "}"10011 POKE 709,1:POKE 710,4010020 ? "This program will)} help you figure needs for life insurance."10030 ? "Simply enter the information called for at each prompt"10040 ? "*}and you will find out what your needs really are."10050 ? "Don't be alarmed if the numbers seem large."10060 ? "Recent sur+}veys show that as a rule of thumb"10070 ? "the average wage earner needs 5 to 9 times"10080 ? "his or her annual income in,} coverage,"10090 ? "in addition to Social Security,"10100 ? "in the typical family situation."10105 ? "Your professional l-}ife insurance agent would be happy"10110 ? "to review this fact sheet with you."10115 PRINT 10120 ? "FOR MORE INSTRUCTIONS.} PRESS ɢ"10130 ? "TO RETURN TO PROGRAM PRESS ANY OTHER KEY"10135 TRAP 1014010140 INPUT A$:IF A$="I" THEN GOSUB 1100010/}150 RETURN 11000 LPRINT CHR$(12)11005 LPRINT "The Final Expense Fund is to pay funeral bills and clean up any"11010 LPRINT0} "unpaid medical bills, and estate or other legal or administrative expenses."11020 LPRINT "This fund is usually equal to ab1}out 50% of your salary."11030 LPRINT :LPRINT "The Emergency Fund is for just that."11040 LPRINT "It is a block of money lef2}t on deposit to pay for"11050 LPRINT "extraordinary expenses such as a new roof, major car repairs or replacement, etc."3}11060 LPRINT "It is usually equal to about 50% of annual income."11070 LPRINT :LPRINT "The Debt Liguidation Fund is to pay o4}ff any debts which are"11080 LPRINT "not already covered by credit life insurance."11090 LPRINT "Enter your total amount of5} such bills."11100 LPRINT :LPRINT "The Mortgage/Rent module asks for your mortgage balance."11110 LPRINT "If you are a rent6}er, enter a '0' at the Mortgage prompt"11120 LPRINT "and then enter the amount of your monthly rent at the next prompt."1117}30 LPRINT "The program will capitalize a Rent Fund for you."11140 LPRINT :LPRINT "The Child/Home Care Fund will capitalize a8} fund to provide the amount"11150 LPRINT "necessary to provide the monthly payment you entered."11160 LPRINT "This fund wil9}l be based on your youngest child's age."11170 LPRINT "Child care usually costs at least $300 to $400 per month."11180 LPRI:}NT :LPRINT " The Education Fund module allows you to provide a selective"11190 LPRINT "amount per year for your child's educ;}ation."11200 LPRINT "This amount should be that charged by the school you wish your children"11210 LPRINT "to attend."1122<}0 LPRINT :LPRINT "The Family Income module calculates the amount"11230 LPRINT "of money necessary to keep your family in the=}ir same world"11240 LPRINT "after the breadwinner's death, allowing for Social Security."11250 LPRINT "It is based on your >}annual income, and is adjusted"11260 LPRINT "for your level of income."11270 RETURN   `*  70 2 2WA3N0˭1̠ȑ˩ B;DKEHI VUT BDMEHI VU T BDKE@}HI VTU BDMEHI V BDNEHI V B VBDKEHIJ VBDKA}EHI VKLS PCLA ILE ILE ILF I T BDKEHI V B;DKEB}HI V )GM@ B V@BbDJEJHI V0JBDDLEHI VDLLBELdC}`@ B V CMLA B;DKEHI V U T BFDLEHI VLA B;DKEHI VD} U T B[DLEHI VLA@BbDJEHIJ V B;DKEHI V:K:K:KE} M@BrDJEHI V0) BrDJEHI VLCȍ=ϩKХXͥYΩp B VBeDKEF}HIJ V0~0sKtKTzKԩ ؠ0sKȱItKp BhDKEHI V \E Ei(ͥiG}zKzKԭNLC B;DKEHI V TU B{DKEHI VLA@ B Vp B V`ؠH}˭̱ɀ8 %@` 8`8@8 mHhHhIHh(Л`p B=DKE(HI}I V`iKmLKLA/iKrLKLA TU BwDLEHI V B;DKEHJ}I V )G0 B V 0BbDJEHIJ V0:BD`hihiHHȱȱLJ=c !#3`_}L==JJJJ`H J=h`Hȩh =L> "=L>  BHI V䅠L> L=? Ԇ ؠPIPP`a} r?P ?LZ? r?L? ?Lh?H- c?8塪墨hL? ?LZ? ?Lh? r?ȹP`b}텠8堨塪 r?芨Oȩ-`PP 5?P棩 Ѥģ0-ģ6000:,80H c}& &ehe&eģ0ʥ 8堅塅`$ \?&*i0:0i \?Ʀ`¢ 护d}°ڱ%ȱ%E \?LA担CS >LAI ?LAH @LA ?LA &B V >NLMȑe}` MLN%B VL>S:AE:AH > AA > >h)0IAAL>[\ZUVT` AAAf}` ALl? AL;? AL_?) ` ALl? =` 0d ==ҥ `2)2g}ҩ`p`0)9B`@0)ӈJJJJ)`Ѕ`ȱ`` Bȥ`Hhh}ƣĢ`ƥĤ`Ѣ gC`ȱѢĦ`膡`i}`ťƤe8夰L}C Ƥ8`ŦeѠe桊LC`Lj}C4C5CD0DD D LDDDD5D5DDLAD_ \?DL*DDDWDWDDLcD \?DLLD`LlD X>dDk}hDdDeDDDhDLDdDmhDeDiI_LDfDmhDgDidDmhDeDiLDLDhDLDfDgD8hDl}`@ D L*EDD)LKE$ED)DLPE$ED L{EDi@ m}=%E&ELEDLED`LE8D  =%E&ELED =%E&EE B E ELF!E!n}ELF%Em E&EiDeDeDm!EDi1#E$EL\F#ELYFDm EDi!EEq!EELF#ELFDmo} EDi!EEq!EE!ELE ELECC ?"E"ELF"EEILF"EE"EE _?"ELF`LFFFFp}FFFLF h?FLF`L GGFGGGGFmGGiGGILGG h?`GILGGL}GG{Lq}}GGI`L}GG _?GLGG 'EGiG}GLG h?GGGGFmGGiGLGG h?GGG`r}s}t}LIՄRL0I#} EPSON/ATASCII Printer ProgramI >LYI (c)1983 Leo G. Laporu}teI: >LI" modified by Al Shrock 1984Ic >LI( This program was written using ACTION!I >LI" ACTION!v} is a trademark ofI >LJ Action Computer ServicesI >L=J" Portions of this program areJ >LbJ w} (c)1984 A.C.S.JG >LJ  File must be LISTed TEXTJl >@ȌLJ Enter filename: J > DG ?x}GآG iD > >Gة >LJP:J >DD ? D D ?CC ?DD ?D _?D _?LIKPage Ky}C ?HH ?LfK - K` ?Gة >DD ? FHG '?LRLD _?G GHHmHHHTLz}BLD _?HHCC ?D _?D _?LKPage K ?HH ?LL - L ?Gة >DD ? FH{}G '?LKD _? > > A``HŠӛ^h%A@% A r|Π1239PPENOFHHFLACOQQQREQCNQADDQSUQLINQLE }} &&** ANTIC ** APR 84 ** PAGE 30 **LIGHT PEN DOOD ~}LEBY JOHN AND MARY HARRISONANTIC MAGAZINE APRIL 1984 A 'B2w'B2w@6-F }:B2d,"@ @(!6-F:Ad,!6-F:Ad,2%% &@)!%@@@<!! @v*!@ }@@F 6-P @6-A%%Z)6-&@v!AY)6-AYd26-F:Ae,&@&!@ }26-@n 6-x$# @5@# AP# @e@# AP# } @@# AP# A%@# AP6-@$+@%@k0@ }@70@@@Q0@@k0@@@ @],'/ }AY9/AY@K/@]/-@@6-@@6 }- $,$@0&@@./$@0&@@8))/@%+&@,$@0@B!@ }A@L))-@%+&@,$@0@VAe`++@@S:j A`t }))/@%+&@,$@0@~/$@0&@@ ',A5@'/A@@',A }5@'/A@@2AdAU2F:Ad,AUA @ @A A } F:Ad,"AUA%AdAU%"@6-% A @!@6 }-@ , F:Ad,AUA  @!@6-@ / AD2:LI }GHTPEN.BASiͥi8˥cc67@,.P8ͥ΢ й͑8˥8ͥi˥ 10 REM ** LODE RUNNER SCREEN TRANSFER15 REM BY PAUL FIELDS, CIS 72465,126020 REM ** JUNE 1984 ** VERSION 1.0 **25 REM SETU}P STRING VARIABLES30 DIM L1$(70),L2$(58),L3$(40),L4$(58),NAME1$(15),NAME2$(15),ID$(12),F$(15)35 L1$(1)="-":L1$(56)="-":L1$(}2)=L1$40 L2$(1,2)="I ":L2$(57,58)="I ":L2$(3)=L2$45 L3$=" 1 2"50 L4$=" 1 2 3 4 5 6 7 8} 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8"55 REM SEND PROGRAM TO MENU60 GOTO 32065 REM PRINT A SCREEN WORKSHEET70 REM USE }AN 80-COL PRINTER75 CLOSE #7:OPEN #7,8,0,"P:"80 ? #7;"LODE RUNNER SCREEN WORKSHEET * NR___ DATE_______":? #7:? #7;L3$:? #7;}L4$85 FOR X=1 TO 16:? #7;L1$:? #7;L2$;" ROW";X:? #7;L2$:NEXT X:? #7;L1$90 RUN 95 REM ENTER SCREEN VALUES100 POKE 752,0:}? "}":POSITION 2,1:? "ΠŠ٠":? 105 ? "ҠҠԠŠҠũ":INPUT NAME1$:? 110 ? "Ҡ}ԠŠ":INPUT NAME2$:? 115 ? "ҠҠĠҠ":INPUT ID$:? 120 ? "ԠΠŠé":INPUT X}:? 125 F$="D":F$(2)=STR$(X):F$(3)=":":F$(4)="LR":F$(6)=NAME1$:F$(7)=NAME2$(1,1)130 ? "ҠΠҠ":INPUT X:? :F}$(8)=STR$(X):F$(10)=".BIN":? "}"135 CLOSE #2:CLOSE #4:OPEN #2,8,0,F$140 ? #2;NAME1$;" ";NAME2$;" * SCREEN # ";X;CHR$(155);"}USER ID # ";ID$:? "}"145 ? "ӠΠҠӠө":OPEN #4,4,0,"K"150 TRAP 205:FOR X=1 TO 16:? "ENTER VALUES }FOR ROW # ";X:F=1:L1$="":F$=""155 FOR Y=1 TO 28:GET #4,Z160 IF Z=126 THEN F=F-2:? " ";:L1$(F)=" ":F=F+2:GOTO 155165 IF} Z=155 THEN F$="*":GOTO 180170 Z=Z-48:IF Z<1 OR Z>9 THEN 155175 F$=STR$(Z)180 ? F$;" ";:L1$(F)=F$:L1$(F+1)="-":F=F+2:NEXT }Y:L1$(57)=" ROW ":L1$(63)=STR$(X):? 185 ? #2;L1$:NEXT X:CLOSE #2:POKE 752,1:? :? 190 ? " Ӡ٧ϠΠϠˠ}"195 GET #4,Z:IF Z<>89 THEN 195200 CLOSE #4:RUN 210 REM PRINT A SCREEN FILE215 ? "}":POSITION 2,2:? "ԠŠ}ĠŠΠ":? "ҠƠŠŠՠԠϠ":? 220 INPUT L1$:? :F$=""225 ? "ҠŠŠ}é":INPUT X230 F$="D":F$(2)=STR$(X):F$(3)=":LR":F$(6)=L1$:F$(10)=".BIN":L1$=""235 CLOSE #7:OPEN #7,8,0,"P:"240 ? #7;"LODE} RUNNER SCREEN TRANSFER":? #7:? #7;"* = SPACE (ZERO)":? #7245 ? #7;L3$:? #7;L4$250 CLOSE #2:OPEN #2,4,0,F$255 TRAP 265:INP}UT #2,L1$:? #7;L1$:? #7260 GOTO 255265 CLOSE #7:RUN 270 REM READ DOCUMENTATION275 TRAP 290:CLOSE #2:OPEN #2,4,0,"D:LODRUN}.DOC"280 TRAP 285:FOR F=1 TO 7:READ FF:? CHR$(125):? "":FOR X=1 TO FF:INPUT #2;L1$:POSITION 2,X:? L1$:NEXT X281 DATA 16,21},15,14,16,21,21,15285 POSITION 7,22:? "ӠԠϠŠ"290 IF PEEK(53279)<>6 THEN 290295 NEXT F:CLOSE #2:GOTO 31}0300 ? CHR$(125):POSITION 3,10:? "ΠŠԠΠˡ":FOR X=1 TO 500:NEXT X310 CLOSE #2:RUN 315 REM FUNCTI}ON MENU320 GRAPHICS 0:POKE 710,160:POKE 709,10:POKE 712,54:POKE 82,2325 POKE 752,1:? CHR$(125):POSITION 4,4:? "Š}ΠҠ":POSITION 12,7:? "MAKE A SELECTION"330 POSITION 7,10:? "1. ԠԠ"335 POSITION 7,12:? "2}. ҠΠŠ"340 POSITION 7,14:? "3. ԠΠŠ"345 POSITION 7,16:? "4. ĠΠ"350 PO}SITION 7,18:? "5. ԭϠӠՠ"355 POSITION 4,21:? "̠ӠŠ"360 CLOSE #4:OPEN #4,4,0,"K":}GET #4,F:F=F-48:IF F<1 OR F>5 THEN 360365 CLOSE #4:ON F GOTO 65,95,215,275370 DOS $I.(&INCORRECT RESPONSE! PLEASE TU(IDU@DHKH DETD{DD "!1= }..DE@ @HUDHKD{DD;T " Q!1=1}UEUDHDHKH D{D{DU U}!1=1  DUD@HUHDUDHKHD{DDUU} @ Q!=*DETU@@ DETDHK{tt00:}UU QU Q!=2#.!  DUTEU DTDHK*}PU "@! Q!->2 DUBPD@D@ DET!DxG} PU  "U Q * <* DTUHUDET"DFD8}QQ!VP!Q"ꪮ DUEDDT@DET#DDD0}*Q &U"'EDUD@ @DET%DjDQU"} "Q "Q%! *DEDTDDDE(DHJDUV" ""}U'*DUHDET)DD QU   ""Q)D}ED+DjF**R " !Q+" DT}TH*DdfD  @ ""P+" /*DPD@+DdD}@ ""P",! ?DPUTH DE"D?  }T@   **0EDUHHPDEDT%D*U T" bT@}!Q#* DTEUE@DUT,D* QU"Q ""&Q*}DTUETE P@.D#QU!U"@ }DU@EUEQH@dD@DAEU"UP`"UUU}?TUDUDP(DDJ? DAEWU_w}uU UU Q@"   W]u}תUU}UUUD@DETHU HTEHDDM=U]WwuUUPVU" "Z } ?_U}}ߊU@UUUUDEU@D@B eD@TDE DO?OACO݃u݋w__UZU}U ( U@bQ ??݅uUUUUSUDEU@ UD@ }DTDuݑ_W}W{U ""U Q?w}}UUUU3}UDU TD?wuW_WẀU""*P _י}uW}_UUS3^*DEUPU @ID}]WW}WQUQ  " `P%}}w]W_W}UU3.DUHDEHDTDEDD}]U}]UT } " T""!Q}]U_}Uj3 DUDTUDTDEDD}]3;}*U""!QՄ]_~U3DUED DTDE}D_u3?U  "AU!% " QwU3DUDDPD}TED|ww3U "TU"QQwU3 D}@D@XEDTED|_W00 Q!"T"PQ^, >} DETDHUUDDTEDTE D_QAP Q"QQ ]uU}DTDTD@PDTDEDTE DGw[<00Q "U" Q}Q oV /* . DD@DTED{ tu0  UQ! T}" "Q!a!%҂уU3DTUADUUHDKDGKHtEDM}UUQ  " ""mqwU2,D@DU@U@DDGKHt{twx} QPU"-!!".-сD@@D{DG}GKxtDTED8UR T "".! QOU: *DU@U}DDGHDTD@" ".!QUD@ED @DGK}xDD  U"" !тU*DUD@ DGHtDD}"! -*U@F&&(ҠŠƠҠɠźP6-EAP UT *(PA@U}*~p30<`N  X } P   `X`?` T0 (b@Je@ Sb2@}X1 @AO@"@CA@POJ*%UUD12jUB%UL2P @@}a$`'f?68p``@5@@-@I0 REM S."D:MAGICBBS1 REM by Jean Rowe-P.O. Box 694-Hermosa Beach, Ca.4 GOSUB 290005 GRAPHICS 010 DIM N(75),S$(30),D$(120)}12 POKE 53768,0:POKE 53775,3:AUC4=5376715 AUD1=53760:AUD2=53762:AUD3=53764:AUD4=5376620 POKE 53761,166:POKE 53763,164:POKE} 53765,164:GOTO 11030 READ S$:POKE AUD1,N(VAL(S$(1,2))):C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128)31 PLOT }VAL(S$(5,6)),VAL(S$(7,8))32 POKE 540,VAL(S$(3,4))+633 IF PEEK(540)<>0 THEN 3334 POKE AUD1,0:RETURN 40 READ S$:POKE AUD1,N}(VAL(S$(1,2))):POKE AUD4,N(VAL(S$(3,4))):POKE AUC4,196:C=PEEK(709):POKE 709,(PEEK(710))41 POKE 710,C:COLOR 2+(C=128):PLOT VA}L(S$(11,12)),VAL(S$(13,14)):POKE 540,1842 IF PEEK(540)<>0 THEN 4243 POKE AUD1,0:POKE AUD1,N(VAL(S$(5,6))):POKE AUD2,N(VAL(S}$(7,8))):POKE AUD3,N(VAL(S$(9,10))):POKE 540,644 IF PEEK(540)<>0 THEN 4445 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:}POKE AUD3,0:RETURN 50 READ S$:V=VAL(S$(7,8)):POKE AUD1,N(VAL(S$(1,2))):POKE AUD2,N(VAL(S$(3,4))):POKE AUD3,N(VAL(S$(5,6)))5}1 POKE AUD4,N(V):POKE AUC4,164+32*(V>50)52 C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(11,12)),V}AL(S$(13,14))53 POKE 540,VAL(S$(9,10))+12*(VAL(S$(9,10))>9)54 IF PEEK(540)<>0 THEN 5455 POKE AUC4,0:POKE AUD4,0:POKE AUD1,}0:POKE AUD2,0:POKE AUD3,0:RETURN 60 READ S$:POKE AUD1,N(VAL(S$(1,2))):POKE AUD4,N(VAL(S$(7,8))):POKE AUC4,19661 C=PEEK(709)}:POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(13,14)),VAL(S$(15,16)):POKE 540,862 IF PEEK(540)<>0 THEN 6263 }POKE AUD1,0:POKE AUD1,N(VAL(S$(S,4))):POKE 540,864 IF PEEK(540)<>0 THEN 6465 POKE AUD1,0:POKE AUD1,N(VAL(S$(5,6))):POKE 540},266 IF PEEK(540)<>0 THEN 6667 POKE AUD3,N(VAL(S$(9,10))):POKE AUD4,N(VAL(S$(11,12))):POKE 540,668 IF PEEK(540)<>0 THEN 68}69 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN 70 READ S$:V=VAL(S$(1,2)):POKE AUD1,N(V):POKE AUD4,N(}VAL(S$(3,4))):POKE AUC4,19671 C=PEEK(709):POKE 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(9,10)),VAL(S$(11,12)):}POKE 540,1872 IF PEEK(540)<>0 THEN 7273 POKE AUD2,N(VAL(S$(5,6))):POKE AUD3,N(VAL(S$(7,8))):POKE 540,674 IF PEEK(540)<>0 T}HEN 7475 POKE AUC4,0:POKE AUD4,0:POKE AUD2,0:POKE AUD3,0:POKE AUD1,N(V)*F=0:RETURN 80 READ S$:V=VAL(S$(7,8)):POKE AUD1,N(VA}L(S$(1,2))):POKE AUD2,N(VAL(S$(3,4))):POKE AUD3,N(VAL(S$(5,6)))81 POKE AUD4,N(V):POKE AUC4,164+32*(V>50)82 C=PEEK(709):POKE} 709,(PEEK(710)):POKE 710,C:COLOR 2+(C=128):PLOT VAL(S$(11,12)),VAL(S$(13,14))83 POKE 540,VAL(S$(9,10))+1284 IF PEEK(540)<>}0 THEN 8485 RETURN 90 POKE AUD3,N(45):C=PEEK(709):POKE 540,991 IF PEEK(540)<>0 THEN 9194 POKE AUD3,0:POKE AUD3,N(45):POKE} 540,995 IF PEEK(540)<>0 THEN 9596 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:POKE AUD3,N(45):POKE 540,99}7 IF PEEK(540)<>0 THEN 9798 POKE AUD3,N(47):POKE 540,999 IF PEEK(540)<>0 THEN 99100 POKE AUD1,0:POKE AUD1,N(49):POKE 540,9}101 IF PEEK(540)<>0 THEN 101102 POKE AUD3,0:RETURN 110 DATA 0,14,15,16,17,18,19,21,22,23,24,26,27,29,31,33,35,37,40,42,45,}47,50,53,57,60,64,68,72,76,81,85,91,96115 DATA 102,108,114,121,128,136,144,153,162,173,182,193,204,217,230,243,255117 DATA }31,33,36,37,40,43,45,48,51,55,57,60,63,67,72,76,81,85,91,97,102,106,115,123,130119 RESTORE 110120 FOR X=0 TO 75:READ IT:N(X})=IT:NEXT X150 GOTO 180160 READ S$:POKE AUD1,N(VAL(S$(1,2))):POKE AUD4,N(VAL(S$(7,8))):POKE AUC4,196161 POKE 709,253:POKE }710,128:POKE 540,8162 IF PEEK(540)<>0 THEN 162163 POKE AUD1,0:POKE AUD1,N(VAL(S$(S,4))):POKE 540,8164 IF PEEK(540)<>0 THEN} 164165 POKE AUD1,0:POKE AUD1,N(VAL(S$(5,6))):POKE 540,2166 IF PEEK(540)<>0 THEN 166167 POKE AUD3,N(VAL(S$(9,10))):POKE AU}D4,N(VAL(S$(11,12))):POKE 540,6168 IF PEEK(540)<>0 THEN 168169 POKE AUC4,0:POKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:}RETURN 170 READ S$:V=VAL(S$(7,8)):POKE AUD1,N(VAL(S$(1,2))):POKE AUD2,N(VAL(S$(3,4))):POKE AUD3,N(VAL(S$(5,6)))171 POKE AUD}4,N(V):POKE AUC4,164+32*(V>50)173 POKE 540,VAL(S$(9,10))+12*(VAL(S$(9,10))>9)174 IF PEEK(540)<>0 THEN 174175 POKE AUC4,0:P}OKE AUD4,0:POKE AUD1,0:POKE AUD2,0:POKE AUD3,0:RETURN 180 POKE 710,128:POKE 712,128:POKE 708,14:POKE 752,1185 POKE 84,0:POK}E 85,10:? "":POKE 85,14:? ""190 ? "Even the word 'magic' has a magic of its own, for it conjures up} childhood"200 ? "memories of watching the magician in awe and amazement as he made objects"205 ? "disappear and reappear }and change formright before our eyes!"210 ? :? "Recently we have seen a new kind of magic.Instead of top hats and rabbits"}220 ? "and trick decks of cards, these new magicians use computers, disk drives"225 ? "and telephone lines to perform a v}ery special kind of magic for us to see"230 ? "and enjoy."235 ? :? "So now, for the Magician at the Magic Castle BBS,here a}re a few magic words"240 ? "to help him out:":POKE 85,8:? ""245 ? :? "(Press the magic key to continue.)}"250 CLOSE #4:OPEN #4,4,0,"K:":GET #4,K295 GOSUB 4000299 RESTORE 3000300 GOSUB 30310 FOR S=1 TO 2:GOSUB 80:POKE AUD1,0:F}OR T=1 TO 3:GOSUB 30:NEXT T:NEXT S320 GOSUB 80:FOR T=1 TO 5:GOSUB 30:NEXT T:F=1:GOSUB 50330 FOR T=1 TO 2:GOSUB 30:NEXT T34}0 FOR T=1 TO 4:GOSUB 40:NEXT T350 FOR T=1 TO 2:GOSUB 40:NEXT T:F=0:FOR T=1 TO 2:GOSUB 80:NEXT T360 GOSUB 50:GOSUB 30370 F=}1:GOSUB 40:FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 70380 FOR T=1 TO 2:GOSUB 40:NEXT T:GOSUB 70:FOR T=1 TO 2:GOSUB 30:NEXT T390 F}OR T=1 TO 4:GOSUB 40:NEXT T400 FOR T=1 TO 2:GOSUB 40:NEXT T:F=0:FOR T=1 TO 2:GOSUB 80:NEXT T410 GOSUB 50:GOSUB 30420 F=1:G}OSUB 40:FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 40430 FOR T=1 TO 2:GOSUB 40:NEXT T:GOSUB 70:GOSUB 50440 FOR T=1 TO 2:GOSUB 60:GO}SUB 40:NEXT T450 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90460 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70470 FOR T=1 TO 2:G}OSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T480 FOR T=1 TO 2:GOSUB 60:GOSUB 40:NEXT T490 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB }80:GOSUB 90500 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70510 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T520 GOSUB} 60:GOSUB 40:F=0:FOR T=1 TO 2:GOSUB 70:NEXT T530 F=1:GOSUB 60:GOSUB 40:GOSUB 70:GOSUB 40540 GOSUB 60:FOR T=1 TO 3:GOSUB 40:}NEXT T550 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T560 FOR T=1 TO 2:GOSUB 60:GOSUB 40:NEXT T570 FOR T=1 TO} 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90580 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70590 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2: }GOSUB 50:NEXT T600 GOSUB 60:GOSUB 40:F=0:FOR T=1 TO 2:GOSUB 70:NEXT T610 F=1:GOSUB 60:GOSUB 40:GOSUB 70:GOSUB 40620 GOSUB  }60:FOR T=1 TO 3:GOSUB 40:NEXT T630 FOR T=1 TO 2:GOSUB 60:NEXT T:FOR T=1 TO 2:GOSUB 50:NEXT T640 FOR T=1 TO 2:GOSUB 60:GOSUB } 40:NEXT T650 FOR T=1 TO 2:GOSUB 60:NEXT T:GOSUB 80:GOSUB 90660 FOR T=1 TO 3:GOSUB 60:NEXT T:GOSUB 70670 FOR T=1 TO 2:GOSU }B 160:NEXT T671 COLOR 2:POKE 709,253:POKE 710,128:PLOT 3,59:DRAWTO 3,10:DRAWTO 9,26:DRAWTO 15,7:DRAWTO 15,59672 PLOT 15,33: }DRAWTO 24,2:DRAWTO 33,36:PLOT 19,19:DRAWTO 28,19673 PLOT 46,15:DRAWTO 44,11:DRAWTO 33,11:DRAWTO 31,15:DRAWTO 31,29:DRAWTO 34},32674 DRAWTO 41,32:DRAWTO 44,31:DRAWTO 44,21:DRAWTO 36,21675 PLOT 44,5:DRAWTO 55,5:PLOT 50,5:DRAWTO 50,25:PLOT 44,25:DRAWT}O 55,25676 PLOT 75,15:DRAWTO 71,11:DRAWTO 63,11:DRAWTO 59,15:DRAWTO 59,27:DRAWTO 63,31:DRAWTO 71,31:DRAWTO 75,27678 FOR D=1} TO 50:NEXT D680 FOR T=1 TO 2:GOSUB 160:NEXT T681 COLOR 3:POKE 710,253:POKE 709,128:PLOT 31,35:DRAWTO 28,31:DRAWTO 18,31:DR}AWTO 16,35:DRAWTO 16,55:DRAWTO 18,59682 DRAWTO 28,59:DRAWTO 31,55683 PLOT 31,59:DRAWTO 38,2:DRAWTO 47,59:PLOT 34,33:DRAWTO }43,33684 PLOT 59,28:DRAWTO 56,26:DRAWTO 49,26:DRAWTO 45,31:DRAWTO 45,39:DRAWTO 61,46:DRAWTO 61,59685 DRAWTO 51,59:DRAWTO 47},53686 PLOT 59,25:DRAWTO 75,25:PLOT 67,25:DRAWTO 67,59:PLOT 73,5:DRAWTO 73,59:DRAWTO 86,59687 PLOT 97,17:DRAWTO 87,17:DRAWT}O 87,59:DRAWTO 97,59:PLOT 87,37:DRAWTO 97,37688 FOR D=1 TO 50:NEXT D689 POKE 709,253:POKE 710,253690 FOR T=1 TO 2:GOSUB 16}0:NEXT T700 FOR T=1 TO 2:GOSUB 170:NEXT T705 FOR D=1 TO 150:NEXT D710 COLOR 1:PLOT 26,64:DRAWTO 28,64:DRAWTO 28,67:DRAWTO }26,67:DRAWTO 26,70:DRAWTO 28,70711 PLOT 30,64:DRAWTO 30,70712 PLOT 32,64:DRAWTO 34,64:DRAWTO 34,70:DRAWTO 32,70:PLOT 34,67:}DRAWTO 32,67713 POKE 710,253:POKE 709,128:PLOT 36,67:DRAWTO 38,67714 PLOT 40,64:DRAWTO 40,70:DRAWTO 42,70:DRAWTO 42,67:DRAW}TO 40,67715 PLOT 46,64:DRAWTO 44,64:DRAWTO 44,67:DRAWTO 46,67:DRAWTO 46,70:DRAWTO 44,70716 PLOT 48,64:DRAWTO 50,64:DRAWTO 5}0,70:DRAWTO 48,70:DRAWTO 48,64717 PLOT 48,67:DRAWTO 50,67:PLOT 52,67:DRAWTO 54,67718 PLOT 56,64:DRAWTO 58,64:DRAWTO 58,707}19 PLOT 60,64:DRAWTO 62,64:DRAWTO 62,70:DRAWTO 60,70:PLOT 62,67:DRAWTO 60,67720 POKE 710,253:POKE 709,253:PLOT 64,64:DRAWTO }66,64:DRAWTO 66,70721 PLOT 68,64:DRAWTO 70,64:DRAWTO 70,70:DRAWTO 68,70:DRAWTO 68,64722 PLOT 68,67:DRAWTO 70,67725 FOR T=1} TO 6730 POKE 710,128:POKE 709,253:FOR D=1 TO 150:NEXT D:POKE 710,253:FOR D=1 TO 150:NEXT D735 POKE 710,253:POKE 709,128:FO}R D=1 TO 150:NEXT D:POKE 709,253:FOR D=1 TO 150:NEXT D740 NEXT T750 FOR I=53761 TO 53767:POKE I,0:NEXT I:GRAPHICS 0:END 30}00 DATA 25060310,13283235099759,13032402,25097305,25033311,13283134096725,13035505,25096146,250371313010 DATA 13273032043159},25041509,13042831,25041919,13049717,25044133,13303337127359,37095025,350367403020 DATA 32663237407111,32673235384539,326828 }35390926,377535423938023030 DATA 32663237403336,32673235381635,35394500093621,35394568038737,35394575094425,370373363040 DA!}TA 32703237405915,2830327037407525,3028276839441507,2575333947533050 DATA 25682735441533,28753039454759,327037402714,3709165"}0,350346153060 DATA 32663237408717,32673235384405,32682835398659,377535423959273070 DATA 32663237406759,32673235380334,3539#}4500094531,35394568031313,35394575093341,370328193080 DATA 32703237403155,2830327037403433,3028276839448748,257528333950183$}090 DATA 25682735447346,28753039456331,327037406752,283339751203593100 DATA 2526257040375626,23752540352111,2829287040334543%},277528403544113110 DATA 3232327040373135,3233357540355005,374045700497373120 DATA 3735336839447515,3230287339427351,272830&}7542451518,2575334962253130 DATA 2523257533421512,2728307133425242,32374070121525,283539751236153140 DATA 2526257040373121,'}23752540352859,2829287040335325,277528403587593150 DATA 3232327040376311,3233357540358059,374045700406183160 DATA 373533683(}9445925,3230287339423027,2728307542455159,2575334938333170 DATA 2523257533424333,2728307133425010,32374070121640,00000070127)}5273180 DATA 2727276535443527,30703235440348,276535421859,2770354425083190 DATA 2828287037408730,30753237403811,28733740732*}0,287529374047253200 DATA 3030307337406734,30683037405920,30733035386159,306830353812163210 DATA 3334337539424118,323332683+}9422319,30333963121831,000000751231153220 DATA 2526257040379037,23752540355014,2829287040337331,277528403568313230 DATA 323,}2327040376744,3233357540351544,374045700457433240 DATA 3735336839442206,3230287339423248,2728307542454426,2575334922313250 -}DATA 2523257533424705,2728307133429259,32374070126611,283539751273103260 DATA 2727276535440322,30703235447125,276535422014,2.}770354461503270 DATA 2828287037403125,30753237404436,287337405022,287529374022593280 DATA 3030307337406113,30683037408742,3/}0733035381522,306830353873413290 DATA 3334337539422923,3233326839426728,30333963123118,000000751247283300 DATA 2526257040370}5205,23752540354224,2829287040337212,277528403516553310 DATA 3232327040371020,3233357540358722,374045700426193320 DATA 37351}336839447354,3230287339423129,2728307542456748,2575334950083330 DATA 252325753342,272830713342,252325753342,2728307133423342}0 DATA 252325753342,272830713342,3200400012,20252870124000 GRAPHICS 23:POKE 712,128:POKE 708,14:COLOR 1:RESTORE 45004010 PL3}OT 135,20:FOR T=1 TO 2:GOSUB 4200:NEXT T:PLOT 125,21:FOR T=1 TO 2:GOSUB 4200:NEXT T4015 PLOT 125,22:GOSUB 4200:PLOT 129,26:G4}OSUB 4200:PLOT 130,25:GOSUB 42004020 PLOT 126,27:DRAWTO 125,29:PLOT 124,31:DRAWTO 125,29:DRAWTO 126,31:PLOT 140,15:GOSUB 4205}04026 PLOT 138,37:FOR T=1 TO 2:GOSUB 4200:NEXT T:PLOT 130,54:GOSUB 4200:PLOT 123,38:GOSUB 42004028 PLOT 126,39:GOSUB 4200:P6}LOT 123,39:FOR T=1 TO 2:GOSUB 4200:NEXT T4029 PLOT 114,34:GOSUB 4200:PLOT 117,56:GOSUB 4200:PLOT 117,69:GOSUB 4200:PLOT 129,7}65:GOSUB 42004030 PLOT 135,72:GOSUB 4200:PLOT 141,51:GOSUB 4200:PLOT 142,51:GOSUB 42004035 POKE 710,128:COLOR 3:PLOT 92,23:8}DRAWTO 106,28:DRAWTO 105,29:DRAWTO 92,244040 PLOT 111,29:DRAWTO 119,32:DRAWTO 119,33:DRAWTO 111,304045 POKE 709,253:COLOR 29}:PLOT 94,18:DRAWTO 107,27:DRAWTO 106,28:DRAWTO 94,194050 PLOT 110,29:DRAWTO 118,34:DRAWTO 118,35:DRAWTO 110,304060 RETURN :}4200 READ D$:FOR I=1 TO LEN(D$) STEP 5:DRAWTO VAL(D$(I,I+2)),VAL(D$(I+3,I+4)):NEXT I:RETURN 4500 DATA 1352013816140151441414;}6151461714518142191352013021126211242012119126161230513004140031440414015138164501 DATA 137171341713118128171261612513130141<}341414112140154502 DATA 1232412125120261203012133123351243612637128371313513437138371403614234144321433114124148254503 DATA=} 15127153281552915729158281562415523152201511914818146184504 DATA 12623125241242512522,132231352113524134251332613127,131241>}3224132254506 DATA 1421314511152111541215513154141501414815147164508 DATA 1404214145141511405413858135591346213263131621336?}0131631296312961131581286012858129561325613457135584509 DATA 13659138581365613354131541335113448133454510 DATA 126561245711@}95511754,12338126391293913337,126391244412350123564513 DATA 1203811636114351133311332113331113410935107351063310630107271082A}7110261122811431112301112910931109294514 DATA 11028109291083010729106314515 DATA 111371093810735109381114211545118471174911B}75311955117531175611862120661236812670133704516 DATA 11358111601106211266116681197012271,11170109711087210774112751157512074C}1267312771129704517 DATA 130671327013472137734518 DATA 13174128751257612477124781257812777127791287913078128791327913678139D}761417514274142714519 DATA 14454146561475914765146661447014272140734520 DATA 1445014649148491505015151152541525615158150591E}4860147608999 STOP 9000 SOUND 0,0,0,0:FOR I=53761 TO 53765 STEP 2:POKE I,166:NEXT I9010 ? "RESTORE";:INPUT RES9020 ? "GOTF}O ";:INPUT G9030 RESTORE RES:GOTO G29000 REM S."D:JEANSDL6 29010 GRAPHICS 029020 POKE 559,0:DLG}=PEEK(560)+PEEK(561)*256:POKE 710,156:POKE 709,3:POKE DL+7,729025 POSITION 17,1:? "The"29030 POSITION 5,2:? "";CHR$(14H}1);:POKE 752,129040 ? "":POKE DL+8,1029050 POSITION 16,4:? "presents"29060 FOR X=2 TO 37:POSITION X,0:? CHR$(141);:POSII}TION X,3:? CHR$(141);:NEXT X29065 POSITION 4,3:? "Ӡ"29070 POSITION 3,7:? "'Jean Rowes' AtariJ} computer Music'":? :? :? " Created 1/05/85 by Jean Rowe"29080 POKE DL+13,34:POKE DL+21,50:POKE 54277,729090 POKE 559,34K}:POSITION 13,15:? "For The Magic Castle BBS":FOR DE=1 TO 100:NEXT DE29100 FOR X=7 TO 0 STEP -1:POKE 54277,X:POKE 54276,X:FORL} Y=1 TO 7:SOUND 0,X*2,10,8:NEXT Y:NEXT X:POKE 53279,829110 SOUND 0,0,0,0:FOR DE=1 TO 100:NEXT DE:POSITION 19,20:? "Sysop: ThM}e Magician"29120 POKE 755,1:POSITION 19,22:? "":FOR D=1 TO 50:NEXT D29130 IF PEEK(53279)=6 THEN RETURN N}29140 POKE 755,2:FOR D=1 TO 50:NEXT D:GOTO 29120$F:%@(,6-ABEGIN MAIN PROGRAM A 1["o"MAINFILEMODENAMETEMPFILESDPICDLSFILPICPICOROKLPIMEMLMEMHDLISLOHIGWAIRRRRRSSSS!P}SZZZZZFFFFFIIIISKCTCONSOCONSOLNOPICDISKLIDJJ j=!Q} Bh @!R} !"#$%&!S}'()*+,-./012AU3@45!T}6789:;dàΛOOThis program displays Micro Illustrator files in a c!U}ontinuous slide show.MMIt loads one file in one part of memory, while it displays another fileQQin a second area of m!V}emory. Then it fades the screen to black, switches theNNdisplay list to the newly loaded picture, and fades back up. The !W}programRRruns continuously, showing the selected .PIC" files on a disk. Requires 48K.ee;A0,;A,;@a!X},;@,;@,;@$@d,;@,;@,m +'0@@A0@@!Y}[0@@mAYq%6-F:A`,%AV$F:Aa,9%@ @2M%@'@!Z}_AY@4qAR@U-#(>:A%,5-@@U( M A G I C L A N T E R N ![}3-@@!3(PRESS ANY KEY TO CONTINUEX-@@4(RICHARD Q. FOX [72356,242]X( LEE C. ZION !\}[70155,656]X-@@4(BOB GEAYER [71425,463]X( DOUG LANGE [74365,610]U-@@5(!]}TOM McCOMB [72456,1042]G-@@U( +CREDITS+<-@@<("For Touch Tablet & Koala Pad Files=-!^}@@=(#Please send comments via CompuServe A`##. PUT DISK I/O SUBROUTINES IN"". PAGE FOUR CASS!_}ETTE BUFFER.ee162,16,169,0,157,72,3,169,0,157,73,3,32,86,228,192,0,48,9,238,31,4,208,3,238,32,4,96,104,104,96-A$!`}AT "  $$. ROUTINE TO CHANGE GRAPHICS 8. TO GRAPHICS MODE E"GG6.=h01ee!a}AO ݩ֩N`6##. MAIN$ IS A MACHINE LANGUAGE@"". ROUTINE TO DECOMPRESS .PICJ!!. FILES MAD!b}E BY THE PROGRAMT"". 'MICRO ILLUSTRATOR' AND TO^##. DISPLAY THEM ON THE SCREEN.rww67@,.dhBDE!c}   D     |ww67A,.d!  X!d}Y X!  FD))   ww67A,.d ]!e}GPee`/ee(e--67A,.eee`##67A!f}<A,.>:@4,##67AW<AW,.>:@4,HHTHE FOLLOWING PATCHES DIVERT THE COLOR INFORMATION TO MEMORY $!g}5FC4HHTO $5FC8, AND MAKE THE LOAD ADDRESS FOR THE SCREEN IMAGE VARIABLE.##67A"<A",.>:Ai,##67A#!q}1B;LIFEIN BINB?LISTOL BINB![LISTXT BINB|LITPEN BINBLODRUN BINB*LOON BINBLUVBRD BINByMAGIC BINBEOMAGICL BINB MANIAC BINB MAPDOC BINB6MAPMAK BINBMAXWEL BINBFMCRDTX BINB7^MEMORY BINBMICKEY BINBMILO BIN<A#,.>:@,##67A(<A(,.>:Ai,##67A)<A),.>:A),##67@d<@d,.>:@!r},##67@r<@r,.>:@,##67@<@,.>:@,##67@<@,.>:@,##67@<@!s},.>:@,--READ DISK DIRECTORY AND FIND .PIC FILES@ +'0@@A0@!t}@[0@@mAY6-F:A`,%AV$F:Aa,-@1 "!u}% !MM5,66,64,156,4,2,2,2,2,0,2,2,2,2,0,2,2,2,2,0,2,2,2,2,5,2,2,2,2,65,32,156"#+AE,#1+AY,@4!v}10@@@$U-#(>:A%,5-@U( M A G I C L A N T E R N %7!w}!-@@ 7(NO PICTURES FOUND&KAR@'-@@ C(WHICH DISK DRIVE (1-4)?K6. '! A`!x}"@1!6.1("@06.2)"@&6.3*"@$6.4+4 A@,36-!y}6-'6-36-A -F6.D1:*.PIC)67@<@,.F@@.'6-!z}6-'6-/@0$$7@<@,0 A:6-%@D//67$@&@<$@!{},.7@,N AYX%"6-@% A@g6-@6-jB-@B((!|}r-@s< AP-%@<(7$@&@<$@,t u6-@!}}6-v AP- (>:A,wB-@B((x7-@!~}@7(PRESS ESCAPE FOR PICTURESy2-@@ 2(PRESS SPACE BAR FOR SHOWz<-@@!<("PRES!}S CONSOLE SWITCH TO START OVER{W-@@"E(*USE  AND RETURN TO SELECT PICTURESWAR@. A!}`@$@. A@ AP-( #"@ #6-%@"@(6- A!}`)"@!@)6-&@)"@!@)6-&@+"@ &@+6-%@!}@AU"AU!@AUu6-%@Q67$@&@<$@,.7$@!}&@<$@,[ APi-&@o(*u6-@3A0"A@6- !}(}0-@ @ 0(=THE SHOW IS STARTING=3-@@!3(PRESS START FOR MAIN MENU7-@@"!}7(SELECT/PAUSES OPTION/RESUMES@((START LOADING IN THE FIRST PICTURE##67A)<A),.>:@,!} A @..NOW THAT ITS LOADED, SET UP GRAPHICS 7.5+@%@6-?:C:,,!6-F:@,!6-F:@,!}%%6-F:A`,%AV$F:Aa,6-%@6-%@,6-@6-@,SPEED OF FADES "". NOW D!}ISPLAY ALL .PIC FILES. FOUND ON THE DISK. DISPLAY LOW, LOAD HI* A FADE DOWN4+%@@+!}%AA> ApFADE UPH##67A)<A),.>:A),R A @\DISPLAY HI, LOAD LOWf A !}FADE DOWNp+%@A)+%AADz ApFADE UP##67A)<A),.>:@, A @!} A++SUBROUTINE TO PICK AND LOAD A PICTURE6-%@@w"@A `!}-@AP) Ap"@'') A@"@ A X  A `# Ap@!}# A X!A06.D1: C"@(C67@<@,.7$@&@<$@,!}C@(C67@<@,.7$@&@<$@,67@<@,.-@@+7<,!}4 67,..PIC!'+ A   @@6-?:C:,,@$KKTHAT'S THE LAS!}T PICTURE, PUT THE TITLE UP WHILE WE LOAD THE FIRST ONEX6-!+@%@3-@@N @ MAGIC!} LANTERNX A**SUBROUTINE TO SET UP THE FADE VALUES$N6-F:A,!6-F:A ,06-F:A,?6-F:A,N!}6-F:A,.I6-'@6-'@-6-'@;6-'@I6-'@80 6-P:,6-P:,6-P:,'6-P:,!}06-P:,BI6-$@6-$@-6-$@;6-$@I6-$@L$VFADEOUT SUBROUTINE`% A`!}6-6-6-%6-j""__Begin fadeout_____________t 6-& AP:,~ A 6-!}& A P:, A  6-& AP:, A 6-&!} AP:, A99F:A,)F:A ,)F:A,)F:A,A@""__End fadeout___!}__________$FADEIN SUBROUTINE##__Begin fadein after new pic_N6-F:BE,!6-F:BE,06-F:BE,?6!}-F:BE,N6-F:BE , Ap  -AP:,  -A P:,  -A!}P:, ( -AP:, 2##__End fadein_______________<$d&6-@$P:+&@,'@,66!}-&%@a6-@$P:+&@,'@,%@d$oKEYBOARD INPUT ROUTINEp!6-F:B7u,!6-F:B7i,q !} Ap@$r!AQA`s"AGA`t'!@c6-&@d' A`u$X6-F:!}B2y,Z'!@6-&@' Ap\$ D:MAGICL.ESC)+*!@E* @Y,Q67%@,.>:,[ A I@O<өwO& @ ``S: L 7HOO KOLLO @ A &D F D GO lF E lA%} OOO KOO =A I @ G GOL1@ HL,@hO`."L@O/OOO`OL@OL@O%}OO`OOOO`OOȘ`O`OOO ȘLEAOO`OOO`O`%}`i OO KOmLOmL}OiȘO`O`OLAyL&CxL&COOO O K ͹O%}`O͋O2͋O#rO͇O͇OL&C BL&C BL&C 6BL B nBL BOUOT $FU $FOUU $FO``O%}UOiT $FU $FOUU $FO˩ `OUOT $FOO^mOiOȘ͵Oݭr) `OiUOT %}$FOOmOiOȘ͵Oݭr)`r)`;!A  G  M` CLC DLCOOLCOއOLC %}COOLC DOOLC DއOOLC CއOOLC COнwOwO`wO`Oа0`НOLJ`0O`O ދ%}OiOOȘ͵O`O`iȑOO͵OO`O`9O.OO͋Oi͋O {O`{O`{O`LnD%}yLnDx> A D G I`{OO`{OO`{OO`{OO`{OO`{OO`{O`{O`%}&OOO O K ͹O`LEL EO`O`O`OOOOLDEO{O  `OLiE%}OLiEO#OOOO KO}{OOO KOM}OOM}OOOnNii`ޟOOnNYii}OOOJO}OO%}/UOT $FOU $FOOnNiiO`O`O`OTOOO KUOO KOmOOOeYOeX%}iOO`Oа,Op  !`OНOLyFO,OLyFO`O`OOO KO}{OOwOOO KO%}mOOO KOmLOmL}OiȘ`I AO͵O'OُOiُOOٓO iٓOLb%}GȘ`O`ޣOOO`OO O`OO O KOO IO`OO`LSJO0OOҬ%}OȌȌȌȌȌҘO`O`OO)OҩOOȌҘOO`OҬO`O RI./Щȍ%}8OOhԠOOO +JҍҍҍҍOOnOOO rIOOO KOO%}OLHO(OOiO.NНONNOOOOOO͵OةOijjkkȘɀ{O|O}O~OO%}OOO`r$t@uzO{0 V`M"UȹMTU KȹMUȹMTU LLtI`OOi O OȘ%}OݮO I`V01iȱOOʘO`V01i-ȱAȘ O`V01ȱ%}vN LBJ` LO RIННҝ%O XLwJ OX JOXL&@O%}OiO`OOȘ`ННҝ 6KOOO!OȍOO IOȌOO HL,@%}XY VKҍ`O ~KmOiOOO᮶O`**ȘO`OOO .OO mOO덹%}OO`OO*;OOOOO`OOO rxy0O V䮶OO`OOr0 V䮶OO` LO RIXi=Y%}iN L;L L L L L LO =A =A =A =A =A =A LO RIXi(YN LL L%}LLO`O` r0 V`O GO =AO`3Ljjkki\L,   |   l  1:24800000 00%}803>00000 00800863000 0\L,   |   l 1:24800000PP0803>00000PP0800863000PP؀@%}  @4NNNN2(((((P(nNn@dd(d((%}0 3Kp3`3:3Hx33[3p3332H2 &&2@@H2 @82E@22:H02H22E 0SCORE: 000000 MEN: %} MANIAC! BY RICK MESSNERPRESS 1 OR 2 1 - ONE PLAYER 2 - TWO PLAYE%}RSCORE: HI-SCORE: PRESS ANY KEY TO CONTINUE4eǧ641;;1 &@&@. whole! A$n Public Domain Version SN:1 Documentation of: MAP MAKER Map Maker IS NOT an advent)}ure game! Map Maker only Understands these commands: N = NORTH S = SOUTH E = EAST W = WEST Q = QU)}IZ OBJECT OF THE GAME: The Object is to Find ALL the rooms in the house.When you think you founded all the Rooms Pick Q)} (for QUIZ).When ever you enter a New Room it will have the name and 2 numbers, example: ENTRANCE 1-3 The 1-3 represe)}nts the Room # in the Quix,the quiz will ask you: Example: What is at 1,3 Now you will type ENTRANCE.If you do not k)}now all of the rooms just type STOP in the QUIZ and you will return back to where you were. If you want to Quit the game )}just Type QUIT and the game will come to an END. For A COMPLETE MAP of the house send $2.00 to :)} cOmPuSeCtOr 3454 TOBIAS LN LAS VEGAS NV 89120 FOR THE GRAPHIC VERSION OF MAP MAKER (N)}OT PUBLIC DOMAIN) AND THE MAP MAKER GAME,SEND $15.00 TO (ADDRESS ABOVE). MAP MAKER (TM) is A trademark of cOmPuSeCtOr(R)}) all rights reserved! Programmed by --------------------- Scott Cooper and Steve Blut ŠàΠӠԡ)} ,$@%+"@,$@6-%+"@,$@%+"@,$@%+"@,$@%+"@,$@!(+,ADRDLCSQANNATR-} -}@'B2w@d'@@dA +'0@@@A0@-}@@4-@4( MAP MAKER (tm)_( (/(! Public Domain Version. 2(5(_-}(%CopyRight (C) 1984 BY cOmPuSeCtOr (R)( (( PRESS START: F:B2y,@@ dGG;A,;A-},;A,;A,;A,9@,n6-B #B"1 +B2w@d-}1@@d0@( (!(N,!(S,!(W,-}!(E,'('(WHICH WAY DO YOU WANT TO GO6-4N*!6-4S*!-}6-4W*!6-4QA,4QUIT((#( Game Over.&()(,4E*!6-}-3")(You cant go that way.3 A #B""A" Ap,' +@-}'(@ .(@/ (@ enter quiz0!!(@ are you sure1C(@)-}(@ (1) YESC(@ (2) NO2S@.@@K:8 AE)@S6--}&@H3"@A4"@A@1,3,ENTRANCEJ1,2,LIVING ROOMT2,2,THE DENY2,3,HALL-}WAY 1^2,4,KITCHENc2,5,SERVANTS QUARTERSe2,6,THE STUDYh3,2,BATHROOM 1r3,3,HALLWAY 2|3,4,BALLROOM-}3,5,BACKYARD4,2,LAUNDRY ROOM4,3,HALLWAY 34,4,BATHROOM 24,5,SWIMING POOL5,3,STAIRCASE-}6,2,BEDROOM 16,3,HALLWAY 47,2,BEDROOM 27,3,HALLWAY 57,4,MASTER BEDROOM 7,5,GYM8,1,BATHROO-}M 38,2,GUEST ROOM8,3,WINDOW -1,0,0X #A"ba +@'0@9-@-}](@ what is at ,ag$4STOP(STOPPED$ Al 4-@6(@ -} J-@@Pf2@@j 26-%@"!-} Am%%2q"6@A@v-@0(@ D-}-@@PZ2@|2 6-%@ ASN=1 +@-}$$(@ҠڠŠӺ(@/"(@ /(@(@/"(@-} /(@(@(@ press start F:B2y,@A"-}@$ A@$ B A +'0@@@A0@@@*((((Yo-}u Won the Map Maker Quiz!!4(CoNgRaDuLaTiOnS!!>2( (2($Buy the graphic version for $15.00!!H*( (*(PRESS STA-}RT FOR A NEW GAME:R F:B2y,@AP\%'ENTRANCE 1-3,1,2,24,0,0']]YOU SEE A 7 -}FOOT HIGH SOLID OAK DOOR.TO THE NORTH IS A HALLWAY WEST IS THE LIVING ROOM..' HALLWAY 1 2-3,2,3,6,4,18'ffTHERE IS A B-}ATH ROOM TO THE NORTHWEST THERE IS A STAIRCASE TO THE NORTH AND A STUDY TO THE EAST.B' HALLWAY 2 3-3,3,5,12,7,2L'uuTHE-}RE IS A BATHROOM TO WEST.THE LAUNDRY ROOM TO THE NORTHWEST. THE BALLROOM TO THE EAST AND THE STAIRCASE NORTH`'!!HALLWAY 3 -} 4-3,5,14,11,0,3j'@@THERE IS A STAIRCASE HERE.TO THE WEST IS THE LAUNDRY ROOM.t'%%HALLWAY 4 6-3,17,26,21,15,14~'ooYO-}U ARE UP STAIRS IN A HALLWAY.TO THE WEST IS A BEDROOM.EAST IS THE MASTER BEDROOM AND NORTH IS A WINDOW.'$$HALLWAY 5 7-3-},26,22,20,0,17'[[TO THE WEST IS A BEDROOM.TO THE NORTHWEST IS THE GUEST ROOM.TO THE NORTH IS A WINDOW.'WINDOW 8-3,22-},0,18,0,26'ggYOU ARE AT A WINDOW OUTSIDE YOU CAN SEE THE BACKYARD OF THE ESTATE.TO THE WEST IS THE GUEST ROOM.'''MASTER-} BEDROOM 7-4,15,0,26,16,0'XXYOU ARE IN THE MASTER BEDROOM THIS IS A ROOM MADE FOR A KING.TO THE EAST IS A GYM.'GYM -} 7-5,16,0,15,0,0'iiTHIS IS A VERY LARGE BATHROOM YOU SEE A SET WEIGHTS AND A EXERCISE BICYLE.THIS IS ALSO A NICE ROOM.'"-}"GUEST ROOM 8-2,18,0,19,22,0'XXYOU ARE AT THE GUEST ROOM THERE IS A BIG BED HERE.THERE IS A BATHROOM TO THE WEST.'""B-}ATHROOM 3 8-1,19,0,0,18,0([[YOU ARE IN THE GUEST BATHROOM.THERE IS A SINK AND TOLIET HERE.THE GUEST ROOM IS EAST. (!!B-}EDROOM 1 6-2,20,0,0,26,0(JJYOU ARE IN A BEDROOM.THIS IS A QUITE SMALL ROOM.THE HALLWAY IS EAST.(!!BEDROOM 2 7-2,21,-}0,0,17,0((QQYOU ARE IN THE SMALLEST BEDROOM.IT'S COLD IN THIS ROOM.THE HALLWAY IS EAST.2(%%THE LIVING ROOM 1-2,24,0,0,1,-}0<(``THERE IS A LARGE SOFA HERE.AND A BIG SCREEN TV/STERO/VCR SYSTEM HERE.THH ENTRANCE IS EAST.F(!!THE KITCHEN 2-4,25,7,-}0,0,0P(CCTHIS IS THE PLACE THAT THE CHIEF COOKS.THE BALLROOM IS NORTH.Z(THE STUDY 2-6,4,0,2,0,0d(QQYOU ARE IN THE S-}TUDY.IT IS LIKE A MINI LIBRARY IN HERE.THE HALLWAY IS WEST.n(THE DEN 2-2,6,0,0,2,0x(FFTHIS ROOM IS A COMPUTER COMMUNIC-}ATIONS ROOM.THE HALLWAY IS EAST.($$The BALLROOM 3-4,7,13,5,30,25(nnTHIS ROOM IS USED FOR BIG PARTYS.THERE IS A BAR HER-}E.THERE IS A STERO & PAINO HERE.THE KITCHEN IS SOUTH.(BACKYARD 3-5,30,31,7,0,8(kkYOU CAN GET IN THE SERVANTS QUARTER-}S FROM HERE (SOUTH).A SWIMMING POOL IS NORTH.WEST IS THE BALLROOM.($$SWIMMING POOL 4-5,31,0,0,0,30(SSYOU ARE AT THE PO-}OL IT IS 12ft. deep.THE WATER IS WARM.THE BACKYARD IS SOUTH.(''SERVANTS QUARTERS 2-5,8,30,0,0,0(^^THIS IS A SMALL ROOM-}.THERE IS A BED AND TV IN HERE.MAIN ENTRANCE IS EAST.BACKYARD NORTH.(!!BATHROOM 1 3-2,13,0,0,0,7(66YOU ARE IN A BIG B-}ATHROOM.THE BALLROOM IS SOUTH.(!!BATHROOM 2 4-4,12,0,0,3,0(ccYOU ARE IN A SMALL BATHROOM IT IS EMPTY EXCEPT FOR A SIN-}K AND TOLIET AND TUB.HALLWAY IS EAST.(""LAUNDRY ROOM 4-2,11,0,0,5,0)llTHERE IS A WASHER & DRYER HERE.THERE ALSO IS A I-}RON AND IRON TABLE & DIRTY CLOTHS.THE HALLWAY IS EAST.) STAIRCASE 5-3,14,17,0,0,5)LLYOU ARE AT THE STAIRCASE.UPSTAIRS-} IS THE BEDROOMS.THE HALLWAY IS SOUTH:   ** YOU LOST **  NA +'0@@@A0@@-}@N.(.(#Too bad! You are a complete loser!!N( You Lost!N/(/($Buy the Graphic Version for $15.00!!N(-}O$$(PRESS START FOR A NEW GAME:LO F:B2y,@BO%0u$}3F:A8,%AV$F:A9,%@-}FD:MAPMAKER.BINI B 167,.I6-?: PdeAPUefQEUfv{{ ZUDUY2}YJK@APTQځօ榖VUUfjVfjeRff2}VfUeUefVeVW{@PUDevwwugv{eUUTDUYZYFUZ@AEYU2}YUiYeUYiUVBQRV&*ffeUVefVkQUVUVWgUUeUUUUDIBIJZUTZ 2}TՕUեeVUVfeUea%ef eUeUeUQUUVRZj:@PQUyYUUYDEDE UEUTUVJN2} @PQ!UVfV&&f&Rf&f%e&f&%dP@PPQUe @TDTDTYYDIYUYUYXTD2}@ԁ@PP`PU&fedP@PTey@T@DIYY@@@PT%P2}@P@PV@D@/@_^0]0^]^^ `0] THIS PROGRAM. THE!!TRIGGER BUTTON ADVANCES THE0HMACRODOS/J. ALLEN/page @ JAN 12, 1983 MACRODOS FOR ATARI BY JERRY ALLEN ALLEN MACROWARE 1906 CARNEGIE #E REDONDO B6}EACH , CALIFORNIA 90278 MACRODOS FOR ATARI 400/800/1200 4 It's 12:30 a.m. You're just finishing up with y6}our new program when you decide to go to DOS, mistakenly thinking you had MEM.SAV on your disk. Too bad you forgot to do a S6}AVE or LIST first! There is absolutely nothing left to recover. Or, maybe you remembered MEM.SAV but just to read the direc6}tory or unlock and erase a file, you sit through a minute or so of saving to MEM.SAV, DUP.SYS loading in, and then MEM.SAV re6}loading your original memory. Add this to the fact that DUP.SYS and MEM.SAV wasted some 87 sectors on your disk, causing you6} to have to call DOS in the first place, to check the directory and delete a file which was non-essential. Those out th6}ere familiar with DOS I, OSS Basic A+ (OSA+), or a year old article by Dennis Keathley, entitled, MicroDos, know that there i6 }s a better way. ATARI, in releasing some 4000+ bytes for use by separating the File Management System (FMS) from the Disk Ut6!}ility Package (DUP), left us with a few residual problems. These involve time, space, and potential loss of work. Then6"} there was MACRODOS! MACRODOS is an instant access disk utility package for a one or two drive DOS 2.0 system. MACRODOS onl6#}y uses three pages of RAM and therefore can be permanently co-resident in memory with the FMS. You can pretty well forget ab6$}out MEM.SAV. And when you need to call DOS, you won't have to worry about losing your Basic or Assembler program when you re6%}turn. MACRODOS can also be used without a cartridge. MACRODOS supports all the normal DUP functions excepting file and6&} disk duplication; some of which can still be accomplished with the SAVE (binary file) command. Also, MACRODOS incorporates 6'}a new feature to DUP systems: HEX or DEC 'RUN' and address entries, and a permanently available hex/dec, dec/hex converter. 6(} No more lost time looking for that subroutine, which must be around somewhere, or couldn't be loaded anyway because it confl6)}icts with something that is in memory. You will still be allowed the option of using ATARI DUP, but now, before you tak6*}e that step, the directory can be safely checked to confirm that MEM.SAV is indeed there, in case it's needed. MACRODOS6+} resides in memory after the FMS, where ATARI DUP would normally load. The big difference here is that it pushes MEMLO up to6,} stay out of the way of your programs. This is no cheap page 6 trick! You will still have use of page 6, page 4, and even p6-}age 1 (yes, I have two programs which use part of page one). When SYSTEM RESET or BREAK is hit; no problem. MACRODOS will r6.}einitialize itself, just like it should; unless you have exited to ATARI DUP, which resets the old vectors. Some of the6/} MACRODOS operations differ slightly, and, as you might expect, certain protocol is necessary. If you have used ATARI DOS-DU60}P already, there is really little to learn, and you may even find that the new operation is easier to master and execute. Be61}fore I begin with the commands, let's set a couple of ground rules. First of all, you should be using DOS.SYS 2.0S in t62}he same (or a smaller) configuration that comes on your master disk. Actually, if PROGRAM 1 is used, you should be able to r63}e-align the program for larger versions of DOS.SYS using more buffer space. The source code will check MEMLO and change ever64}ything accordingly. PROGRAM 2, however, which is for Basic users, is constrained to using a version of DOS.SYS which, after 65}it has loaded, has a MEMLO of 7420 ($1CFC), or less. Use the direct mode command as follows to check if in doubt: PRINT PEE66}K(743)+256*PEEK(744). Of course, if you are sure that your DOS.SYS has not been altered from the master disk, you shouldn't 67}even have to check. MEMLO will be 7420. There are a few new prompts to familiarize yourself with. First is the '>' pr68}ompt, which expects the return of a function command's first letter. The directory, format, and write DOS functions use the 69}prompt 'D#', and expect just a single number of 1-4, or just plain RETURN, which defaults to drive#1. The format command als6:}o uses a '?' to ask if you're sure, and looks for a 'Y' or 'YES' to be returned prior to proceeding. Functions requiring a f6;}ilename use 'FN?'. The device name 'D:','D1:','D2:', etc., must be included in the name. Rename (RNM) requires only one dev6<}ice name and definitely none for the name after the comma. The '@' prompt is used to mean 'at' or 'to' when an address input6=} is required. Asterisk wild cards are still allowed. The commands: 225 [D]IR- used to read the disk directory. The second6>} prompt requires a drive# of 1-4 or RETURN only for drive#1. [R]NM- rename a file. As in ATARI DUP, use the device name onl6?}y with the old name (i.e.,D3:MAC*.*,AUTORUN.SYS). [*]LK- lock a file. [U]n*- unlock a file. [F]MT- format a disk. Answer '6@}sure?' (?) with a 'Y'. Give drive#. [E]RS- erase file. [C]RT- return to cartridge; Basic or Assembler. [S]AV- save binary 6A}file. Enter the filename at the prompt. Do not use commas! Enter the 'from' address at the '@' prompt. Then the 'to' address 6B}at the next prompt. The numbers given may be hex or dec or both, but must be preceeded by a '$' for hex or a '.' (period) if 6C}decimal. This command will allow appending to an existing file if a slash ('/') is used after the last letter of the filename6D}. RUN and INIT addresses must be added by appending to a file. Poke (or use command C in DEBUG) 736,737 ($2E0,$2E1) for RUN, 6E}and 738,739 ($2E2,$2E3) for INIT. Remember to poke low, high. Then go to MacroDOS, and append the addresses you just changed 6F}to the file. Do not hit SRESET between the pokes and the save or 736-739 will be cleared. [L]OD- binary load. [@]RN- run at6G} address. Hex or dec. [W]DS- write DOS.SYS (only). [$]>.- hex to dec. Enter '$' and # together. range: $00 to $FFFF [.]>$-6H} dec to hex. Enter '.' and # together. range: .0 to .65535 [!]DS- escape to ATARI DOS (DUP.SYS). Remember that without MEM.6I}SAVE on a write unprotected disk in drive#1, programs will be wiped out. After using this command, you'll have to re-boot or6J} load from ATARI DUP using MEM.SAV. (I don't use the letter 'A' because it is Atari's DUP DIR command and too easy to acciden6K}tly use. The "!" forces you to shift & therefore think a little more). 150 Assembler users may alter the commands tabl6L}e (CMDTAB) if they so desire. Just remember to change lines which check for command input to reflect the new command letter. 6M} Also, revise TAB1 if necessary. To append another AUTORUN.SYS program to the end of MACRODOS, such as a menu loader fo6N}r BASIC, do the following: Assuming you have MACRODOS up and running as AUTORUN.SYS, enter DOS, then load the other AUT6O}ORUN.SYS from a another disk. SAVE with APPEND ("D:AUTORUN.SYS"). Enter the beginning and ending addresses at the '@' prom6P}pts. Then, if necessary return to the cartridge and POKE or otherwise change the INIT and/or RUN addresses as previously des6Q}cribed. Return to DOS. SAVE with append again to pick up the addresses just altered. If you can't figure out the load addre6R}sses, use the following program: 10 OPEN#2,4,0,"D:YOURPROG.OBJ 20 FOR I=1 TO 6 30 GET #2, A 40 PRINT 6S}A 50 NEXT A 60 CLOSE #2 The first two bytes should be a header of 255 ($FF). The next four bytes will be t6T}he beginning and ending addresses of the load (two byte numbers; low byte, high byte format). See the ATARI disk drive manua6U}l for more information. If the file loads to multiple address areas including RUN and INIT, after the first block of memory 6V}is loaded, OS checks for a new header of 255,255. If it is there, the header is ignored, and the next four bytes will be the6W} new from-to load addresses. Loading RUN with page 6 (1536) would look like: $E0(224),$02(2),$E0(224),$02(2),$00(0),$06(6) (w6X}ithout header). With a little math and modification of the previous program you could find all the load addresses of any com6Y}pound load file. Hope you find MACRODOS useful. We here at ALLEN MACROWARE use it frequently in our work and as part o6Z}f some new software packages that are being developed. If you don't want to type the programs in send $8 to the address6[} listed below. We will supply the disk, pay postage first class, and include the Basic and Assembler source, and a ready to 6\}roll AUTORUN.SYS.2 Allen Macroware 1906 Carnegie #E Redondo Bch., CA 90278 PROGRAM1 D:MACSRC.TX6]}T 4jk{QQSSSDOOROBJECARCHASCORESCOREHVDOORPLAYERPLAYERBASDISPLAYLISTDLVAOFFSEVVJa:_}@0@A@@@0@@ AE @A % @ @@@2:`}@@@@#A@AV@ BA#BP0A`BI:a} @!@t,;@,"AY, B# A#< GO START GAME< < JOYSTICK UPDAT:b}E ROUTINES< @ @$ @ @$6-%@$  @ @$  @:c} @$ 6-&@$ 6-%@$6-&@$$<""< <<< CONCENTRATION >>>:d}<$$< MATCH UP 18 PAIRS OF OBJECTS(< BEHIND 36 DOORS.2##< EACH DOOR IS 3 COLUMNS WIDE<##< BY 4 RO:e}WS HIGHF""< EACH OBJECT IS 12 MODIFIEDP$$< CHARACTERSZ:,ERASE OLD DOOR"1%@%@:i}"(+6-%A(!A(+6-&A( >:,MARK DOOR %%2",T:,A:j},LOOP 'TILL TRIG PRESSED,<-< DISPLAY OBJECT.<6 6-8,6-;!@A@)!@ :k}6-@)6-&@ J2#A0%A$2POINT TO DATA FOR OBJECTO -T-@@^-@:l}@h"@ Aej"(>:,  Apm"(>:%A(, r -%| $<:m}< CLOSE-DOOR ROUTINE< --@@-@@ (  & -%0 :$:n}< < M A I N R O U T I N E<3%"@6%-@A) 3 A AGET-DOOR 6:o}-6- 6-:68,-8,%@! A:MARK 1ST DOOR, GET 2ND8,8,&@Ae%68,-@:p}%MARK DOOR 'USED'P6-%@'-@@"/( A-@@"F(P A$L6-%@#-@:q}@"+( =-@@"B(L A)968,-8,&@+-@A/ 9 A+ 6-6- :r}A,+@w+DEFEAT ATTRACT MODE.(A1D-@@"( /-@@"7(.:DLE:s}FT ARROW416-@6-'6-1 A8'6-@6-'6-@=E-@@"( :t}/-@@"7(:/ERIGHT ARROWB A<""< START AND END OF GAME HERE<:+@%@':u}AVA$:ATARI CHARACTERS%%(@ MEMORY /(@/(@ A TWO PLAYER GAME$$(:v}@ USE TWO JOYSTICKS/(@/(@ PUSH start TO PLAY%"A*(@*(@:w} PLAYER 1: "(@ PLAYER 2: @ F:B2y,@A<< HOUSE KEEPING ROUTINE<:x}< -DRAW PLAYING SCREEN < -RANDOM OBJECT ASSIGN</ +A$)AR@/(~$A:y}V$ACTIVATE CHAR. SET7@@d'B7t@d7DISABLE BREAK-@@7@,@:z}/@  @HORIZONTAL LINE-@ @ ,@/@6 ,@6:{}@ << ASSIGN RANDOM OBJECTS<3%6-)6-3 A u9@6,*:|}-@@6&68,-*  +-@@+-@@*<%6-P:H:,$@6%@,<8,!:}}A 4Z'2$@@@068,-4 8 Z2$AY:~}$TURN OFF DMA%%6-F:A`,%F:Aa,$AV)%@'@)LINE 22,23=GR.21%@(@e1FIX EN:}D OF DISPLAY LIST%@)F:%@0,%@0F:%@1, 1AY@41<< TURN ON DMA (SDMCTL) :} -@@" (0 .: -@@"(0$ 16-@6-'6-1 A. & A&< G:}O TO MAIN GAME LOOP BUILDING 1,2,3,4,5,6,7,8,9,10,11,12 GIRL ))13,14,15,16,17,97,19,20,21,22,23,24 FLO:}WER ))33,34,35,36,37,38,39,40,41,42,43,44G SKULL AND CROSSED BONESH ))65,66,67,68,69,70,71,72,73,74,75,76 SAILB:}OAT ))77,78,79,80,81,82,83,84,85,86,87,88 TREE))89,90,91,92,93,94,32,96,32,32,99,32sLIGHTHOUSEt55101,102,:}103,104,105,106,107,108,109,110,111,112 BOY44113,114,115,116,117,118,119,120,121,122,123,95; ROCKET<))32,59,3:}2,32,60,32,32,61,32,62,63,640u%6-F:A4,%AV$F:A5,G6-F:A@,%AV$F:AA,V6-F:A,o'@:}"P:'@,A&@:uK6-F:A,%@*6-AV$&;6-P:'AV,K6-&AV$Duo%@:}%@3%@G%@@[%@o%@@u,,6." Bf:} 0purr67B:,%@,.Z ~08<  8vrr67:}B:,%@,.Z<<~~0038 3308~f$wrr67B:,%@:},.Z 8p`x|~>`?$gggwrr67B:,%@,.Z:}?*U_ZZ~ZTUO|U*wrr67B:,%@,.Z Z~<<>T:}P6>**@Uf`fff```Pxrr67B:,%@,.Zff``:}````   ~f@`00 m<`B<~<<~xrr67B:,%@,.Zf:}??y[[67B:,%@,.C<<<<<<<<0<<<<<<<~B$:}$B~y 67B:,%@,.>:@4,y67B:,%@,.y 67B:,%@,.>:@4,y67B:,%@:},.y 67B:,%@,.>:@4,y((67B:,%@,.y 67B:,%@,.>:@4, y67B:,%@:},.!y 67B:,%@,.>:@4,"y67B:,%@,.|yrr67B:,%@,.Z`:}  f0<yrr67B:,%@,.Z<~~~~`?<<<<~:}?}Á~x|nf8x8Dz +AV$D:MEMORY8X>}??|>}~rc@9`J@QLU0>@ >} 0>>>} @@>@8<Ipp08@ ?B}0  W N? B     B}"P I 8`8B ?H`@@@B@ @  " @$@@"B}   ``!AB}bF4D$@I