@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED* MENU 018 COPYING---D1:MENU4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh` WELCOME TO THE ANTIC MONTHLY DISK Most of the pr X}ograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. Please read the cor Y}respondingissue of ANTIC for completeIf you wish to order a back issue,or need subscription information,call us at (415) Z}957-0886. For creditcard orders, dial (800) 227-1617, Ex.133. In California, call(800) 722-3545, Ex. 133XXX *** BONUS [}FILES * BONUS FILES ***Whenever there is sufficient room,we will be including TYPO II andLINKLINE on the monthly disks. \}TYPO II is in LISTed form, and must be ENTERed before using.It will not RUN from the menu.Please see the HELP files on th ]}eback of this disk for LINKLINEinstructions.XXXWe've also included SUB.EXE,a scrolling 3-D image of asubmarine ^}. SUB.EXE is a machine-language program. Use the DOS menuoption "L" to run this program.XXXThe menu that appeared on t _}he screenwhen you booted the disk will onlyRUN programs with a .BAS extender.If you try to run a program and theresponse `}is 'cannot run Filename',check the file extender with thislist:XXX.BAS BASIC saved program, use menu RUN or LO a}AD and RUN..LST BASIC listed program, ENTER then RUN..EXE Assembly language 'Load and Go' file. Remove BA b}SIC, boot DOS, type L then enter the filename..ASM Assembly language source code (Atari Assembler Edi c}tor) Must be compiled..M65 "SAVEd" MAC/65 assembly language source code. Must be compiled.XXX.OB d}J Machine language object file. Same as .EXE but not 'Load and Go'. See corresponding article..SYS Reserve e}d for DOS system files..TXT Text file. Usually accessed by another program..ACT ACTION! language source code. f} Must be compiled..LGO A Logo program. Requires the Logo cartridge.XXXAll programs from ANTIC issues dated g}prior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem from our HELP columns andmost are compatible h} with the XL andXE machines. We have worked to insurethat our programs operate aspublished, but we consider all oursoftwa i}re listings to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY! -A j}NTIC ED WELCOME TO THE ANTIC MONTHLY DISK Most of the pr |LINEA ;A ,;@,; (}@;@@ D:DOC.TXTl} A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@m}l(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@n}j%D:MENU D:HELP.BAS ;A ,;@,; (}@;@@ D:DOC.TXT%8K8P?@     Y`  Y0 l `8''xXL( LinkLine/80p}0V.041486 (C)1986 Antic Publishing Written by Patrick Bass Receiving Working Transmitting READY>q}(|)PBJKL(E:D(E VP B D'EWHI V &B JKL)R1:D(E V $r}B JKL()R1:$D)E VP BD'E HI V G,P BlD'E HI V ,L5)D1:)*~):)):"`s}BJKzD)E V 0#`BJK}D)E V0`P BD'EHI V`08~):t}H):A`BJKzD)E VAP BD'EHI VL*`BJK}D)E V0A*+(` Bu}D(EHI Vii8` B JKL*R1:D*E V (BJKL+R1:D+E Vv}0((( BD(EHI V( BD(EHI Vii8++w}( BD(EHI V B V`G,B- B JKL_,R1:[D,E V (BJKL,R1:D,E Vx}+ BD'EHI V ,+'+ ΢ B V`' P BD'EHI V`+LL-SL- `y}+})0 )0 b-` B VPC->. BvD'EHI V *``BD'EHI V0$'z}iiiiLb-`+}) - *` B V0`0P B`D'E HI{} V B JKL!.R1:D.E V (BJK?./LF.R1:BD.E V BD'EHI V䭜'ۢ B|}םD-EHI V B؝D-EHI V BD'EHI V'iiii8--}}--- -Ш B V`'     Y`  Y0 l `8''xXL( LinkLine/80!Phi AXLPB0NZCL25 } D +26-?:C:hhhԩ`,<A6,DAdAUuA@'A @9A}@K@@]@@7c(}uAR@++(#++(#| AN}TIC MONTHLY DISK DEC. 1986 |++(#( | Side 'A' |++(#} @ -@A $ GG;@@,;@ ,;@@,;A,;@,;@@}, "D1:MENU" &&@@D:*.* 6,6." 6 @0i6-%@}(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367}B:,%@,.G67@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@}<@,.7@<@,]67@<@,.0$@(''7@<@,4FREE@- @ }2() <@F''7@<@,4FREE@K @ P(7@<@,)|U @}0W'!-@6+'@,%@' |Z++(#| |[ ( |  |\++(}#d**(" Select HELP.BAS for information.xAR[@@9'-}@@#C( FILE NUMBERM A0Q[ BP:,A00"@&6.7@<@,}0 AELB6.7+&@,$@%@<+&@,$@%@,L B37@<@,4 36.7@}<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<, }  6.! 6.D1:!67B:,%@,.?AR@'-@@"?  LOADING ? A@}@91@@5%? B[-@@"-  CANNOT RUN 7 @LF:A,"@![% D:}HELP.BAS B A0D1:MENU.TORUN .SYS:C:hhhԩ`,<A6|AUTORUN..SYS(AD260 FREE SECTORS2A} :hi AXLPB0NZCL25 32000 REM TYPO II BY ANDY BARTON32010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN} #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "Type in a program line"3}2060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LIN}E$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 PO}KE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION} 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE}$(D,D))):NEXT D32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+65322}00 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π }and edit line above.":GOTO 3205032010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN! FXDYCC1 GOIN' WESTBY JOE BRZUSZEK }(c) 1986, ANTIC PUBLISHING(c +@#6-%AYO6-F:A`,%F:Aa,$AV%@c&@@h }2e-@@@%%A) ;A@"GA SAeA@$<I@@ }I()} GOIN' WEST FgAY@42-@@@6@I-@6@Q }%U c%@g P`-@@ %%@) `(1 An optical illusion by Joe Brzuszek }ZUC(;Created for ANTIC Magazine Dec. 1986press startUA @&d F:B2y,@AnOA }Y(})&@@h=-@f@pK%AO wSET UP DISPLAY LISTx-@@c@ }-%@1 E%@A(Y%@$Am%@6A%@EAA)6-F:,%F:%@,$ }AV%@3 AA6-&@d-@@d@06-P:'AV,@%%@R%&$AV`6 }-%@d READ COLOR DATA2"-@B:,.A%@:7<,,2 READ PLAYER DATAY "B2 }H#B2I5B2PA`AB2VMB2WYB2XX6-F:A,&@H&BBy46-$AVF }B2w@XA#@ MIRRORT"-@B:,8%A%@:7<,,&@P%AH%@:7<, },T 4"-@B:,0%A%@:7<,,4  SUN4"-@B:,0%A%@:7<,,4 I }NITIALIZE VBIYY6-?:C:Ih1υѭ0iАiѩ˅̅ͅAi(i()i(& \`,,INIZIALIZE DLI }aA!A@3BBAEAY@ca2@`@@'@A'B2y }A A@m;A@,;A,)-@-"F67$A%@,.J a6-F:A,&@6mAV }MOVE CHARACTER SET[[6-?:C:hhhhhЩ@(ΑР( }@ i(А`,kkkﯿ6f< x<~~<~x|nf8x~8SCREEN D }ATAjjacgfbcedgggejjdge }dggedgggggedecgggfcfcggggecgggggggfcggfdgggggggfdggggggfjjfcgggggggggggggecggggggggge }dgggggggggedggggggggggggggggggggggggggfcgggggggggggggggggggggggggggggjjggggggggggggggggggggihgggigihgggggggihggihgggggg }ggghihggggggnnkimonnnjhgggglonjlonjhigggghmonnjhgggljjooonooooonnjhiloooonooonnkihlooooonnjhmoooooooooooooooooooooooooooo }ooooooooooooooooooooooooooooooojjooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo }ooooooooooooojjooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooojj }oooooooooooooooooooooooooooooooooooooooooooooooooooo..zzzzzzzz }zzzzzzzDLI AND VBI DATAjjHH@ ԩ Щhh@@ʍ ԍhh@@AI)  z̥̠ } zθͥ[[͠ zLbiȱiΈͼ8(ΰȱΈiPȱΑАi` COL }OR DATA.$dPLAYER DATA( 181,3,12;;??<? }F""<<~~~~~~~~<< D1:GOWEST.BAS GOIN' WESTBY JOE BRZUSZEK D-.fSCOREAVSTUDENSCORLOOHIGHSCORHIGHSTUDEN@ NEW $}OWNER'S COLUMN PART 8 BY DAVID PLOTKIN (c) 1986, ANTIC PUBLISHING$$LISTING 1: STUDENT TEST SCORES59@0$},6-5MAX. OF 30 TEST SCORES(26-@2INITIALIZE THE STUDENT ID NUMBER2/"/GET THE SCORE FROM THE DAT$}A STATEMENT<^"6@ A^A SCORE OF -1 IS IMPOSSIBLE, SO WE USE -1 TO FLAG THE END OF DATAFF 68,-FPUT T$}HE SCORE INTO SINGLY SUBSCRIPTED VARIABLE "SCORE".P:6-%@ @P:GO AROUND FOR ANOTHER SCORE.d?6-&@$}?WE DID NOT USE THE LAST STUDENT (SCORE=-1).nG +-@@7 STUDENT TEST SCORESGPRINT HEADINGx,-@$}@, TOTAL STUDENTS: I-@@'  STUDENT ID #9-@%@I  TEST SCORE4-@$}4LOOP THRU THE NUMBER OF STUDENTSA-@ %@ /-@(%@6 8,A6-%8, 4-@%$}@4 AVERAGE SCORE IS:P:',36--@3FIND THE HIGH SCORE 8,!6-8,6- >$}-@%@> HIGH SCORE WAS  BY STUDENT //91,56,77,89,88,98,56,72,75,81,78,93,66,-1D1:NEWOWN8A.B$}AS-.fSCOREAVSTUDENSCORLOOHIGHSCORHIGHSTUDEN@ NEW $*+S.EUNIVERSEOUTERLOOINNERLOONUMBERSHIPLOO@ NEW OWNER'S COLUMN PART(} 8 BY DAVID PLOTKIN (c) 1986, ANTIC PUBLISHING##LISTING 2-STARSHIP SIMULATION;9@<@,;DIM THE(} ARRAY TO HOLD THE VALUES(V +AR@1-@@V  SETTING UP UNIVERSE. PLEASE WAIT27-@(}@7STEP THRU THE FIRST SUBSCRIPT<8-@@8STEP THRU THE SECOND SUBSCRIPTFM6-P:H:,$@(},MUSE RANDOM FUNCTION TO SET UP NUMBER OF SHIPSP,68<,-,PUT THE NUMBER IN THE ARRAYZ$ $FINISH UP SECOND SUBSC(}RIPTd# #FINISH UP FIRST SUBSCRIPTn7 >:A%,"-@ 7 ǠŠx@-@@+-$@(}@/ 3 @PRINT ROWS}--@@2#-@) -- W-@@+-%@/ (}3 WPRINT COLUMNPRINT UNIVERSE(10,12)5-@@+-@%@1 |5 -@@-(}@@"-$@%@" 8<,  ARD1:NEWOWN8B.BASWNER'S COLUMN PART(kOPXoDPRABBLDMMPRVISYXAADDXYXZYXEERRRZXCYXY@,} ,} !",}#$%&'(NEW OWNER'S COLUMN PART 8BY DAVID PLOTKIN (c) 1986, ANTIC PUBL,}ISHING LISTING 3 - FRACTAL SHAPES @F.9@d<@3,;@,;@,:6-F6-\,} +-@@:  OF LEVELS (3-6)>\!@) @@0# A(;6-@-@,}76-%@#+&@,; 2O6-&@6-'@+6-@A6-$@0'AO6-$@ <'-@,}'6-B'@#F WORKING ON LEVEL P!6-'@#!6-$@Z/ AP/ASSIGN HEIGHTS ALONG ,}X IN ARRAYd/ A /ASSIGN HEIGHTS ALONG Y IN ARRAYn3 A3ASSIGN HEIGHTS ALONG DIAG. IN ARRAYx  A@,}DRAWHEIGHTS ALONG X-&@-%9 6-&6- Ap!6-)6-%3 Ap,}96-J46-+%,'@%H:,$'@&'@:6-@6-J A     $HEIGHTS ALONG Y-,}@6 -9 6-6-% Ap!6-)6-&3 Ap96-J46-+%,'@%H:,$'@&,}'@:6-@6-J A     $HEIGHTS ALONG DIAGONAL"-&@,-&6% 6,}-%&6-& Ap%6-@% 6-%%6-% Ap%6-JL 6-%6-B6-+%,'@%H:,$'@&,}'@L A T ^   $hRETRIEVE DATA FROM ARRAYr!A| 6-6- A6-%@&,}6-&6-8O:P:,,<,$PUT DATA INTO ARRAY!A@ 6-6- AP6-%@&6-&,}68<,-$$vDISPLAY HERE ASET UP SCREEN-6-?6-?-SCALING FACTORS,-,}6-6A ,-= Ap6-#6-'$B=6-'$B&'@ A @  &-,}6-6A &-= Ap6-#6-'$B=6-'$B&'@ A @  .-,}6-6A .-&1 6-%6- Ap!6-16-'$B/6-'$B&'@' A @+ ,}/  A0 ROTATEA (6-6'@( A 6-'@ A  6,}-D:',* 6-%4 6-%6-M:$%$,>6-$E:,6-$G:,H$RTILT DOWNW 16-,}\6-M:$%$,f'"6-'@' A p6-D:',z 6-% 6-&6-$E:,%,}6-$G:,$MOVE OR DRAWTO (XP,YP) Ap 6-$6-$6-$ ApROTATE AUT,}ILT UP"6A 6.M6A 6.D6-P:,%6-P:, A0$PLOT LINE HERE96-,}$?bP'6-@3&?f0$9@w 4M6-6-6-0-!Ay) )!Ay) 0$,} ,/6-6-$LSET UP SCREENV, +@@)A,$j6AdAU2 PRESS ,}RETURN TO CONTINUE6t @0 -@@ ӺO-@@)  LOW MOUNTAINS;-@@,}O  MED MOUNTAINS*-@@*  HIGH MOUNTAINS/01*02*03%+/ A 416,}-? 426-?P 436-?$D1:NEWOWN8C.BASCYXY@,TqrBREACCSXSBCC6BLCCOOPTIOZZSCLEACCCCFCRCRCRCC1C6SELECSTARXYYZLZHCBRP0}@@ ? @ @c ?CC@0}@B2y@B33@@A4PAAH0}@ @!@g"@#@$%&'()*+,-.0} RSMAPBY JIM PIERSON-PERRY (c) 1986, ANTIC PUBLISHING""DO NOT RENUMBER THIS PROGRAM06-@$F0}:B2y,"@06- A@6-M:#@%#@,$$8 COMPUTE FUNCTION, PLOT MAPBX-@0}@6-&!6-&167<,.7<,>'"P:',K67<,.*X67<,.*L# A(-@b#6-%V F:,"0}'' A$` APj  6- A`t !6-@Q A`~6-P:+&,',% 67<,.7<0}, @-@.( *** Plotting *** @A@P=!(7<,7<,7%<%,+ A=AA0}`.-@.( --- Thinking ---  $DISABLE BREAK KEY=@w+@A0}=B7tA$START OF MAIN PROGRAM<<;@c,;@g,;@Q,;@,9@Q,p +0}6-F:A ,+6-F:A,:6-F:A,LA Ar^AA`pAA`AY+(+,,$0}@4 A6-%6-@16-@=6-@I6-@U6-@a6-@m6-@y6-@c0}6-@g6-B6-B2yL 6-6-6-!6-@-6-@qy867,. C67,. L67,.==6.3A0},B.C,D.E,F.G,H.I,J.K,L.M,N.O,P.Q,R.S,T.U,V.W,X.Y,Z AR INTRO0 (}-0(0}(* -*(| Р |2* -*(| Response Surface Mapping |<I-@0(0}B-@@I(byF[-@@+(Jim Pierson-Perry=-@@[((c) 1986 Antic PublishingK1}?-@@-(ALL RIGHTS RESERVED?AY@4P-A TENTER FUNCTION^/ (}-@ /(1}ԠΠԠhX -X(JType in the plotting function. Use valid BASIC syntax. The function canrA -A(31}use up to 2 independent variables: X and/or Y.|2-@2(Press BACKSPACE To Erase Typos.-@ .(Pres1}s RETURN When Finished0-@(Z=%-@x,(_0 6AR-@"6.067<,.Z=66-1} K: A% )"AU% AO"A&*!@0(>:,_>:@0,86-&1}E67<,. O A"@AYY+!@9* @D,)+!@D* @X,)+!@d* @,)"@1}A` A+67<,.>:,(>:,!6-%+ AINSTALL FUNCTIONCAY+(+,,$@4(AR1}.(}1(4(@(1050 C(' (CONT-$AB@'&# A%pAB@# B (}-@1}0(ԠҠԠBAY@4GET PLOT AXES BOUNDARIES& -(ENTER VALUES FOR:0# -(X-axis1 } minimum= #: -( maximum= DA   A&`-((7<@8,7(7<@8,A A@N)-@%1 }(Y-axis minimum= )X"-@( maximum= "bG   A&`-@.(7<@8,=(7<@8,G A1 }pl,,ESTIMATE RESPONSE RANGE OVER PLOT AXESv:-@:(&PLEASE WAIT- ESTIMATING RESPONSE RANGE%6-+&,'61 }-+&,'% A( 6-6- AP 6-6- - - AP  6- !1 }6-   @ -(7<@8,-@(ESTIMATED RESPONSE (Z) RANGE:!-@!( Z mimimum=  1}-@( maximum= 5-@ 5(!Press Ԡ To Use These Values :-@!:(&Press Π To Enter1} Response Range*" F:,"6-6-" A!p4F:,"A! > A H*-@!-&(7<@9,* 1}R$-@ ( Z minimum= $\"-@( maximum= "fA   A&`-((7<@8,7(7<@8,1}A A!0p!!SET PRINTER - START MAPPINGz= (}-1(ŠŠРԠ=@)-@ )(Pr1}epare your printer: -( -Power on1 -'(-Set paper at top of page1 A.-@ .(Press Ԡ 1}to continue.,-@!,(Press Π to abort.F:,A"0$ A'  P:$ .-@1}.( *** Plotting *** .-@ .( B6-+&,'@`'6-+&,'@@96-+1}&,'@PB68,-%-@Q!68,-8&,%% F A' ((*6-@@&B:,'8(7<,=(B(F1} ;( (;(7<@,X-axis range=  to 11(7<@,Y-axis range=  to  + -'(1}7<,7<,=8,+  467<,.7<,#-@b067<,.*4  ,,(7<@b,7<,7<,=8,1}$ . 6-%8 !!CALL THE MAPPING SUBROUTINEB 8-@.( --- Thinking --- 8 AL 467<,.7<,1}#-@b067<,.*4 V >>(7<@b,7<,7@G<@G,=8@G,` 7-@H@Q3(71}<,7<,=8,7 j (>:@,t !!MAP COMPLETE - ALLOW RERUNS~ 1 (}-1(ŠŠР1}Ԡ + -+(Response Map Output Completed ?-@( Ӻ0-@@?( ========== `-@ 1}6("Ԡ - Remap same function withH-@@`(new plot parameters *-@*(Π- Exit program1} 4-@@4(Please Make Your Selection F:,"A%0 F:,"A A$ ALL DONE - EXIT1} TO BASIC I +A %A1A=@IAR (Program RSMAP done. 55HANDLE 1}BASIC SYNTAX ERRORS IN THE PLOT FUNCTION  (} A(` \-@+(There is a syntax error=-@@\(1 }in your plotting function. ,-@,( BASIC Error #F:A,( 6-@ 6("Press Ԡ To Re-enter Function1!}2 2-@!2(Press Π To Exit Program< ( F:,"AA`( A0F ( F:,"AA`( A%1"}0P A& Z ZZERROR HANDLING CODE TO HANDLE UNREAL PLOT AXIS BOUNDS (MINIMUM GREATER THAN MAXIMUM)d A(`n ,1#}-@ ,(The minimum must be lessx :-@!:(&than the maximum value. Try again. ?-A !-@1$} 0(7<@8,?(7<@8, AA`$ HANDLE PRINTER ERRORS A(` Y-@ *(Printe1%}r Error Detected<-@@Y( BASIC Error #F:A, (-@@((Please Correct ( F:,"A1&}A`( A%0 F:,"A' A'P *-@-&(7<@8,*  AA` A"01'} **HANDLE ERRORS IN FUNCTION EVALUATION A(` 1 (}-1(ŠŠРԠ b-@8( BA1(}SIC Error #F:A, Occurred>-b(During Plot Function Evaluation 1-A 'AA`1 A$P1)}" ERROR SOUND, oA@P12A!@@M2A(@@]2@k-@ 1*}o 6  -2 $ D1:RSMAP.BASIOZZSCLEACCCCFCRCRCRCC1C6SELECSTARXYYZLZHCBRP04jk{XoBRLASTLASTTIMCSPEECCHACCCCC3C1CC1CSCORHIGCBOOMCRAINBOWCHSEC25TITLAC51MEM5,} 5-}5.} ! &&UNCLE HENRY'S NUCLEAR WASTE DUMPBY JAMES HAGUE (c) 1986, ANTIC PUBLISHING(06-@$5/}F:B2y,"@06-d AMAIN INIT.n ATITLE SCREENx ApGAME INIT.MAIN GAME50} LOOP A`6- A`"A 6- 6-&-@( A`")"A@51} 6-6-6- 6-6-,@  DECIDE WHERE TO DUMP WASTE F:@ ,@A`" 6-52}R:,,%"@*!6-&% A@6%"* @6-%% A@@(T:,AJ AT ,53},6-^42H:,$%- *24 Ah 6-&-@(r!Ap|52@054}@'-A+ 52HANDLE FALLING WASTE% 6-%,,%6- 1%55}A072%A'2%A-6-7 Aa A/ -2@P+2AP/ 256}-62@@.2A%2 &1&%"6-6& AP%1%%"6-% AP?57} 1&1%!1%7")")"A?LOSE! 6-%-( !6-"AWIN!58}>F:A3,"@"@x(,2@>,@ A0&% 6-%,,%6-0 6- Aa59} AEND OF THE WORLD -(Ƞϡ ->-@H62*2$6A:5:} > )2@P+@)6-?:C:,,?+AYA+AR52?2j-@5;}G(>:@4,Good help is so hard to find.>:@4,Y-@"@j( -Uncle Henry+ @,@#+/@95<}@#S A`-),@(@!%=/@0@!%A S,@0@# 7-@(@ (/-5=}@(@7( ; A$,@)@)@;,@)@ +AY@4!6-A@+ Aa5>}* A3@A+B7tA3DEBUG$YOU WIN! -(YAHOO!C-A65?}-6)2;2%@%? C 32AC#2A32Ab +@A5@}/ -#(1000 BONUS POINTS!/6-?:C:,,  -2 6-%A!6-++AYA5A}+AR$E -E(>:@4,!Not bad, but why are you glowing?>:@4,.&-@$@&( -Uncle Henry5B}8+AY@4!6-A@+ AaB Ak""RETURN RANDOM WASTE CHAR (A)p6-P:H:,$,z(6-@85C} A`@ "6-Ag A`@6-A6 A $WAIT 1-255 JIFFIES (A) A 5D}@ F:@ , Aa$SGAME INIT.X1+AYA+AR16-b@ -@(>:@5E}4,I hope you've got insurance.>:@4,l&-@"@&( -Uncle Henryv+AY@4!6-A+ Aa5F}' +@AY'AV'WA@&'A @89AAKAA4WA5G}' -'(ź0 ĺ 0G-,!/@#/,@%C/@%@#G ?,@5H}"!/@@"-,@#?/@@# ,,@ A`,@!6--@5I} A`"Aq ,@!6- +AY@4!6-@0+ Aa -(READY...5J}6-@` Aa -(   -(SET... Aa  -( *! -!(5K}РԠš4H --6 202@1@2@dD H > @2,/@H5L}$;TITLE SCREEN@AYJKAA4!A -A?A@8KATA`5M}Aa^; -!%@%@7%@"%@; h 6.=:,6-B:,r+ -'@&%%@:7<5N},,&+ | 6.=:,6-B:,+ -'@%&%%@:7<,,&+ %@4%@AY@45O}F:B2y,")(T:,$-@% F:B2y,A 6-%!6-%@4%@F:5P}B2y,"AP A##MAIN INIT.(#- #A-"2#G +@A+A5Q}@V1-G(OH NO! IT'S...<# 6- A F#11;A$,;@,;@,;@@,P#6.h ҍ5R}Хx`Z#6.h Ԍȥ`d#% 6.67A$,.%67,.n#) 6-C:,!6-&+&P:',$,%)6-%x#A5S}A'}#,,6-?:C:hͨα͑Υ`,,#)-@G"%%@$%) #A-@)"#5T}A6%' 3A@AAA'#""6@$#"#-B:,6-@:7<,,# @6-&5U}#%%& # A%CONSTANTS%**0,1,2,3,4,5,6,7,8,9,10,15,32,256,5125%CHARACTER DATA:%%%248,254,255,5V}255,255,255,255,255D%$$31,127,255,255,255,255,255,255I%%%255,255,255,255,255,255,255,255N% 0,254,124,56,16,56,124,2545W}X%##0,124,254,254,238,254,254,124b%##0,254,130,186,170,186,130,254g%TITLE DISPLAY LISTl%cc112,112,112,66,0,0,112,1125X},112,6,7,112,2,112,112,112,6,6,112,112,112,2,7,112,112,112,2,65,0,6q%TITLE TEXTv%%%5,SCORE:XXXX HIGH:XXXX SPEED:%5Y}43,UNCLE HENRY'S%61,%89,OVER 50 BILLION SERVED%123,START TO BEGIN%142,SELECT FOR SPEE5Z}D%00161,another game from the demented mind of%204,%##227,(c) 1986 Antic Publishing%-1D1:5[}NUCWASTE.BASBRLASTLASTTIMCSPEECCHACCCCC3C1CC1CSCORHIGCBOOMCRAINBOWCHSEC25TITLAC51MEM4 <++ABABCCCCCCCCCC1C1C5C25CGEC12C25CCCRALPHLWORDPASKEDESPELSEDISTRGSTKSR9]}BLANKGUEOSCTGEHSCBLNLINETOBGTLINBEGLICACONSOTOPICSTKIIOCCMNADRHADDRESADRLNMHNMBNMLER9^} 9_}@@ 9`}!"#$%&'()*+,-./9a}0123456789:;<=>?9b}@ABCDEFGHIJSPELL BLASTERBY MATTHE9c}W RATCLIFF (c) 1986, ANTIC PUBLISHING 7 +@#%;A,;@E,.6-C:,76-C:,6-6-@9d}'6-@36-@?6-@K6-@W6-@c6-@o6-@ {6-@6-@6-@P6-9e}AU6-@6-A'6-AVd;AT,6-C:,n AP A` TEXTG6-#A9f}'-@!+"9A6%= G ATT169,0,133,212,162,8,70,186,144,3,24,101,187,106,102,212,202,208,243,133,29g}13,96 6--'6-P:@&$H:,,%'"A 6-68,-8, 16-P:$H:,,%#6-P:$H:,,%169q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWDOC TXTbkHELP BASboLINKLINEEXEb~MENU b TYPOII LSTb#GOWEST BASb NEWOWN8ABASb NEWOWN8BBASbNEWOWN8CBASb<RSMAP BASb1+NUCWASTEBASbX\SPELLB BASb3STEPPER BASb/SUB EXE-@:7<,, -8,"A` 68,-)8,@w*8,@) AA 6-8,"@w*@9r}.68,-8,768,-A A7 6-8,"@w*@.68,-8,768,-"$,M 6-6-%,9s}@D1,@V=,@VI,@DM6K 6-6-6-@5/-@E@U;,@EG/@UK @9t}%%6-?:<8,<<@G<@D&,J6-?:<8,<<%<@H,T%%6-?:<8,<<@F<@R%,^%%6-?:<8,<<@B9u}&<@F,h F:,6-)$r (F:,6-$|L 6-F:,L6-+"@,%$+"@,%$+"@,%@9v}$+"@,  $$%@@ 6-&!A -6?2F:,0  09w}6-$(6-$+&,%6-?:68,-%@dB 5 #B"6-B7`#6-)6-56-A9}}K:+ +@#0#0@+0(6. SPELLblast2( A`$9-@'6-?:<<9~}:,07<,AD+ 6-%6-%#67<,.7<,+6-%N-@9}6X--6-?: H6.>:8,,6-6-%R -\9}"47<, A" Apf07<,A!p+67<,.7<,6-%#6-%+6-%u4-@@@06$29}02%4 w' 226-' A`z7<,47<,A"  "6-& A9} Ap- +@#0#0@- A` 6- A` 6-% AA +@#0#0@9}10@ 7A A`  6-%6-% 0$6-?::AY, @pGET ANSWER+ AP+ @I)!@VAP--@&@G=}-(@>:@0,U6-&@HUA`A`APA 0A A AA& Ap=}0j-@6(@=j(@&stage continues up as you hold start.:F:,@=}ApD((@((@ =N'@VAU'@`X @b# =}#6-%@lD@(#( /@;@(D( vF:,"@AF:,"@=}Ap 6- A0i-@6(@=i(@%stage continues downas you =}hold startF:,@Ap'(@'(@ = @# #6-&=}@D@@(#( /@;@(D( F:,"@AF:,"@$=} 6- A M-@8(@= MMOVE BOTTOM TO TOPF:,@A`0(=}@0(@press SELECT to quit "A   A   A*  A4 =} A>-F:,"@A -LEAVE SUBROUTINEH  AR  A\  Af  A=}p""6-%@%++!,$6@,z0@@($( 0@Ah AP-=}@F(@ Z-@AP^ h A0$L-@6(@=} LSET SPEED OF TRAVEL,(@,(@10=slow 99=fast @p*6-&@H(@=}*(@ @p2(@&@H26-$@%+&@H,$@@($( 6-A=}&$>-@1(@= >GO UP FASTF:,@A0 @ =}$ . 86-%@B$@@($( LF:,"@A@V$`A-@=}2(@= AGO DOWN FASTjF:,@A0t @~   =}6-&@$@@($( F:,"@A@$DISPLAY SETTINGSH-@=}(,-@@1(C-@@H(-@@($)AU)TURN OFF ALL THE PHASES$$=}(PRESS START TO KEEP RUNNING,F:,@Ap Ap D-@6(@箮 =}DMOVE TO TOP"A @( 2 < F""6-%@%++!,$6@,P$@=}@($( ZAdF(@.(@move done B-@APF n$x:-=}@:(@箮 "A @   !!6-&=}@%++ ,$@,$@@($( A;#(@move done 7-@A=}P; $-@F:,"@6-@  A0$ +@TITLE SCREEN0-@=}@,(@ 0 ""(@ * * * * * * *"""(@ * ,""(@ =}*6""(@ * * * * * * * @*-@@&(@ * J.(@(@.(@=} T(@ ^""(@ Ԡh!!(@ ͠r (@ =}Π|-(@-(@㉑(@&&(@Ӡ-=}@ A $1A'A @1 A4A@'A 1=} A4$O@w'AdAU+=@@dOB7t@d$-6-@6-@W'=}6-@E-6--$@2@@-@@F:,"@6-@=}  6-6-6- &(%2($ D:STEPPER.BAS<aPPxԍԅ ?P TP S S Sԍԩ>/XoL7P WL7PT$%A01`Щ҅ԩЩÅąŅƢA}8(8P8c9(9P9x9999:@:h:::c;(;P;x;;;;<@(>P>xA}>>pcPQ?(?P?x??c@(@P@x@@(г`0 -Q`) @Q) mQ` Q Q ,R R`A} Q R AR R`j#È Q`Ȅ Q`AiAAAiAA`8AAA}ηA8AAQRκA`j'Ĉ  oR`Ȅ VR`j#ň R`Ȅ R`#8MAMAA}NA`#MAiMANA`8 A A!A` Ai A!A`j#ƈ R`ȄA} R`8AARSA`AiAA`dɄʩp˄̢ɑHҘi(hˤ(i(ɥiʥiP˥iA}̩fɄʩt˄̢#ɑHҘi(hˤ(i(ɥiʥiP˥i`UAUT`45673A}S`4Щ0`ST<~~<TT "Q ԩ TL}W UT UT UT A}UT`H= ԍԩЩoTh@H ԩ2ЩTh@H ԩЩTh@H? ԍԩЩTh@HHƢ` Ԏ ԍԩԍA}ҍЩۍThh@Hō ԍԩЩԍЩTh@H TUԥčԩUh@HHÍ ԍԎ ԩЩЩ7Uhh@H ԩԩA} ԩЩVUh@H ԩtЩkUh@H ԩЩUh@H ԩth@ppeVB8eVDVT=T>T?@^p^Pp^p^p^@q^q^A}q^0r^r^r^ s^ps^s^t`t^t^u^Pu^u^u^@v^v^v^0w^w^w^UV x^px^x^y^`y^y^z^Pz^z^z^@{^{^{^0|^|^|^ }^p}^}^~^`~A}^~^PT9;eVOBeVAAA}VWA}hhh@)I`UUUUUUUB}UUUUUUUUUUUUUUUUUVTUUUUU*JJUUUiiiUUUUUZYjUUUUUUeeUUUUTPLCUUUUUUUUUU%UUUUUUUUUUUUUUUUUVVVVfUU%&))UUUUUUUeUUB}UUUuC@UUUUUUUUUUUejZUUUUUUUUUUUUYUUUUUUUjVZZVUARRUUUUUUUUUUUUUU_UUUUUAAUUaUUUUUYiiUUUUUUUUUUUUUYUUUB}UUUUUUUYiUUUUUU\sUUUUU UUUUUU0<JJj?)o <3* 0B}U>>i2⪯) ??? :V)j  **0Lw *B}(@ *jUY`_*﫫V&* & "*eV>⪪``B}UUU@@PPPPX%PTTT%VTUUU %UUZZZUeVVVfVVUeeB}eiYZeZVUUUUZUe@PTTU``T*ZUei@PPTZV *jjjjB}`a@  **UeZZZjZjUVUieUUZjVZjjUUUZYYYiejjYZUUUUVVjiVVjjZB}VUZiiUUUZTYVVUY jUUUU*YUZYVUZZiVVUUUUUUUeYYZUUhTeUB }UabUUUUUjVUUUjUVUUUZUUUUUU@UUUVZVUUUUUUUUijUUUUUYUUjjjUUUUUUZYB }UUUUUUUUVjUUUieeUUUUUVjUUUUfjijUUUjUUUUUVUUUUUUUUUUUUUUUiZiUUUjUUUUVUeUUUVUUUUUUUUjUUUUUZZVUUUB }eeVUUUUUUbcUUZUUUUUUZUUUUUZVUUU@UUUTU B } !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abc= B } !"#$%&'()*+,-cd./0123456789:;<=>?@ABCDEFGHIJKLMUUUUUUUUUUUUjUUUUUUUUUUUUUUUUUUUUUUUUUTjUUUUVZUUUVUUUUUUUB}UUVjUZUVVZjZUUUUZUTUUUUUUUUUUUUUUUjUZUjUUB}UTjUUUUUUUUUeUUjdeUVTUUZUUUVUUUeUUjUUUUUUUUUUUUUUUUUTUUUUUUUUUiUUUeUUUVUUUUZUUUUUUUUB}UUTUUUUUUUUUUUUUZUYUUYeUUUiUYVUUUUUUUUUTUUUUUUUUYjUUUUVVUUUUUUUVVUUeUUUUUUUUUTUUUUUUUUfUUUUUUUUUUUUUeYUUeUUUUjUTUUB}UUUUUUUUUUUUUeUUUUUUUUUYYUUYUUefUUUjUTUUUUUUUUUUUUUUUVUeUUUUUUUYeUUVUUUUjTUUUUUUUUUUUUUUUUUZUUUUUUUVUUUiUUUUjTUUUB}UUUUUUUUUUUUUUUUUUUUUUYUUUVUUUUUT !"#$%;<=>?@ABCDEFGHIJKLMfgUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUVVUUUUB}UUUUUUUUUUUUUUUUUUUUUUVTUUUUUUUUUUUUjUUUUUUUiUTUUeVUUUUUUUUVZUUUUTUUYjUUUUUB}UUUVUUUUTUUVUUUUUUjUUUTUUVUUUUUghZUUUZUUTUUZUUUjB}UUUUjjUUTUUVUUUjZUUUUUVUUUTUUVjUUUUUUVUUUUUUjVUUUTUUUUUUUUUYB}UUUUUUVUUUTUUUZUUUUUUYUUUUUUVUUUUTUUUVUUUUUUeUUUUUUUhiUUUUTUUUUjUUUUUVUB}UUUUUUVUUUUUTUUUUVUUUUUYUUUUUUUUVUUUUUTUUUUUZUUUUUUUUUUUUUVUUUUUTUUUUUUZUUUUVUUUUUUUUB}UUjUUUUTUUUUUUZUUUUVUUUUUUUUUUjUUUUTUUUUUZUUUUUUiUUUUUUUUUUjUUUi}jUTUUUeUUZUUUUUVUUUUUUUUUB}UUUZUUTUUUeUUjUUUUUiUUUUUUUUUUUZUUUUUeUUTUUUZUUeUUUUUUUUUUUUUUUUUUZUUjUeUUTUUUUUUUUUUUUUUUUUUUUjUUjVB}UUjUUUTUUUUYVUUUUUUUUUUUUUUUUUZUjUUUjUUUTUUUUZUUUUUUUUUUUUUUUUVUjUUUTUUUUUUU~jykUUUUUUUUUUUUUjUUUB}UZUUUTUUUUUVUUUUUUUUUUUUUUjUUUUUjUUTUUUUUUZUUUUUUUUUUUUjUUUUUUjUUTUUUUUUUjUUUUUUUUUUUjUUUUUUUUUUVB}UTUUUUUUUUjUUUUUUUUVUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUVUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUzklUUUUUUUUUUUUUUUUB}UUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTB}PPxԍԅ ?P TP S S Sԍԩ>/XoL7P WL7PT$%A01`Щ҅ԩЩÅąŅƢ@31000 REM CREATE NEW [BREAK] HANDLER31010 REM BY BRUCE OWEN BLOSSER31015 REM (c) 1986, ANTIC PUBLISHING31020 POKE 1536,169F }:POKE 1537,12831030 POKE 1538,133:POKE 1539,7731040 POKE 1540,104:POKE 1541,6431050 POKE 567,INT(1536/256)31060 POKE 566,F!}1536-PEEK(567)*25631070 RETURN LER31010 REM BY BRUCE OWEN BLOSSER31015 REM (c) 1986, ANTIC PUBLISHING31020 POKE 1536,169D!ICE = "1 [CT MAKE "DATA [] INPUT MENU]IF :CHOICE = "2 [CT ADD MENU]IF :CHOICE = "3 [CT MAKE "DATA [] UPDATE MENU]IF :CHOICF#}E = "4 [CT GETMAIL PRINT.ALL MENU]IF :CHOICE = "5 [CT SELECT MENU]IF :CHOICE = "6 [CT QUIT STOP]CT PR [YOU ENTERED AN INCOF$}RRECT NUMBER]WAIT 100 MENUENDTO MENUCTPR [YOUR CHOICES ARE...]PR []PR [* 1 - CREATE A NEW MAILING LIST]PR []PR [* 2F%} - ADD TO THE EXISTING LIST]PR []PR [* 3 - UPDATE AN ENTRY]PR []PR [* 4 - PRINT OUT THE WHOLE LIST]PR []PR [* 5 - PRINTF&} OUT A SELECTED NAME]PR []PR [* 6 - QUIT]PR []CHOOSEENDTO ADDGETMAILMAKE "DATA BL :NEWDATAINPUTENDTO UPDATEGETMF'}AILMAKE "NEWDATA BL :NEWDATAPR [GIVE FIRST AND LAST NAME]MAKE "TAG ( RL )FINDENDTO INPUTCTPR [ENTER FIRST AND LAST NF(}AME]PR [( Or END for Main Menu )]MAKE "NAMELIST RLIF EQUALP :NAMELIST [END] [DATASAVE STOP]PR [ENTER STREET ADDRESS]MAKEF)} "STLIST RLPR [ENTER CITY, STATE ZIP]MAKE "CITYLIST RLPR [DO YOU WANT TO MAKE CORRECTIONS? ( Y / N )]MAKE "CHOICE RCIF EF*}QUALP :CHOICE "Y [INPUT STOP]MAKE "DATA LPUT :NAMELIST :DATAMAKE "DATA LPUT :STLIST :DATAMAKE "DATA LPUT :CITYLIST :DATAIF+}NPUTENDTO PRINT.ALLSETWRITE "P:PR FIRST :NEWDATAPR FIRST BF :NEWDATAPR FIRST BF BF :NEWDATAPR []MAKE "NEWDATA BF BF F,}BF :NEWDATAIF EQUALP FIRST :NEWDATA "* [SETWRITE [] PRESS.C STOP]PRINT.ALLENDTO GETMAILSETREAD "D:MAILIST"MAKE "NEWDATF-}A RLSETREAD []ENDTO SELECTPR [GIVE FIRST AND LAST NAME]MAKE "TAG RLGETMAILSELECTPRNTENDTO QUITCTPR [THAT IS ALL,F.} FOLKS]WAIT 50CTENDTO FINDIF EQUALP :TAG FIRST :NEWDATA [CORRECT STOP]MAKE "DATA LPUT FIRST :NEWDATA :DATAMAKE "DATA F/}LPUT FIRST BF :NEWDATA :DATAMAKE "DATA LPUT FIRST BF BF :NEWDATA :DATAMAKE "NEWDATA BF BF BF :NEWDATAIF EMPTYP :NEWDATA [PF0}R [NO MATCHING NAME] WAIT 100 STOP]FINDENDTO CORRECTPR [HERE IS THE CURRENT ENTRY]PR []PR FIRST :NEWDATAPR FIRST BF :F1}NEWDATAPR FIRST BF BF :NEWDATAPR []PR [ENTER NAME]MAKE "NAMELIST RLPR [ENTER STREET ADDRESS]MAKE "STLIST RLPR [ENTER CF2}ITY, STAT ZIP]MAKE "CITYLIST RLPR []PR [DO YOU WANT TO MAKE CORRECTIONS? ( Y / N )]MAKE "CHOICE RCIF EQUALP :CHOICE "Y [F3}CORRECT STOP]MAKE "NEWDATA BF BF BF :NEWDATAMAKE "NEWDATA FPUT :CITYLIST :NEWDATAMAKE "NEWDATA FPUT :STLIST :NEWDATAMAKE F4}"NEWDATA FPUT :NAMELIST :NEWDATACREATELISTENDTO DATASAVEMAKE "FILEND "*MAKE "DATA LPUT :FILEND :DATASETWRITE "D:MAILISF5}TPR :DATASETWRITE []QUITENDTO CREATELISTMAKE "DATA LPUT FIRST :NEWDATA :DATAMAKE "DATA LPUT FIRST BF :NEWDATA :DATAMF6}AKE "DATA LPUT FIRST BF BF :NEWDATA :DATAMAKE "NEWDATA BF BF BF :NEWDATAIF EMPTYP :NEWDATA [DATASAVE STOP]CREATELISTENDF7}TO PRINT.SOMESETWRITE "P:PR FIRST :NEWDATAPR FIRST BF :NEWDATAPR FIRST BF BF :NEWDATASETWRITE []ENDTO SELECTPRNTIF EF8}QUALP :TAG FIRST :NEWDATA [PRINT.SOME PRESS.C STOP]MAKE "NEWDATA BF BF BF :NEWDATAIF EQUALP FIRST :NEWDATA "* [PR [NO MATCHF9}ING NAME FOUND] PRESS.C STOP]SELECTPRNTENDLOGO ADDRESS BOOK]SETCURSOR [18 14] PRINT [by]SETCURSOR [9 16] PRINT [M. LorenD-