LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)6 WAP /// SIG MENU.MAKER PROGRAM (Version 4.54)=".d1":100: Coldstart 200: Warmstart (GOTO 30) (I=1L2(A$(I),A$))90<B$(J)=A$(I),1,31)!FJ/2<>J/2)=4:=+1:ۙ=44PB$(J);:J=J+1ZI:8dA$(1000),B$(1000),C%(""III.MSC.031061Bu' )BGRAF.INV(#L+DISKNAME.DAT!*MENU.MAKER  - -READ.ME.FIRSTy9*SALERNO""SUTHARD.2 >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L511),C$(20),name$(20):=10:=0nx=+B$(I),16,B)140 PREFIX$=.D1 #1, ž#1180I=0I=I+1:#1;A$(I):170#1 L=I-1j=1:same=0:/#9,".D1/DISKNAME.DAT":#9;DISKNAME$:#9Ta$="{,|,~,}; selects; 13П,2))-12;џ,6);:1580$"П,2))=0"12";џ,6);:ٟ;$,П,2))=>12" PM-":" AM-" 61630@WW=1390J=26,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540M$="JANUARY":1550M$="FEBRUARY":1550M$="MARCH":1550M$="APRIL":1550M$="MAY":1550M$="JUNE":1550M$="JULY":1550M$="AUGUST":1550M$="SEPTEMBER":1550M$="OCTOBER":15=0::"79C";"CONTINUE...?":'(<>89<>121<>78<>11013202=78=11010<9F=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING":P2,280,2 Z1310dn"x ..... "DATE.TIME.LINE" ....M=Ҡ,4,2))BM1430,1440,B$(I),16,B)#5,".PRINTER" $ž#4120 .#4;a$ 8#5;a$ B1070LV:=24:=0::#X=1100: TEXT SLOW-DOWN LOOPX810 Halt Subroutine::=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING.": 1300(=23::=12:=0:120=+B$(I),16,B)1408A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0 :120>::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1010C$="N"C$="n"120#4C$<>"n"850\C$="N"C$="n"1000;f:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": p840z2,280,21K:=23:=0::"79C";"TO PRINT OR RETURN TO MENU, HIT THE SPACE BAR":C$:C$<>" "930:ۺ1000 :=".d1"01:=0::"80C";A$;::12)E=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING"::2,280,21 840#2,B$(I),16,B) ž#2910*#2;A$:A$:12304810 >:120*H:=23:=0::"79C";"CONTINUE...?":0RC$:C$<>"Y"C$<>"y"C$<>"N"IC 0")700B$(I),"TEXT 0")740B$(I),"CAT 0")960B$(I),"FONT 0")1660B$(I),"FOTO 0")1730400A$="RUNNING "+B$(I),16,B)"79C";A$;:=0B$(I),16,B):A$="LISTING "+B$(I),16,B)$=2)I=I+1&I2=-1:I=I-2:NIBOTM<30XTHPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:0b=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1lvB=B$(I),16)," ")-1B$(I),"BASA=:A=21A=9oldprefix$=A=31110A=27:=".D1":980A=13630=THPOS:B$(I);A<8A>11400A-7500,520,550,580:=THPOS:B$(I);:380: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/,A$="TEXT 0":406A$="CAT 0":40@A$="FONT 0":40JA$="FOTO 0":40TA$(L),"BLOCKS")370*^=27:=19:"FREE MEMORY AVAILABLE: ";h=7:=20:"80C";A$(L);$r:=5:THPOS=4:I=1:IBOTM=J-1:480|Q=:=26:=21:1400 =Q:WW=0PE> sets Prefix to .D1; aborts."12);::"80C";a$;:d$=DISKNAME$$=23:=0::"80C";d$;::12)1,180,22F=3:=14:"This /// SIG Disk is \^ 1989, Washington Apple `, Ltd."=4:B$(1)="":B$(2)="""A$="BASIC 0":40B$(I),16,B)name$=34)+D$+34) GLOAD.D$16);1) GRAFIXONX=12000:X::RELEASE:#5302l ...... WAP /// SIG MENU.MAKER (VERSION 4.54)CONTRIBUTOR'S DISK: VOLUME 2     `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kL !"#$%&'GA3/1.01/LINr GRAFIXMO !@%")PIC.FRACT7!@#j-PIC.FRACT.SELX!@$WALLPAPER.UPDTE  |/8SALERNOv"' '(CHAOS.CT )@#',CHAOS.MEMO.28 %,CHAOS.MEMO.3. %.PIC.FRACT.DATAy!@$l#-PIC.FRACT.ENL!@$ -PIC.FRACT.MAGLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhhh   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XSOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT d "CHAOS.CT" 100-1680 4n Described on NOVA television program on CHAOS $x James Salerno March 1989 }=".D1"@:DUPLIC=0:DUPLIC2=0:COUNT=1:COUNT2=1:TOTALCOUNT=0:ENLARGE=0%=12:"80C";"THE CHAOS PROGRAM"R::10);"Do you wASE:RELEASE:#10:"80C";"-YOU ARE NOW IN BUSINESS BASIC-"X2=X-XL+1:Y2=Y-YL+1X2=X2*MAG+10:Y2=Y2*MAG+25XX%=X2+.5:YY%=Y2+.5550 "CHAOS.C" 100-1050*:"80C";"-- PROGRAM INFORMATION --"" One of the subjectfilename... ";STAT$:870H980RGSAVE.PIC$\ fSTAT$, p#3,STAT$z#3;" 100 REM CHAOS.DATA"X=110:DX=1INC=1COUNT/SS#3;X;" DATA ";DX;",";#3;210;D1(INC),D2(INC)X=X+10:DX=DX+1INC#3"RELEASE:RELE25);"(4...........QUIT."):30);"Select option.... ";:ANS:- ANS=1PIC=1:15);"(1)..Selected":720.ANS=2STAT=1:15);"(2)..Selected":720 ANS=4840*14PIC=1"Enter PIC filename.... ";PIC$:8503>STAT=1"Enter STAT #1190;DUPTOTMOVETO(%150,%20)#1200;DUPDEL!COUNT=COUNT+1:COUNT2=COUNT2+1450: =8:10);"Do you wish to:"#25);"(1...........SAVE PIC."025);"(2...........SAVE Performance Data."#25);"(3...........Continue."IC2+1pDCOUNT2=SSDUPTOT=DUPLIC/COUNT:DUPDEL=DUPLIC2/SS:D1(COUNT/SS)=DUPTOT:D2(COUNT/SS)=DUPDEL:DUPLIC2=0:COUNT2=0NDOTAT(%XX%,%YY%)XMOVETO(%350,%20) b#1;COUNTlENLARGE<>1650vMOVETO(%430,%20)#1;TOTALCOUNTMOVETO(%080,%20)+AX)/2:Y=(Y+AY)/2:500%R%=1X=(X+BX)/2:Y=(Y+BY)/2:500X=(X+CX)/2:Y=(Y+CY)/2ENLARGE<>1540XXR450YYU450 1010XX%=X+.5:YY%=Y+.5&MOVETO(%XX%,%YY%)0COLOR%=XYCOLOR1:COLOR%=15DUPLIC=DUPLIC+1:DUPLIC2=DUPL;XL;" YU=";YU;" : XR=";XR;" YL=";YL:20);"MAGNIFICATION = ";MAG:AN$INITGRAFIX8=20:"80C";"-press any key to exit-":W=1500:W 710 FILLPORT GRAFIXONPENCOLOR(%15)R%=RAND)*3)TOTALCOUNT=TOTALCOUNT+1%R%=0X=(XIRED REGION....REENTER INPUT VALUES !!":=-3:330PhYRATIO=165/(YU-YL):XRATIO=550/(XR-XL):XRATIO>YRATIOMAG=YRATIO:MAG=XRATIOHr" "||:"YOU HAVE REQUESTED ENLARGEMENT OF REGION XL="7);"X VALUES = 1 to 559; Y VALUES = 1 to 190":=-2:330T" INPUT RIGHT-LOWER CORNER (XR,YL) ";XR,YL:XR>559XR<1YL>190YL<17);"X VALUES = 1 to 559; Y VALUES = 1 to 190":=-2:340i^XL=>XRYL=>YU7);"--- ERROR IN SPECIFYING DESY=AY"BGRAF.INV""#1,".GRAFIX",GRAFIXMODE(%2,%2)E6:=8:"DO YOU WISH AN ENLARGED PORTION PRESENTED ? (Y/N) ";AN$!@:AN$="Y"AN$="y"330:390JENLARGE=1:" INPUT LEFT-UPPER CORNER (XL,YU) ";XL,YU:XL>559XL<1YU>190YU<1";"Example: a sample size of 100 allows the plotting of 100,000 points."+=23:"INPUT Sample Size......... ";SS #.### #.## #.###,",",#.## D1(1000),D2(1000)RAND=2.2)+.01AX=280:AY=0BX=0:BY=191CX=559:CY=191 X=AX:(*+,-./012345ish information concerning the program ? (Y/N) ";:"";AN$AN$="Y"AN$="y"1200':=12:"80C";"THE CHAOS PROGRAM"C"80C";"-INDICATE DESIRED SIZE OF STATISTICAL DATA SAMPLING-"5"80C";"Memory for 1000 data points reserved.";S"80Cs addressed by the NOVA television was that of CHAOS.The subject was introduced very effectively using the following example.!" 1. Construct a triangle."%" 2. Randomly select a corner."d" 3. Starting at a corner travel one-half the distance to the randomly selected corner."" 4. Mark that position."%" 5. Randomly select a corner."m" 6. From the last marked position travel one-half the distance to the randomly selected corner." " 7. Mark that postion"/"689:;<=>?@ABCDEFGHIJKLMNOPQRSTUV?@`|gs|gs?wpp@@~?@#@`m`o`{``}`}`{=_nw;}~pps any key to continue-":A$ "CHAOS.CT" 100-1680 on.",u20);"PIC.FRACT Full Graphic",v20);"PIC.FRACT.DATA Plot of Data"Fw20);"PIC.FRACT.SEL Selected region (original resolution)"Ix20);"PIC.FRACT.MAG Selected region (enlargement resolution)"0|:"79C";"-presincremental %duplicates (selected region), "Dr"number of runs (selected region) and the total number of runs.t:15);"Four FOTO files are included on this disk. The small rectangle":"near the center of the full graphic indicates the selected regiRJ"graphic becomes very evident. The magnification factor is adjusted by the "6T"program to present the optimum screen graphic."T^" In the enlargement mode four values are placed on the screen; total "Ph"%duplicates (selected region),orners. The"S,"CHAOS program is rerun in the enlargement mode to generate a high resolution"Q6"graphic of this region. Now only the values within the selected region of"O@"interest (properly magnified) are plotted and the fractual nature of the"asive. The program addresses this by permitting"6"an enlargement of any portion of the graphic.":Q" When the enlargement mode is selected a region of the overall"U""graphic is designated by entering its upper,left and lower,right cal values"T"may be saved to files as an option of the program. The graphic is saved as a"-"FOTO file and the data as a TEXT file." A$:K" At this point the fractual nature of the graphic, while"R"indicated, is not very perst sample, and the"P"total number of runs are stored in memory. The %duplicates, %incremental"U"duplicates and total runs are presented on the screen. The first two of these"S"values are updated each sample size. The graphic and the statisticaphic generated." AN$:U" In order to ease the preservation of information a sample size is"Q"selected. After a sample size number of runs are made the total number of"Q"duplicates, the number of duplicates noted during the lasue to the rounding of numbers to interger values. Before a position"Sx"is marked on the screen an inquiry is made to determine if that position was"L"previously addressed. The duplications are monitored to indicate the"-"completeness of the gr 8. CONTINUE TO REPEAT STEPS 5,6,7....." "The result is a fractual."(TZ"Unless otherwise limited each generated position should be unique. Since the"Nd"Apple /// resolution is somewhat limiting, many duplicate values may be"Un"expected d@w`?@`\ow;~nw;^ow{]~ow{]pxx@x@@@@@s|g?x@x@?x@x@x@x@|@||\||||ppppppxxpp??`|`<`?~`?^<>>>xxxx?|@;|@p~??{?{@?<@?\@?|@?|<|x||pxxxqa?x@>~???????@?|@?x|`|`{~`?^`x|pp`~`~`^`~`~p~`?~p?~>>>xx?}x,7x9|?o|y<ox~~<@;\`xxppppw8|~~>~`~p||~~~p~p~p~po@@@n@|<<|~`|>`~`~}p~p_xxA_@n8<pLx^/pcx b_xgxx8g8Apgwww|||~~~~~>?o~`p|~xG>q|C>q|g>q|c?pAaAp~oooax>`xC@w@xC>axC>`xC>qxC>``w`p`n~o`x COUNT3_?}}~ox`q|Gq|G?q|C?q|c?``~~xGs|G?q|G?q|G?q|g?q|g;y|g?y~c?xO ~~@@axG>p|c?@`~owow{}~?]n?@@``{~g{~o`x<|\||~~9_]^`p?p?xx@|@??`s`{}~pppxxx???`s`{`w;`q p"""pxxx@@@`_```?````^ow{=n?]GpGpCpCpx{;?`C`C|`|`~`~``GpCpCp{?w?{???` @&w@{@w]}@z<@|```pGpGpCxc??GpGpGpgpcxcxgxcx@|@|@{??pCpC~ox?ox=<=|@`@@~`p?Oxo~pppxnxoxoxox@@AcpG<<<````p``p~p~poxoxx?o|=q@>q@p`?p||?x|||||~?|``>`@>a@>`@p|"""ppxxxxxxx|||~~o~<``O\}y~{W~uV^s~w&{W~ppppxx@s@~q@?q@?y`?q`?q`?y`?x|~xxx@xxx|x|`w{pw{pw?pw;pp?xxx@x@x@|@x@x@@@{|o{|o{~~ww@@?``{~ow{9}gw;]~ow;]~pp@@@|Gsx?x@x@xx@x@|@|@????`s`{KCLCL~xpxxCCJJC{<@<`?~`?^`xxxxpIJCo?@?<@?| LLHCxwx||{<@|@<@?\@xxLHL~>>?``c``?xL{GCC |||||||~px?x@?x@ C)@|`|`~p?~>>BC /M|`|`~`|`~p~p~p?~pxx||px{EC)_z?_i?{^?l?s=_1u~@<`?^ L|FIp~pxwx||||8C C|||~p~p~~ CI||~~~p~p~ppl|! (& w{||<<`~,:C0LoC@@_@@`@`o@|||`~pppx}xw{8<OC .GPRvxwOx}p~ox{_8 k/xxxAqg8A_o@~@N|<~|~~~~~~ppwq|G>a|G>p|cpxc?@`````q`p|oox>`xC>`F.INV ~@axCpxC>q|C>@@}~~~wp` COUNT3`_``p}p~pp}poap>`x|G?q|gq|c?q|c?x~~q|G>q|g?q|gq|g?y|c?y|c?y|g?yO~c?```p~~@@@@xC>a|C?pw?}nw{~??~w?]nppppo@@@`|o{?~o{~<?;>`w{`w?pp CF CFxx@x@|x|||KKJK p`pppppp??CHC|<||?\?~_~_~`""HC 0H~?@#@`m`o`{``}`}`{=_nw;}~pppGpGpcpc~?8`|`|`\``C`{?`C`C`Cp~@{~|@|@|@|@00` w{~?_o~{;``QHQH`GpCpcpCpx@x@JpGpgpgpGpgxcxcpc??7 |`~`~`~`~`~`~p~pGpCpP x?~x=o|=|~ppppoxgxcO8O){xo8ox=oxo ```p~p~p~ppP`aP`op<<00-0A, 9pGpg   ox?x?||@`~`~` B H N bx?|?|?|?|?|?|?~p?p_x?xx?x_x8o8=8@@~o~~~?`fqx{x||x||`@>q@>q`?q`?p|||?~fipupxpxxxxxx"">a@?p|}|?N;C~~~?ppxxO`` ~???????@?|@?x|`|`{~`?^`x|pp`~`~`^`~`~p~`?~p?~>>>xx?}x,7x9|?o|y<ox~~<@;\`xxppppw8|~~>~`~p||~~~p~p~p~po@@@n@|<<|~`|>`~`~}p~p_xxA_@n8<pLx^/pcx b_xgxx8g8Apgwww|||~~~~~>?o~`p|~xG>q|C>q|g>q|c?pAaAp~oooax>`xC@w@xC>axC>`xC>qxC>``w`p`n~o`x COUNT3_?}}~ox`q|Gq|G?q|C?q|c?``~~xGs|G?q|G?q|G?q|g?q|g;y|g?y~c?xO ~~@@axG>p|c?@`~owow{}~?]n?@@``{~g{~o`@w`?@`\ow;~nw;ow{]~ow{]pxx@x@@@@@s|g`|`<`?~`?^<>>>xxxx?|@;|@p?x@x@?x@x@x@x@|@||\||||ppppppxxpp??|`|`~`~``GpCpCp{?w?{???` @&w@{@w]}@z<@|```pGpGpCxc??GpGpGpgpcxcxgxcx@|@|@{??pCpC~ox?ox=<=|@`@@~`p?Oxo~pppxnxoxoxox@@AcpG<<<````p``p~p~poxoxx?o|=q@>q@p`?p||?x|||||~?|``>`@>a@>`@p|"""ppxxxxxxx|||~~o~<``O\}y~{W~uV^s~w&{W~ppppxx@s@~q@?q@?y`?q`?q`?y`?x|~xxx@xxx|x|`w{pw{pw?pw;pp?}~pppxxx???`s`{`w;`q p"""x<|\||~~9_]^`p?p?xx@|@??`s`{GpGpCpCpx{;?`C`Cpxxx@@@`_```?````^ow{=n?]xwx||{<@|@<@?\@xxLHL~>>?``c``?xL{GCC |||||||~px?x@?x@ C)@|`|`~p?~>>BC /M|`|`~`|`~p~p~p?~pxx||px{EC)_z?_i?{^?l?s=_1u~@<`?^ L|FIp~pxwx||||8C C|||~p~p~~ CI||~~~p~p~ppl|! (& w{||<<`~,:C0LoC@@_@@`@`o@|||`~pppx}xw{8<OC .GPRvxwOx}p~ox{_8 k/xxxAqg8A_o@~@N|<~|~~~~~~ppwq|G>a|G>p|cpxc?@`````q`p|oox>`xC>`F.INV ~@axCrxC>q|C>@@}~~~wp` COUNT3`_``p}p~pp}poap>`x|G?q|gq|c?q|c?x~~q|G>q|g?q|gq|g?y|c?y|c?y|g?yO~c?```p~~@@@@xC>a|C?pw?}nw{~??~w?]nppppo@@@`|o{?~o{@@?``{~ow{9}gw;]~ow;]~pp@@@|Gsxxx@x@x@|@x@x@@@{|o{|o{~~ww{<@<`?~`?^`xxxxpIJCo?@?<@?| LLHCx?x@x@xx@x@|@|@????`s`{KCLCL~xpxxCCJJC{?`C`C`Cp~@{~|@|@|@|@00` w{~?_o~{;``QHQH`GpCpcpCpx@x@JpGpgpgpGpgxcxcpc??7 |`~`~`~`~`~`~p~pGpCpP x?~x=o|=|~ppppoxgxcO8O){xo8ox=oxo ```p~p~p~ppP`aP`op<<00-0A, 9pGpg   ox?x?||@@`~`~` B H N bx?|?|?|?|?|?|?~p?p_x?xx?x_x8o8=8@@~o~~~?`fqx{x||x||`@>q@>q`?q`?p|||?~fipupxpxxxxxx"">a@?p|}|?N;C~~~?p@pxxO`` `w{`w?pp CF CFxx@x@|x|||KKJK pGpGpcpc~?8`|`|`\``C`"d|""y`""yy@@@?!xx "2 @>"! B!'@B@x|xp! @r""!>"@'p@8Bp8`" @B" "}! !@ !B!!B@{ @@"> d y"@D""AD"" @B~>xz0>!d?!B xz{|}~Ab!?!BI@ O @@A y @'d B&B""""@ yB_!p|B`8@"""|B>|B"@|A "~ |B &&!"y| >@ ~B>( 0"*xBT@*r~|A @  "">"@B!BO"@Gx"@#"O**!BH B"H "2Dd 2@w> >> H@@!>>"!z!Bdrqy !xB >& rd22"B >"`@@#"HD "@A! @{yO""@'BA> B* BAzx>p@ 2"""!B> !o " @g&AL&"""" @@~  ' + `H`!|Apple Co|y>H. 3 6 9 @ H~&"22  |!>"" H@r!Hy@!d~!O}! B@@~x!BH`>@H`@`x!Hfj@!!p@p8p8A(I |BH`""""""fix0 H0`ՑBd}!H  Έ0Ƞ@!!BB! B@@H{%8|%{`!r?HI`!H, 'H%% ?!@" @D" D""/%>OH"""  PɁ" (`""@  H Mu%0``B~r>x`Hw%ȭx@H|H0T/H'`%w%`"p y~|-`("p@`!" |p Br@HdOH! """"@b` K6 K6`@@|O~! 8>q@8C`""""!H=x @!@d!dI#BH@>=Q,BH=``!O""=>>&2" !H{O~ =>7,`@!O@* FT  ( 8'*=`pH?H?H>H= =x>   HpA@0!@! BHD@dH  r""""""D"**" r H @!r>H@2 Hd@H D$2iver.IB!OH` `< !H`QSUW">@@H9H ;h@P~֤!@~:H:H B H2" &&999"2&" B@H pBHBH'"0HDD$ "B!Bp>B@HD4 `?!~HH""d pH` @H!+ ('HLq7 @>H>*"**> 5L?8@~,=LDp H= """""!d? BpH HBp& AL`  Dd&``````|````||``````|````||``````|````pr`yBright (C||`````|``|````|````|``|````|````|``|````|````|``|`|``````|pp``|p|p``||```|`|```pp|`||p|`||p|`||p|`|p|jF5:OpP`4i|Wow{]|~]~~}zm_x\AqA acqfgUE T]w G"r}, RAND`xpx`h|~p`8@0 X~^@?0 |o{k~G`X lwr~v`Pn?Xx x<@`P|9@;`A@`x\g@`` foy=l//D;rT{vR<6 "` m>mu >08<x88@`Lt.#N;;?: x(pV@@0p8< @pp0$@h0Gq@`hX?@@||`` `pp8`p`8 @ ``|p|`p|`os|@ d^g{<@x[w}@4X/`?tg |{n`| GA,w@`pp@`p8`t_A@`xpp@`pp$xE}Dcay<Fcaq|FcX(CCY88 Ccqp<}wj@?@8n@?pxk<pxp8;k^ xLx<x ><px"P;,'M `.HJP@vy16?CofZ=|mw@X@|`|ey@o \1ezpQ| GgSY|>bcyH|V? d??7Hxm_{w;s_/g?_?w}7-w{oWn_ac{`p8`p<<47\l|| R<\>>J`Z/z}e8 " <@@x| X6o;9O]wdw~}|=`rx?066pv`p<p~~w_g{wt_?~w<cc0mq1`wss{BA@xxzj? 8t~s;@`GpC00@` u6;Q~=pOy` ``n@csqa`. `|{@`xVegp>HX@xO,@|ox@pt~?o7[Ir{]`0{[O?@E#r Aap<aa0phOm}n{6 A`0XXok]_?`=|w[{2@|Z}yapxx<./cx~/Eg&7/, @#7T x,@_x}Kk@@pxht^{o?C@`8`0`p} {9>wvfxx@`B@Aa@p-Ms0;[Aq|DUPDELx||UF.INV 7?w[f_n3S}6XL``s` qa`5>Nmp|z>cS1| RAND`px|`xx~p0<8@p8X` hzt[e@/p \w{{/~@p|CsX@x,@X<~?px~|`X X[~~m{1@j3Dw2wZ@Z#_R~<6> "B(~Xt?so~xx < C`h| v?|s^;&{0xxr/x6@@`8<<@`0||}wp|?``|| `pl@`pxp~7|@Gs`q`@P`p`x@xx\;[@_9+@$wy<;H.>O `oak=" " pxEx G0xGxx82:``pp| 678l?5K}3|~sm>7[ ~y`0no@@`Px8>@@pxp tp``px<<~@ p8(~{t @`p< oU`0< @84h`t >Ga@plcy6`X|vY< `X?SO/U7;l.0>?p~c8 p| F@`@xppx@T p|xx@`pxGCp|Ggcqx<Ccqp8Gay8Gcqxp < k{wwy~` I`@@`0L pXx|xhoBhrBp|p2 B`a)Q sp@OJ&B02|}?^ovsyl6]ogo/G`rB\@l@~\yW>)`sqy|4L1xy_cay` ȱ@@p5 I` oz{~?zo_k~?Ow{2?o7[7__@@ax~SAZHOe@@`~O 8@0@p@%x,3BȌeB(0x4|<~` I``_{88 "@b -L L @`Xx@pv@hyM;+}cS|V?crDB L p<?pnp@x6}7_>XW~wn][_}LqBCCaCA@X| [`7`s?]y9H)@`p@@`x@d2HH1HH``0`8xpl> rI lO Ix{@~{_>xp`0``@|o`pa`p>cA`Pn7@8>5@? X8@HOl@h[@`T~`mvW`V}L_x~pvMgQYCcp8, #ap8`P0i|Mx|lwk{o}]x_[@do}vwa0X|tK$=9 Cl [xkP*>=B@@xOo}m@O\ AA`pxl~{?< W Z n q`0`Xj_Zwy=} X |`pPaP@*AAhP$ (re updated each sample size. The graphic and the statistical values may be saved to files as an option of the program. The graphic is saved as a FOTO file and the data as a TEXT file. A plot of the PIC.FRACT data is shown in the figure labled PIC.FRACTthe total number of duplicates, the number of duplicates noted during the last sample, and the total number of runs are stored in memory. The %duplicates, %incremental duplicates and total runs are presented on the screen. The first two of these values a position was previously addressed. The duplications are monitored to indicate the completeness of the graphic generated. In order to ease the preservation of information a sample size is selected. After a sample size number of runs are made position should be unique. Since the Apple /// resolution is somewhat limiting, many duplicate values may be expected due to the rounding of numbers to interger values. Before a position is marked on the screen an inquiry is made to determine if thatone-half the distance to the randomly selected corner. 7. Mark that postion 8. CONTINUE TO REPEAT STEPS 5,6,7..... The result is a fractual. The figure PIC.FRACT is the output of that program. Unless otherwise limited each generatede. 1. Construct a triangle. 2. Randomly select a corner. 3. Starting at a corner travel one-half the distance to the randomly selected corner. 4. Mark that position. 5. Randomly select a corner. 6. From the last marked position travel CHAOS.MEMO.2 -- PROGRAM INFORMATION -- One of the subjects addressed by the NOVA television program was that of CHAOS. The subject was introduced very effectively using the following exampltwjn`(T @phS!@23#hl6x>pPk~00 &p"Bq808GXE88C8@`pp|nv7  |Wg L~u[Vc nw_m`p.o=6@@pX|6 |w_pcfkv^l~?@@`x(<~w?- @`px||f|@ xes<^@y<P`<|m@`8gP .DATA (made with the aid of BUSINESS GRAPHICS). At this point the fractual nature of the graphic, while indicated, is not very persasive. The program addresses this by permitting an enlargement of any portion of the graphic. The region near the center of PIC.FRACT.SEL, indicated by the small rectangle was enlarged with the aid of GRAPHICS MANAGER and is shown in figure PIC.FRACT.ENL. To generate a high resolution graphic of this region the CHAOS program is rerun in the enlargementt mode to generate a high resolution graphic of this region. Now only the values within the selected region of interest (properly magnified) are plotted and the fractual nature of the graphic becomes very evident. The magnification factor is adjusted y permitting an enlargement of any portion of the graphic. When the enlargement mode is selected a region of the overall graphic is designated by entering its upper,left and lower,right corners. The CHAOS program is rerun in the enlargemenues may be saved to files as an option of the program. The graphic is saved as a FOTO file and the data as a TEXT file. At this point the fractual nature of the graphic, while indicated, is not very persasive. The program addresses this bring the last sample, and the total number of runs are stored in memory. The %duplicates, %incremental duplicates and total runs are presented on the screen. The first two of these values are updated each sample size. The graphic and the statistical val to indicate the completeness of the graphic generated. In order to ease the preservation of information a sample size is selected. After a sample size number of runs are made the total number of duplicates, the number of duplicates noted duomewhat limiting, many duplicate values may be expected due to the rounding of numbers to interger values. Before a position is marked on the screen an inquiry is made to determine if that position was previously addressed. The duplications are monitoredone-half the distance to the randomly selected corner. 7. Mark that postion 8. CONTINUE TO REPEAT STEPS 5,6,7..... The result is a fractual. Unless otherwise limited each generated position should be unique. Since the Apple /// resolution is se. 1. Construct a triangle. 2. Randomly select a corner. 3. Starting at a corner travel one-half the distance to the randomly selected corner. 4. Mark that position. 5. Randomly select a corner. 6. From the last marked position travel CHAOS.MEMO.3 -- PROGRAM INFORMATION -- One of the subjects addressed by the NOVA television program was that of CHAOS. The subject was introduced very effectively using the following exampl -press any key to continue- figure PIC.FRACT.MAG. In the enlargement mode four values are placed on the screen; total %duplicates (selected region),incremental %duplicates (selected region), number of runs (selected region) and the total number of runs. mode. Now only the values within the rectangle (properly magnified) are plotted and the fractual nature of the graphic becomes very evident. The magnification factor is adjusted by the program to present the optimum screen graphic. This is shown in by the program to present the optimum screen graphic. In the enlargement mode four values are placed on the screen; total %duplicates (selected region), incremental %duplicates (selected region), number of runs (selected region) and the total number of runs. Five FOTO files are included on the disk. The small rectangle near the center of the full graphic indicates the selected region. PIC.FRACT Full Graphic PIC.FRACT.SEL Full Graphic (selected re#2,FILE$ ž#2990 #2;t$t$960#2 ::=23:=25:TO.CONT$:H$:210NO.FILE$:210$ ADD to Present Shopping List $1320%. Print Out Present Shopping List8inputfile$=FILE$ Bœ210LVPRINT.OUTine4:::::CREATE.FILE$;" " >FILE$,H#1,FILE$R#1SPACE.TEN$;SL.TITLE$:#13\#1SPACE.TEN$;MONTH$;"/";SDATE$;"/";YR$:#1:#1f#1pzFILE.EXIST$Pause=1200:Pause:1320  Read Present Shopping List: œ1040ew.Name$RENAM.3$+" "+New.Name$ œ750FILE$,New.Name$210: Return to MAIN MENU NO.FILE$740# Create New Shopping List File  File Creation Routine810:1320 œ890: File Exists&* Creating/Printing Header Rout DASH$GET.START.5$&0GET.START.6$:GET.START.7$DNGET.START.8$ XX$:210b Rename routine %lNO.FILE$="File Does NOT Exist!!!"v RENAM.1$ Ans$5080: Gosub Yes/NoAnswer$="N"740 RENAM.2$": ";NSWER$="5"1070ANSWER$="6"610ANSWER$="7"1230ANSWER$="8"1300:ۺ210 Control Menu is Ended Check for FILE$ Routine GET.START.1$ DASH$GET.START.2$ DASH$GET.START.3$ DASH$GET.START.4$ " ";SLP$;" ":: N1$+MM1$ N2$+MM2$ N3$+MM3$ N4$+MM4$ N5$+MM5$ "N6$+MM6$ ,N7$+MM7$ 6N8$+MM8$ @ANSWER$J Control Menu RoutingTANSWER$="1"430^ANSWER$="2"770hANSWER$="3"910rANSWER$="4"1050|ANd Shopping List Programn By Jim Suthardx19410: Opening Credits - String Assignments ::WELCOME$ :TITLE$ :PGM$ ::BY$::AUTHOR$:CR.NOTICE$6870: String Assignments Control Menu Layout::SUTHARD.2v"' '*LIST.MAKER 'LK:"LIST.MAKER#$ny key to continue- gion indicated) PIC.FRACT.DATA Plot of data PIC.FRACT.ENL Selected region (original resolution) PIC.FRACT.MAG Selected region (enlargement resolution) -press a$`#1,inputfile$joutputfile$=PRINTER$t#2,Outputfile$ ~ž#11190 #1;t$ #2;t$ 1160#1#2" ";12)#2210 Purge Old Shopping List,:"Deleting the OLD Shopping List FILE" œ1280 FILE$210%::"File Does NOT exist!!!!!": PAUSE=1100:PAUSE:210  Quit ::%( Begin Shopping List Composition2 Program Control Module< Fœ1340 P1400: Category Menu Layout"Z1680: Choose CATEGORY + ITEMdnx Category Menu Layout ::CTG$:: N1$+I12.01$ N2$+I12.02$ N3$+I12.03$ N4$+I12.04$ N5$+I12.05$ N6$+I12.06$ N7$+I12.07$N8$+OTHER$ 4810 4660 $ Misc .47608CTG$=C.13$B::CTG$::LN1$+I13.01$VN2$+I13.02$`N3$+I13.760 CTG$=C.11$ ::CTG$:: N1$+I11.01$* N2$+I11.02$4 N3$+I11.03$> N4$+I11.04$H N5$+I11.05$R N6$+I11.06$\ N7$+I11.07$f N8$+I11.08$p N9$+I11.09$z N10$+OTHER$ 4810 4650 Meat & Seafood 4760 CTG$=C.12$2$+I09.12$b N13$+OTHER$ l 4810 v 4630 Frozen Food 4760 CTG$=C.10$ ::CTG$:: N1$+I10.01$ N2$+I10.02$ N3$+I10.03$ N4$+I10.04$ N5$+I10.05$ N6$+OTHER$ 4810 4640$ Health Products & Beauty Aids"  4810 4620 Fresh Produce 4760 CTG$=C.09$ ::CTG$:: N1$+I09.01$ N2$+I09.02$ N3$+I09.03$ N4$+I09.04$ N5$+I09.05$ N6$+I09.06$& N7$+I09.07$0 N8$+I09.08$: N9$+I09.09$D N10$+I09.10$N N11$+I09.11$X N1G$:: N1$+I07.01$ N2$+I07.02$ N3$+I07.03$" N4$+I07.04$, N5$+I07.05$6 N6$+I07.06$@ N7$+OTHER$ J 4810 T 4610 ^ Drinks h 4760r CTG$=C.08$| ::CTG$:: N1$+I08.01$ N2$+I08.02$ N3$+I08.03$ N4$+OTHER$ 40P Dairy Products Z 4760d CTG$=C.06$n ::CTG$::x N1$+I06.01$ N2$+I06.02$ N3$+I06.03$ N4$+I06.04$ N5$+I06.05$ N6$+I06.06$ N7$+I06.07$ N8$+OTHER$ 4810 4600 Deli Items 4760 CTG$=C.07$ ::CT 4580 Condiments 4760 CTG$=C.05$ ::CTG$:: N1$+I05.01$ N2$+I05.02$ N3$+I05.03$ N4$+I05.04$ N5$+I05.05$ N6$+I05.06$ N7$+I05.07$ N8$+I05.08$ N9$+I05.09$( N10$+I05.10$2 N11$+OTHER$ < 4810 F 459I03.02$N3$+I03.03$N4$+OTHER$  4810  4570 Cleaning Agents $ 4760. CTG$=C.04$8 ::CTG$::B N1$+I04.01$L N2$+I04.02$V N3$+I04.03$` N4$+I04.04$j N5$+I04.05$t N6$+I04.06$~ N7$+I04.07$ N8$+OTHER$ 4810 +I02.01$HN2$+I02.02$RN3$+I02.03$\N4$+I02.04$fN5$+I02.05$pN6$+I02.06$zN7$+I02.07$N8$+I02.08$N9$+I02.09$N10$+OTHER$ 4810 4560 Canned Products 4760CTG$=C.03$::CTG$::N1$+I03.01$N2$+out Bakery Items 4760CTG$=C.01$::CTG$::N1$+I01.01$N2$+I01.02$N3$+I01.03$N4$+I01.04$N5$+I01.05$N6$+I01.06$N7$+OTHER$ 4810 4550 Baking Needs 4760*CTG$=C.02$4::CTG$::>N1$ORY$="11"33200CATEGORY$="12"3480:CATEGORY$="13"3620DCATEGORY$="14"3730NCATEGORY$="15"3850XCATEGORY$="16"3990bCATEGORY$="17"4110lCATEGORY$="18"4220vCATEGORY$="19"4270CATEGORY$="20"4410:ۺ1340 Item Menu LayGORY$="q"210CATEGORY$="1"1940CATEGORY$="2"2070CATEGORY$="3"2230CATEGORY$="4"2330CATEGORY$="5"2470CATEGORY$="6"2640CATEGORY$="7"2780CATEGORY$="8"2910CATEGORY$="9"3010CATEGORY$="10"3200&CATEG4$+C.14$"N15$+C.15$,N16$+C.16$6N17$+C.17$@N18$+C.18$JN19$+C.19$TN20$+C.20$^hCHOOSE.CAT$r|" : ";CATEGORY$ 1370 Choose CATEGORY + ITEM# Category Selector Traffic CopCATEGORY$="Q"210CATE:HEADER$+" ":+CAT.HEAD$+" "+P.QUIT$N1$+C.01$N2$+C.02$N3$+C.03$N4$+C.04$N5$+C.05$N6$+C.06$N7$+C.07$N8$+C.08$N9$+C.09$N10$+C.10$N11$+C.11$N12$+C.12$N13$+C.13$N103$jN4$+I13.04$tN5$+OTHER$ ~4810 4670 Packaged Products 4760CTG$=C.14$::CTG$::N1$+I14.01$N2$+I14.02$N3$+I14.03$N4$+I14.04$N5$+I14.05$N6$+OTHER$ 4810 4680  Paper Products 4760CTG$=C.15$(::CTG$::2N1$+I15.01$<N2$+I15.02$FN3$+I15.03$PN4$+I15.04$ZN5$+I15.05$dN6$+I15.06$nN7$+I15.07$xN8$+OTHER$ 4810 4690 Printed Material 4760CTG$=C.16$::CTG$::ITEM.DESIRED.03$:4860PR1$=I04.04$:4860PR1$=I04.05$:4860PR1$=I04.06$:4860PR1$=I04.07$:48605200: Unlisted Item 4860PR1$=I05.01$:4860PR1$=I05.02$:4860PR1$=I05.03$:4860PR1$=I05.04$:4860PR1$=I05.05$:4860PR1$=I05.0"PR1$=I02.07$:4860,PR1$=I02.08$:48606PR1$=I02.09$:4860@5200: Unlisted Item J4860TPR1$=I03.01$:4860^PR1$=I03.02$:4860hPR1$=I03.03$:4860r5200: Unlisted Item |4860PR1$=I04.01$:4860PR1$=I04.02$:4860PR1$=I0460PR1$=I01.03$:4860PR1$=I01.04$:4860PR1$=I01.05$:4860PR1$=I01.06$:48605200: Unlisted Item 4860PR1$=I02.01$:4860PR1$=I02.02$:4860PR1$=I02.03$:4860PR1$=I02.04$:4860PR1$=I02.05$:4860PR1$=I02.06$:4860N"&Ans$="nO"Ans$="No"Answer$="N"$(Ans$="N"Ans$="n"Answer$="N"2<FP Enter Desired ItemZdITEM.DESIRED$n": ";NEW.ITEM$xPR1$=NEW.ITEM$! Convert String for PrintingPR1$=I01.01$:4860PR1$=I01.02$:48SSIBILITIES5Ans$="YES"Ans$="Yes"Answer$="Y":Answer$="U"(Ans$="yes"Ans$="YeS"Answer$="Y"$Ans$="Y"Ans$="y"Answer$="Y"(Ans$="yES"Ans$="yEs"Answer$="Y"( Ans$="yeS"Ans$="YEs"Answer$="Y"&Ans$="NO"Ans$="no"Answer$="=PR1$+"/"+CTG$+" ("+PR2$+") "+PR3$  Print to Text File Routine$5030: WRITE FILE %1340: Return to Control Modual  Write to Text File Routine#1,FILE$#1SPACE.TEN$;PRINTOUT$#1' YES/NO ANSWER PO::CTG$;" - ";PR1$;" " :NOTE$$:EXPL.NOTE$:.": ";PR2$8:::::COUPON$3B" ";Ans$'L5080: YES/NO ANSWER POSSIBILITIESVAnswer$="Y"4980 `PR$="" j4990tPR3$="COUPON"0~PRINTOUT$750,6760)X6780,6790,6800,6810,6820,6830,6840 ITEM HEADER:HEADER$::ITEM.HEAD$ CHOOSE ITEM STATEMENT::CHOOSE.ITEM$:("Enter Number of Item: ";ITEM.PICKX=ITEM.PICK Additional Info Routine320,6330>X6350,6360,6370,6380,6390$HX6410,6420,6430,6440,6450,6460.RX6480,6490,6500,6510,6520,6530,6540,6550\X6570,6580,6590,6600,6610fX6630,6640,6650,6660,6670p5200: Unlisted Item z4860.X6690,6700,6710,6720,6730,6740,65820,5830,5840,5850,5860,5870 X5890,5900,5910,5920GX5940,5950,5960,5970,5980,5990,6000,6010,6020,6030,6040,6050,6060$ X6080,6090,6100,6110,6120,61308*X6150,6160,6170,6180,6190,6200,6210,6220,6230,6240.4X6260,6270,6280,6290,6300,6310,65320,53308X5350,5360,5370,5380,5390,5400,5410,5420,5430,5440X5460,5470,5480,5490.X5510,5520,5530,5540,5550,5560,5570,5580=X5600,5610,5620,5630,5640,5650,5660,5670,5680,5690,5700.X5720,5730,5740,5750,5760,5770,5780,5790)X5810,4740: Stationary D4760NCTG$=C.20$X::CTG$::bN1$+I20.01$lN2$+I20.02$vN3$+I20.03$N4$+I20.04$N5$+I20.05$N6$+I20.06$N7$+OTHER$ 4810 4750# Item Selected Routing Routine)X5270,5280,5290,5300,5310,ciality Items 4760CTG$=C.18$::CTG$:: 4720  Staples 4760::CTG$::N1$+I19.01$N2$+I19.02$N3$+I19.03$N4$+I19.04$N5$+I19.05$CTG$=C.19$N6$+I19.06$N7$+I19.07$N8$+OTHER$ &4810 0$N1$+I16.01$N2$+I16.02$N3$+I16.03$N4$+I16.04$N5$+OTHER$ 4810 4700  Snacks 4760"CTG$=C.17$,::CTG$::6N1$+I17.01$@N2$+I17.02$JN3$+I17.03$TN4$+I17.04$^N5$+OTHER$ h4810 r4710| Spe6$:4860PR1$=I05.07$:4860&PR1$=I05.08$:48600PR1$=I05.09$:4860:PR1$=I05.10$:4860D5200: Unlisted Item N4860XPR1$=I06.01$:4860bPR1$=I06.02$:4860lPR1$=I06.03$:4860vPR1$=I06.04$:4860PR1$=I06.05$:4860PR1$=I06.06$:4860PR1$=I06.07$:48605200: Unlisted Item 4860PR1$=I07.01$:4860PR1$=I07.02$:4860PR1$=I07.03$:4860PR1$=I07.04$:4860PR1$=I07.05$:4860PR1$=I07.06$:48605200: Unlisted Item 4860PR1$=I08.01$:4860I S T P R O G R A M")*CR.New.SL$="Create New Shopping List"Y4DASH$="-----------------------------------------------------------------------------")>READ.SL$="Read Present Shopping List"*HADD.SL$="ADD to Present Shopping List"/RPRINT.SL$="PriATE$=SHOP.DAY$,2)WDAY$=YR$+MONTH$+SDATE$-PRINT.NOTICE$="Printing Shopping List..."-7370: String Assignments SL Composition  SHOPPING LIST MENU PROGRAM  CONTROL MENU% Control Menu String Assignments: SLP$="S H O P P I N G L EATE.FILE$="OPENING LIST FILE""NO.FILE$="File DOES NOT Exist"%FILE.EXIST$="File Already Exists"+PRINT.OUT$="Printing Out File: "+FILE$*SL.TITLE$="S h o p p i n g L i s t"SHOP.DAY$=YR$=SHOP.DAY$,2)MONTH$=SHOP.DAY$,4,2)SDETURN to Main Menu"2NRENAM.1$="Would you like to RENAME "+FILE$+"?",XRENAM.2$="Enter the New Name for "+FILE$+bRENAM.3$="Renaming File "+FILE$+" --> "lPRINTER$=".Printer"vSPACE.TEN$=" ",TO.CONT$="[ PRESS Any Key to Continue ]"$CRist, READ the file"2GET.START.4$="THEN-- After Reading the File--"/&GET.START.5$="If you wish to keep the file"'0GET.START.6$="You may add to it OR"A:GET.START.7$="You may change the FILE NAME to keep it as is."7DGET.START.8$="Press Any Key to Rg Assignments  General String AssignmentsFILE$="LIST.TO.SHOP" GET.START$="Getting Started"@GET.START.1$="Does this Directory include the file: "+FILE$0GET.START.2$="If NO, then CREATE a new LIST"9GET.START.3$="If "+FILE$+" Does Ex4860^PR1$=I19.07$:4860h5200: Unlisted Item r4860|PR1$=I20.01$:4860PR1$=I20.02$:4860PR1$=I20.03$:4860PR1$=I20.04$:4860PR1$=I20.05$:4860PR1$=I20.06$:48605200: Unlisted Item 4860' end of Printer Strin4860PR1$=I17.01$:4860PR1$=I17.02$:4860PR1$=I17.03$:4860PR1$=I17.04$:48605200: Unlisted Item 4860"PR1$=I19.01$:4860,PR1$=I19.02$:48606PR1$=I19.03$:4860@PR1$=I19.04$:4860JPR1$=I19.05$:4860TPR1$=I19.06$:=I15.03$:4860nPR1$=I15.04$:4860xPR1$=I15.05$:4860PR1$=I15.06$:4860PR1$=I15.07$:48605200: Unlisted Item 4860PR1$=I16.01$:4860PR1$=I16.02$:4860PR1$=I16.03$:4860PR1$=I16.04$:48605200: Unlisted Item 860PR1$=I13.04$:48605200: Unlisted Item 4860 PR1$=I14.01$:4860PR1$=I14.02$:4860PR1$=I14.03$:4860(PR1$=I14.04$:48602PR1$=I14.05$:4860<5200: Unlisted Item F4860PPR1$=I15.01$:4860ZPR1$=I15.02$:4860dPR1$60tPR1$=I12.01$:4860~PR1$=I12.02$:4860PR1$=I12.03$:4860PR1$=I12.04$:4860PR1$=I12.05$:4860PR1$=I12.06$:4860PR1$=I12.07$:48605200: Unlisted Item 4860PR1$=I13.01$:4860PR1$=I13.02$:4860PR1$=I13.03$:4em 4860PR1$=I11.01$:4860PR1$=I11.02$:4860PR1$=I11.03$:4860$PR1$=I11.04$:4860.PR1$=I11.05$:48608PR1$=I11.06$:4860BPR1$=I11.07$:4860LPR1$=I11.08$:4860VPR1$=I11.09$:4860"`5200: Unlisted Item j48PR1$=I09.09$:4860PR1$=I09.10$:4860PR1$=I09.11$:4860PR1$=I09.12$:48605200: Unlisted Item 4860PR1$=I10.01$:4860PR1$=I10.02$:4860PR1$=I10.03$:4860PR1$=I10.04$:4860PR1$=I10.05$:48605200: Unlisted It PR1$=I08.02$:4860PR1$=I08.03$:4860 5200: Unlisted Item *48604PR1$=I09.01$:4860>PR1$=I09.02$:4860HPR1$=I09.03$:4860RPR1$=I09.04$:4860\PR1$=I09.05$:4860fPR1$=I09.06$:4860pPR1$=I09.07$:4860zPR1$=I09.08$:4860nt Out Present Shopping List"%\RENM$="ReName Shopping List File"'fPURGE.SL$="Purge Old Shopping List"pQUIT.OPT$="Quit"zMM1$=GET.START$MM2$=CR.New.SL$MM3$=READ.SL$MM4$=ADD.SL$MM5$=PRINT.SL$MM6$=RENM$MM7$=PURGE.SL$MM8$=QUIT.OPT$4 Shopping List Composition - String Assignments Category AssignmentsC.01$="Bakery"C.02$="Baking Supplies"C.03$="Canned Products"C.04$="Cleaning Agents"C.05$="Condiments"C.06$="Dairy Products"C.07$="Deli Items"te"# Stationary#I20.01$="Bond Stationary"(#I20.02$="Greeting Card"2#I20.03$="Note Pad"<#I20.04$="Pen"F#I20.05$="Pencil"P#I20.06$="Writing Paper"Z# Menu Numbersd#N1$="1.) "n#N2$="2.) "x#N3$="3.) "#N4$="4.) "#N5$="5.) "I17.02$="Crackers""I17.03$="Nuts""I17.04$="Popcorn"" Speciality Items " Staples"I19.01$="Gravy Mixes""I19.02$="Noodles""I19.03$="Pasta""I19.04$="Rice""I19.05$="Spaghetti Sauce"#I19.06$="Tomato Sauce" #I19.07$="Tomato Pas"Foil"."I15.04$="Napkins"8"I15.05$="Paper Towels"B"I15.06$="Plastic Wrap"L"I15.07$="Plates and Cups"V" Printed Materials`"I16.01$="Books"j"I16.02$="Magazines"t"I16.03$="Newspapers"~"I16.04$="Periodicals" " Snacks"I17.01$="Cookies"!I13.04$="Shoe Polish"! Packaged Products"!I14.01$="Candy"!I14.02$="Cereal"!I14.03$="Instant Breakfast"!I14.04$="Nuts"!I14.05$="Toaster Pastries"" Paper Products"I15.01$="Bathroom Tissue""I15.02$="Facial Tissues"$"I15.03$=>!I11.09$="Vitamins"H! Meat & SeafoodR!I12.01$="Beef"\!I12.02$="Chicken"f!I12.03$="Fish"p!I12.04$="Lamb"z!I12.05$="Pork"!I12.06$="Other Seafood"!I12.07$="Turkey" ! Misc!I13.01$="Batteries"!I13.02$="Film"!I13.03$="Light Bulbs"4$="Pizza" I10.05$="Vegetables"# Health Products & Beauty Aids I11.01$="Cold Remedies" I11.02$="Cosmetics"!I11.03$="Dental Floss" !I11.04$="Deodorant"!I11.05$="Hair Care" !I11.06$="Shampoo"*!I11.07$="Soap"4!I11.08$="Toothpaste".05$="Celery"b I09.06$="Cucumbers"l I09.07$="Greens"v I09.08$="Lettuce" I09.09$="Mushrooms" I09.10$="Onions" I09.11$="Oranges" I09.12$="Potatoes" Frozen Food I10.01$="Deserts" I10.02$="Entrees" I10.03$="Orange Juice I10.0e"I07.05$="Salads"I07.06$="Sausage"  DrinksI08.01$="Canned/Dry Milk" I08.01$="Coffee" I08.02$="Soft Drinks" I08.03$="Tea"& Fresh Produce0 I09.01$="Apples": I09.02$="Bananas"D I09.03$="Broccoli"N I09.04$="Cabbage"X I096.02$="Cheese"rI06.03$="Eggs"|I06.04$="Half & Half"I06.05$="MilkI06.06$="Sour Cream"I06.07$="Yogurt" Deli ItemsI07.01$="Bacon"I07.02$="Cheeses"I07.03$="Luncheon Meats"I07.04$="Pickles"#I07.04$="Prepared Orange Juics"I05.03$="Jams & Jellies"I05.04$="Mayonnaise"I05.05$="Mustard""I05.06$="Olives",I05.07$="Peanut Butter"6I05.08$="Pickles"@I05.09$="Soy Sauce""JI05.10$="Worcestershire Sauce"T Dairy Products^I06.01$="Butter/Margarine"hI0="Vegetables Cleaning AgentsI04.01$="Bleach"I04.02$="Cleanser"I04.03$="Detergent"I04.04$="Fabric Softner"I04.05$="Soap"!I04.06$="Vacuum Cleaner Bags"I04.07$="Wax" CondimentsI05.01$="Catsup"I05.02$="Dietetic Food"Cake Mixes"I02.02$="Desserts"(I02.03$="Flour"2I02.04$="Oil"<I02.05$="Pancake Syrup"FI02.06$="Salt"PI02.07$="Shortening"ZI02.08$="Spices"dI02.09$="Sugar"n Canned ProductsxI03.01$="Fruit Juices"I03.02$="Fruits"I03.03$ks"C.18$="Speciality Items"C.19$="Staples"C.20$="Stationary" Item Assignment  BakeryI01.01$="Bread"I01.02$="Buns"I01.03$="Cake"I01.04$="Donuts"I01.05$="Pie"I01.06$="Rolls"  Baking NeedsI02.01$=$C.08$="Drinks".C.09$="Fresh Produce"8C.10$="Frozen Food")BC.11$="Health Products & Beauty Aids"LC.12$="Meat & Seafood"VC.13$="Miscellaneous"`C.14$="Packaged Products"jC.15$="Paper Products"tC.16$="Printed Materials"~C.17$="Snac "#N6$="6.) "#N7$="7.) "#N8$="8.) "#N9$="9.) "#N10$="10.) "#N11$="11.) "#N12$="12.) "#N13$="13.) "#N14$="14.) "#N15$="15.) "#N16$="16.) "$N17$="17.) "$N18$="18.) "$N19$="19.) ""$N20$="20.) ",$6$ Generic Phrases E@$CHOOSE.CAT$="Please Choose One of the Following Categories Above"AJ$CHOOSE.ITEM$="Please Choose One of the Following Items Above""T$P.QUIT$="Press Q or q to QUIT"4^$NOTE$="Please Enter Any Note Regarding the Item"Gh$EXPL.NO : Jim Suthard's second offering will let let the user design a shopping list! You can create new lists, add to a list and delete old lists. list and delete old lists. Very easy to use! SUTHARD.2 : Jim Suthard's second offering will let let the user design a shopping list! You can create new lists, add to a many-faceted timer. SIDE TWO: SALERNO : Jim Salerno's hard work has produced "CHAOS", a program that will design a fractual for you. of 30 sequential lines from 30 fields. (TAU) SUTHARD.1 : Jim Suthard offers a "Time Piece" program that turns the Apple /// into a them. CROM : Russell Crom provides BASIC/PASCAL programs to process ASCII text from Data Bases which contain a seriesin adds to the vast material he has contributed about the Apple ///. These files deal with hard disks and using various programs with WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: CONTRIBUTIONS DISK #2 DISK ID : 3MSC-03 BOOTABLE? Side One Only Here's wha you'll find on this, our second, Contributions Disk: SIDE ONE: BLOOM : Dr. Bloom once agaNOTICE$="(c) Copyright 1988. James R. Suthard. ALL RIGHTS RESERVED"% List Program"%$CAT.HEAD$="Choose Item Category:")$ITEM.HEAD$="Choose Item to Purchase:"$*$ Opening Credits - String Assignments$WELCOME$="Welcome to"$TITLE$="THE SHOPPING LIST"$PGM$="PROGRAM" $BY$="By"$AUTHOR$="Jim Suthard"L$CR.TE$=" (Such AS Brand Name, Size, Amount, Color, Type, Etc.)"1r$COUPON$="Do You Have A Coupon for this Item?"!|$OTHER$="Any Other Not Listed"0$ITEM.ADD$="Please Enter the Additional Item"-$ITEM.DESIRED$="Please Enter Desired Item"#$HEADER$="Shopping Very easy to use! Type Blocks Name BASprg 39 LIST.MAKER and delete old lists. Very easy to use! Type Blocks Name BASprg 39 LIST.MAKER BASprg