home *** CD-ROM | disk | FTP | other *** search
- 1142 REM ** COPY FILES **
- 1150 IF ME=1 THEN 2000
- 1151 PRINT CHR$(147);"COPY MS-DOS -> CBM-DOS":PRINT:PRINT
- 1160 IF DL<=0 THEN FC=0 : GOTO 1190
- 1170 FC=0 : FOR F=1 TO DL : IF MID$(DI$(0,F),6,1)="*" THEN GOSUB 1200
- 1180 NEXT F
- 1190 PRINT : PRINT"FILES COPIED =";FC;" - PRESS KEY"
- 1191 GETKEY A$ : GOTO 520
- 1200 FC=FC+1
- 1210 X$=MID$(DI$(0,F),19,8)+"."+MID$(DI$(0,F),29,3)
- 1220 CF$="":FORI=1TOLEN(X$):IF MID$(X$,I,1)<>" " THEN CF$=CF$+MID$(X$,I,1)
- 1230 NEXT
- 1231 IF RIGHT$(CF$,1)="." THEN CF$=LEFT$(CF$,LEN(CF$)-1)
- 1232 CF$=CF$+","+MID$(DI$(0,F),14,1)
- 1240 PRINT STR$(FC);". ";CHR$(34);CF$;CHR$(34);TAB(20);SZ(F)"BYTES";
- 1245 PRINT TAB(35);MID$(DI$(0,F),9,3)
- 1250 CL=CL(F) : LB=SZ(F) - INT(SZ(F)/65536)*65536
- 1260 IF CD>=8 THEN DOPEN#1,(CF$+",W"),U(CD) :ELSE IF CD<>0 THEN OPEN 1,CD,7
- 1265 IF CD<8 THEN 1288
- 1270 IF DS<>63 THEN 1288
- 1275 X$="Y" : PRINT "CBM FILE EXISTS; OVERWRITE (Y/N)";
- 1280 CLOSE 1 : INPUT X$ : IF X$="N" THEN FC=FC-1 : RETURN
- 1285 SCRATCH(CF$),U(CD)
- 1286 DOPEN#1,(CF$+",W"),U(CD)
- 1288 IF CD<8 THEN 1320
- 1300 IF DS<20 THEN 1320
- 1310 PRINT CHR$(18)+"CBM DISK ERROR: "+DS$ : FC=FC-1 : CLOSE1 : RETURN
- 1320 POKE PV+6,CL/256 : POKE PV+5,CL-PEEK(PV+6)*256
- 1330 POKE PV+8,LB/256 : POKE PV+7,LB-PEEK(PV+8)*256
- 1340 TR=0 : IF MID$(DI$(0,F),9,1)="A" THEN TR=255
- 1346 X=1 : IF CD=0 THEN X=0
- 1350 SYS PK+6,TR,X
- 1355 RREG X,X,X,S : E=PEEK(PV+2)
- 1356 IF (S AND 1) THEN GOSUB 380 : FC=FC-1
- 1360 IF CD<>0 AND CD<8 THEN CLOSE1
- 1370 IF CD>=8 THEN DCLOSE#1 : IF DS>=20 THEN 1310
- 1380 RETURN
- 1398 :
- 1399 REM ** REMOVE MS-DOS FILE **
- 1400 PRINT CHR$(147);"REMOVE (DELETE) SELECTED MS-DOS FILES:":PRINT
- 1401 IF ME<>0 THEN PRINT"MS-DOS MENU MUST BE SELECTED!" : GOTO2030
- 1402 A$="Y":INPUT"ARE YOU LIKE SURE ABOUT THIS (Y/N)";A$
- 1403 PRINT:IF A$="N" THEN GOTO 520
- 1410 IF DL<=0 THEN FC=0 : GOTO 1440
- 1420 FC=0 : F=1
- 1425 IF MID$(DI$(0,F),6,1)="*" THEN GOSUB 1470 : FC=FC+1 : F=F-1
- 1430 F=F+1 : IF F<=DL THEN 1425
- 1434 PRINT"FLUSHING..."
- 1435 SYS PK+12
- 1440 PRINT : PRINT"FILES REMOVED =";FC;" - PRESS KEY"
- 1445 SYS PK+21 : RREG A,X,Y : MA=A+Y*256+X*65536
- 1450 GETKEY A$ : GOTO 500
- 1470 PRINT"REMOVING ";CHR$(34);MID$(DI$(0,F),19,13);CHR$(34)
- 1490 POKE PV+10,DP(F)/256 : POKE PV+9,DP(F)-PEEK(PV+10)*256
- 1492 SYS PK+15
- 1494 DI$(0,F)=DI$(0,DL):SZ(F)=SZ(DL):DP(F)=DP(DL):CL(F)=CL(DL)
- 1495 DL=DL-1
- 1496 RETURN
- 1498 :
- 1499 REM ** COPY CBM FILES **
- 1500 PRINT CHR$(147);"COPY CBM-DOS TO CBM-DOS:":PRINT
- 1501 IF CF<=0 THEN PRINT"COMMODORE DIRECTORY NOT LOADED" : GOTO 2030
- 1502 X=0 : INPUT"DEVICE NUMBER TO COPY TO";X : PRINT
- 1503 IF X<=0 OR X>=64 THEN PRINT"BAD DEVICE NUMBER!" : GOTO 2030
- 1504 IF X=CD THEN PRINT"CANNOT COPY TO SAME DEVICE" : GOTO 2030
- 1505 FOR F=1 TO CF : IF MID$(DI$(1,F),6,1)<>"*" THEN 1570
- 1506 PRINT DI$(1,F) : OPEN1,CD,2,CN$(F)+",R"
- 1507 IF X<8 THEN OPEN 2,X,7 : GOTO1550
- 1508 CF$=CN$(F)+","+MID$(DI$(1,F),31,1)+",W"
- 1509 OPEN2,X,3,CF$
- 1510 IF DS<>63 THEN 1530
- 1511 CLOSE2
- 1512 X$="Y":INPUT"FILE EXISTS: OVERWRITE (Y/N)";X$ : IF X$="N" THEN 1560
- 1520 SCRATCH(CN$(F)),U(X)
- 1525 OPEN2,X,3,CF$
- 1530 IF DS>20 THEN PRINT CHR$(18);"CBM DOS ERROR: ";DS$ : GOTO1560
- 1550 SYS PK+24,1,2
- 1560 CLOSE1 : CLOSE2
- 1570 NEXT F
- 1580 PRINT : PRINT"FINISHED - PRESS A KEY" : GETKEY A$ : GOTO510
- 1998 :
- 1999 REM ** COPY CBM-DOS TO MS-DOS **
- 2000 PRINT CHR$(147);"COPY CBM-DOS TO MS-DOS:" : PRINT : PRINT
- 2010 IF DL>=0 THEN 2035
- 2020 PRINT"MS-DOS DIRECTORY MUST BE LOADED FIRST"
- 2030 PRINT : PRINT"PRESS ANY KEY" : GETKEY A$ : GOTO 510
- 2035 FC=0
- 2036 FOR F=1 TO CF : IF MID$(DI$(1,F),6,1)<>"*" THEN 2045
- 2040 FC=FC+1 : C$=CN$(F)
- 2041 PRINTMID$(STR$(FC),2);" ";MID$(DI$(1,F),14,16);MID$(DI$(1,F),34);":";
- 2042 GOSUB2050 : PRINT LEFT$(M$,8);".";RIGHT$(M$,3)
- 2043 TR=0 : IF MID$(DI$(1,F),9,1)="A" THEN TR=255
- 2044 GOSUB2100
- 2045 NEXT
- 2046 PRINT"FLUSHING..." : SYS PK+12
- 2047 SYS PK+21 : RREG A,X,Y : MA=A+Y*256+X*65536
- 2048 PRINT: PRINT"FILES COPIED =";FC : GOTO2030
- 2049 :
- 2050 X=INSTR(C$,".") : IF X=0 THEN M$=C$+" " : GOTO2090
- 2055 X=LEN(C$)+1 : DO : X=X-1 : LOOP UNTIL MID$(C$,X,1)="."
- 2060 M$=LEFT$(LEFT$(C$,X-1)+" ",8)
- 2070 X$=MID$(C$,X+1)+" "
- 2080 M$=M$+X$
- 2090 M$=LEFT$(M$,11)
- 2091 FORI=1TO11:X$=CHR$(ASC(MID$(M$,I,1))AND127):IF X$="."ORX$=" " THEN X$="_"
- 2092 MID$(M$,I,1)=X$ : NEXT I
- 2093 I=8 : DO WHILE I>1 AND MID$(M$,I,1)="_" : MID$(M$,I,1)=" " : I=I-1 : LOOP
- 2094 I=11 : DO WHILE I>8 AND MID$(M$,I,1)="_" : MID$(M$,I,1)=" " : I=I-1 : LOOP
- 2098 RETURN
- 2099 :
- 2100 FORI=0TO0
- 2105 FOR DP=DB TO DB+32*(DC-1) STEP 32
- 2110 IF PEEK(DP)=0 OR PEEK(DP)=229 THEN 2140
- 2120 NEXT DP
- 2130 PRINT"NO FREE MS-DOS DIRECTORY ENTIRES" : RETURN
- 2140 NEXT I
- 2160 FORI=1TOLEN(M$):POKEDP+I-1,ASC(MID$(M$,I,1)) AND 127:NEXT
- 2170 FORI=11TO31:POKE DP+I,0:NEXT
- 2180 POKEDP+26,255:POKEDP+27,15
- 2190 POKE PV+10,DP/256:POKE PV+9,DP-PEEK(PV+10)*256
- 2200 OPEN1,CD,2,C$
- 2300 SYS PK+9,TR,1 : RREG X,X,X,S
- 2301 CLOSE1
- 2305 IF S AND 1 THEN E=PEEK(PV+2) : GOSUB380 : RETURN
-
- ╠INE 2310 SETS THE DEFAULT ═╙-─╧╙ SELECTION, TRANSLATION, AND FILETYPE AFTER
- COPYING TO ═╙-─╧╙ DISK, BASED ON THE ├┬═-─╧╙ FILETYPE. ├HANGE TO YOUR LIKING.
-
- 2310 X$=" ASC SEQ ":IF TR=0 THEN X$=" BIN PRG "
- 2320 DL=DL+1 : D$=RIGHT$(" "+STR$(DL),3)+X$
- 2330 D$=D$+LEFT$(M$,8)+" "+RIGHT$(M$,3)
- 2340 CL(DL)=PEEK(DP+26)+256*PEEK(DP+27)
- 2350 SZ=PEEK(DP+28)+256*PEEK(DP+29)+65536*PEEK(DP+30)
- 2360 DI$(0,DL)=D$+RIGHT$(" "+STR$(SZ),8)
- 2370 DP(DL)=DP
- 2380 SZ(DL)=SZ
- 2395 RETURN
- 2498 :
- 2499 REM ** LOAD COMMODORE DOS DIRECTORY **
- 2500 PRINT"LOADING COMMODORE DOS DIRECTORY..." : PRINT
- 2501 IF CD<8 THEN PRINT"CBMDOS DEVICE MUST BE >= 8!" : GOTO2030
- 2505 OPEN1,CD,0,"$0":GET#1,A$,A$ : CF=-1 : Q$=CHR$(34)
- 2506 DO
- 2507 SYS PK+27,1 : B=PEEK(PV+11)+256*PEEK(PV+12) : T$=CHR$(PEEK(PV+13))
- 2510 X=PEEK(PV+14)
- 2520 IF X=0 THEN EXIT
- 2530 X$="" : FOR I=PV+15 TO PV+15+X-1 : X$=X$+CHR$(PEEK(I)) : NEXT
- 2575 CF=CF+1
- 2590 IF CF=0 THEN PRINT"DISK="Q$X$Q$ : PRINT : GOTO2650
- 2600 CN$(CF)=X$
- 2610 A$=LEFT$(X$+" ",17)+T$+RIGHT$(" "+STR$(B*254),8)
-
- ╠INES 2620 AND 2625 SET THE DEFAULT ├┬═-─╧╙ SELECTION AND TRANSLATION MODES
- BASED ON THE FILETYPE. ├HANGE TO YOUR LIKING.
-
- 2620 DI$(1,CF)=RIGHT$(" "+STR$(CF),3)+" ASC "+A$
- 2625 IF T$<>"S" THEN MID$(DI$(1,CF),9,3)="BIN"
- 2630 PRINT DI$(1,CF)
- 2650 LOOP
- 2670 CA=B*256 : CLOSE1 : RETURN
-
- 6. ╒╒┼╬├╧─┼─ ╞╔╠┼╙
-
- ╚ERE ARE THE BINARY EXECUTABLES IN UUENCODED FORM. ╘HE ├╥├32S OF THE TWO
- FILES ARE AS FOLLOWS:
-
- CRC32 = 3896271974 FOR "LRR-128"
- CRC32 = 2918283051 FOR "LRR.BIN"
-
- ╘HE "LRR.128" FILE IS THE MAIN ┬┴╙╔├ PROGRAM AND THE "LRR.BIN" FILE CONTAINS
- THE MACHINE LANUGAGE DISK-ACCESSING ROUTINES.
-
- BEGIN 640 LRR-128
- ═`1╨╙'`╚`╞2#'*#$╘-╥─[(─╤)5%1,12!2140@4─5!1$52(#$╥."!615)324].
- ═(#$╬,#`┬`&─<"╨"9(#╚@╞2)"62!#4─%)1╥!"4┼5#12`╨.2╒&14(═.3,@1─]2
- ═($,]2$%#2╘┼.1╥(@.┬"9`&\<#``┌`*╠<%`!#1++"*#$╪-┬─┌┬╥!#1+,╪(*<@
- ═0╘2╥."`┌((\@*┬╚@1$5&055,5"!#0─╘═1$]3($12259%("╚╩`.8<&0!$5╦(┘
- ═.─14╠├`@.┬`@├╥`╩*┬!-4╥╒$3╒,@1%))5─4╠(%194$4@*#`],34╫,2╨╥-34]
- ═,34╪,2─`'!╘:`(╠@1%:╥0╘0@╔╥!$5╦(╪.─14╠├`@.┬"/("╚╩($%,5$523─%4
- ═12!-4╥╒$3╒,@1%))5─4`(┴╘;`#╚`/┴╘>`)─@(─┼.251)04╤)6─┼.1╥╪╬+┬(@
- ═.┬"9`&`=*`#^`├`@.┬!02[+1*"(╪,#`╨(┬─@.┬!05╦)02┌╚╙,`")'3(`┬╥#"
- ═*%!6╩├`╔╠═$╚(─-"(┬─@╦╥#"*%!6╩├$╔╠├$╙,┬"╟(#8╨`,─=-╨"9(─╤/041)
- ═3─<@34%#2$┼.12!,04┘'54%'12!23╒5424┘%4╥╪╬+┬(@.┬#^$2),4┼(╬0─┼.
- ═(┬╤5*$-$*0#╩'3╨`┼╥!05╩╚╙+$16(#╚@┼╥!05╩╚╘+$14(#╚@╟┬!02╨`.'─8`
- ═┴┬!4+%(╠0┬╤)+$$─+$,╠1%0─+$9,)"╤)3"0╠6"╤8)`!('─<`0╘╘─╠┬)$3494
- ═0╥╠═42`┬╩╠<╚,3,╔╩╠<╚,30╒*:╦'*#$╫*:╦'*#$╒-╥╞╩╤╥@╥.2╞╩╤╥@╤.2─`
- ═:!┘(`$--)+)#322╩╤╥@╤-#<╔╩┬(╧4─┘8(╩╦'*#─╥*0"/'─╠`1$╥╥╩╙$@.┬!#
- ═1╦*╦,2`┌($╒%╠├`@.┬!#0;(╨(#╚@34&╥,`#!'┼``┴┬!$220╚,2╨╙,#`╔+$-,
- ═*#$╥."─╠4╒╚╚,3(╪*2╤$4"@╤,├@╔+$-.)"@╙,#`╔`.─>6@"+($14╠├(╒-2"╟
- ═($14)+(┬,34╪,2(@.═4@1%0─╠┬(╤-3<╤(@`/'╓0`1─╨─╠╠<╚,3─╔╩╠<╚,3<╔
- ═╩╠<╚,3<╔╩╠<╚,3<╔╩╠<╚,3<╔`#,?;@!)3"2╥1─╨─.╚%)╠├&─,3─┌24╨─╠─┼,
- ═)*╦'*#$╫*3╩"`#╘?>`")(#4╨,`!#'╪(`.@!┼'╪,`├╥`╩*┬!,3╘%$($╒3+41/
- ═4╥!$25)%0╒1/4┼─@*┬╚`├!^,`)─┬3$]!1$┼.1╥!-4╥╒$3╒,@1$┼214-43╒)9
- ═+┬╪╬(┬`┌()─`╟┴^6`)╪@4$╠@.┬">(%!+╩├,`╔╤^@`$1,╠├``╤1^╩`/╪)($),
- ═+$1#+$)(+%,@.┬!%╠╠(╚4%:╩,┬─`┘╤^╘`(╠@*%,@╦╥`╤*2"╟((╘@,╙@╨(#╚@
- ═1$╥╥╩╙$@.┬".``\@╧@"9(┼-#04┘.24┘'($╒3+41/4╥!$25)%0╒1/4┼─╬+┬╪┬
- ═(#╚@╞0`@(,@`1$*╥0─╥╩,├4╓╦$)(`%`@╙0">(%!+╩├(╤(#╚@_@─@0─╨╠6"╤"
- ═2"`┌($╒!╠─),╩─)(╦#(╒-╩╔8╦#8╒-3,╓`&$@╘@"+($1#╠├`@╔╥`╙-├``@2#<
- ═`($@1%"╥1$(@╔"!$0╩╚╙,╩╨╚1$.╦,2─@╩2`╙,@"┴(.8`┬╥#"*$10*;(╨(+`@
- ═╨┬┴$4"╞╥,├(┘(*<@,╙4╨`+╠@\`"+(,(╚1%"╩,3$╔(*\@,├0@╔╥`╙-3``╤╥#┌
- ═`$1,╠─1,╩├$`"╥$$`40─╠╠─╚(┬`┬╩╠0╚1$╨╔+#,╔╩┬(@("`@($%30╥`@4╘51
- ═("`┬(#╚@├╥`╩*┬!$149!54╤4(%-%3"]44┬]&5"`╩*@`╓(0╪!022╥(┬(@.┬"!
- ═2;(╨╔#$╨(#╚@022╥022╩╤╥├"*$10╩──╔*2`┌(((`4┬$8`4$─╠╠@╚020╠."╞╩
- ═(┬`@(╩╦)*$$─+#,╔`%\┴(@&9($1,.╥!!)`!╤(2╨!1"2╥1"2╩022╩(┬`@(@"2
- ═(38!0╘╨╚1$╨╔╠╠(╚1%"╩,├8╔╩├(╒-╩╙"*$10╩├(╫*0"^(4`!4╒╩╥╨┬┴$4*╚╥
- ═."╞╩,├4╓╦,(╚1%"╩,├─╔╩├8╒-3,╓╦,(╚1%"╩,╙`╔`.$┴2@%$220╚,"╤$3"╞╥
- ═1"2╩╥2@┬("`@("*╩╤"┴36┬─╠-┬─`[╥%/`410*$1,*;)$4`#](50!4╒╚╚1$╨╔
- ═╠┼-:``8┬7@&"($10``╨┬:`&.`!(┬<@$┌`#<┬<╨&/("╚╩(%)%4$]25"!-4╥╒$
- ═3╒,@1$┼32╥!%4┼)/4┬`╩*@!─(╟╨!╞2#'*#$╪*3╠┬35,═1$]3($1)4╘╠@15)2
- ═3╒(@(╥([╥┬├$*$4╔+#(╔.╨"1(╚8!╞2`┬("@─(├╧**-(╚12─╠,╥─[(┬─╠(%!2
- ═15-3($═%62╪┬.\<╚,30╓*0"?(╔`!╚?─@020@.┬".`*4┬╞@$┌`,`┬╞╨&/("╚╩
- ═(%-#4─5%3┬!(14%$24┘'("╚╩`-0┬╔`&9(,<╚,30╫*3╧'*#$╪*3╠``╥.┼`8╠@
- ═346╥,""╟()─┬35,═1$]3(├╠┌6+)-03╦5()─┬0╘)-1$]3(├╠┌6+)#00`╠(┌8!
- ═╞2#'*#$╘-┬─[(┬`@35,](├╧**,0╚1%8╔+#(╔.╥(┌(├═$5"0[`%─├╦@&9(┬`@
- ═0╘)-/2([╥┬├$*$-$*2╨╥*3╠┬("!&4─5%/2([╥┬├$*%@╔+#(╔`&,├╬`&9(#╚@
- ═├@!╔(\(!.@"$(\,!├╥`╩*┬!30╒)%14╪@1─]/5$┼.1╥`╩*@"╪(\╨!╞2!)3"0[
- ═(─0]1$┼2($╘]35-$158@1├╒#0─╒$158@0╙╒#3╒!9(%$]455)5"`@("(`[2/6
- ═`9─@("`@(")4/51/1╘=,12!2/5)%34]612!8/4-"34-062`╧/4╒%3┼4@*╥╘]
- ═4$<┬.╨#╙(^`!├@#┘(^╚!.@`2).╠!├╥`╩*┬!-04┼.(%)/551)3─4@*┬╚`("3╘
- ═`52╥,2`┌($.╥,``╚)/4!4╦(╨`$\─_@&+($╒%╠├`@╔╥!-1╦)$3#╔-0[(╥(#╚@
- ═╒2!-1╦)#1├╔-0[(╤`%──"`*-(#0╥,`!╦)`─"┬╥!-1;.╤,""╟(#4╘,@";)!("
- ═╞2`┬3┼5-("!3("!44─╪@(%194"`@1─┼,14┘!344@($585"`@3$5.1╒1((@#+
- ═)!╨"╞2`┬+2╘═("`═("`═+2╘@("╘═+2`@+2╘═+2╘═+2╘@("╘═+2`@+2╘═+2╘═
- ═(@#5)!╘"┬2`╒-3``!24>`╔─@(─┘532`@4╥`@5%).("!&24╤%3─%-12`@("`@
- ═("`@(%0@($╤%3─=42"(`-24?`╔─@(┬╘═+2`@+2`@+2╘═("`═+2╘═+2╘═+2╘═
- ═+2╘═+2╘═("╘@("╘═+2╘═+2(`/╥4╞`╚╘@-#8╨`%╚┼,`)"╠┼2╩,3<@.┬"+($*╤
- ═348@╔╥!"╠─╒&`',┼.@*9($9,)#╠┌((╠@5+%-1┬"╟(#4┘,`"3)40"@2!)╠┼0@
- ═╔"!"(#╚@╞2!$220╚344╠22─@.┬""`,@┼3@*+($╒&╠╙`@╔╥"9(,<╚,3@╔.╥(\
- ═1$┼214-43╒)9($┘/5"!,3╘%$140^(├╧'*#$╘-┬─`\25/`╚╠@34:╥,""╟()─@
- ═╤╥@╤."─[(├╤.3╥!&24╤%4╙╪┬.\<╚,30╓*0`#)┼@"┬╥!-1╦.╥,""╟(#8╓,``;
- ═)╞("╞2#(*$┼,)"╤2╩├4╔.\<╚,3@╔.╨`╙)╞╨"─2!#╩├$@┬2`╓,╙`╠-├0╨+#8╒
- ═,`!8)╟8"╞2"╞-"─[╥┬┴$220╚344╠5*╔2*2╨╒+#,╔(#╚@┬2`╓-├``?2:``╔─@
- ═╔├<╔.\╚╚1$──*$╒%+%2╩4┬─╠."╨╒*2`┌((─@-├8╨`*0╞┬@*9(*8╤,┬─[╥┬┴$
- ═220╚344╠5*╔2*2╨╤,╥╨╒*2`┌((─@-├8╨`*╪╞┼`*┴^2!!)`"^)╔╪"2;+4*$--
- ═)"╤!)"─`┘":╚`╚╠@34:╤,""╟()─@╥"┴)3"0╠4╩╚╒*3═$220╚344╠5*╔2*0#╘
- ═)╦("┬╥!)╠├`@╔╥`╓,#``/╥>\`╔$@22")(#<╓,"╨╤,#4╨+#$╤,3`╠.34╨+#$╤
- ═-3`╠,3`╨,"╨╤,#(╨+#<╙,"╨╪-├`╠.#8╨+#<╫,"╨╫.3`╠.#$╨+#@╙,"╨╪-3``
- ═9┬?!`╔$@2:╠╤-2")(#4╨,"╨╫,3,╠,30╨,"╨╫,3,╠,34╨,"╨╫,3,`;"?&`╔``
- ═<┬?'`├╚`─╥?(`╚\@*┬╚@5─%224]54╥!-14┘5($]05$┼/3┼,@*┬╚`╚┬?)`─╒%
- ═╠╩╠╚346╥,"─`╩╥?*`╚─╒,#``╒┬?:`╔─@╤╥@╤-#<╔.╥)(059%($%.($%715-/
- ═344@1$%9+┬(@.┬#^`├$╒`-╨╟┘`*````╚^`*+($╒%╠├$@╔╥"-(#0╥,"`┌((╘@
- ═,├4╨,"`┌((─@-3`╨`!╚╚_0*-(#0╥,"`┌((╘@,30╨(#╚@┬2`╒,#``-"@"`╒*╥
- ═4╩╠╤(#╚@┬╥!2╠╙`@╔╥!2╠─*╦5``^*`╨#┬2`╓,#``6"@6`╒*╥4╩╚╤(#╚@┬╥!4
- ═╩┼*╤0┬"╟(%*╥,`!┬*"`#┬2`╓,#``>╥@╩`╘.╥0┌╠╤(#╚@┬╥!#╠╙`@╔╥!#╠─╒#
- ═`(4╚-`.)(#8╨,`">*#╪#0[)#╩├$@.┬"+($.╤34,@╔╥!#╠├``╩"┴(`╪─@-├`╨
- ═`+╪╚4@-2╠├`@.┬!#╠├`@.┬")(#8╨,`#0*%╨#┬╥!-1╦.╥,""╟(#8╨,`#╨*&8#
- ═6+)4╩┼(@.┬"1($.╩,2"-(#@┘,"╨┘,3`╠.3,╨`!,╔<`.9(,@╚24╨─+%*╩-2─[
- ═1$──*$╒%+%@╔(#╚@┬2`╓,#``02┼┌`╪╠@╥┬┴$220╚344╠6"─╠-┬╨╤*;(┬("(@
- ═╔╥!8)+(┬*┬(@.═4@6"2╥(┬`┬`%╘╔┴`/**$1))"┴-12╤8*2╨╓+#$╔╠┼@─(#╚@
- ═├@"/*8╪#┬╥#**$1))"┴-12╤8*2╨┘+#$╔╠┬)!(┬"╟(%@─╠┬)"24╪┬(#╦5(%@─
- ═╠┬)!4╘,┬`*╠╔╞`/**$1))"┴-12╤8*2╨┘+#,╔╠┼@─(#╚@├@#>*:(#┬╥#**$1)
- ═)"┴-12╤8*2╨╤-"╨╤*;(┬4╥(@╔╥!8)+(┬4%)'(┬`┌╒2!8)+(┬4╘51(@#[*:╨#
- ═╥┬┴$220╚344╠6"─╠,30╠,╥╞╥6"0@.┬".``╘╩═@.+($╒&╠[(╨(*<@-├`╨`!╨╩
- ═╨`.!(%┬╥,2"─($╒&`#0╩╥@.1($.╩,2"-(#@┘,"╨┘,3`╠.3,╨`#╨╩╒`."(%@`
- ═1┬╦>`╪─@-3(╨`&,╩┌`-2╠├`┌┬╥!"╠─╒&(*<@5+(╤(#╚@┬2`╒,3``=┬╦╥`╒2╥
- ═5*╚╤."`┌((─@-3$╨`(@╩_`.+($╒&╠[(╨(*<@-├8╨`,`╩`012╠├`┌┬╥!4╠├$@
- ═╔╥!4╠─╒&╩╥┴-1╩╬╒*$╒&╦3$╪*:╨╤."╞╩,2`┌((╠@5+.╥348@╔╥`╒,3``╓2╚&
- ═!%2╥5*╠╤."`┌((╠@5+,╤(*<@5+(╤`.,╩$`2)(#4╤,`#╪*┴╚$╞2!)3"0[╤╥@╥
- ═-╥─[(─`┬.╨`>*╥0$┴2)-4╥╒$3╒,@1$5624-%($┘534)%4┬`╚."╘╙,"─┬.╘16
- ═`&(╦)02+($-$╠─16(*>9(─╒3+41/4╥!!3─0@0╘)-+41/4╥!$159)0╘53($╒5
- ═4╒0@0─4@1$┼&1─5214┘4(2(┌┬3$╨-├``├┬╠╬!%┬╥-╙$@.┬"%(─╒3+41/4╥!$
- ═159)0╘4@5%┼012`@*#<╤+╙@╤*2([6`#/*╙@$┬╥!8╠├@@╠"!8╠├@╤(+`@6+(╤
- ═-3@╤(*<@1%2╥,├4╒.─14)+(┬,34╪,2(@.═4@1%2╥,#╔$5"2╥(├$╒-╙$┬`/\╦
- ═0@27(%!6╩├,╠1%8@.┬"7(%!6╩├0╠1%0@.┬">(%!+(#╚@1$╥╥╩╙$@.┬!-0;(╨
- ═``─╠3`2)(#4╨,``>+%8$╞2!)3"0[╤╥@╥-╥─[(─`┬.╨!&+&`$┴2`┬0╘)-+41/
- ═4╥!$159)0╘4@3┼5-0─52("@╨+3,╨*2([0╘0`┬┬╤╩!(╠@0╘2╥1%8@╔┘─┬35,═
- ═1$]3($%.1"!#0─╘═1$]3($1%5─┼#15,@35535"!"12!$249&15)%3┼0┴(├╩)
- ═,3$╥,`"├+'0$0╘:╥╩╙$@.┬!#0;(╨(#╚@┬2`╒,#``╩2╤╒!#╚`╨"╤╓!(\@*┬╚@
- ═0╘]062!&24╤%4╥`╩*@#2+'╪$┬╥!-1;(╤(*<@,├`╨,`#\+'\$╞2#'*#$╘-╥─[
- ═(─-/4%─@35,═1$]3("╘^($-"32╒$3╒,┬.╔─┌╞0`8+8@$┬╥!$3+.╥,""╟($9#
- ═╠├`@.┬")(#$╤.3``3╥╓2!$9#╠├`@.┬"!($:╥,2"─($1,(#╚@┬╥#**$1))"@╨
- ═+$8╔+#8╠,2╞╥(┬╚┬(*<@├2`╤,├`╨`%<═╟`2"($8`@╥╓╞!)─@.┬"9(─9)3$53
- ═($-/4$┼%1"`](├═&0╙╠┬("╘@4%)%4╒,@2╘59(@"5+:<$╚?─@020@.┬")(#4╥
- ═,`"┴+;`$1─.╥1─.╩,0#.+;╚$6"2╥╥┬┴$220╚,"╤&*2╨╤.2╨╪*:╚┬+┬*╩╥┬┴$
- ═220╚,"╤&*2╨╥.2╨╙*0`)+╠0$0╘8─╠┬(┬.╚%)╠├&─╨╥┴8)"─┌┬╥#**%@─+$─╠
- ═,2╞╙╠2(@(┬"╟($-&)+)#1┬2╩╥┬┴8)"╤)+#$╔``\╬╙@2"`#@╬╙╨2+(,─╚0╘8─
- ═+#$╔╠┬(╬(┬"╟($-&)++(*$-&)"╙#*$-&)"╞╦,2─`62[0!$-&)+)#1┬2╩(┬╨┬
- ═╩╠╚╚1$──*#`╠1┬─╠,30╠,2─`├2[8!)─@╤"┴&0╥─[(┬╪@(├╧'*#,╘*3═#1┬0[
- ═╤╥@╙-"─[╚╙(╨*3═36┬┴&*2)"651%4╥([`*@╬╫029(*,╙-2─[╥┬┴$220╚,"╤&
- ═*2╨┘+#,╔`-<╬╪@1#3+)#3"┴&*2`┌($╤"╠┼-:*$8╔(*╠@═2┴36┬┴&*:╘╓-34╙
- ═-┬╞╠-├4╒,╙8`$2_╠!(╠@0╘2╤╠├@@╔╥#^#2,╤+"┴#1┬2╩(┬╤7(┬─╠52┴#1"─@
- ═.═4@┬╥!#1+.╤,""╟()\@,2╤#1"╨╫`",╧\02+($-$╠╙@@╔╥`╤,├@╪`#<╧]@2+
- ═($13╠[$╓,╥"╟(#$╥.#@`:┬_[!%@─╠┬)9(┬`┌()─@(─-"32!&24╤%($5825-4
- ═4╙╠@3╒9%4┼=2251%("┴9+╘╪╔(├╠`─┬\`!:`@,2`┌((4@6"0@.┬"+(%@─╠┬).
- ═(┬"╟($9#╠─9#╩╙$@.┬".`*,╧!07╥*$-&)"─╠52┴#1"─`╧2\&!?╪-(╙$╠*$-&
- ═)*╚┬+%<┬*2╤5*$-$*0#/+╨@%┬╥!#1+,╪(*<@,3,╥,`#┬+╤0%┬╥!$4[,╥,""╟
- ═(#$╙,├```>!9─@╤╥@╤."╞╩(─-"32!$25-+($524─]2.┬`┬╩─13)"`┌($9#
- ═╠─9#╩╙$@.┬"@,2`┌((╪`0├`╚!9<@4%:╩-┬╤#3*╘╥-38@.┬"7(%!6╩├4╠0╘╥╦
- ═╨┬┴05╩╚╓*:╨╥-38`;#`╥!9<@4%:╩."╤,0╩╘╥-38@.┬"7(%!6╩├<╠3$*╦╨┬┴0
- ═5╩╚╪*:╨╥-38`┼├`\!512╠├`@.┬"+(,╚╚1$──*#`╠1┬─╠.2╨╤*;(┬02(@╔╥!4
- ═4╦(╥-34`╦3!"!5┬╥,2`┌((╠@0╘2╥,""╟(%┬╥,`"],$8%╟┬!02┌╚╓+%12+%@`
- ═╓#!+!?╪)(%@╠6"╤8+%,@.┬!%╠╠(╚4%:╩,┬─`^#!,!8╠@*%,@╦╥`╤*2"╟((╘@
- ═,╙@╨(#╚@1─.╥1─.╦,0`0,5`%┬╥!#1+.╤,""╧($-$╠╙@@╔╥"@,0`╒,5╚%┬╥!#
- ═1+&╥.""╟(/╪/(╙$@.┬"+($13╠;(╥,""╟(#$╙,3``.╙%─!8╪`03%╓!3╚`8#%╫
- ═!8\@*┬╚@4─5-3╒9%($╒3+41/4╥!&24╤%("╚╩`)@╤>`69(,<╚,30╫*3╠┬4─5-
- ═3╒9%("┴$14╤%5$4╔(%-%3$5#5$5$($╒3+41/4╥!&24╤%4╙╚┬.╔─`╙╙%┘!8╠@
- ═346╙╠3`@╔╥"9(─╒3+41/4╥!-14┘5($╒54╒0@0─4@4╘5,14-4140┴(┬`┌((─╥
- ═,#,╨``,╥>@5!)+(┬62(┌┴2)!4─4@64]5($╤)2╘4@4╒5212!!0─]55"!42$┼3
- ═("┴9+╘╪╔(├═!)``:,╟╠%╞3╩+($$─╠┬).(┬"╟((─@-3(╨`#8╥@@6+($1,╠[(╨
- ═(*<@1─.╥,"`┌((─@,30╘,`!%,╚╨%1─.╥,"`┌($:╥,0!┌,╔$%┬╥#**$1))"@╨
- ═+$8╔+#8╠,2╞╥(┬╚┬(*<@├2`╤-#<╨(#╚@1─.╥1─.╩,2`┌($:╥1╩╠╤`)4╥┼@5&
- ═╠─:╩,2`┌((╠@1╦.╥1$╨@╔╥`╤-#(╒`*@╥╞@69(─9,55-(24┘'+┬╪╬(@"╘,╔╠%
- ═╟┬!02┌╚╤,@#┴,╩`%╞2`┌()─┬1─┼,15,@4─5-3╒9%1"`](├═&0╙╠┬("╘@4%)%
- ═4╒,@2╘59(@`-,┌4%╟┬!02┌╚╥,2`┌(/╪)($$╠6"╤9(#╚@34&╥0:╔9╦#(╒-╩╔8
- ═╦#8╒-3,╓`!\╙╩@6┴^2!!)"`┌((─@-3`╨`$╪╙╧@69(┼)%34]624┘'("([╤╥@╙
- ═-"─[╥┬┴$220╚,"╤&*2╨╤.2╨╤,╥─[╤╥@╙-"─`@#/2!9<@4%:╩,3`╠1%`╚1┬╞═
- ═,├4╓(#╚@┼╥!05╩╚┘+$10*$8╔╩\(╚4%:╩,3`╔╦#(╒-@",,]0%╟┬!02┌╚╤-0#*
- ═,]8%1$──*#`╠1┬╞╥1$──*#`╠1$╨╔.┼-:*$8╔╠┼-:*$1,*3╔$4"┴&*;)$4"┴$
- ═3"─┌0╘╨╚1┬╞╥0╘╨╚1$╨╔`-8╙╒╨5$3+)$3*╠╤`-╨╙╓`6.`.(╙╓@4┌`/╘╙╓╨6/
- ═("╚╩($-/4%─@0╘)-($9)3$53("╚╩`"<╘╫`69(,<╚,30╫*3╠┬0╘]062!#0─╘═
- ═1$]3(%1/($-"32╒$3╒,┌(├╩9`&`╘╫06+($-&╠[(╨(*<@╞2)#3╘╒-3╘1/4─4@
- ═1$┼214-43╒)9($┘/5"!,3╘%$140┬(#╚@┬2`╥,#,╨`(╨╘╫@58╠├`@.┬"%(─1%
- ═5─┼#12!.54╒"15(@5$\@0╘]062!43╥([6"`┌()─`╨#3?!8╠@6+.╥,""╨(%┬╤
- ═╠├8╘(*<@╞2)"040@1$5624-%($┘534)%4┬$┬(#╚@┬2`╥,#,╨`/0╘╪`6+(%┬╥
- ═0╘0@╔╥"9(─-!3─┘/5"!#3╒!9(%1/(%-!344@1$5624-%(┬`┌((─@,├`╙,``├
- ═->$%@2!&╠├$@╔"!#1┬`┌((╠@╥┬┴$220╚,2╤&*2╨╓+#$╔╠[$┬*┬(@╔╥`╤-3<╨
- ═`$@╒╪@69($1))"@╤+$8╔(#╚@╟╙$╠0╘0╠,┬╤#3┬0╚1┬╞╩(┬╤2(@!─->,%┬╥!8
- ═╠╙@@╔╥"?(#(╠6"╨╫(#╚@┬3$╒-3``├37─!4-&)+)#3┬0╚1┬╞╩(┬╨┬╩╠╚╚1$──
- ═*#$╠1┬─╠,╙$╠,2╞╩(┬╤7(@"<->4%╟╙(╠6"╨╙+$-&)`"╨->8%┬╥!$4[.╤-├,@
- ═╔╥`╤-3,╨`+<╒┘╨6@,@#╫->@%6"2╥(┼─┬.╚4┬1─┼,12!%6$┼35%,┌($]615)7
- ═4─┼412`╚62].*2([6"0@.┬"+(%@─╠┬).(┬"╟(#$╒-├``"├;╨!?(╚0╘╪─*$8╔
- ═*2╤5*%@╔`!─╓]06?,┬╤8+#,╠0╘8─`$╘╓^@6+($13╠3(╨(*<@╞2#'*#$╪*3╠┬
- ═0╘)-($1/4╥!%4┼)/4├╚@(├═$4╥0@.┬"),34╓,`!=-@╪&╟┬!02┌╚╥-"╨╤+#(`
- ═:388!╩`╤(#╚@╚#(`<38┬!╚(@1@"┬-┬╨&╞2`┌()─┬1─┼.25-(140@+2!04─53
- ═4╥!!($═%62(@.┬"┴^2!!)"`┌((─╒,3``╩#;.!╙╚`╥╙;/!╪\@*┬╚@0╘]062!#
- ═0─╘═1$]3(%1/($╒3+41/4╥`╩*@#┌-═`'╞2#'*#$╘-╥─[(─-/4%─@0╘)-+41/
- ═4╥!43╥!-4╥╒$3╒,┌(┬`┌()─@.┬"9``╘╫╓@>+($1,╠;(╨(*<@,├`╙-0`┌-^0'
- ═╞2)-4╥╒$3╒,@1$┼214-43╒)9($╒54╒0@0─4@3$]!1$5$($9)4┼-4(@!├-^╪'
- ═╞2`┌()─┬4%)%4╒,@04┘9($═%62(@.┬"┴^2!!)"`┌((─@-3$╨`&╨╫\╨=&0[(╨
- ═`)╠╫]`>!($:╥,2"─($-&(#╚@┬╥#**$1))"@╤+$8╔+#8╠,2╞╙╠2(╩(┬"╟(#(╨
- ═-#4`╠╙?╪!╘9#╠─9#╩├$@.┬!#)+)#3┬0╚1┬─`[3?┘!┘╟**,0╚1─,╔+#(╔.╥(@
- ═(├╧**$1))"@╤+$8╔+#$╘+#$╓*3╧**$1))"@╤+$8╔+#,╘*3╠┬.┬([``\╪^@>-
- ═,├`╒,"`┌()─@╥"┴-)"╨╪*3╠┬+┬([╥2┴-)"╨╙*0`┘./╠'5%*╥,"`┌((╠@╥┬┴$
- ═220╚,2╤&*2╨┘+#$╔╠┬)!(┬"╟(%12╠├(╒-0!#./╨'├3(╤,#``23├]!╪(`9├├^
- ═!┘─┬1─╤54╘┴)3─<╬+┬╪┬(#╚@╟┬!02┌╚╤,@"2./\'╟┬!02┌╚╥,2`┌(/╪)($$╠
- ═6"╤9(#╚@34&╥0:╔9╦#(╒-╩╔8╦#8╒-3,╓`+8╪``┬9.┬"9(─9)3$53($-/4$┼%
- ═1"`](├═&0╥`┌((─╥,#,╨`+╨╪`0@┌`/(╪`@┴8╠═0╚0╥0╠(┬╪┬*2`┌((╠@6+(╨
- ═(*<@322╥0╥2╩(┬`@("`@("`@("`@(┬`┌((─╥,#─╨`"`┘!╨┴8╠╠,╚0╥0╔╩├$@
- ═.┬#╦(#╚@6+)8╩╙$@.┬#╠(/╨@╥┬┴#)"╤8+#$╔╠┬(╬(@!!.0╨(322╥╥"├(*$,─
- ═+%┬╦,2╞╩(┬`@("`@("`@(┬╨╪*0!8.18(6"2╥╥┬┴#)"╤8╩├$╔╩┬(@("`┬`&4┘
- ═(`┴-)+)-)*╔8)`!╒.2╚(322╥╥"┴-)"╨╤,2─`╠3─╦"(%)╠├&─,3$┌6"2╥╤╥├&
- ═*,╚╚320╠22╨╤*2╞╧,3(╫*3╩+(%@─╠┬(╬(╦!8)+(┬("(@╔╥!8)+(┬7╥(`╥#─╠
- ═",╚╚320╠22╨╤*;)8)"`┌(((@20`&.┬╘(2;(╪(#╚@┌╥#]($╞╤,2"╧(,╚╚320╠
- ═22╨╤*;(┬7╥(@.┬#**$╘─+$─╠,2╞╥(┬`┬(#╚@2;))╩╙$@.┬#╠`$4┌+@┴)╠├$╤
- ═(#╚@┌╥#]($╞╤.""╧(,╚╚320╠22╨╤*;(┬7╥(@.┬#**$╘─+$─╠,2╞╥(┬`┬(#╚@
- ═2;))╩╙$@.┬#╠`$╠┌,@┬.`%$┌,╨@┌`%╨┌-`┬!2;(╨╔#``?#╚┘"($@1%"╥1$(@
- ═╔"!$0╩╚╙,╩╨╚1$.╦,2─@╩2`╙,@"=.├╪(┬╥#"*$10*;(╨(+`@╨┬┴$4"╞╥,├(┘
- ═(*<@,├$╘,`"╞.─@(@┬!$4`#2.┼((╞2).3╥!&4─5%($╒3+41/4╥!$25)%0╒1/
- ═4┼─@14┘425)%4╥(@.┬".`-╚┌7`┬"($─`!├═╨"(%)╠├&─╨╥┴-)"─┌┼╘10╩─╞╦
- ═,2╙&*,╚╚320╠22╨╤*2─@╦╥`╤,├<┌@@`>.╫╚(@4╞╥,3&─,╙$┌┼╥!$4*╔)+#`┌
- ═@@`╫.╪0(┼╘10╩├(╓+#(╒-3╩71%"╩,├<╠,34`83╬.")<@4%:╩,3`╠1%"═,├4╓
- ═.╔<@4%:╩.2╤$4*╧"*%!6╩├$╨*:╨╥-38`<#╬8")\╤+$-$+#(╠0╥0`├3╧\")╪@
- ═4$╬╩.2╤44┬╨╤(#╚@_@─@6"╤8+%@╠4╨"4._╘(╚#$`═╙╠!"8╠@4╥"╧(#$@╔╥!%
- ═╠╠(╚4%:╩,┬─@.┬"-,╙@╨(#╚@├@#╬.╨8)6"2╥(┬`@("`@05-#("!315$@("(┌
- ═┬╥!44╦(╨(*<@6"2╥(┬`@("`@0─┼.("!04─<@("(`$3╨0"41,╠─1,╩├$@.┬!$
- ═)++)*"(@(╩╦$*$1,*2╨╙*:╔8)``╨/!╚)1"2╥1"2╩╥"┴-)"╨╪*:╚┬("`┬╩╠─╚
- ═320╠,╥─`43╨─"4-,*$1,*;+"*$10╩├(╓*:╚╥-3:╠╨┬┴$4*╚╥-╥─`?3╨╬"5-:
- ═╠╠(╚1%"╩,├@╔╩├(╒-╩╙"*$10╩├(┘*:╚╓-34╙-╩╙"*$10╩├,╨*0"─/#@)1$──
- ═*#`╠1$╨╔╠─0─╩╠─╚(┬`@("`@("`@(╩╦$*%-:*2╨╪*0"╥/$()1%`╚1$╨╔╠─10
- ═`,`\3`┼36┬┴$3"╞╥4╒╚`╤├╤;"8╪`╙#╙""3╚`]3╙#"8\@*┬╚@3$]!1"!#3╘╒-
- ═3╘1/4─4@1$]3($1)4─5#5$]262`╩*@`├/<0)╞2),3╘%$24┘'($-/34╒/1$]2
- ═12!$3╒,@1$┼214-43╒)9+┬╪╬(┬`┌()─`5╙╫%"8╠@0╘2╙.""╟()─┬0╘)-1$]3
- ═($1%5─┼#12!-55-4($)%(#╪](#@┴(┬`┌((─╥,#,╨`(4]╥0╞?,2╤#1"╨╨+"(─
- ═,"(┌╚2,╤+$$─+$$─(#╚@0╘:╥╩╙$@.┬!1)++'*#,╘*0"+/<╚)┌╨#$/<╠)╟┬!0
- ═2┌╚╥-╥╨╤(#╚@0╦+"*%!6╩├$╤*:╚╥-3:╠╨┬┴05╩╚╤,┬─@.┬!4)++'*,(╚4%:╩
- ═,3,╔*0#3/<╪)6++"*%!6╩├$╘*0#┴/=@)┬╥!8╠├`@╔╥#═`!<^╪@┼8)+(┬(┬`┌
- ═(($@2;)05╩╚╤-2"─(%!6╩├$╒╩┼┬╦,2`┌(%@─╠┼@─╩╠<╚╨┬┴)*2─@.┬""`",^
- ═#╨╔#1╦)#1╩╚╤`$╠^'@╩+($-&╠├`@╔╥"9(─1)4╘╠](┼$─6"11)"`┌()─@.┬")
- ═,├8╒,`!:/┬@*0╘╪─*$-&*;)8)`"9/├(*022╥╥"┴8)*╚┬("`@("`@("`@("`@
- ═("`@("`┬+#$╫*:╔4)*╦)*"(@("`@("`@(╩╦$*$*╠,├4╘*2╨╪*0#'/├╨*1$──
- ═*#$╠0╘8╔╠╠─╚(┬`@(╩╦$*$-&*2╨╙*:╚┬("`@("!!4╘,@("*╩020`[├┘!"╚╠@
- ═5"2╙╠2)3(┬"╟(,╚╚1$──*#$╠0╘8╔+#─╠,╥╞╥(─))3┬(`_├┘&"╔─@1$──*#$╠
- ┬0╘8╔``0_6@╦╠`!╚_;@╔#0;)"╦#(╒-┬`┌(*`╤(#╚@├@``````
- `
- END
- BEGIN 640 LRR.BIN
- ═`(!,#(),7(-,┴89,\╪=,,(5,┌(1,/8!,╚╪5,2╪┴,@(├+┴```````````````
- ═````````````````````````````````````````````````````````````
- ═````2*─`┴9"═(8`@╠?^╔;╥"3_┌┼5(*├_))`╨#┌─╨(*├_:""╚_╥20,`(88*─%
- ═├2"`.&"═`-╒)$(╘`╫6"╔""╨-╫/#[8""3@*╪,╫""*@(╔@╩1╚@6╪"0`6`@╦╧\─
- ═─##.&"!'_╥╨-╫""*@"";@(╘@@"─/╥0*╨):``()╬`╞56`╥,`&─/48╩0@@6╪"0
- ═`6"╔`2╨┬@#`"╩00@╩/\@╦╧]@2(╚╔`0╚*"@╚╠(╚`0`──0(%╬`:)`!8""╚_┌─!
- ═(*├_╩0─@╩/\@╦╧]╪&"!'_╥╨-╫""*@*╟╓╚(╩%`╚0#╩0"%!"╨┬@#`#($:!(%┌!
- ═╠`╟╞!*4$╥0╞0┌╤┴88*╟╓┴0*╞!!┬╔┬╟╒5@84#8``($`8.!`╨""┬";@(╘@@"─/
- ═╥0*0`6"┬`╩``╩0@╠#=╙╨^┌╘`╫4─0├0#=╦0╙<─0+(╘.╟╞`\╦0┘&!(┴`2**0$*
- ═"@╚*"0(╠(╚`0`──0(%╬`:)`!8""╚_┌4$(*├_╩0$@╩/\@╦╧]╪╩4"%!3@@1_]╪
- ═+`╫<╚@*@`*╘`╫<╘`╫=#╪104╔0/#╥╠0*-#-╥┼!4┼`┴06╔""╨-╫/#[╥-#=┘@/*
- ═╘-@8($?_+`╫<((╩`().`╦@╙<((╩`┬╚╘@@"─/╥0)88*─.├0#_╩?^-2╚"-2╪"┬
- ═!┘╒-@,╚0^╚╒,@!┴@╙4╩`╘!#╠2╪#0"╪┬8"┴┴╔┬╩┬╔]┴┴@├4╩`├─╬`┴`4@\8"0
- ═&:╘@@"─/╥0╧╨`├┴@(*:`╦4╩`╦─╬`╔`60╓╓"═2╚"╬2╪"─!4╨╞@╩+_┌#├╔$╦#┌
- ═┬!#╫&&─2╥*┬*8"!╠@╩(`╨`╞0"$┬8┌0╞╚:*(!╥&"&"╥!^@╚4(┴@╞$"╩4(╔@╞─
- ═"┬`╞@╔`!8(4,┴`╓┬`╩``╠0╥1!╠┬╤#)$&╥-#╘┘@╫╞!\╦0[>8*╔0╦)"╔`2╩0&%
- ═"╬8)╔0╟)`╔`&╩0"%">8(╤@╧0╬╤┴@..─"╠`&(╦├┌`╪`'╨!╨╩$!╥8'╔`<8;42`
- ═─`'(8"#├@╩+╓┴@:┬╟(8'╦├┌`3)&"('┌"╙4╩`╘`_╠2╪#0"─┬╔_╪╒*@(╒+@&@@
- ═├(%@```@╪╪*┬]╚8"╚╔╥&`╪╘╦@╪╨╠@╥`0@┘`!8*╘^@,─"╠`%@╦2╬#╦"╥#&&─!
- ═─`'((!"#8*─.├0#_╩0"@`"!^@┬`╞@╔`!8(4"┴`.@#;$"├3┌`╥0.0!┌─\├2"`
- ═.&"@$+$"╥0+0\:`6╠0*-/╪#)!+#╞╚!&╤`╚╒!@,╞!╠-═*2─╔*├4"`╚!.╤`╚╒"
- ═@,┬╤`╚╒#@*`8╠0+)"="_╚!╩╤`╠─"╘+>@#╦$"╥0'0╦┌╘_@`╚8:0&-18`8;4"`
- ═├42`╦4*`╦$.`..╒$@+`!┬(╒&@(╤'@*╘^@,─"╘`9.1╪!╬1╚`8╦4:`:0*-2("═
- ═1╪!╔`(╒)@*╟╓╚*"%!╚0'╩0&@`*╪_@""1@╔`!8*╟╓╚*:%!╚0'╦46`╚`"╬0(`@
- ═─8*0`6"╔]╩"╞╦─&`&&"%!80#1@-╩┴02╞`╨╚╞`╤┴┼!(4"┬╞4#┴0,8╔0)╔]╚4"
- ═╔0-╔╚(4#╚`*╤`╔─&`(@0^&`@1(2┼!2─!╘`┬┼!╥─/╩*4&8*4'╚@1&"&╦*╘/╩─
- ═"&`@1(2┼"┬─/┴0╩┼!2─!╘`^┼"84&╔0<╔\`4*┴0=,╤82┬!`8))@╦*╘/╞┼"╚4(
- ═╔0<╔#╨4)┴0>@`╦─&`)$"┬!#╪├$╥`8#┬═)╪#╔]╩╘╚@.╞╞2┬─'╩╩╟_╟4╓`8*`.
- ═├`#_╦2>`╦"┬`┴0*$`┌╟┼╚`"1`╩`:╠0*%#╠┬╤`╚4/╔0_)!9`#3-.$╩*4.('2$
- ═2)┴(╩0"%"84*╔0┌─#╥"2┴&┬%#╓┬%#─╨(┴:─.├0#_╦4╥`\"┌╔`(╒,@*─"┴6&╔
- ═`84.╦3^`┴6"╔]╩"@┴0*$`┌4.╚``@$(.0`6#╞#╠9@╘/#&8=#?╦46`┴0┌═0("%
- ═8*─`┴6&╔]╩"╞┴0*$`┌9┴╧4╓`\!"╔`)╒-@*4.╚``@$(/&`\8#┘@[╞8>8#┘@/&
- ═8-#=&&"@#╚╨`_┌─"╚`"%#╚0/┴&"$8:4.╔`\@=(2$`@4"╘`;╞8-`"┘╞'╞#═`"
- ═┘@^┼#╠╒(@*4/[4╞`─-╬╬/╚`&8"9┴╥═#┘╩0"─8*9┴8*5─╔&4@_╪*0`6"╔]╩"<
- ═┴6"$8:─`┴6*═/╚`*┴6.┼9*1┼('2$┴62$9<`%─!╥═)8"%8╩─!╦├┌`╪`'╨`╩─#
- ═+2:`╘`6╬)8#╨`╚5├(#6&8*8/╘`(88"#)_┘`$├2"`8*╟_╔╞/0`╩5┬┴6:@`+%@
- ═)`╪0!╩╩]]╚├╨`╥#2_\├$9═#╠&*5@96:%8)`"┘╞$╪╔6+┼9╚5┬╠`+&8┌5┬!6/0
- ═╤"#,_╤┴@╚`┌,`/^%#╚8/╦2.`╦"2`┴62$94╥┴┴┬#╩┴9`!8*5┼╥060]!┴@┴0┌&
- ═4*─`┴5&%5(558*─`┴6*%8┌94\`2╔`!┴@╔┼`@╤╧^0!(╘@@&"╔_┌93╘`*┼4╚5╞
- ═╚``@((>0`6#╨!┘%@╥,1╞╘/&$9┴┬┼8&5╞┴6"0`╬9┴&*5┬96:%8╔`"┘╞,╪╔5+┼
- ═9╚52╠`+&4┌54╘`:┼4@53╘+@@╙/^┼8@5├&&"┼5/`!`*51\`┬╔`(51╩0╚88*55
- ═*4#╨"*╟_┴52╔`!┴@(,__╔╔"&59`'├2"`(,╙_8"0.$`╥╩╧?:)\,?)#=`"┴5&┬
- ═_╤┴@╔5╦-2("┼6^╒)@)`!8*5:╔%╠@=(2$`@4"╘`:┼6╩1;&╞6═#<┘┼═,8╪<@
- ═8╪>0`6"%"80*╔60%9?`2╔62─9:8)┴╞2╞"╚9┼()*$3,>'╦2>`╦"┬`┴0*$`┌`:
- ═╔0╞1`╚5─╥*4*─0*%9:╟_╚`^%"80*╔62─92"2┴*5─╔&4@+8.0`6`8╔5╤┼8╚5<
- ═╔5╒┼8╪5=─`+╞7┴┴@╚`┌,`/\@╩8:╔`(5─┴66%6╪5<┴5╓%7╩─"┴5╩╔]╩"<┴6"$
- ═8:╘^@`╩╚╩0"%4╚13(+:&─`%@\`8@├(>0╪&"═)╪"╠*("%`╚0#╚@"@'+5<─0+(
- ═┌.`#─/8@╘╪088*`.├`#_┴@^╩╩0`@╩8:╔]╩"<┴6"$8:─`╚`2%4╚13(+:&╠!+╨
- ═$*╟╓╚)╥%8(1┴(#6&╠`-,6(┴@╚`┌,`/^╩(,;_─`╥╔`(╘╠@(╘╔@(╘╩@&`@┘(@@
- ═┘(@@┘(┬-*8`@┘(┬-*╚"╔`(╘╠@"#─┬,─┬\`├)0═#╒(,╙_8*``(.2(╥2+╨!╔─═
- ═@,├0\╪╨╠@"#─┬,─@\/╞-*╪`@┘(├)`-#┘(,╙_8"#/_[`%))!╨`6!╚:"#,_╘╥+
- ═┬```````````%`─-`),`````````````````````````("$┬(╥0┼)┬<╚*2╚╦
- ═+"╘╬+╙`╤,├,╘-38╫.#─┌.╙╨]/├]`╨<+#╤,7&╤\├)╥╠╧,╙<[/╘-'2╘]35╒═?8
- ═╓=╔;7%╒>7\!!0─-$149'2$┼*2╘╤-3─]045)35%565╒┴96═╧<╫=[?````````
- ═````````````````````````````````````````````````````````````
- ═````````````````````````````````````````````````````````````
- ═```````````````````````````````````````````````````````)````
- ═#0````````@``````````````"`┴(┬,─)28╟*"─╩*╥╨═+┬\╨,3(╙-#4╓-╙@┘
- ═.├╠\/3╪_0&%┬8╓1┼9╞=╚:6╔╦;&╒╬;╫!╤<╟-╘=79╫>'┼┌6╒╤=7┼\`````````
- ═````````````````````````````````````````````````````````````
- ═``````````````````````````````````````````````````````````!@
- ═04)#1$5&1╘┴)2─═,34┘/4%%24╒155┼=865╔[?'╒^?╨``````````````````
- 2``````````````````````!^````
- `
- END
-
- 7. ╘╚┼ ╞╒╘╒╥┼
-
- ╞UTURE IMPROVEMENTS TO THIS PROGRAM WOULD INCLUDE IMPLEMENTATION OF ═╙-─╧╙
- FORMATTING, MORE FILE MANIPLUATION COMMANDS (SUCH AS ╥ENAME), RE-WRITING THE
- USER-INTERFACE ┬┴╙╔├ PROGRAM IN MACHINE LANGUAGE, AND MAKING A FILE BUFFERING
- FACILITY FOR THOSE PEOPLE WITH ONLY ONE DISK DRIVE. ╚OWEVER, ╔ DON'T INTEND
- TO DO MUCH MORE TO THIS PROGRAM. ═Y INTENTIONS ARE TO PUT THIS FUNCTIONALITY
- INTO A DEVICE DRIVER FOR A NEW OPERATING SYSTEM (OR AT LEAST, OPERATING
- ENVIRONMENT) FOR THE ├-128. ┴NYONE ELSE IS FREE TO IMPROVE THIS PROGRAM.
-
- =============================================================================
- ╔N THE ╬EXT ╔SSUE:
-
- ╘╫╧-╦┼┘ ╥╧╠╠╧╓┼╥
-
- ╘HIS ARTICLE WILL EXAMINE HOW A TWO-KEY ROLLOVER MECHANISM WOULD WORK FOR THE
- KEYBOARDS OF THE ├-128 AND 64 AND WILL PRESENT ╦ERNAL-WEDGE IMPLEMENTATIONS
- FOR BOTH MACHINES. ╫EBSTER'S DOESN'T SEEM TO KNOW, SO ╔'LL TELL YOU THAT THIS
- MEANS THAT THE MACHINE WILL ACT SENSIBLY IF YOU ARE HOLDING DOWN ONE KEY AND
- THEN PRESS ANOTHER WITHOUT RELEASING THE FIRST. ╘HIS WILL BE USEFUL TO FAST
- TOUCH TYPERS.
-
- ╘HE ╙ECOND ╥OB ╚UBBARD ═USIC ╥OUTINE
-
- ╔N THIS ARTICLE, THE SECOND ╥OB ╚UBBARD MUSIC ROUTINE WILL BE PRESENTED IN
- THE SAME WAY AS THE FIRST. ╞UTURE ISSUES WILL HOPEFULLY EXAMINE VARIOUS OTHER
- MUSIC ROUTINES INCLUDING VARIOUS ═ARTIN ╟ALWAY, ┬ENN ─AGLISH, ╩EOREN ╘EL,
- AND ═ANAICS OF ╬OISE ROUTINES. ╬OTE: ╒NFORTUNATELY THE AUTHOR COMPLETES
- UNIVERSITY (AND THUS LOSES INTERNET ACCESS) IN ┴UGUST 1993.
-
- ─┘├╨ - ╚ORIZONTAL ╙CROLLING
-
- ─┘├╨ - IS A NAME FOR A HORIZONTAL SCROLLER, WHERE CHARACTERS GO SMOOTHLY
- UP AND DOWN DURING THEIR VOYAGE FROM RIGHT TO LEFT. ╧NE POSSIBILITY IS A
- SCROLL WITH ONLY 8 CHARACTERS - ONE CHARACTER PER SPRITE, BUT A REAL DEMO
- CODER WON'T BE SATISFIED WITH THAT.
-
- ═ULTI-╘ASKING ON THE ├=128 - ╨ART 2
-
- ╘HIS ARTICLE WILL EXAMINE THE ACTUAL CODE THAT MAKES UP THE MULTI-TASKING
- KERNAL IN DETAIL AND INCLUDE SOME EXAMPLE PROGRAMS EXPLAINING IT USE.
-
- ╘HE 1351 ═OUSE ─EMYSTIFIED
-
- ╘HIS ARTICLE WILL EXPLAIN HOW THE 1351 MOUSE WORKS AS WELL AS PROVIDE AN EASY
- TO USE INTERFACE IN MACHINE LANGUAGE FOR BOTH BASIC AND MACHINE LANGUAGE
- PROGRAMMERS.
- ==============================================================================
-
-
-