DWB 4 BARGRAPH P 244 GOODBAR P 3269 UH.BASE P 357 ULTRA HIRES P 9218 3 1,1:5: SET UP 10K BUFFER IN BANK 0 FOR MLp47,0:48,68:: SET UP 16K BUFFER IN BANK 1 FOR @STASH"ULTRA HIRES",B0,P7168: LOAD MACHINE LANGUAGE(8448: ACTIVATE C128 ULTRA HIRES2 1,"@GRAPHIC,"<"UH.BASE"@ @ @WALRUS@@TEXT)@ 3D BAR DEMOD@(%: ENABLE 2 MH MODE@2"3-D ULTRA HIRES BAR CHART UTILITY BY W.BUSH"@<""AF"HOW MANY SETS OF DATA (2-12)";MOAP"INPUT VALUES, (RANGE = 1 TO 100) HIT RETURN WHEN FINISHED !"qAZ"FIRST VALUE";A: A0 330Ad"WHAT DESCRIPTION FOR THE FIRST VALUE";M$An"SECOND VALUE";B: B0 330Ax"WHAT DESCRIPTION FOR THE SECOND VALUE";N$B"THIRD VALUE";C: C0 330EB"WHAT DESCRIPTION FOR THE THIRD VALUE";O$gB"FOURTH VALUE";D: D0 330B"WHAT DESCRIPTION FOR THE FOURTHVALUE";P$B"FIFTH VALUE";E: E0 330B"WHAT DESCRIPTION FOR THE FIFTH VALUE";Q$ C"SIXTH VALUE";F: F0 330:C"WHAT DESCRIPTION FOR THE SIXTH VALUE";R$]C"SEVENTH VALUE";G: G0 330C"WHAT DESCRIPTION FOR THE SEVENTH VALUE";S$C"EIGHTH VALUE";H: H0 330C"WHAT DESCRIPTION FOR THE EIGHTH VALUE";T$D"NINTH VALUE";I: I0 3303D"WHAT DESCRIPTION FOR THE NINTH VALUE";U$TD"TENTH VALUE";J: J0 330D"WHAT DESCRIPTION FOR THE TENTH VALUE";V$D""ELEVENTH VALUE";K: K0 330D,"WHAT DESCRIPTION FOR THE ELEVENTH VALUE";W$D6"TWELFTH VALUE";L: L0 3300E@"WHAT DESCRIPTION FOR THE TWELFTH VALUE";X$]EJ"WHAT IS THE TITLE FOR YOUR CHART";B$ET"SUBTITLE FOR THE X-AXIS ('000 OMITTED, IN THOUSANDS, ETC.)";Y$E^"WOULD YOU LIKE TO PRINT THIS CHART";A$Eh A$"N" 380Fr"WHAT PRINT SIZE WOULD YOU LIKE (1-4,VERTICLE)";R1F|N(29(12.5M))JF@,53248,0,0,1,1,""[F@,0,14:@,0uF@,53248,35,30,1,1,B$F@,53248,260,166,1,1,Y$F@,53248,0,136,1,1,"10"F@,53248,0,126,1,1,"20"F@,53248,0,116,1,1,"30"G@,53248,0,106,1,1,"40"G@,53248,0,96,1,1,"50"7G@,53248,0,86,1,1,"60"RG@,53248,0,76,1,1,"70"mG@,53248,0,66,1,1,"80"G@,53248,0,56,1,1,"90"G@,53248,0,46,1,1,"100"G@,53248,25,136,1,1,"-"G@,53248,25,126,1,1,"-"G&@,53248,25,116,1,1,"-"H0@,53248,25,106,1,1,"-"/H:@,53248,25,96,1,1,"-"JHD@,53248,25,86,1,1,"-"eHN@,53248,25,76,1,1,"-"HX@,53248,25,66,1,1,"-"Hb@,53248,25,56,1,1,"-"Hl@,53248,25,46,1,1,"-"Hv@,25,38,639,150,1HX37I@BAR,X,150,N,10,A,1: 770: X600 9402I@BAR,X,150,N,10,B,1: 780: X600 940`I@BAR,X,150,N,10,C,1: 790: X600 940I@BAR,X,150,N,10,D,1: 800: X600 940I@BAR,X,150,N,10,E,1: 810: X600 940I@BAR,X,150,N,10,F,1: 820: X600 940J@BAR,X,150,N,10,G,1: 830: X600 940FJ@BAR,X,150,N,10,H,1: 840: X600 940tJ@BAR,X,150,N,10,I,1: 850: X600 940J@BAR,X,150,N,10,J,1: 860: X600 940J@BAR,X,150,N,10,K,1: 870: X600 940J@BAR,X,150,N,10,L,1: 880: X600 940KC$M$: 890K C$N$: 890.KC$O$: 890>K C$P$: 890NK*C$Q$: 890^K4C$R$: 890nK>C$S$: 890~KHC$T$: 890KRC$U$: 890K\C$V$: 890KfC$W$: 890KpC$X$: 890KzZ153KOX2K@,53248,O,Z,1,1,C$KX(X(N1.655))LL A$"N" 960,L@H,R,4: 9706L 15iL@TEXT:"REPEAT CHART";D$:"PRINT THIS TIME";A$~L A$"Y" 360L D$"Y" 380L"ANOTHER CHART";E$L E$"N" L@@ BASIC PROGRAM SETUP6@%: ENABLE 2 MH MODEi@47,0:48,68:: SET UP 16K BUFFER FOR @STASH@(@,0:@,0,2: CLR AND GOTO ULTRA HIRES SCREEN, SET COLORS BG,FG@2 1010: SET UP SYNTAX ERROR TRAP TO RETURN TO TEXT MODE AND LIST ERRORA< PROGRAM BEGINS HEREAF:AP:RA GOTO TEXT MODE, PRINT STATUS AND END PROGRAMaA"GOODBAR"N                                                                                       ?1M1'!`L/!1  1hhL<1)l1 a!L!&RA TL% }!L +T ݏ!кL"TXE ЪL= ݬ!НL2LLORC !ЈL/SURLA ! LC!!!!!!L22,-Xj Lc!6"9BLQ!FLm!HL!SL!TL!WL!LC!ޓ߽N"M"W"L"L#'%"+"..2?Pڛ``  )1 11)֭ )֍֌`  "1) z"֭) @֍֭)ύ ' 0`  1) 01 #@L.#1 0֭)Hh֭֩1L0֭ ֍`  1 2)111 0)H%181111118111111111111111,11 $11 $11,11 $11 $11i111111111111i11 $11 $180n1n111711m111m1108111111 $11121 $ 01 $1,10I-1L$ 1 011111`L0%$)%$L8Ii` $iP` %8P` $1 .1` $N1 n1`  %%$$%$$$$%$$$$$$ 2`@   1 2111111111111111111111111 K#11111111 K#11111111 K#11111111 K#`  1 211111111 K#`  1111111 1J1 9% ǰ861 2211112221189%281ǐ`1m11221m1222 ӭ21m12222 ' O'12119%21ǐթ22LO'111111112121 '1121212121 '21212Ȑ1212111 '2121111111 '221121111111 K#22` +2,2 22А +2 22 2 2 !2LC! \y *"2$%1)1"2`,2 t1 )!2"#21"2 ,2 t1 )$2 *!23&2#2 j* * 12$2 j* *)1212LN)$2 j* *1292!2&21=12/2/2 >92>A2>I2>Q2>Y2>a2>i2>q2>y2>2>2>2>2>2>2>2&2ƈЩ&2!2'2'2*9212 2%212M(2-2)2 * 0M-2 * 0iP-2%2Ů*28項 **2 02i22 *'2&2&2!2L9)L9( @`ɀ8@`ɠ8`*2`*2`)2`)2`(2`(2` 2i27 822'82222i22 *` 1m2m2`222 02O 2*m22Ɛ222L*` (08@HPX`hpxh{ nH(`H.2 0.2h`02+2 t02`  2 22Ȍ2)2 +LP+0 + + t + +i槥2`,`,`  11i1i 01 21 2 1)111 0 2 2111 022 2 2 0֭ ֍֢ 22 0 2֍ 0 2iP 2 22iP22 2Ы` 22 i203(i2 11i1i 01 2 2LC!1 22m 2222m20׭)111 02222 2 _- 2 _-i22 0 0 _- 2 2 22iP22 28` w`  i20LC!i2 1111 02222 . 2 . 2 :%)i22 0 . 0 2 2 22iP22 2` t`  0211 / ;) 002L. 0 111@L{/  02 / ;) 002L// q/ 011 011 01111@L{/11111(11 /1 1 1 11L.111111 1 1 /L /11L.1 q/11" q/11 0L4/1ש1 q/1 q/ 01L4/ `hh L0211 1 1102`  6 h 1` <,2+22Ѝ2/02/02/02/0 2/0!2/0"2/0/0-0.0 ,(-0.0и`P W0F]0ve0@m0}0WALRUSSOFTWAREPRESENTSC128 ULTRA HIRES(C)1985 WALRUSOFT ֍֌L0֭L0HhL0,` 0 & & & &11 & &m11em1m1`1Jn1Jn1Jn1112`11111) 1111-1*11111.1J1m111m11N11Ǯ11` 11 11 11 11` @@ `  &7'7 %7 (7 Q3B 27 Q3< 37 Q3> 47 57 Q34 67 77 87 97L]3272727( F3 F3L]32727ʈ`= t,`):7;7<7=7 l6`%7>7?7@7 5 5&7'7&7'7 l6&7'7&7#7$7&7 #6'7 #6%7[%7 l6K#7K&7 5'7 5%7 5?7%7:7 U6-7 U6 5-7 5:7?7@7%7?7#7#7%7%7ǰ_%7 l6O$7O>7%7:7@7>7 U6-7 U6 5-7 5:7%7>7&7 5'7 5%7 5$7$7%7 6&7'7&7'7&7 l6L3&7'7:7&7 5'7 5%7 5:7&7 #6'7 #6%7 #6;7  6 5%7>7 5'7 5&7L3;7 6 5%7` 5/7 5.7 5-7 5,7 O5L&5%7)07,7)17-7'7,7&707271797 61717,7-7,7-70/7 ­,7.7`L7 5ƯƮ`毩 5`L7 5`Ɵƞ 5`M7L7 wM7`M7 tM7` <6,7 <6-7 <6.7 <6/7 <6%7LO5;7=7A7=7=7 =7`;7<7A7<7<7 <7`;7=7=7 =7=7A7` 6"7&7)7-"7(78`(7`(7 (7)7,)7 6"7&7)7)7 "7I-"7"7+7*7 0"7L0%7P 1'7"7H&7N"7jN"7jN"7j"7"7hm"7*7i+7+7*7 0L0@   2 Q;R; S;T; U;V; W;X;K;L;O;P;J;N;hM;I; 7R K;L; 7@ M;N; 7. O;P; 7 I;J; = t,`K;L; Y;: f: fM;N; Y;: fI;J; Y;: fO;P; Y;: f: c ?; f: c B; f:U;V;  ; fW;X; ; fQ;R; ; fS;T; ; f: ]: c  l: c ' gI:fI:::: c ? ; ] !!; f: c B; ] !&; f&; c; ] !0; f!; c; ] !5; f0; c5; ] +; f!; c; ] !0; f&; c; ] !0; ] &; f+;!;; c!; ] : f; ]&; c : f:J::11::11: c t;1:1:: c t;1:1: K#8/:: c t;::::: c t;:::::::::: ]: c : fL8K;FL;AhMM;:MN;3::11::11::11::11 K#`Iڢ  lh  ':; ] !` gf`  02 ` 02`  L!LP7DLR8>7><>&> =) =)>*>P(>)>H*>H =)>H*>H = =h*>h*>)>(>ެ6>@>P.>/>J .>./>hhm.>)>m/>*>&>М  `,>->->,> 0 0,>->`  `= ` 1L.>j `6>@>'>*>)> =HiPȪ'>7>h.>0`2d