DWB 47 UHBOOT P 224 ULTRA HIRES P 9217 ILL.BOOT P 259 ILLUST V1.23 P 23125 ILL.DOCS3.READ P 450 ILL.DOCS.# S 9 IIDOCS.13.SCR P 1002 IIDOCS.13.CLR P 1002 IIDOCS.1.SCR P 1002 IIDOCS.1.CLR P 1002 IIDOCS.2.SCR P 1002 IIDOCS.2.CLR P 1002 IIDOCS.3.SCR P 1002 IIDOCS.3.CLR P 1002 IIDOCS.4.SCR P 1002 IIDOCS.4.CLR P 1002 IIDOCS.5.SCR P 1002 IIDOCS.5.CLR P 1002 IIDOCS.6.SCR P 1002 IIDOCS.6.CLR P 1002 IIDOCS.7.SCR P 1002 IIDOCS.7.CLR P 1002 IIDOCS.8.SCR P 1002 IIDOCS.8.CLR P 1002 IIDOCS.9.SCR P 1002 IIDOCS.9.CLR P 1002 IIDOCS.10.SCR P 1002 IIDOCS.10.CLR P 1002 IIDOCS.11.SCR P 1002 IIDOCS.11.CLR P 1002 IIDOCS.12.SCR P 1002 IIDOCS.12.CLR P 1002 IIDOCS.14.SCR P 1002 IIDOCS.14.CLR P 1002 IIDOCS.15.SCR P 1002 IIDOCS.15.CLR P 1002 IIDOCS.16.SCR P 1002 IIDOCS.16.CLR P 1002 PTSET P 2049 ROMAN FONT P 730 COMPUTER FONT P 514 SPACEAGE I P 2062 SPACEAGE II P 2062 R/W 80 P 45 R/W 80 VECTORS P 4 ILL.BOOTMAKER V2 P 1964 ILL.COLORS S 9 @3@ 1,1:5: SET UP 10K BUFFER IN BANK 0 FOR MLp@47,0:48,68:: SET UP 16K BUFFER IN BANK 1 FOR @STASH@"ULTRA HIRES",B0,P7168: LOAD MACHINE LANGUAGE@(8448: ACTIVATE C128 ULTRA HIRES@-"ILL.BOOT"                                                                                       ?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`2d7 %:@WALRUS:@,1,9:"ROMAN FONT",B0,P63000:@,3,5r "PTSET",B0,P59000:@,6,4:"COMPUTER FONT",B0,P61000@,1,2:"SPACEAGE I",B0,P45000:@,15,4"SPACEAGE II",B0,P47000@,4,7:"R/W 80":@,9,5:"R/W 80 VECTORS":@,2,6:"ILLUST V*"@p@ ILLUSTRATED IMAGES V1.23 BY LEE SEMEL BUTTON SOUND ALTERNATE FILL PATTERS BUILT-IN NEW STANDARD FONT@%: ENABLE 2 MEGAHERTZ MODE@47,0:48,224:: SET UP 57344 BYTE BUFFER@( 780: SET UP ERROR TRAPPING ROUTINEGA2@DRWMOD,0: IF A SYNTAX ERROR TRIGGERS ON THIS LINE, ULTRA HI-RES V2 IS NOT IN PLACE.aA< PROGRAM BEGINS HEREgAF:mAP:AZ10:V10: SET NUMBER AFTER 'VOL' AND 'V=' TO ZERO FOR NO SOUND RECOMMENDED VOLUME IS 10 Bd READ COLORS FOR SAVED FILE7Bn1:1,8,8,"ILL.COLORS,S,R":1,C1:1,C2:1BxC10C20C12:C27: DEFAULT IF FILE IS NOT FOUND TO WHITE ON BLUEBV$"1.23": --- ILLUSTRATED IMAGES VERSION NUMBERBDA$"OVEMBER 22, 1986": --- DATE THIS VERSION WAS COMPLETEDC@,C1,C2:@,0:15:F163000:F261000:F359000:F445012:F547012:MN6:MX255:FP$"@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ ":FF$"@":B1:SA5:XF0:PN1DDC$(60),H$(20):I120:H$(I)::HH$(0)" LLUSTRATED MAGES ICTURE ROCESSOR RITTEN BY EE EMEL EPTEMBER 1986 "DF$(1)""F$(1)"ROMA ":F$(2)"TECH ":F$(3)"STANDARD ":F$(4)"SPACEAGE I ":F$(5)"SPACEAGE II "D@,F1,30,0,5,4,"LLUSTRATED MAGES"DI2:I70:II1.5:@,0,I100,639,I100,1:(EI130:X(639(0))1:Y(101(0))1:@T,X,Y,1::440ECM$" RITTEN BY EE EMEL LUG YOUR OALAAD(TM) INTO ORT NE RESS A UTTON":380E240:@,0:470:@,16384,0,0,640,200:@,F2,10,170,1,1,"PEN ":920E230E ------- CURSOR ROUTINE --------- F@DRWMOD,1@FP1(1):P2(2):B1(P1256)256:B2(P2256)256UFP1MNP2MN360sFB10P1P1256:1,6000,2F"B20P2P2256:1,4000,2F,B10B20F6 FACTOR VALUES FOR SCREENF@FX640(MXMN)0:FY200(MXMN)0:FX640FX640 GJFY200FY2006GTX((FXP1)30):Y((FYP2)10):X0X0CG^Y0Y0GhI12:@T,X,Y,1:@T,X1,Y,1:@T,X2,Y,1:@T,X,Y1,1:@T,X,Y2,1:@T,X1,Y1,1:@T,X2,Y2,1:@T,X3,Y3,1:Gr260G| ------- MAKE LOWER COMMAND BOXG@,F1,3,189,1,1,""CM$H@,0,188,639,199,1H7H@,32768,0,0,640,200:GH@!,0,0,0:_H@,0,0,0,640,200:H -------- DRAW COMMAND SCREENH@DRWMOD,0:@,0HCM$" LLUSTRATED MAGES ICTURE ROCESSOR RITTEN BY EE EMEL EPTEMBER 1986":380)IX10:I031062:X1X11:II0:I124(I124)II10zI680:@,I,II,I50,II50,1:@,I,II53,I50,II103,1:@,I,II106,I50,II156,1II@,F31024512XF,375,10,1,1,FP$I@,F31024512XF,375,18,1,1,FP$I@,365,0,639,40,1JX2375:A(FP$,FF$)1:X2X2(A8):@,F3,X2,28,1,1,"^"J&@,365,48,501,88,1:@,36516,488,50116,888,1:@,365,48,36516,488,1:@,501,88,50116,888,1:@,501,48,50116,488,1K0@,365,88,36516,888,1:X3(A)8590001024512XF: @BOX,365+36,48+16,501-36,88-16,1 REMOVE REM FOR LESS OF PAYTTERN TO SHOW{K50:(X3)0(X31)0(X32)0(X33)0(X34)0(X35)0(X36)0(X37)15:590K:0:@,36517,489,1,(X3),(X31),(X32),(X33),(X34),(X35),(X36),(X37):15PLD INSERT A REM STATEMENT BEFORE BANK0 IN THE PREVIOUS LINE SO THE FILL PATTERN DOES NOT SHOW IN THE FILL PATTERN BOXzLN@,506,48,639,67,1:@,506,69,639,88,1LX@,F1,518,482,2,2,"VIEW":@,F1,518,692,2,2,"PATTERN"LbDS0@,F3,0,179,1,1,DS$Ll@,F1,380,96,1,1,"PLACE AN IMAGE"{Mv@,365,95,639,104,1:@,F1,380,107,1,1,"GET AN IMAGE":@,365,106,639,115,1:@,F1,380,118,1,1,"TEXT MODE":@,365,117,639,126,1M@,F1,380,129,1,1,"LOAD FONT":@,365,128,639,1298,1N@,F1,600,179,1,1,(V$):@,F1,380,140,1,1,"ORE...":@,365,139,639,1408,1N@,0,169,50,178,1N,N@DRWMOD,1NX11@,F1,I5,II2,1,1,"DRAW":@,F1,I5,II532,1,1,"LINE":@,F1,I5,II1062,1,1,"LINES":NX12@,F1,I2,II2,1,1,"FILL":@,F1,I2,II532,1,1,"FRAME":@,F1,I2,II1062,1,1,"BOX":QOX13@,F1,I5,II2,1,1,"DOT":@,F1,I5,II532,1,1,"CIRCLE":@,F1,I5,II1062,1,1,"DISC":OX14@,F1,I6,II2,1,1,"LOAD":@,F1,I6,II532,1,1,"SAVE":@,F1,I6,II1062,1,1,"CLEAR":PX15@,F1,I8,II2,1,1,"RAYS":@,F1,I8,II532,1,1,"UNDO":@,F1,I8,II1062,1,1,"COPY":vPX16@,F1,I2,II2,1,1,"PRINT":@,F1,I2,II532,1,1,"INFO":@,F1,I2,II1062,1,1,"EXIT":P@DRWMOD,0PP760P GOTO TEXT MODE, PRINT STATUS AND END PROGRAMQ 6,7:ER11EL52"OU MUST HAVE LTRA I-ES V2 IN PLACE TO USE THIS PROGRAM.":cQ@TEXT:ER30:@FT,1,63000:"ROGRAM XITED IN INE"EL".":}Q ER415:@,2,6:900Q*@FT,1,63000:"TTENTION!":"["(ER)"] ERROR IN LINE"ELR4"LEASE NOTIFY THE AUTHOR!":"END MAIL IN THE -INK OST FFICE TO EE 8 OR IXASTER."_R>"LEASE STATE THE FOLLOWING:":"LLUSTRATED MAGES V"V$"."mRH"INE"EL~RR"RROR #"ERR\"RROR ["(ER)"]"Rf"OUR -INK CREEN AME" Sp"LTRA I-ES ERSION YOU HAVE. (1.1 IS THE ONLY ONE THAT WORKS)":"HANK YOU."SzB$:"":>S@DRWMOD,0:@!,16384,0,0:M10]SDS0@,F3,0,179,1,1,DS$S4510: RESET SCREEN IF MENU 1 OR 2 IS ON OR IF ALTERNATE FILL PATTERNS SELECTED TPN1@,F2,10,170,1,1,"PEN ":@,F2,10,170,1,1,"ERASE"T2400T ---- DECODE COMMANDT@,F1,0,179,1,1," "TC10:C20:I031062:II0:I124(I124)II10TXIXI50YIIYII50C11:C2I62UXIXI50YII53YII5053C12:C2I62QUXIXI50YII5353YII505353C13:C2I62gU:C10C201200}UB204090:4060U@,16384,0,0,640,200UC11C202650UC12C252310UC11C222530UC11C242570U$C13C202610V.C13C232820#V8C12C2028607VBC11C212910KVLC13C213010_VVC12C212960sV`C13C223090VjC12C223170VtC11C253230V~C12C24:@!,32768,0,0:420:440:900VC13C253320VC11C233370WC12C233420WC13C2434408WX518X639Y69Y881390XWX518X639Y48Y671470wWX0X50Y169Y1786100WM111300WM121360WX365X639Y92Y1011510WX365X639Y106Y1151530WX365X639Y117Y1261590XX365X639Y128Y12982180BXX365X639Y139Y14084450KX 920lXX365X639Y92Y1014330XX365X639Y106Y1154910X(X365X639Y117Y1264620X2X365X639Y128Y12984560X<X365X639Y139Y14084551YF920"YPX365X639Y92Y1016000DYZX365X639Y106Y1156080fYdX365X639Y117Y1264620YeX365X639Y128Y12984560YfX365X639Y139Y14084510Yi920Yn@,F1,518,692,2,2," ":@,F1,518,692,2,2,"CHOOSE":22505Zx240:X518X639Y69Y88FF$(FP$,B,1):2270:1440OZB10BB1:B1B33iZB20BB1:B33B1Z@,F3,X2,28,1,1," ":X2375(B8)8:@,F3,X2,28,1,1,"^":1400[@,0: FORI=365+17TO501-17:FORT=48+7TO88-7:@DOT,I,T,0:NEXT:NEXT:X3=(A)*8+59000+1024+512g[470:0:@,36517,489,1,(X3),(X31),(X32),(X33),(X34),(X35),(X36),(X37):15p[920~[@!,0,0,0[240[B20440:900[1480[430:420:3490[1720[430[240:B20440:900[@DRWMOD,1:@T,X,Y,1 \X9X:Y9Y:240:B20440:900\"3510:@DRWMOD,1:@T,X9,Y9,1:@,X91,Y91,X1,Y1,1:I150::@,X91,Y91,X1,Y1,1:@,49152,X9,Y9,(X9X1),(Y9Y1)\,900\61600:F0:1640]@@,F1,380,96,1,1,(F$(1),16):@,F2,380,107,1,1,(F$(2),16):@,F3,380,118,1,1,(F$(3),16)c]J@,F4,380,129,1,1,(F$(4),16):@,F5,380,140,1,1,(F$(5),16)" "]T@DRWMOD,0:@,365,139,639,1399,1: @BOX,365,128,639,137,1]^]h240]rX365X639Y92Y101FOF1:F1]|X365X639Y106Y115FOF2:F2$^X365X639Y117Y126FOF3:F3M^X365X639Y128Y1289FOF4:F4v^X365X649Y139T1398FOF5:F5^F01640^SX1:SY1^@,85:@,FO,0,0,SX,SY,"A"^@,F1,518,482,2,2,"WRITE":@,F1,518,692,2,2,"EXIT "_@,F1,0,175,2,2,"IZE:"(SY)" BY"(SX)<_240:X518X639Y69Y88900\_X518X639Y48Y671800z_B20SYSY1:SY16SY1_B10SXSX1:SX16SX1_1720_430:240_B20900_X8X`&208,0:1900:B$:(2)2551890:B(B$(0)):1910%`0B13YYSX8:Y(Y):XX8:1830E`:B20XXSY8:X(X):1830e`DB32XXSY8:X(X):1830`N@,FO,X,Y,SX,SY,B$:XXSY8:X639X0:YYSX8`X1830`b440:900`l@DRWMOD,1:I12:T0SX8:@T,X,YT,1:::`vB$""1830aB29XXSY8:X(X):18303aB157XXSY8:X(X):1830TaB145YYSX8:Y(Y):1830taB17YYSX8:Y(Y):1830~a1840a1600a240:X365X639Y92Y101FOF1:F1aX365X639Y106Y115FOF2:F2bX365X639Y128Y1289FOF4:F4,bX365X639Y139Y1398FOF5:F5>bF1F51980hb(F$(F),8)"SPACEAGE"FOFO12:2100bML16:@,F3,374,140,1,1,"OAD WHICH FONT INTO POSITION"(F)"?":3530b(I$,8)"SPACEAGE"FOFO12:2160b (I$),B0,P(FO)c(I$)162090c I116(I$):I$I$" ":1c*F$(F)I$:900Cc4F1F1F112Uc>F2F2F212gcHF3F3F312ycRF4F4F412c\F5F5F512cfcpF1F1FO:ՋF2F2FO:ՋF3F3FO:ՋF4F4FO:ՋF5F5FOcz d@,F3,0,179,1,1,"OAD WHICH FONT?":ML16:3530md@,F3,0,179,1,1,"NSERT YOUR FONT DISK. ":@,F3,300,179,1,1,"RESS A BUTTON WHEN READY. "dP1(1):P2(2):(1)256(2)2562200d@,F3,0,179,1,1,"OADING FONT... ":(I$),B0,P50000Ue@,F3,0,179,1,1,"ONE. ":FO50000:@,F3,0,179,1,1,"RESS A BUTTON TO CONTINUE.":SX1:SY1eP1(1):P2(2):(1)256(2)2562230e1720e@,F3,374,171,1,1,"EFT UTTON : OVE RROW EFT"f@,F3,374,179,1,1,"IGHT UTTON: OVE RROW IGHT ":6f@,F3,374,171,1,1," "of@,F3,374,179,1,1," ":f@,F3,374,171,1,1,"EFT UTTON: OWER IZE"f@,F3,374,179,1,1,"IGHT UTTON: AISE IZE":>g @TEXT:6,7:@FT,1,F1:" LLUSTRATED MAGES IS A PICTURE PROCESSOR WHICH HELPS YOU"g "MAKE LTRA I-ES SCREENS. O USE THIS PROGRAM, YOU MUST HAVE A OALAAD(TM)"g "PLUGGED FIRMLY INTO ONTROL ORT NE (THE CLOSER ONE). STYLUS IS RECOMMENDED,"h$ "BUT YOUR FINGER WILL WORK ALSO."fh. " O SELECT A COMMAND, USE YOUR STYLUS OR FINGER TO POSITION THE ARROW OVER"h8 "THE BOX CONTAINING THE COMMAND YOU WANT TO USE. HEN PRESS EITHER THE LEFT OR"iB "RIGHT OALAAD BUTTON. OR COMPLETE INSTRUCTIONS ON HOW EACH COMMAND WORKS,"1iL "REFER TO THE DOCUMENTATION."iV " LTRA I-ES IS A COMMAND LANGUAGE CREATED BY OUIS . ALLACE, (C)1986."i` "T IS AVAILABLE IN THE EBRUARY AND AY 1986 ISSUES OF (TM) MAGAZINE OR"+jj "BY DOWNLOADING IT DIRECTLY FROM UANTUMINK(TM). HE AUTHOR OF THIS PROGRAM"jt "AND THE AUTHOR OF LTRA I-ES CAN BE CONTACTED ON UANTUMINK. HIS PROGRAM"j~ "WAS WRITTEN BY EE EMEL (INK AME: EE 8 OR IXASTER). OUIS . ALLACE" k "CAN BE CONTACTED ON INK ALSO (INK AME:)."tk " HOPE YOU ENJOY THIS PROGRAM.":2480: "RESS EITHER OALAAD BUTTON TO RETURN TO MENU."k B1(1):B2(2):B1255B2255:1:1,8,8,"ILL.COLORS,S,R":1,C1:1,C2:1:@,C1,C2:900k 2460'l " HIS PROGAM WAS RELEASED INTO ON "DA$". LEASE"yl "PASS THIS PRORGRAM ON TO A FRIEND! F YOU HAVE ANY QUESTIONS, COMMENTS, OR"l "USEFUL MODIFICATIONS, SEND -AIL TO THE AUTHOR!"l l "VERSION "V$". COMPLETED "DA$".":l 430:420m 240:B10:@DRWMOD,0:@T,X,Y,PN&m B20440:9000m 2540am 430:420:240:X9X:Y9Y:@DRWMOD,0:B20900m @T,X,Y,1:240:@DRWMOD,0:B10:@,X9,Y9,X,Y,PNm B20440:900m( 2580m2 430:420:240:X9X:Y9Y:@DRWMOD,0:@T,X,Y,PNn< 240:@DRWMOD,0:B10:@,X9,Y9,X,Y,PN:X9X:Y9Y-nF B20440:9007nP 2620\nZ ------- DRAW ROUTINE ---------ynd 430:420:240:X9X:Y9Ynn @DRWMOD,1nx P1(1):P2(2):B1(P1256)256:B2(P2256)256n P1MNP2MN2770n B10P1P1256n B20P2P2256o FACTOR VALUES FOR SCREENOo FX640(MXMN)0:FY200(MXMN)0:FX640FX640bo FY200FY200o X((FXP1)30):Y((FYP2)10):X0X0o Y0Y0 p I12:@T,X,Y,1:@T,X1,Y,1:@T,X2,Y,1:@T,X,Y1,1:@T,X,Y2,1:@T,X1,Y1,1:@T,X2,Y2,1:@T,X3,Y3,1:!p B20440:900bp B10X6Y6:@DRWMOD,0:@,X9,Y9,X,Y,PN:@DRWMOD,1:X9X:Y9Y|p B10240:X9X:Y9Yp 2680p @,F1,518,482,2,2,"CLEAR":@,F1,518,692,2,2,"EXIT ":240p X518X639Y69Y88900q X518X639Y48Y67430:420:@,0:440:900#q" 9001q, 430:420Yq6 240:X9X:Y9Y:@DRWMOD,0:@T,X,Y,PNq@ 240:@DRWMOD,0:B10:@,X9,Y9,X,Y,PN:2870qJ B20440:900qT 2870q^ 430:420qh 240:B20440:900qr A(FP$,FF$)1:X3(A)8590001024512XFLr| 0:@,X,Y,PN,(X3),(X31),(X32),(X33),(X34),(X35),(X36),(X37)Vr 2920dr 430:420}r 240:B20440:900r @DRWMOD,0:@T,X,Y,PNr X9X:Y9Y:240:B20440:900r @DRWMOD,0:@,X9,Y9,X,Y,PN:2970r 430:420s 240:B20440:900s @DRWMOD,0:@T,X,Y,PN@s X9X:Y9Y:240:B20440:900ls @DRWMOD,0:@,X9,Y9,X,Y,PN:XX91:YY91s A(FP$,FF$)1:X3(A)8590001024512s 0:@,X,Y,PN,(X3),(X31),(X32),(X33),(X34),(X35),(X36),(X37)s 3020s 430:420t 240:B20440:9001t& @DRWMOD,0:@T,X,Y,PNTt0 X9X:Y9Y:240:B20440:900t: @DRWMOD,0:@,PN,X9,Y9,(((XX9))),(((YY9)))tD @T,X9,Y9,0:A(FP$,FF$)1:X3(A)8590001024512uN 0:@,X9,Y9,PN,(X3),(X31),(X32),(X33),(X34),(X35),(X36),(X37)uX 3100)ub 430:420Bul 240:B20440:900[uv @DRWMOD,0:@T,X,Y,PN~u X9X:Y9Y:240:B20440:900u @DRWMOD,0:@,PN,X9,Y9,(((XX9))),(((YY9)))u @T,X9,Y9,0:3180&v @,F1,518,692,2,2," ":@,F1,518,692,2,2,"EXIT ":@,F1,518,482,2,2,"PRINT":2250Jv @,F1,374,150,2,2,"IZE:"(SZ)_v SZ0SZ1:3240v 240:X518X639Y48Y673300:ՋX518X639Y69Y88900v B10SZSZ1:SZ1SZ1v B20SZSZ1:SZ4SZ4v 3240w 2270:@,F1,374,150,2,2,"RINTING..."&w 430:@H,SZ,SA:900{w @,F1,518,692,2,2," ":@,F1,518,692,2,2,"NO ":@,F1,518,482,2,2,"YES "w @,F1,374,150,2,2,"XIT?"w 240:X518X639Y48Y673360:ՋX518X639Y69Y88900w 33406x @TEXT:6,7:""(34)" 115"(34)" TO RETURN TO LLUSTRATED MAGES.":cx* @,F3,0,179,1,1,"[]OAD OR []IRECTORY?"x4 B$:B$"L"3400:ՋB$"D"3380x> 3670yH ML12:430:420:@,F3,0,179,1,1,"OAD WHICH PICTURE? ":3530:@,F3,0,179,1,1,"OADING FROM DISK... "(yR 430:@,1,I$".IIP":440:900{y\ ML12:@,F3,0,179,1,1,"AVE AS?":3530:@,F3,0,179,1,1,"AVING TO DISK... "yf 430:@,1,I$".IIP":900yp 430:420yz 240:B20440:900y @DRWMOD,1:@T,X,Y,PNy X9X:Y9Y:240:B20440:900wz 3510:@DRWMOD,1:@T,X9,Y9,1:@,X91,Y91,X1,Y1,1:I150::@,X91,Y91,X1,Y1,1:@,49152,X9,Y9,(X9X1),(Y9Y1)z 240:B20440:900z @!,49152,X,Y:3490z (X9X1)(Y9Y1)8100900z z ---- INPUT ROUTINE ----z XX200:I$"">{ @,F3,200,179,1,2,"":@,F3,200,179,1,2,I$\{ @,F31024,XX,179,1,2,"I"{ B$:B$(13)I$""@,F3,200,179,1,2," ":{ B$(20)3630{B(B$):(B32B90)3570{(I$)ML13570|B$(32)I$I$" ":XXXX16:3550"|$I$I$B$:XXXX16:35502|.I$""3570K|8(I$)1I$"":3660d|BI(I$)1:I$(I$,I)w|LXXXX16:3550|V@,85|` ******************** DIRECTORY READ SUBR ******************************|jL0:1,8,0,"$0":NL$(0)|t#1,Z$,Z$}~#1,Z$,Z$(}Z$""L60BL$(BL):3770b}#1,B1$,B2$:BL(B1$NL$)(B2$NL$)256:DC$(L)(BL)}#1,NM$:NM$(34)3740}NM$""DC$(L)(DC$(L),1,26):LL1:3710}DC$(L)DC$(L)NM$:3740}1:DC$(L)"^^^"}AL$(DC$(0),3,17) ~@,F1,8,0,2,2,AL$~F1603:AL$""*~G02?~AL$AL$DC$(FG)[~DC$(FG2)"^^^"3870b~G~ @,F1,8,(F3)816,1,1,AL$~F~@,F1,8,(F3)816,1,1,AL$~(AL$" [_] TO LOAD FILE <<< DISK-FREE"BL$ 2AL$AL$" BLOCKS >>> [^] FOR NEW DISK "%<@,F4,8,192,1,1,AL$=F@,216,16,216,191,0UP@,424,16,424,191,0lZKY$:KY$""3930dKY$"^"1050nKY$"_"3970x3930 ORIGINAL FUNCTION RESTORED.8 -----------------------------------------------------------------\ ILLUSTRATED IMAGES ENDS HERE. -----------------------------------------------------------------ƀ LINK ARMS, DON'T MAKE THEM. -----------------------------------------------------------------P ---------- HELP MODE NEW FOR VERSION 1.18 -----------------CM$" "380ЁCM$""H$(HH):380:920فHH0C11C20HH1C11C21HH2C11C22HH3)"C11C23HH4=,C11C24HH5Q6C11C25HH6e@C12C20HH7yJC12C21HH8TC12C22HH9^C12C23HH10hC12C24HH11̂rC12C25HH12|C13C20HH13C13C21HH14 C13C22HH15 C13C23HH165C13C24HH17JC13C25HH18kX518X639Y48Y67HH19X518X639Y69Y88HH20:1 *** READ PRINTSHOP GRAPHICS *** 4370:@,F1,518,482,2,2,"SIDE A ":@,F1,518,692,2,2,"SIDE B ":2401X518X639Y69Y88LL45:4370XX518X639Y48Y67LL55:4370b4330@,F3,0,179,1,1,"[]OAD OR []IRECTORY?"B$:B$"L"4400:ՋB$"D"4380&3670'0@,F3,0,179,1,1,"OAD WHICH GRAPHIC? ":ML16:3530:@,F3,0,179,1,1,"OADING FROM DISK... "y:@,0:1:1,8,8,I$",P,R":3072,18,0:3072,19,0:A10:A20:A30:A480:#1,A$,A$DI145:T16:#1,A$:A(A$):3072,31,A:NA3A3A4:A1(A3256):A2A3(A1256):3072,18,A1:3072,19,A2::1 X@,49152,0,0,48,45:900"b SWITCH TO MENU 1Hl@,F1,380,96,1,1,"GET PRINTSHOP "v@,F1,380,107,1,1,"COLOR MODE ":@,F1,380,118,1,1,"DISK COMMANDS"@,F1,380,129,1,1,"LOAD PATTERNS"톊@,F1,600,179,1,1,(V$):@,F1,380,140,1,1,"ORE..."M11:920!@,F1,380,96,1,1,"PLACE AN IMAGE"h@,F1,380,107,1,1,"GET AN IMAGE":@,F1,380,118,1,1,"TEXT MODE "@,F1,380,129,1,1,"LOAD FONT "Ň@,F1,600,179,1,1,(V$):@,F1,380,140,1,1,"ORE..."ӇM10:920 SWITCH TO MENU 2@,F1,380,96,1,1,"FLIP PATTERNS"W@,F1,380,107,1,1,"SOUND OFF/ON ":@,F1,380,118,1,1," "}@,F1,380,129,1,1," "@,F1,600,179,1,1,(V$):@,F1,380,140,1,1,"ORE..."ˆM12:920 *** READ FILL PATTERNS ***@,F3,0,179,1,1,"[]OAD OR []IRECTORY?"5B$:B$"L"4600:ՋB$"D"4580?3670@,F3,0,179,1,1,"OAD WHICH PATTERNS? ":ML16:3530:@,F3,0,179,1,1,"OADING FROM DISK... "݉(I$),B0,P59000:450:@,16384,0,0,640,200:900 4870C@,F1,0,179,1,1," "i @,F1,380,96,1,1,"DIRECTORY "*@,F1,380,107,1,1,"SCRATCH FILE ":@,F1,380,118,1,1,"RENAME FILE "׊4@,F1,380,129,1,1,"FORMAT DISK ">@,F1,600,179,1,1,(V$):@,F1,380,140,1,1,"XIT "H240?RX365X639Y92Y1013670:4620a\X365X639Y106Y1154750fX365X639Y117Y1264770pX365X639Y128Y12984800ˋzX365X639Y139Y14084860Ջ4680>@,F3,0,179,1,1,"CRATCH WHICH FILE? ":ML16:3530:@,F3,0,179,1,1,"CRATCHING FILE... "N(I$):4620@,F3,0,179,1,1,"ENAME WHICH FILE? ":ML16:3530nj@,F3,0,179,1,1,"ENAME TO WHAT? ":ML16:R1$I$:3530 @,F3,0,179,1,1,"ENAMING FILE... ":(R1$)(I$):4620>@,F3,0,179,1,1,"RE YOU SURE? []ES OR []O"TB$:B$"N"4620fB$"Y"4810@,F3,0,179,1,1,"ISK NAME? ":ML14:3530:DN$I$ @,F3,0,179,1,1,"ISK ? ":ML2:3530:@,F3,0,179,1,1,"ORMATTING DISK... "%(DN$","I$):4620.900_@,F1,0,179,1,1,"RESS [] TO CONTINUE."xB$:B$(32)4880~$ *** COLOR SELECTION MODE ***.@,F1,0,179,1,1," "#8@,F1,380,96,1,1,"PAPER COLOR "kB@,F1,380,107,1,1,"PAINT COLOR ":@,F1,380,118,1,1,"GET COLORS "L@,F1,380,129,1,1,"SAVE COLORS "ȏV@,F1,600,179,1,1,(V$):@,F1,380,140,1,1,"XIT "я`240jX365X639Y96Y105C1C11:C116C112tX365X639Y106Y115C2C21:C21C216T~X365X639Y117Y1265030xX365X639Y128Y12985050X365X639Y139Y14084860@,C1,C2:49601:1,8,8,"ILL.COLORS,S,R":1,C1,C2:1:C10C20C12:C265020;"ILL.COLORS":1:1,8,8,"ILL.COLORS,S,W":1,C1:1,C2:1:5020p": RAW ON SCREEN WHEN IS HELD DOWN"": SE TO CHOOSE THE AREA TO FILL WITH THE CURRENT PATTERN"": SE TO TURN POINTS ON"7": ETS YOU SEE THE DIRECTORY AND ENTER THE NAME OF AN PICTURE OR IMAGE"": SE TO CHOOSE THE CENTERPOINT AND THE PLACES TO MAKE RAYS"ג": SE THE BUTTONS TO CHOOSE THE SIZE OF THE PRINTOUT, PRINTS IT"": ELECT TWO POINTS, THE COMPUTER CONNECTS THEM"i ": SE TO CHOOSE THE UPPER LEFT AND LOWER RIGHT CORNERS OF THE FRAME"": SE TO CHOOSE THE CENTERPOINT AND THE X,Y RADII"": NTER THE NAME YOU WANT TO SAVE THE PICTURE AS, AND IT IS STORED ON DISK"N(": ESTORES YOUR PICTURE TO HOW IT WAS BEFORE YOUR LAST ACTION"t2": IEW PROGRAM INFORMATION"<": HE END OF THE LAST LINE IS THE START OF THE NEXT"F": RAMES ARE AUTOMATICALLY FILLED"P": IRCLES ARE AUTOMATICALLY FILLED"dZ": ELECT THE NEW BOX TO ERASE THE SCREEN, IF YOU DON'T WANT TO"d": SE TO PICK THE CORNERS OF THE AREA TO COPY AND WHERE TO COPY IT"n": FTER ING, USE TO LEAVE THE PROGRAM OR IF YOU DON'T WANT TO"Jx": EE THE PICTURE WITHOUT DOING ANYTHING TO IT."u": HOOSE A NEW FILL PATTERN."o *** FLIP PATTERNS ***pXF0XF768:6020zXF0і450:@,16384,0,0,640,200ߖM10:900 *** PRINT FILL PATTERNS ***&@,F31024512XF,375,10,1,1,FP$K@,F31024512XF,375,18,1,1,FP$Qd SOUND ON/OFFzV10V0:0:912V10:10:912 SWITCH FROM PEN MODE TO ERASER MODE AND BACKӗPN1PN0:912PN1:912 W PRINT PAINT BRUSHES XP=X POS YP=Y POS'X -- PAINT BRUSH A --FZI15:@T,XPI,YPI,1::`b -- PAINT BRUSH B --dI16:@T,XP3,YPI,1::l -- PAINT BRUSH C --n@T,XP1,YP1,1:@T,XP6,YP1,1:@T,XP1,YP6,1:@T,XP6,YP6,1:@T,XP3,YP2,1:@T,XP4,YP2,1:@T,XP3,YP4,1:@T,XP4,YP4,1Cp@T,XP2,YP3,1:@T,XP5,YP3,1:]v -- PAINT BRUSH D --x@T,XP2,YP1,1:@T,XP6,YP1,1:@T,XP4,YP2,1:@T,XP2,YP4,1:@T,XP5,YP4,1:͙ -- PAINT BRUSH E --,I16:@T,XPI,YP1,1::I16:@T,XPI,YP6,1::I24:@T,XP1,YPI,1:@T,XP6,YPI,1:R@T,XP3,YP3,1:@T,XP4,YP3,1:@)@ ILLUSTRATED IMAGES DOCS READ V2.1V@ "ET YOUR MONITOR TO 40 COLUMNS AND"k@"PRESS ."~@B$:B$""16@"":53281,0:53280,0:1:1,8,8,"ILL.DOCS.#,S,R":1,DN,DV$@1:I1DN:I$(I):II(I$):IIII1@I1$(I$,II)A"IIDOCS."I1$".CLR",P55296:A"IIDOCS."I1$".SCR",P1024oAI1""35)DV$:""27)DN"SCREENS"zA100:A18AdP1(1):P2(2):B$:P1256P2256B$(13)100Af 16 2.3  Ɇ ࠓ ࠠ{ | ࠠ l ࠠ~ l{ l{ l{ |~ |~ |~ 33466663666663663666666666366646336333Ã3323222Ò3233333 I  I  D      ࠠ T     P  D  .P      ׅ   ! I  Ġ I  ࠠӠ P  ࠠ P ג ̅Ӆ    ࠠ L S  σ 3c3cc333vff66f2s333v666j: 3c33s3cs3:366 >33c3cdv333cu576ff6 }= m }666f6c } mc63 m =3v6f = =  ==36= ==  333s36 = == = = =} m6= == m6s cc= == =33f3u== = } ==3c5 = 333 == 63 = = = cs== = c3scc3336fff66f [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ [[[[[[[[[[ [[Ԉ[[[[Ռȉ҅[[ [[[[[[Ï[[ [[[[[[́é[[ [[[[[[౹̏Ҡ[[ [[Ռȉ҅[[[[ׁ[[ [[[[[[[[ [[[[[[[[ [[[[[[[[[[ [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ [[[[[[[[[[ [[ˏЁ[[[[Ќ[[ [[[[[[ˏЁ[[ [[[[[[[[ [[[[[[[[ [[[[[[[[ [[Ï[[[[[[ [[[[[[[[ [[Ռȉ҅[[[[[[ [[[[[[[[ [[[[[[[[[[ [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[ 5555522??2?225?52??525?2222??2ob66563555;; 544; 444;5; 5445 ; 5;; e4; ;535 ; ;;  ;4445f553c @@@@@@@@@@@@@@@n Ԉ ] Õ Փ Ԉ Ԡ Փ Ԉ Ԡ Փ 55353513513333fc33>33>33>>13>>331>>333>>3>222333362232233222b222322322336333333c ԏ Ē ̉ ̉ ̉ 333 < 3 << 33 <33 < 33<< 333 ̆c333 <333 36333333 44 4; 4; ; 44 ; 44 ;   ;; 66 643 4443666333333 3 3 3 ďÉࠠĉࠠࠒࠠ Ɖ ԏ  s3333445564555524552245u25e?35c6 == ?? == ? = =???6 366 67773 776Ɩ77w7377333336633336 ׈ ࠠ ׈ ԏ ࠠ ࠠ 젠 ࠠ ࠠ ࠠ ࠠ &66f&&&&&&&&&&ff&#&&&&f6&6&&&6&6f&&6&6####ff&&6&6f&&f&6&6&&&f&&&6&&&&2""2""#####""2bc##2"3f""""3c""2"3b"""2""##cb""2"b##62"2"""2#c&b"2 : * *** *:*: 3##& :*** ***** ####3##***:j j***:* #e3#$#j * :** j ** jc * * :** j *# ** ###3#####c#3&&#33#####33$&###3#3c#3##3#3cc$###3#33###3###cc######33###c##### ԏ ԏ Ӆ Ӆ Վ Ř ԏ ddd  eg   tg    tg   ccc  <,l,,,, nΞ ,,,,,< nn>>.. ,,,l,l,>..>..>>., ##...ncc33##c.....n..#3##c##c###3#.n..n##$4d$$$4$$d$$n####4d$d$$$$$$d#4d$$$$$$$$$$$d44$##$$44d$$$4d$%%5%%e%%d$$$$$$4ŕ%%%%%5$3$$4$$$$$$5%%##$$$$$$$$$4$$$$$$%ee#$$$$4$$4d5%#%$$4$$d%5%%%dd$$$$$43c3##3####4$4k +++;+ k ˋ#########++ ++++++ ;#######+ +k+++k++++++ ++3#####++ + ###33##; +;++k+ ;+ +33#####3#+ k;;++ + ˛ Ó3###;k+ ;++; +#33#+ Ɏ Ř Ӆ Dž Вӈ ΅ Փ Ќ ɔ ή ࠠ ##ӃÓ######3#3#######""""""2b’""#####3c##""""2""b#####3"""""cc3c##32""""2b’2#3####3c"""""2bÃ#####3#2"""2bc###3#cb"""""2"4$$$$$$$$3####34d$$$$$$d$$$$$$4$d4$$$$$$4$$$$$$$Ĕ$$c4$$4$$$4$$$$dd#$$d$$$4$$$$$#$4$$d$$4$$$$4d$$$d$$4$d$$$d$34$$$$4$344$4$3#######44#...>...>.$$$$$dn......ޞĔ$4$$$nΎ>...n>>d44$$$$#>>.>$$$4$4d$$...........ԔĔ$3#c3##c$$$$$Ĕ4cc33##$$$d$4c######3ÓÃ####3Ó3##c3 ԅ Ӑ Ӆ ӈ ג ҅ #######c##3#3#c"""2b#####c"""2bŕc######2""b"2"%e%3###c2"b2""e55%%"""""5%5######3’"""2""""%e"b"#####b"b""""""e%e#""#b"b"""""""%5%c"Ó3#3""2""b5%%5%%%"#"2""""""%55%%5""##22""2""%%5%%%c##"""b%5%#3###33"""""b""2#3###"""""e%%##2##c"""2""""%5%%##3###""""2""#3#&&&&&fb""####6&6&&""2b""#3####&&&66&6&&&6&&&&&&&&&&&&6########c#&6f&3#####3cÓ33#c###c#c3#####Ã3##Ó3#######3#####3#c#c#####ccc33## dddddddddddddddddddddddddddddddd ee gg ee T     , gg ee     ,  gg ee       gg ee      gg ee      gg ee     gg ee  . P     gg ee        gg ee   . gg ee gg @@@@@@@@@@@@@@@@@@@@@@@@@ 3333333c333cc3333c3cc3333s3333s333sc3s3cs3c3333sc3ss3333s333sc 3cc <3 66v66 >>>< 6666  < < b2226&&) "(8** t#b##""""""3#3c#####3#####c3######cc####33#s#cc3####cs#####33####1.21fffffffffffffffffffffffffffffffff ffffffffffffffffffffffffffffffffffffff ffffffffffffffffffffff fԈffffffffffffffffffff fࠏffffffffffffffffffff fԏffffff Š fӅŠfffff ffffff ffffff ࠠ fffffffffffffffffffffff fffffffff fffffffffffffffffffff ԏ fffВӈffffff fff fffff fffԠfffՓff Р Вӈ fffffffЌff fffffffɍff ffffffffffffffffffffffffff %44$44$$44$4$$$$55333#3######3#355%%5%544$$$$4######33#######33#3#$$44444##%##33#3####33333###3#34$44Ĕ4$$$444##333##&63###$%3&&&&&666435#####366&&&&%##3#33#3&$$$$#3333#33&&&&&&63344$$4$46&&&$$$$7'77''''ǖ6&663##3#31!!!!1144$$$$4$$33!!!1!!!!1#34$'!11!!1$$%%%%5ŕ5$3!!!11!!3$4$4$$$4%#1!!!11!!444$!!#3#7!1!!!!##4$4$4$%!!$$1!!!!44%$$##31###$444$$41$$$$$$$$4$$$3###33#####333#####3#3#33####33#3 ࠠ D  M ࠠ D  M D  M D  M vg b㠠b ĉ͏vg vg Ïvg ʕvg vg doybbyod vg vg ddyydd vg bbbbbbbb yyyyy  yyy 1.21 $$4$4$$$$$4444$4$$$$$$$$$$$4$$$4$$$4$$$4444$$$$$$$4$#4$$$ 4$"#6; $$$$$  $$$$444$$4$$$$ $""$$$$$$$$4$$$$$$''''7''''##3##$''''''77'''7''''$!!!!7''7'''!!!!!!1!$7'7'7''7g''$$$'g''7'''''''g7''$&66&&'''''''* : * ''''7'''''$ 4'7''''' ::** $4$$$$$4$4##$#3#####3####!!!$$$$$$$4$$d44$$!!4$$$4$$$$4$$$$$$$$$$$$41$4$$$4##!$4 :*$44$$!1.23 Ԉ Ԉ Ώ ԏ ࠔ ƌЁ Փ ӏώφ Ì Π ࠠ R  ,  Š    ή    PTSET      !! 333c3s3Óc3363363466f34v4d66d3466444d6433c4344224427522s3c3324bc2g4b243w773333s3Ó3c33pf>`|fff|<```<>fff>ff>|`|ffff8<<``flxlf8<vkcc|ffffff>|f```>`<|<ffff>fff<ck>6ff x~ 0~00`00`<|bf 0fFf<00`0~~p  pc```c>|fcccf|``|````|```>c`gcc>cccccc>>n<cflxlfc``````cwkccccs{ogc>ccccc>~cc~```>cccc>~cc~lfc>c`>c>cccccc>ccccc>ccckwccc66ccccc> 0`000033333f3f̙3f̙3f3333̻wݻwwwD"D""D"D~BZR^@~(DD((DD(|lD((TT((l֪T(|l֪T(܎?;q $ff$ffDDDDUUB$BB$Bf۽fff<|8PA  APW_}}_W__l$BB<?8Hh@~@@@@~~|x|nG~BBBBB~~~~~~~~<<<<~00~~~~~~~1sssR4300~<<<<<<~<<<<<<~<<<<<<~<<~<>F)how8D3 q* {8E0 p}}}}w00<<<<<<~<<<><<<|<<~xx<<~UUUU3333xxx(TUT(UUUUw$BB<BBBBBBB$$BV,4j~BZZZB~w"w"w"w"GDGAAAAw"DD"ի@@@@ :@^PP9))))<<""||B!B!J%IR)u]W+@]]]UU3ww3>>????????333333?????????ff;|ffff>f``b<>ffff;f|0>f||ffff8~  l8nh|lf8<~vfffw;000x>`<B|~ ffff;bb48mv6"b<8Lfff~|f 3<00000<00`< <<~00ffffffff>`<|bf 0fFfcccf10>01fbx``~~cccc~~f|dhxlf```bfw[[[KrZZNFbp<F|<bbbbb<bbb44nfb4,Fb4<~F 0b~~ff~``~``~f`fff8888x```II~ff~ff~ff~bb 008888ffffff8III8888<00000<`0 < <<~008888ffffffff~@~~bf 0fF 888|dd00`0~~p  p 887848`x<|fl 06f8D(*D: 0 000 0 0Z<~>00000000 88p88p<~~~~<6>````````~<<~<~ff~<ff<>>0000>v66?Ù333333Ù󙙁ϟÙ󇓙ÙÙϟÁρہہəǻջÁåϟϟÙ???????Ǐ???????Áɀ<Á<Á癙????????????333333?????????7848`~p~>x|~~|x~~p~p~~~~p~ppp<~`fb~<ff~~~ff~~~~~~ff~<ff~x~ffpppp~~~Bf~~~~~Ffv~~~~<~~f~~<|~~|pp<~f~<|~|~ff~`<~|~~~ffff~~<ffff~<ff~~~fBff~~fffff~<~~<8~~<00000< 0|0b< <<~00ffffffff>`<|bf 0fFf<00`0~~p  p>00000000 88p88p<~~~~<6>````````~<<~<~ff~<ff<>>0000>v66?333333ÙÁ၃၃Á灁Á၃ÁჁၟ灙ǁσϝÁπϙÙǘÙϟÙÙϟÙᙀÙÙÙÙϟÙ???????Ǐ???????Áɀ<Á<Á癙????????????333333????????? ,` ,֩L @&@" *** UTO OOT REATOR ***"\@"USTOMIZED FOR LLUSTRATED MAGES BY EE EMEL"m@"VERSION 2"s@@ BY FRED BOWEN & TERRY RYAN@ CUSTOMIZED BY LEE SEMEL@15,8,15,"IJ": NU$(0)A: DS "*** DISK ERROR: ";DS$: E1: 1720A$8,8,8,"#":A.15,"U1:8 0 18 0":15,"B-P";8;5IA8: #8,BA$^AB15,"U1:8 0 1 0"AL: I024: #8,A$: BL$BL$((A$)): AV ((BA$)1)0 A`: (BL$,3)"CBM" Aj: "*** ALREADY A BOOT DISK: ";At: I8B~: B: A$(BL$,I,1).B: A$;AB: II1YB: A$NU$dB: vB: : B: "*** BOOT SECTOR USED BY ANOTHER PROGRAM ***"B: B: " CONTINUE (Y/N) N";A$C: A$"Y" E1: 1720C: BA 1C>C" ENTER YOUR PROGRAM'S NAME "bC " (UP TO 16 CHARACTERS) "C" UHBOOT":F$"UHBOOT"C:C((F$)16 C2: " THAT'S TOO BIG!";C<: 2CF: 1300CP: CZF$""Cd:Dn" ENTER YOUR PROGRAM'S TYPE "7Dx" ('BASIC' OR 'BINARY') "RD" BASIC":T$"BASIC"XD:D T$"BASIC" T$ "BINARY" D: " ENTER 'BASIC' OR 'BINARY'";D: 2D: ""(27)"@"D: 1410D: E T$"BASIC" RM$"RUN" : RM$"BOOT"E:;E" REMOVE THE WRITE PROTECT "_E" TAB FROM THE DISK AND PUT "E" YOUR DISK INTO DRIVE 0 OF "E" UNIT 8. BE VERY CAREFUL! "E" THIS PROGRAM WILL DESTROY "E" DATA IN TRACK 1 SECTOR 0. "F"" PRESS RETURN TO CONTINUE "7F,A$: (A$)13 E1: 1720=F6:WF@AA (F$)("B00")15xFJAL AA 255: AH AA 256~FT:F^15,"B-P 8 0"Fh8, "CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;Fr8, (162);(AL);(160);(AH);G|8, (76);(("A5"));(("AF"));G8, RM$;(34);F$;NU$1G15, "U2:8 0 1 0"OG BA0 15, "B-A 0 1 0"ZGA$DS$`G:lG8: 15G E "*** ABORTED ***": G "*** DONE ***"G 8 14