RINT STRING$(5,8); 970 X=1:IF LS=0 THEN OPEN"O",#1,F$+":"+CHR$(48+DC) 980 IF LS>=L-128 THEN 1000 990 PRINT#1,A$(X);:X=X+1:LS=LS+128:IF XLS THEN IF ASC(MID$(A$(X),L-LS))=10 THEN L=L-1 1005 PRINT#1,LEFT$(A$(X),L-LS);:GOTO 1050 1010 DE=1:IF D<>DC THEN 910 ELSE PRINT"PC?"; 1020 IF INKEY$=""THEN 1020 ELSE PRINT STRING$(3,8);:GOTO 910 1050 CLOSE:IF INSTR(SF$,"?")=0 THEN PRINT:GOTO 260 ELSE IF D<>DC THEN 1070 ELSE PRINT"PC?"; 1060 IF INKEY$=""THEN 1060 ELSE PRINT STRING$(3,8); 1070 PRINT:DSKI$ D,T,S,S3$,S2$:GOSUB 720:GOTO 880 1090 'FIND NEXT CLUSTER 1100 Q=VARPTR(S0$):ON INT(C*1.5/128) GOSUB 1145,1150,1160:Q=PEEK(Q+2)*256+PEEK(Q+3) 1110 X=PEEK(Q+(C*1.5 AND 127)):Q=VARPTR(S0$):ON INT((C*1.5+1)/128) GOSUB 1145,1150,1160:Q=PEEK(Q+2)*256+PEEK(Q+3) 1120 X=X+PEEK(Q+(C*1.5+1 AND 127))*256 1130 IF (C AND 1)=1 THEN X=INT(X/16):RETURN ELSE IF X>32767 THEN X=X-65536 1140 X=X AND 4095:RETURN 1145 Q=VARPTR(S2$):RETURN 1150 Q=VARPTR(S3$):RETURN 1160 Q=VARPTR(S4$):RETURN 1170 'YES/NO INPUT 1180 M$=INKEY$:IF M$=""THEN 1180 ELSE M$=CHR$(ASC(M$) AND 223) 1190 IF M$="Y"THEN PRINT"YES":RETURN ELSE IF M$="N"THEN PRINT"NO":RETURN ELSE M$="":RETURN 1195 'WRITE FILE TO PC DISK 1200 CLEAR MR:FILES 1:GOSUB 790:CLS:PRINT"WRITE FILES TO PC DISK:":PRINT:LINE INPUT"FILE(S)? ";F$:IF F$=""THEN 50 ELSE GOSUB 495:DC=D 1210 PRINT"ADD EOF MARKER? ";:GOSUB 1170:IF M$=""THEN 50 1220 PRINT"DRIVE CONTAINING PC DISK?":GOSUB 160:PRINT@128,TAB(31):PRINT@128,; 1230 IF D=DC THEN PRINT"SINGLE DRIVE COPY"ELSE PRINT"COPYING FROM";DC;"TO";D 1240 PRINT:IF D<>DC THEN 1270 1250 PRINT"COCO DISK REQUIRED IN DRIVE";D; 1260 IF INKEY$=""THEN 1260 ELSE PRINT STRING$(30,8); 1270 POKE 1792,90:PS=0:F=0:A=0:P=0:T=17:S=3:E=11:PE=0:DSKI$ DC,T,S,S3$,S2$:S1$=STRING$(128,0) 1275 DF$=CHR$(0):IF PEEK(1792)<>90 THEN PRINT"DRIVE";D;"NOT COCO FORMAT!":GOTO 313 ELSE XX=D:D=DC:GOSUB 700:D=XX 1280 IF ASC(DF$)=0 AND E<>0 THEN XX=D:D=DC:GOSUB 720:D=XX:GOTO 1280 1283 IF E=0 THEN 260 ELSE F=F+1:GOSUB 550:PRINT F$;TAB(16);:L=ASC(MID$(DF$,15))*256+ASC(MID$(DF$,16)) AND 255 1285 OPEN"D",1,F$:FIELD#1,128 AS B1$,128 AS B2$:LS=1:C=0:DE=1:AM=ASC(MID$(DF$,13)) 1290 IF (LS<=LOF(1)+1 AND L<>0) OR LS<=LOF(1) THEN 1300 1295 LS=0:IF M$<>"Y"OR AM=0 THEN 1310 1297 IF L=0 THEN L=1:A$(DE)=CHR$(26):DE=DE+2 ELSE MID$(A$(DE-2+INT(L/128)),(L AND 127)+1,1)=CHR$(26):L=L+1 1298 GOTO 1310 1300 GET#1,LS:LS=LS+1:IF LEN(A$(DE))<128 OR LEN(A$(DE+1))<128 THEN A$(DE)=STRING$(128,0):A$(DE+1)=A$(DE) 1305 MID$(A$(DE),1,128)=B1$:MID$(A$(DE+1),1,128)=B2$:DE=DE+2:IF DEDC THEN 1330 ELSE PRINT"PC?"; 1320 IF INKEY$=""THEN 1320 ELSE PRINT STRING$(3,8); 1330 B=1:IF C=0 THEN GOSUB 1500:GOTO 1370 1335 IF DE=1 THEN 1380 1340 XX=C:GOSUB 1800:IF C=0 THEN PRINT"DISK FULL!":F=F-1:CLOSE:GOTO 260 1350 N=4095:GOSUB 1600:N=C:C=XX:GOSUB 1600:C=N 1370 XX=PEEK(33):POKE 33,6:N=VARPTR(S1$):POKE N+2,7:POKE N+3,0:MID$(S1$,1,128)=A$(B+2) 1375 POKE N+3,128:MID$(S1$,1,128)=A$(B+3):POKE 33,XX:XX=E:E=PE:GOSUB 770:E=XX:DSKO$ D,TI,SI,A$(B),A$(B+1):B=B+4 1380 IF BDC THEN 1290 ELSE PRINT"COCO?"; 1390 IF INKEY$=""THEN 1390 ELSE PRINT STRING$(5,8);:GOTO 1290 1400 GOSUB 1700 1410 IF D<>DC OR INSTR(SF$,"?")=0 THEN 1430 ELSE PRINT"COCO?"; 1420 IF INKEY$=""THEN 1420 ELSE PRINT STRING$(5,8); 1430 CLOSE:PRINT:IF INSTR(SF$,"?")=0 THEN 260 ELSE DSKI$ DC,T,S,S3$,S2$:XX=D:D=DC:GOSUB 720:D=XX:GOTO 1280 1490 'OPEN"O" FOR PC FILES 1500 IF PS>0 THEN 1520 ELSE DSKI$ D,0,2,S3$,S2$ 1510 Q=ASC(S3$):IF Q=254 THEN PS=4:PE=7:EC=274 ELSE IF Q=252 THEN PS=6:PE=9:EC=307 ELSE CLOSE:GOTO 310 1520 T$=SF$+CHR$(T)+CHR$(S)+CHR$(P)+CHR$(A)+CHR$(E):T=0:S=PS:E=PE:A=0:P=0:F$=F$+":"+CHR$(48+D):GOSUB 495:GOSUB 700 1530 IF E=0 THEN 1580 1540 C=PEEK(1562+P*128+A)+PEEK(1563+P*128+A)*256:FOR X=1564 TO 1567:POKE X+P*128+A,0:NEXT X:GOSUB 1750 1550 DSKI$ D,0,2,S0$,S2$:GOSUB 280:S3$=S1$+"":GOSUB 290:S4$=S1$+"" 1560 IF C>1 AND C<341 THEN GOSUB 1100:N=0:XX=X:GOSUB 1600:C=XX:GOTO 1560 1570 GOSUB 1700:GOTO 1590 1580 XX$=SF$:SF$=CHR$(&HE5)+STRING$(10,"?"):S=PS:A=0:P=0:E=PE:GOSUB 700:IF S=PE THEN PRINT"DIR FULL!":CLOSE:F=F-1:GOTO 260 1582 FOR X=1 TO 11:POKE 1535+X+A+P*128,ASC(MID$(XX$,X)):NEXT X:FOR X=11 TO 31:POKE 1536+X+A+P*128,0:NEXT X:GOSUB 1750 1584 DSKI$ D,0,2,S0$,S2$:GOSUB 280:S3$=S1$+"":GOSUB 290:S4$=S1$+"" 1590 C=0:GOSUB 1800:IF C=0 THEN PRINT"DISK FULL!":F=F-1:CLOSE:GOTO 260 1593 N=4095:GOSUB 1600:GOSUB 1700:A$(0)=S3$:X$=S2$ 1595 DSKI$ D,T,S,S3$,S2$:POKE 1562+A+P*128,C AND 255:POKE 1563+A+P*128,INT(C/256):X=LOF(1)*256+L:IF M$="Y"AND AM=255 AND LS<>0 TH315 ELSE 50 320 PRINT"DRIVE";D;"(PC";STR$(S);")":C=33*S+10:PRINT:PRINT"FINDING FREE SPACE..." 330 DSKI$ D,0,2,S1$,S2$:F=0 340 FOR P=2 TO C STEP 2:X=INT(1.5*P):R=PEEK(1536+X)+(PEEK(1537+X) AND 15)*256 345 IF INKEY$=" "THEN 380 350 IF R=0 THEN F=F+512 360 R=INT((PEEK(1537+X)+PEEK(1538+X)*256)/16):IF R=0 AND P0 THEN 460 420 PRINT MID$(S1$,X,8);".";MID$(S1$,X+8,3);:F=F+1 430 L=0:FOR Y=31 TO 28 STEP-1:L=L*256+ASC(MID$(S1$,X+Y)):NEXT Y:PRINT USING" ######";L 440 IF F/12<>INT(F/12) THEN 460 ELSE PRINT:PRINT"PRESS ENTER FOR MORE."; 450 I$=INKEY$:IF I$=""THEN 450 ELSE IF I$<>CHR$(13) THEN 50 ELSE PRINT@32,"":FOR L=1 TO 13:PRINT:NEXT L:PRINT TAB(30);:PRINT@32,"" 460 NEXT X:NEXT C:NEXT E:GOTO 260 470 'EXIT 480 CLEAR 50:CLS:END 490 'CONVERT FILE TO SEARCH NAME 495 D=0:IF INSTR(F$,":") THEN D=VAL(MID$(F$,INSTR(F$,":")+1)):F$=LEFT$(F$,INSTR(F$,":")-1) 500 SF$=LEFT$(F$,INSTR(F$+".",".")-1):IF INSTR(SF$,"*")>0 THEN SF$=LEFT$(SF$,INSTR(SF$,"*")-1):X$="?" ELSE X$=" " 510 SF$=SF$+STRING$(8-LEN(SF$),X$)+MID$(F$,INSTR(F$+".",".")+1) 520 IF INSTR(SF$,"*")>0 THEN SF$=LEFT$(SF$,INSTR(SF$,"*")-1):X$="?" ELSE X$=" " 530 SF$=SF$+STRING$(11-LEN(SF$),X$):RETURN 540 'CONVERT DIR ENTRY TO FILE 550 F$=LEFT$(DF$,INSTR(LEFT$(DF$,8)+" "," ")-1)+"."+MID$(DF$,9,3):RETURN 590 'DELETE FILE FROM PC DISK 600 CLS:PRINT"DELETE FILES FROM PC DISK:":PRINT:LINE INPUT"FILE(S)? ";F$:IF F$=""THEN 50 ELSE GOSUB 495 610 DSKI$ D,0,2,S3$,S2$:X=ASC(S3$):S1$=S3$ 620 PRINT:F=0:A=0:P=0:T=0:IF X=252 THEN S=6:E=9 ELSE IF X=254 THEN S=4:E=7 ELSE 310 625 GOSUB 700:GOSUB 550:IF E=0 THEN 260 ELSE F=F+1:PRINT F$ 630 ON P GOSUB 273,280,290:IF P=1 THEN MID$(S2$,A+1)=CHR$(&HE5) ELSE IF P=0 THEN MID$(S3$,A+1)=CHR$(&HE5) ELSE MID$(S1$,A+1)=CHR$(&HE5) 632 C=ASC(MID$(DF$,27))+ASC(MID$(DF$,28))*256 635 DSKO$ D,0,S,S3$,S2$:DSKI$ D,0,2,S1$,S2$ 640 IF C<2 OR C>340 THEN 675 650 IF (C AND 1)=0 THEN R=PEEK(1536+C*1.5)+(PEEK(1537+C*1.5) AND 15)*256 ELSE R=INT(PEEK(1536+C*1.5)/16)+PEEK(1537+C*1.5)*16 660 IF (C AND 1)=0 THEN POKE 1536+C*1.5,0:POKE 1537+C*1.5,PEEK(1537+C*1.5) AND 240 ELSE POKE 1536+C*1.5,PEEK(1536+C*1.5) AND 15:POKE 1537+C*1.5,0 670 C=R:GOTO 640 675 S1$=STRING$(128,0):S2$=S1$:X=VARPTR(S1$):POKE X+2,6:POKE X+3,0:X=VARPTR(S2$):POKE X+2,6:POKE X+3,128 677 DSKO$ D,0,2,S1$+"",S2$+"":DSKO$ D,0,E/2,S1$+"",S2$+"":S1$="":S2$="" 678 DSKI$ D,T,S,S3$,S2$ 680 A=A+32:IF A=128 THEN A=0:P=P+1 685 IF P=4 THEN P=0:S=S+1 687 IF S<=E THEN 625 ELSE 260 695 'FIND DIRECTORY ENTRY 700 IF A=0 THEN DSKI$ D,T,S,S3$,S2$ 705 X=PEEK(P*128+A+1536):IF X=0 AND T=0 THEN E=0:RETURN ELSE IF X=255 AND T=17 THEN E=0:RETURN 710 FOR X=1 TO 11:IF ASC(MID$(SF$,X))=PEEK(P*128+A+X+1535) OR MID$(SF$,X,1)="?"THEN NEXT X:GOTO 750 720 A=A+32:IF A=128 THEN A=0:P=P+1 730 IF P=4 OR (P=2 AND T=17) THEN P=0:S=S+1 740 IF S>E THEN E=0:RETURN ELSE 700 750 DF$=STRING$(32,32):FOR X=0 TO 31:MID$(DF$,X+1)=CHR$(PEEK(1536+P*128+A+X)):NEXT X:RETURN 760 'CONVERT CLUSTER TO SECTOR 770 SI=E+C-2:IF E=9 THEN X=9 ELSE X=8 780 TI=INT(SI/X):SI=SI-TI*X+1:RETURN 785 'SET UP I/O BUFFER 790 R=76:DIM A$(R):RETURN 795 'READ FILE FROM PC DISK 800 CLEAR MR:FILES 1:GOSUB 790:CLS:PRINT"READ FILES FROM PC DISK:":PRINT:LINE INPUT"FILE(S)? ";F$:IF F$=""THEN 50 ELSE GOSUB 495:X=D 805 PRINT"REMOVE EOF MARKER IF FOUND? ";:GOSUB 1180:IF M$=""THEN 50 810 PRINT"DRIVE CONTAINING COCO DISK?":GOSUB 160:DC=D:D=X:PRINT@128,TAB(31):PRINT@128,; 820 IF D=DC THEN PRINT"SINGLE DRIVE COPY"ELSE PRINT"COPYING FROM";D;"TO";DC 830 PRINT:IF D<>DC THEN 855 840 PRINT"PC DISK REQUIRED IN DRIVE";D; 850 IF INKEY$=""THEN 850 ELSE PRINT STRING$(28,8); 855 DSKI$ D,0,2,S1$,S2$:X=ASC(S1$) 860 F=0:A=0:P=0:T=0:IF X=252 THEN S=6:E=9 ELSE IF X=254 THEN S=4:E=7 ELSE 310 870 DF$=CHR$(&HE5):GOSUB 700 880 IF ASC(DF$)=&HE5 AND E<>0 THEN GOSUB 720:GOTO 880 885 IF E=0 THEN 260 ELSE F=F+1:GOSUB 550:PRINT F$;TAB(16); 890 DSKI$ D,0,2,S0$,S2$:GOSUB 280:S3$=S1$+"":GOSUB 290:S4$=S1$+"" 900 C=ASC(MID$(DF$,27))+ASC(MID$(DF$,28))*256:DE=1:LS=0:L=0:FOR X=32 TO 29 STEP-1:L=L*256+ASC(MID$(DF$,X)):NEXT X 910 IF C<2 OR C=4095 THEN 950 920 IF (C>274 AND E=7) OR C>307 THEN PRINT STRING$(3,8);"TRACK 35! ";:L=0:F=F-1:GOTO 950 930 GOSUB 770:DSKI$ D,TI,SI,A$(DE),A$(DE+1):GOSUB 280:A$(DE+2)=S1$+"":GOSUB 290:A$(DE+3)=S1$+"":DE=DE+4 940 GOSUB 1100:C=X:IF DEDC THEN 970 ELSE PRINT"COCO?"; 960 IF INKEY$=""THEN 960 ELSE P~~o߿~׿g_{߿}~ٿ|߻{   x  8?0~;qsa``>`p?ݰ??0?ݰ߸~Ͽq?Üawacݷߕ߃??ݏݟ}?o?mo?>????7777?6?7`? 3o?l `p>>p` ?lo3? 7`??6777????>?omo?}?ݟݏ~߃ߕݷcwaÜaq?Ͽ~ݰ?0?ݰ?p?>```aqs0~;1 $%&'4567>?$6Zx0zxl;OscwaÜaq?Ͽ 10 'COCO/PC TRANSFER PROGRAM 20 'WRITTEN BY JEFF VAVASOUR 30 ' 40 'MENU 50 CLEAR 1000:FILES 1:MR=11008 60 CLS:PRINT:PRINT TAB(4);"COCO TO PC FILE TRANSFER" 70 PRINT TAB(4);STRING$(24,131):PRINT:PRINT TAB(12);"OPTIONS:":PRINT 75 DATA "C","LOOK AT COCO DIRECTORY","D","DELETE PC FILES","P","LOOK AT PC DIRECTORY" 80 DATA "R","READ FROM PC DISK","W","WRITE TO PC DISK" 90 DATA "X","END PROGRAM AND EXIT" 100 C$="" 110 READ K$,L$:C$=C$+K$:PRINT TAB(3);K$;" ";L$:IF K$<>"X" THEN 110 115 PRINT:PRINT TAB(11);"SELECTION?" 120 I$=INKEY$:IF I$=""THEN 120 ELSE I$=CHR$(ASC(I$) AND 223) 130 X=INSTR(C$,I$):IF X=0 THEN SOUND 150,3:GOTO 120 140 PRINT@X*32+161,"->";:PRINT@LEN(C$)*32+224,;:ON X GOTO 170,600,300,800,1200,480 145 'DRIVE PROMPT 150 PRINT TAB(13);"DRIVE?" 160 I$=INKEY$:IF I$=""THEN 160 ELSE IF I$<"0"OR I$>"3"THEN 50 ELSE D=VAL(I$):RETURN 165 'LOOK AT COCO DIRECTORY 170 GOSUB 150:POKE 1792,90:DSKI$ D,17,2,S3$,S4$:F=0:CLS 180 IF PEEK(1792)=90 THEN PRINT"DRIVE";D;"(COCO) "; ELSE PRINT"DRIVE";D;"NOT COCO FORMAT!":GOTO 313 185 FOR X=1 TO 68:IF MID$(S3$,X,1)=CHR$(255) THEN F=F+2304 190 NEXT X:PRINT F;"BYTES":PRINT 200 F=0:FOR S=3 TO 11:DSKI$ D,17,S,S1$,S2$:FOR Y=1 TO 2 210 FOR X=1 TO 128 STEP 32 220 IF ASC(MID$(S1$,X))=0 THEN 250 230 IF ASC(MID$(S1$,X))=255 THEN 260 240 PRINT MID$(S1$,X,8);".";MID$(S1$,X+8,3);:F=F+1:G=ASC(MID$(S1$,X+13)):L=ASC(MID$(S1$,X+14))*256+ASC(MID$(S1$,X+15))-2304 245 IF G<192 THEN L=L+2304:G=ASC(MID$(S3$,G+1)):GOTO 245 ELSE L=L+(G-193)*256 247 PRINT USING" ###### ";L;:PRINT" ";CHR$(66+(MID$(S1$,X+12,1)=CHR$(255))) 248 IF F/12<>INT(F/12) THEN 250 ELSE PRINT:PRINT"PRESS ENTER FOR MORE."; 249 I$=INKEY$:IF I$=""THEN 249 ELSE IF I$<>CHR$(13) THEN 50 ELSE PRINT@32,"":FOR L=1 TO 13:PRINT:NEXT L:PRINT TAB(30);:PRINT@32,"" 250 NEXT X:S1$=S2$:NEXT Y:NEXT S 260 PRINT "***";F;"FILE(S) ***"; 270 IF INKEY$=""THEN 270 ELSE 50 272 'SET S1$ TO PART 2 OF SECTOR 273 S1$=S2$:RETURN 275 'SET S1$ TO PART 3 OF SECTOR 280 X=VARPTR(S1$):POKE X+2,7:POKE X+3,0:RETURN 285 'SET S1$ TO PART 4 OF SECTOR 290 X=VARPTR(S1$):POKE X+2,7:POKE X+3,128:RETURN 295 'LOOK AT PC DIRECTORY 300 GOSUB 150:DSKI$ D,0,2,S1$,S2$ 305 CLS:X=ASC(S1$):IF X=254 THEN S=8:GOTO 320 ELSE IF X=252 THEN S=9:GOTO 320 310 PRINT"DRIVE";D;"NOT PC FORMAT!" 313 PRINT:PRINT"PRESS ANY KEY FOR MENU." 315 IF INKEY$=""THEN &? g0` (3y@wk0 o#}Pwo[x/  G"  @ }3N3B*/?Gb@?o`'?`U{vhPg(Ke}~| `?o $K^)|>}r o on xv(0nPT JB}$ `?o$)\{0(I$A @h` 7`Q{0$h( ~@P/ G0 ~H$!/@ n ~A (/Pn ?~~ P@ ~>0  }4P~IĀ`n0P5P@df@!@  PauRn`(?a( *]F! 0H$"*` @ ?h(( L ?篢(`"~`J@H/a 000@0@h0D@_C ``;Pom`  `(l0( 0 y dE{?8`(0h h E_@` 0oi$P@ %@ 0H_=D@@h@ 0 _A hD!~H0 +|h @ `1kc`0)oԐh@=000 vQ`0`% +`*= @(%߿%(0@`0-"Dh $` 0M@ gi_!A@ 0$Ln  0  PhMw0` Al`O` 0@3c0/iA``1 `/c0`({ ca  F ```0 4 H` ` @F#0 0;@`P)P`0 “_ 0~0 `]mM `0a_h'000nF@;] 5@0k ` /m%f0 n&0 gwNi`P 3wn/c N0` lackaoo(1ofoo1ofoo(acka` lN0 3wn/c gwNi`P n&0 /m%f0 5@0k `00nF@;]`0a_h'00 `]mM 0 “_ 0~0;@`P)P`` @F#0 ``0 4 H` `({ ca  F ``1 `/c0@3c0/iA` Al`O` 0  QP`Mo0`0 4h ?  0@ o$A@ (`0-"D( $` *= @(%߿%(0@0 vQ`0`% +``0)oԐh@=001kc +|h @ `0 _A hD!~H00H_=D@@h@  0oi$P@ %@ h h E_@`0 y dE{?8`(0`(l0( `;Pom`  0@0@h0D@_C ``"~`J@H/a 00@ ?h(( L ?篢( *]F! 0H$"*`  PauRn`(?a(5P@df@!@ P~IĀ`n0P@ ~>0  }4(+P& -v P `g;@@l>:HDgD o('z Q}$h( ~@I$A @h` 7`JB}$ `?o$)\{0( xv(0nPT 0)|>}r o one}~| `?o $K^U{vhPg(K?Gb@?o`'?`}3N3B*/"  @ 1P (>/  G{)@ `o($%8-?w)@l%+BoH(`0i?D $(ol ![ft ;  $g{/ @E+T(D lHQ($n(  @=P`H @q `HwHg0 3;? @`@ؾ P ?H`o a@ 0`k AC  0P $0{Nj/om߿w7}__~/00?'# 1q 48ѡ2p000p18E0@1ܥF#0p000p5Ȳe5QSl#p000pm+.c0F@01a+-ap000p?.|T^01A0R,!o7z00 6s>i0p000p>_Ak]m%0|' `0-mX'B}pE/R%<5#]kZ[d#!$gLFnk^s!%׳~[ey%b1 2b)~ 005  !SBb02bBQ##vGr002qFs!4gd12e!)pp!%ib1&: yppyp*6#RgbVv1>qLe12lA.}$?tadv1F<6MF<6M?tadv1.}$Le12lAv1>qRgbV&: yppyp*6#2e!)pp!%ib14gd1#vGr002qFs!!SBb02bBQ# 005  y%b1 2b)~k^s!%׳~[egLFn#!$kZ[dR%<5#]'B}pE/]m%0|' `0-mX 0:00!AV0p000p0x7i1!1j8s1| O0ZP0Aͭnp000p,$?A0400=6/#p000p>,ҲcQ00F@01Sa.2p000p)+EpYQ#'-_T[#p000p18E0@1ܥF#0p000p1O00|p01Cq=!/00?'<P# '*&T:,p000q/M06@# .*2F1!p000plNa}\#pp.`!#18!# 7#p01 0p' '#sp000pg1#p24 p000v!0p4$0p1 01gbN#NLc0p' p?62RJ sQl1 av2ı/&5`bMpp0E@0ppk&1Src_p000pbWbCbpp0pp橹cNd^0002i#!pp26 p000p /vRpp5gX p000p+!(pppp.!p000gp>p./pq0r!g000#`pp, pp1q0000c}20p1=5=.2?#,`000caήpS-p_7pTg&qt0$onqp00rq0s-qs]g00mrQ1m!2z #821%7qqPn<;g0p10p0b#!Pү#00v06TMG;Kga 0vΎe!Ku{r&q .a11N,00p:'149?0= p00nHyeggp0:10qgqhVWY= s 005>0=2h@!-01!lF_, sr70#Y01v-=p00.0 '4#q00ۏl0ep~`00>00bXa0%?0sFcN200pp00-FG1qsIA00-ɠ?~1#/O00ub1nT+jbz1aqeF?O <, &qv=r:CH,sqBr25&2Fq NS00Z#!sAv#o700\q0 ~e0q2h 0q0#T00p2 >(qi'5q>&/1vp `6qe6- 00<''176>#0}60rpP>200 pa!q.0 1q +1c>p0>2}yA! 000,(Tt00#'-}4`0`' 0c#SeW60 1c\ے#[_q[Fq00>00dY-!Z271qoq0pp1u6: 2l#XNVe#2vu@mkџ}.p0000p N *q[ !r<0&r1000p:&sr >ޱ 00 p0c062}`p1!5|v&rps0 &0sM7{CS707k5!00071sc =01!C!#F!#gC!#S@ @@H@?n` 0nO0H @}o @(D}O$@ ' (Do /? $0{C  0Pa@ 0`k A￰H`o  P ? @`@ؿHg0 3;q `Hw @P`H @=$n(  T(D lHQ(H ( >/ @Eiy($z'@ Eq0/`BJG}`9G K};(o@   /?{p?f` `<?```xP(߀xߘP8w`c߱@_?px38^>?>ߟxv3x7p{80880p0~߻x~߻s``p00``p0 g?-?;V0vb8i 7p{80880p0~߻x~߻s``p00``p0 3 s4Vy+eC!1p0 #0p0000' 5#00qs 0'c =01!!00071sCS707k5 &0sM7{W0;lbg.g0s >62}`p1! a:Wa 1=2\cAu1qoq00p?0p01u6:&7<4T{ aG0F01eB_g.c'-}4`0`' 0c#2}yA! 000,(Tt00!.0 1q +1c>p0>P>200 pa!q'176>#0}60rpߖk00*&Sbqo0#pq00CWp0mb0phGLp0q0#T00p2 >(ppp0G_q&RBr25&2Fq NS00Z#!sAv#o700]djsrB 2g0>?00c/^=x g>'00-ɠ?~1#/O00ub1nT+jbz1aqcN200pp00-FG1qsIA00ۏl0ep~`00>00bXa0%?0sFa*q1oѽ')-00}>j>?q=SB7e2007!p0.! 0qsz2<5QaY= s 005>0=2h@!-00nHyeggp0:10qgqhVWp:'149?0= p00qq00p0p0p>p00q5p1g>5S1l<1qr4g}.p0000qߟX:FqqPnӱ&q21v/+L1^ү#00q5a0RFE!' R2 av0V\a2= p5qO&rn700c}20p1=5=.2?#,`000#`pp, pp1q0000gp>p./pq0r!g000p+!(pppp.!p000p /vRpp5gX p000q# |c&2pp#!pQl<2 &%v!6.N/! .j&4&Ip000raqV0)>1Z*T?1ֲa8&5'RJ sQl1 av2ıbN#NLc0p' p?62a21l!p1`BC0q#p000pg1#p24 p000p9O`}B12pr?L>)1<7م1 .)2r?Lp000q/M06@# .*2F1!p000p+=b1?A00r01O12aNӢ101&RC&01 RSt5a +9C0V0(q aqu0qv00'aav0F070V00Qua0F07VV00QqFV0aqa00qta0jaua0F07Qa05qq0qq0F0a70V0a5q4a%a'W0Va5qq%b00aIaqq%0?6$q Ya,Mab0[.ab1a?F0!c0}A%a04%09q_a h$q oa%CqhQ 5GNqE02gOqat'0ia taExa ~a $vq蛉V0T'0V0WNqqpF?W6aV?*a1W7 aV?=aqg8aIa54qѦ9aa8qQ:a.a1W?a46;a`V>a;5qa;aeataVFF7VqaGVG7Tq}aVFiqja aua!GVF7Vq|qeatavG0V'Vzq da aug0NaqqoqtcnvvVNQEaa^qhqbqnV'aaxaIqqyVa5a_aiqqstlul5lV'oQaaFVaaahqiqqbZ&=6WSCGW5gW-.:1;S\P[R^-N55ēKr\qz*{5~.B\m 4\6x(4Z%7|5l%|,n8/4s]p\%!8!>(?!8!12?!8!;2>!?!5222Ӯ!>+?!92a @(0``0 `QC0a0?0PHF@P`0` WJ @(/P J0Ҁ(P `R`†  `((P O`F`@_ҀPP`(J@ @џ`Wԯ@P`-?P0GJ@ `}ҀP``P}ȟF@ @ҀP(Hؠ z0 AR" @``( @( P ``ҀJ" @@U(QwҀ0 {( ?P $@(†( (@0 D@@Q@(P?E`0`?р`` ( P;0@EK]*0р_oOFD@q@^J@`0 ?`PԠ?@P@w(>PpJO!G)}v0aрPO_Ҟ⯥=J{)SW+_T_:K/(?=GOޟw??]qߧGﯿ}_}ywрOzt{_0`J`?r~Cy?o!?PC|0F  P0` B @(@0 B @( "$@ `0 @P_?}), i e@000000eq'0a Aa01'G0&eavq_8a%a0c1qtTQa0F005qq0]avqEG0/bV001=aaa ea taQG0'a7aGqmj5lvQ%e$d;~kV00000A0Va ov0q Oxq F0P %a%a!a1a 5g70gg0 ngahjv oXVWF570VW500aF0qa .60~n0Ca0?1a 00}I00!0\a |0a ukV0)T'0`FV0#uW000Qv0qF9v079qV0q,a[a;}a aF1aFqeVau5q q1q~52^b1cqc4%;0gNh@Gqa a aua'0q0MVZa00#EBxa!%GV00F0FQu0a'a7qvsaY%64%aCY4+60ωgKia%gKG0001a0F01gG0Na!g0$0FV00Va tq tdWVVaug$'0 ƅaW0qQ 00%a/aW05a0qaa,04a%0maha0!cgqg001gE0geF0V0vV00V0aV0'a'av0v0?q >7050-qq9F00%aXakaHFi^a0,%a%!c0&c!'0O!c01a$q 5GEJq0WEAa0QgEa0gE~Q00F# qF007apq#q00 a g0FV00]Va}qqoaqqaaսF09a}5a_5qsKbV05q \aC_g0:޸a Va g0TsF0G04rV0%G0M%GBQ>a4a : q9XV>(a> a=6<qF:a0Quqda a6vq ea z:WGa ea uq00Qa7a0q1Flvvq籧V0Qa7a rrcbvvqz ajvv0#(ʹԂS~=(YĊ=2МяHOS 4=.}$}=6N0Rz%hFVoViWGy4y'y4yWG~GzttJJJJdtC%a&01q5~q 0!@F0lv00eavrMq70!q62aa&0q W00g00G1F00T\&0euta ye{ue00a0a0V0.000ia a 5aqAaE0#-F00l%a01gEq00v_V0WJq ta7a6qcv6q>ua07VGqtV0V5qSWVs04Wb1eʑac\4%n0GEdehgL˘qq q aa ea ea taua vvvqqa^/0F045%0%0;a a$Tx05q0054a;V01gvV0g0vV00vVĶ0 v$]aovv0Va'a70'a7lvqv1GA0Rq 50R0F:;a ]I=a0qq eo5q2V0L0%0Cq1aF01aV0Zaa 5IqOV0g0/0g0$V0ї0aF0F0#a m0}qVa0xa eaW0Fea{vJaudT0VFaug0VV000qF0.a 0qV0+ag5a0q ?V0aq&=%a5qa%a=g0%na<5qa&baqV0?&5G%4ara5q5q&%aVqY%qRVAa5oqԉa%aE0ÆANWk-j=y~B\`)o9q{ ^p,æ|{/RCױ0Յ~ykX(H+{;{:0Əhpi[]ZQ8i9 KKz zZ:a0av0q80ϧ0a0a000v0c0Ttqt0ea ,01a aa aC v>q aua ta'07Fqyq`VF0qyq(qaV0vFV604b60/Q_a Yl_61l!>W0(]g0?Vu0%GMx06tcV0VvRa8q aqaa00V00F09IqFQG0yaq'Yada v0'a0q kaq`Vaa@a'a0~$q=&0%sa_60X4%a 1'05H606Y$q nbQ y~0500n0nW0TF0#q V%0g0aV0#04a5B9V25V9a70zqF6%60!g0zVEa&0vFaSqgW00V$]a1gAvF0ЦVv|qjvvV0a'k>mz{ ~`av#!FVvv0WT5+K[a07VBO\[KJ$TkqԴtdqW0qG05q04aV0V04a V0V000!a0qQa0506qg0q0ayq{qF00V0F Qj0 W0𭶂0a l]V0 ea eua tdW0'VMG07_|JqaqV0aV05q4a45a2RQF2a CV_aRV>a^Q aqV ߒVEZqc Aa>qc $QaE0#Xaۖ09q,$a0q>4a0qE$#SQ 'RB59aqrBC0qrBqC0!rR780 LDX 26,X 02890 JSR 2,X 02900 ORCC #$50 02910 CLRB 02920 LDA #$FF 02930 RAM1C STB $FFA6 02940 LDX #$C000 02950 RAM1D STA ,X+ 02960 CMPX #$E000 02970 BLO RAM1D 02980 INCB 02990 CMPB #$2D 03000 BLO RAM1C 03010 LDA #$3E 03020 STA $FFA6 03030 ANDCC #$AF 03040 CLR FATBL3 03050 RTS 03060 RAM2 LDA $EB 03070 CMPA #3 03080 BEQ RAM2A 03090 LDA #5 03100 PULS X 03110 PSHS A 03120 JMP 1,X 03130 RAM2A LEAS 2,S 03140 LDA $EC 03150 LDB #18 03160 MUL 03170 ADDB $ED 03180 ADCA #0 03190 PSHS D 03200 TFR B,A 03210 CLRB 03220 ANDA #$1F 03230 ADDA #$C0 03240 TFR D,X 03250 PULS D 03260 LSRA 03270 RORB 03280 LSRA 03290 RORB 03300 LSRA 03310 RORB 03320 RORB 03330 RORB 03340 LDA $EA 03350 CMPA #2 03360 BLO RETN 03370 BEQ READ 03380 LDU $EE 03390 ORCC #$50 03400 STB $FFA6 03410 CLRB 03420 WRITE0 LDA ,U+ 03430 STA ,X+ 03440 DECB 03450 BNE WRITE0 03460 LDA #$3E 03470 STA $FFA6 03480 ANDCC #$AF 03490 BRA RETN 03500 READ LDU $EE 03510 ORCC #$50 03520 STB $FFA6 03530 CLRB 03540 READ0 LDA ,X+ 03550 STA ,U+ 03560 DECB 03570 BNE READ0 03580 LDA #$3E 03590 STA $FFA6 03600 ANDCC #$AF 03610 RETN PULS A,B,X,Y,U,PC 03620 END START 03670 BLO RETN 03680 BEQ READ 03690 LDU $EE 03700 ORCC #$50 03710 STB $FFA6 03720 CLRB 03730 WRP\'0 ٽB@@;Z$  TӾVս5R׾Tӽ5NӾPս55a5}L'59/&95 ;%K990123>0123=>0$\ 405"9$\ ݝ9"SCREEN /NIB" !5%9o 1?@% o1?0 0@%9' &䆀1! ܎1?@$09o1?0 ~5@ˌ%9'5Öͧ٦'5Ö̪ &ֆ1! 'XXXX  TTTT 9@@%9 00010 ORG $7000 00020 PAT21 FDB $D776 00030 FCB 3 00040 JMP PAT1 00050 FDB $D7B3 00060 FCB 3 00070 JSR PAT2 00080 FDB $D662 00090 FCB 3 00100 JMP PAT4 00110 FDB $D7CE 00120 FCB 3 00130 JMP PAT6 00140 FDB $C7C8 00150 FCB 3 00160 JSR PAT7 00170 FDB $C7E2 00180 FCB 1 00190 FCB $25 00200 FDB $C307 00210 FCB 2 00220 FDB 79*18 00230 FDB $C735 00240 FCB 1 00250 FCB 158 00260 FDB $C759 00270 FCB 6 00280 LDB #164 00290 MUL 00300 LDX #FATBL0 00310 FDB $C7BB 00320 FCB 1 00330 FCB 158 00340 FDB $C7D0 00350 FCB 1 00360 FCB 158 00370 FDB $C7EF 00380 FCB 1 00390 FCB 158 00400 FDB $CD26 00410 FCB 1 00420 FCB 158 00430 FDB $CEB5 00440 FCB 1 00450 FCB 158 00460 FDB $D29D 00470 FCB 1 00480 FCB 79 00490 FDB $D44D 00500 FCB 1 00510 FCB 158 00520 FDB $D534 00530 FCB 1 00540 FCB 79 00550 FDB $D65F 00560 FCB 1 00570 FCB 40 00580 FDB $D682 00590 FCB 1 00600 FCB 80 00610 FDB $D613 00620 FCB 1 00630 FCB $50 00640 FDB $D7C0 00650 FCB 1 00660 FCB 0 00670 FDB $D816 00680 FCB 1 00690 FCB $14 00700 FDB $D59D 00710 FCB 3 00720 JSR RAM1 00730 FDB $D761 00740 FCB 3 00750 JSR RAM2 00760 FDB 0 00770 PAT20 FDB $D683 00780 LDB #3 00790 JMP PAT3 00800 FDB $D6C0 00810 FCB 3 00820 JSR PAT2 00830 FDB $D575 00840 FCB 3 00850 JMP PAT5 00860 FDB $D6DB 00870 FCB 3 00880 JMP PAT6 00890 FDB $C798 00900 FCB 3 00910 JSR PAT7 00920 FDB $C7B2 00930 FCB 1 00940 FCB $25 00950 FDB $C2E9 00960 FCB 2 00970 FDB 79*18 00980 FDB $C708 00990 FCB 1 01000 FCB 158 01010 FDB $C729 01020 FCB 6 01030 LDB #164 01040 MUL 01050 LDX #FATBL0 01060 FDB $C78B 01070 FCB 1 01080 FCB 158 01090 FDB $C7A0 01100 FCB 1 01110 FCB 158 01120 FDB $C7BF 01130 FCB 1 01140 FCB 158 01150 FDB $CC4C 01160 FCB 1 01170 FCB 158 01180 FDB $CDD9 01190 FCB 1 01200 FCB 158 01210 FDB $D1B0 01220 FCB 1 01230 FCB 80 01240 FDB $D35F 01250 FCB 1 01260 FCB 158 01270 FDB $D446 01280 FCB 1 01290 FCB 79 01300 FDB $D572 01310 FCB 1 01320 FCB 40 01330 FDB $D595 01340 FCB 1 01350 FCB 80 01360 FDB $D526 01370 FCB 1 01380 FCB $50 01390 FDB $D6CD 01400 FCB 1 01410 FCB 0 01420 FDB $D723 01430 FCB 1 01440 FCB $14 01450 FDB $D4AF 01460 FCB 3 01470 JSR RAM1 01480 FDB $D66E 01490 FCB 3 01500 JSR RAM2 01510 FDB 0 01520 START LDX $C004 01530 CMPX #$D75F 01540 BEQ STARTA 01550 LDY #$C0D4 01560 LDX #PAT20 01570 BRA STARTB 01580 STARTA LDX #PAT21 01590 LDY #$C0E7 01600 STARTB LDU ,X++ 01610 BEQ STARTZ 01620 LDB ,X+ 01630 STARTC LDA ,X+ 01640 STA ,U+ 01650 DECB 01660 BNE STARTC 01670 BRA STARTB 01680 STARTZ CLR FATBL0 01690 CLR FATBL1 01700 CLR FATBL2 01710 CLR FATBL3 01720 LDX #$12B7 01730 STX $810 01740 LDU #$FFDF 01750 LDA #$7E 01760 STU $812 01770 STA $814 01780 STY $815 01790 LDX #$810 01800 STX $72 01810 RTS 01820 ORG $D8D0 01830 PAT1 LDB $EC 01840 STB TMPTRK 01850 CMPB #40 01860 BLO PAT1A 01870 SUBB #40 01880 STB $EC 01890 ORA #$40 01900 PAT1A TST $EA 01910 BEQ PAT1B 01920 CMPB #22 01930 JMP $D77A 01940 PAT1B ANDA #$BF 01950 JMP $D77E 01960 PAT2 STA $985 01970 LDA TMPTRK 01980 STA $EC 01990 RTS 02000 PAT3 LDB $EC 02010 STB TMPTRK 02020 CMPB #40 02030 BLO PAT3A 02040 SUBB #40 02050 STB $EC 02060 ORA #$40 02070 PAT3A TST $EA 02080 BEQ PAT3B 02090 CMPB #22 02100 JMP $D687 02110 PAT3B ANDA #$BF 02120 JMP $D68B 02130 PAT4 COM SIDE 02140 BPL PAT4A 02150 LDA $986 02160 ORA #$40 02170 STA $986 02180 LDA #0 02190 STA $FF48 02200 EXG A,A 02210 EXG A,A 02220 CLR $EC 02230 JSR $D7D1 02240 JSR $D7F0 02250 ANDA #$10 02260 STA $F0 02270 BEQ FFF 02280 JMP $D688 02290 FFF JMP $D620 02300 PAT4A LDA #2 02310 STA $EA 02320 JMP $D666 02330 PAT5 COM SIDE 02340 BPL PAT5A 02350 LDA #0 02360 STA $FF48 02370 CLR $EC 02380 EXG A,A 02390 EXG A,A 02400 JSR $D6DE 02410 JSR $D6FD 02420 ANDA #$10 02430 STA $F0 02440 BEQ GGG 02450 JMP $D59B 02460 GGG JMP $D533 02470 PAT5A LDA #2 02480 STA $EA 02490 JMP $D579 02500 PAT6 STA $F0 02510 LDA $986 02520 ANDA #$BF 02530 STA $986 02540 STA $FF40 02550 RTS 02560 PAT7 PSHS U,A 02570 LDU 3,S 02580 LEAU 3,U 02590 STU 3,S 02600 CLRA 02610 COM D,X 02620 BEQ PAT7A 02630 COM D,X 02640 PULS U,A,PC 02650 PAT7A LEAU 47,U 02660 STU 3,S 02670 PULS A,U,PC 02680 SIDE RMB 1 02690 TMPTRK RMB 1 02700 FATBL0 RMB 164 02710 FATBL1 RMB 164 02720 FATBL2 RMB 164 02730 FATBL3 RMB 164 02740 ORG $FA0C 02750 RAM1 JSR $B70B 02760 CMPB #3 02770 BLS RAM1A 02780 JMP $A61F 02790 RAM1A CMPB #3 02800 BEQ RAM1B 02810 STB $EB 02820 RTS 02830 RAM1B LEAS 2,S 02840 LDB #3 02850 STB $EB 02860 LDX $137 02870 LDX 5,X 028\Ơ. 1o. 1^1{\0.#`ٝy[{^ٝiZ# ڶjț~kDF'`k %=F \F\k kekkk[[}kek}^8]stk[[1k{"iZ 1ԂR[[}[EE'X)V]߷]_a[EE{kE {]V߷}]_a[EqE{]qV[[߶]_a[EkѠ1Р"RVѠ0Р"R{]WӋS^%{``%Ž/Х:m h\[k٤#>|hd!plXT`k]1Хi-Ϡ-߶[X-Ϡ-][///i-Ϡ-_[֛! k莯Vq/|,[\Ф~`}Р-{dځ`Р-{kڀ`Р-{^jР-[,RE,RE/KSSР/iX][E/ˏQk#{VV:R:=#{Zq[U_{Si{ۑՋ_{[[[X[[X[XXXX[X[X'[)))')))[ /-"$[[ 1-[ ,-)'[+).(["-;[+.,[1-,&V+"- /(V"-;[S.,!/",/V+.,.///V,/-/-+.,VZoV+.,//+"V/-  VZoVZo[,-[*.,/,'/,VS-,. ,/,./V/,+- -V 1//-. V/-/VZoV,/V-0[[[[q[U\qFL}[[Zpr\]_]op1111k[[aH/H.ZXл\qF[[/Gea#_[jܛ[~R[{\V߶߷]! ]__aa[E8[a[[Zjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj[k[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[kkjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjkkkk[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[kkkk[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[kkkkU[[[[[[[[[[[R[[[[[[[[[R[[[[W[V[[[[kkkkU[[[[[[[[[R[[[[[[[[[R[[[W[V[[[kkkkU[[[T [[[[[[[[[[[[[R[[[W[V[[[kkkk[[[[[[T [[[[[[[[[[[[[R[[[W[V[[[[[[[kkkk[[[[U[[[[[R[[[[[[[[[R[[W[V[[[[[[kkkk[[[[[[[[[R[[[[[[[[[[[[[[[[[[[W[[[[[[[kkkkU[[T [[R[[[[[[[[[[[[R[[W[[[[[V[[kkkkU[[T [[R[[[[[[[[[[[[R[[[[[[[V[[kkkkU[[[[[R[[[[[[[[[[[[[[[[[[[[[[[[[kkkkU[[[[[[[R[[[[[[[[[R[[V[[[[[[kkkkU[[[[T[ [[[[[[[[[[[R[[W[V[[[[[[[kkkkU[[[[T[ [[[[[[[[[[[R[[W[V[[[kkkkU[[[[ [T[[R[[[[[[[[[R[[[[[V[[[kkkkU[[[[ [T[[[R[[[[[[[[[R[[[[[[[[V[[[[kkkk[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[kkkk[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[kkkjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjkkk[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[kZjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj[[[[S_[[[[?̿[[o[[[[[[#[[[[ k G /SOǺ3[[[Oa TmwwmT[[\Z[)][_[oa[8S[k[ ~m[ n[\m[)m[m[om[8m[m[ ~m[ n[[[f[[[[[[Z\[[[[[[{z[{[[[[[qv`<[[[[[[[Z_ [[X[[[S[[[[[[[[[[[[[[[[[[[[]BA#Ky7~@C 2469x46r+:mIRS" 1oV8Yq[[[[~Ž٠kk ю %тe+ZmXLk[HȢ[[[嗏Z\z[|]}_|S[{[XI٬ٻ[HɶIaEgHDHGHFƠ\[Ơ*Ǭ8ƚ6Z[Ƭ6Z[ƬLZƬJ]Ơ՗ƠF׀h١gjܝi~HHIHHHH _߁n١Ǡ[kZ\ZƠ]hxН{Нٜeסg~1"V0"]{HH[S`FM^{\L[`mL[LRL_ÙIZƠHl1."[C3Lo[C3LH'HHH&H)HH!H HH]Ƞ١gjܝi~Ǭ6ƚQǬLƚƚ ƚƝ\ٝiU^W`ٝyU^W`F*WǠZ[ƠH*l[]\$ƠƠܜ[UƠHQkٚG^kٚakٚ`kٚϡSFQXǠ& Pk B~\HN@ɠܶȠٚ$ך>~ǠRk[|eIoǠ[ƠIaǠ&ƠǠ& u^,[Zk\߁XFi] {ok_OY]Ǡ&ƠHǚOkjWkgFkn ]]H_߁]]SEIpkZɠڌj k~[ٝiٝy޷}iҶe{iҶg]p8qI+ɠڌj ~`ٝij[}ٝi^߀S]Ej[^ٝy^Zp8q{e}g{nٝi^ٝy^It MuZ^k}[s 8u^,[Zk[^k}[pZk[_E_p\p88~$[Ze]\gǬJxǠbbIGQFMcFNLL O~TGNǠ&ƠP{;=UH*H-@ƚƚ@ƚ2H4H7[sƚ6Ơ]UEšo*k\'I6nzǠ&u^,[ZkZw~R8qǠ&Ip1\TǚOH{FvkjSkjUx{e}gǬLx[o8p{4c]nq{jS,{vjcǠ&ki~V[ojU֎{c"c_nqZpǠ&pZ|UɠkȠ܂ɠkȠނkv Fҁq_S]_|]_q&]ThZTc]Tj\TU_T\qI8qƠ3vtU{R<\>ytUР?]A{R+Р?_AqS]_|]_qZ]Ơ(\_Ơ:< ?~٠(ʠ>(hР(٠(ʠA;hР;{٠(ʠA(hР(٠(ʠ>;hР;&(e)id.ngWf\q@a[ZVaR[`c{UaRjchҶnhZ`|e[[iZq]Z}VZa]Z]}^|{\}_h{Ӧ{Z@v@|~_ @FҀ`k 3Za߀Uځaa @ӦjځV|Sځ_a{Z@vĠ@FҀ`k 3Za߀Uځaaˠ@ZkځWhSځ_a{S@I@{FMZ_GDk1"W[[0"XggXcgXgI1"ꗛ[[C3`L DI~g}SF ~mFI_ÙIsIBHvwǝsƝ|ǝƝǝuƝ~ǝƝ1"V0"]{@HHc/ov[ ,E,[[[E/[;'L[+?L[SL[㙧mL[SLFgDF㙠I1"kٚGٚ[oaҶǠ9sǠ5SǠKtT8u8UZnnk.\[xZ۶Xkٚٚϗ[oalǠ5sǠ9SǠ7Tt8U8u\nnk,*[[ƚ0]۶x][X٣]gHMn][k[][ā^EM{P][1"[/?`L[/?0"L[[h[][Ȁ[+?1"L[+?0"L[[hIwН[[ƚƚƚƚƚƚƚƚł1 .S"{R0"[ۡ3LU[][ۡ3-LUKk ٠ֹj!ڷڗ[[!{ǠڶǠ&ڎˏKk ٠ֹUڶ!ڶ{ͷƠڷƠ&٬Â٣DÂ#`ٝy[{^ٝiZ# ڶjț~Z[[MZZ[[[[[[ke[ƻ/]op1111ZXл\gFMZiFbFiGbG[DbDkaHH+FM`FNk[ZS{[t|rxr]5sjxS|_R5vj&I{[u{rxr]7sjxS|_R7vj&7ZS{[thtxtlxS|_R5yl&sI{[ugtxtlxS|_R7yl& &7 sځ~A|Ǡ[ZƠǻ/k [Wk ]aaE[Z{iǠƠڗZ[ƠǠ[ZƠ[E[~8vR[_hZyRV#%]'{[t Pku`O}{+}{fs Nku`=}{V}{a88{^Ǭ8tPsƬNvƬCٜey|v߀vځr5vhjfss8u_[jv}T[vu[`sZځj_|˗[_{߀dځp5yӦĻltt8w_[l|ځl_|_{߀wځs7vZ[Vjss8u_[jv[T}v8uZshځj_˗[_{߀dځp7y|Vltt8w_[lӦځl__{nZZ}`ٝ9g]}`ٝ9g\}`ٝ9gٝ9gnZZ}`ٝ9g]}`ٝ9g\}`ٝ9gٝ9gnZZ}`ٝ9g]}`ٝ9g\}`ٝ9gٝ 9gnZZ}`ٝ9g]}`ٝ9g\}`ٝ9gٝ9gnZZ}`ٝ9g]}`ٝ9g\}`ٝ9gٝ9g}rxr]7sjxS|_R7vjcks}Vs_[junttxtlxS|_R7ylct}Vt_[lwnrxr]5sjxS|_R5vjcks~Vs_[juntxtlxS|_R5ylct~Vt_[lwn}nZfrxr]7ssk 5~UǠ5s]nptxtk 7~UǠ7t\nfrxr]5ssk 9}UǠ9s_ntxtk K}UǠKtZnǠ&[ZƠ&LZLk~\HLǠ[Z~eeeeR`aXeeeeeVbbbbTeef^TeeeeeeRUTeeeeeeRSzeeRbb\Z\ZbpeeR`aS^TeeeeeceeeeeRS^`aTeenb\Zb\ZbbTeeeee|heeeeeRUTeeeee|heeeeeRbbbXeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeYkeeeceeeeeeeeeeeeeeeeeeeeeeeeeceeeVbbbbbWbS_________^S_________^bWbbbU`]]]]]]]]]a`]]]]]]]]]aUbbbbbbbXeRS^TeeeRS^S^TeeeRS^TeYbb\Z\Z\Z\ZbXeeeV`heRTeee|a`heeeRTe|akeeeY[[[[bb[[[[eeeeY[S^WS____~~~____^WS^[Xeeee[[[[[[\Zb\[[[[[[[[[[[Zb\Z[[[[[[eeeeV[\ZU`]]]]]]]]]]]aU\Z[keeee[[[[b[\Z[[[[[[[\Z[b[[[[keeen[`heRTeeef^[SzeeeRTe|a[peeeVbb\Z[\ZbbbWUSzeeeRW`a`aWTeeef^UWbbb\Zbb\ZbbbpeR`aTeeeYS^S^XeeeR`aTenbbb\Z\ZbbbUTeeeeRTeee|a`heeeRTeeeeRUbbbXeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeYkeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeVbbbWTeeeeRS__^WWS__^TeeeeRWbbb`]]}bb{]]abbb______^bbbbS______ibb`]]]]]]aTRUUUUTR`]]]]]]abbbXeeeeeVSzeeeeeeRTeeeeeef^keeeeeY[[[[[[b\Z\Zb[[[[[[eeeeeeY`aS____~~~____^`aXeeeeee[[[[[[[\[[[[[[[[[[[Z[[[[[[[eeeeeeVS^`]]]]]]]]]]]aS^keeeeee[[[[[[b\Z[[[[[[[\Zb[[[[[[keeeeeY\leeeeeeR[TeeeeeejZXeeeeeVb\Z\ZbbkeRW`aTeeeef_zeeeeR`aWTeVbbbb\[ZbbbbbTegeRTeeeR`]aTeeeRTegeRbbbbbbbbbXeRUTeeeeeRS_^TeeeeeRUTeYbb\[ZbXeeeeeeeeeeeeeee|]heeeeeeeeeeeeeeeYkeceeeeeeeeeeeeeeceeeeeeeeeeeeeeceVbbbbbbbkeeeeRS^TRbTRS^TeeeeVbbbUb\Zb\ZbUbbbkeeR`heeRUTee|aTeeVbbbTeYbbXeRbbbS^S___________^S^bbXeeeVb\Z`]]]]]]]]]]]a\ZbkeeeY[[[[bb\Z\Zbb[[[[eeeeYU\ZS____~~~____^\ZUXeeee[[[[[\Z\[[[[[[[[[[[Z\Z[[[[[eeeeVW\Z`]]]]]]]]]]]a\ZWkeeee[[[[bb\Z[[[[[[[[[[[[[\Zbb[[[[keeeYb`aS^TeeeeeRS^`abXeeeVbb\Z\ZbbbTeeeYS^\ZTeeceeR\ZS^XeeeRbb\Z\Zb\Z\ZbbTef_^`a\ZS^bS^\Z`aS_zeRbb\[Z\Z\Zb\Z\Z\[Zbbd`]heeR`a`aU`a`aTee|]adbbbXeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeY<<<<<[cCccccI[<\Y;H[<\Y\<[aAHaa[H;I\\<[g;I<<[H\aWWcc[<<<<[<<\ag[[[[[[[[[g<*.Z,,u\h0b0/[[ZƉZfV{+v.{8KBM2@3O{s277{V@ϚG[[@ϚG[[O[[[[[[F[jWZ[_[_[ҝ[[[[[L[4[WUZ[_[_[[[[[[[Z]\Zw[Z]\[[[[[[[[4[XUZ[_[_[[[[[[Z[]\[?Z[]\[[[[[[[ [4[lUZ[_[_[[[[[[[]Z\[[]Z\[[l[[[[[[4[qUZ[_[_[[[[[[[\Z]Z[\Z]l[[[Rmbmb[Rmbmb[77[[[ gg [[;;[[ k G // G k[[[[K[[{[[+[[w[['[[W[[[[c[[[[C[[s[[[[[[X[X[[[[[[[[[[[X[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[[[[[[[X[[[X[[[[[[[[[[[[[[[[[[[[[[[X[[[X[[[[[[[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[.[.X+[[[[.[.[.[.X+[^[.[.[.[.[.[^[([[[[[[.[([[^[[[X+[.[([[^[[[X+[.[([[[[X+[.[.[.[.[.[.X+[.[.[[[.[.X+[.[%[.[.[.[.X+[.[.[.[.[.[.X+[.^[.^[.^X+X+[X+[X+[X+[[[A[AX;[[[[A[A[A[AX;[a[A[A[A[A[A[a[8[[[[[[A[8[[a[[[X;[A[8[[a[[[X;[A[8[[[[X;[A[A[A[A[A[AX;[A[A[[[A[AX;[A[4[A[A[A[AX;[A[A[A[A[A[AX;[Aa[Aa[AaX;X;[X;[X;[X;[[[P[PXK[[[[P[P[P[PXK[`[P[P[P[P[P[`[H[[[[[[P[H[[`[[[XK[P[H[[`[[[XK[P[H[[[[XK[P[P[P[P[P[PXK[P[P[[[P[PXK[P[G[P[P[P[PXK[P[P[P[P[P[PXK[P`[P`[P`XKXK[XK[XK[XK[[[[X[[[[[[[X[S[[[[[[S[[[[[[[[[[S[[[X[[[[S[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[S[S[SXX[X[X[X[[[.[.X+[[[[.[.[.[.X+[^[.[.[.[.[.[^[[[([[[[.[[[([[X+[.[[X[([[[X+[.[[X[([[[X+[.[.[.[.[.[.X+[.[.[.[.[.[.X+[.[.[[[[.X+[.[.[.[.[.[.X+[.^[.^[.^X+X+[X+[X+[X+[[[A[AX;[[[[A[A[A[AX;[a[A[A[A[A[A[a[[[8[[[[A[[[8[[X;[A[[X[8[[[X;[A[[X[8[[[X;[A[A[A[A[A[AX;[A[A[A[A[A[AX;[A[A[[[[AX;[A[A[A[A[A[AX;[Aa[Aa[AaX;X;[X;[X;[X;[[[P[PXK[[[[P[P[P[PXK[`[P[P[P[P[P[`[[[H[[[[P[[[H[[XK[P[[X[H[[[XK[P[[X[H[[[XK[P[P[P[P[P[PXK[P[P[P[P[P[PXK[P[P[[[[PXK[P[P[P[P[P[PXK[P`[P`[P`XKXK[XK[XK[XK[[[[X[[[[[[[X[S[[[[[[S[[[[[[[[[[[[X[[[X[[[[X[[[X[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[S[S[SXX[X[X[X[[[.[.X+[[[[.[.[.[.X+[^[.[.[.[.[.[X[[[[[.[[+[X[[[[[.X+[+[X[[[[[.X+[([[[[[.X+[.[.[.[.[.[.X+[.[.[.[[[.X+[.[.[.[.[%[.X+[.[.[.[.[.[.X+[.^[.^[.^X+X+[X+[X+[X+[[[A[AX;[[[[A[A[A[AX;[a[A[A[A[A[A[X[[[[[A[[;[X[[[[[AX;[;[X[[[[[AX;[8[[[[[AX;[A[A[A[A[A[AX;[A[A[A[[[AX;[A[A[A[A[4[AX;[A[A[A[A[A[AX;[Aa[Aa[AaX;X;[X;[X;[X;[[[P[PXK[[[[P[P[P[PXK[`[P[P[P[P[P[X[[[[[P[[K[X[[[[[PXK[K[X[[[[[PXK[H[[[[[PXK[P[P[P[P[P[PXK[P[P[P[[[PXK[P[P[P[P[G[PXK[P[P[P[P[P[PXK[P`[P`[P`XKXK[XK[XK[XK[[[[X[[[[[[[X[S[[[[[[X[[[[[[[[X[[[[[X[[X[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[S[S[SXX[X[X[X[[[.[.X+[[[[.[.[.[.X+[^[[X[([[[[^[[X[([[[[[.[[[([[X+[.[[[([[X+[.[.[.[.[.[.X+[.[.[.[.[.[.X+[.[.[%[[.[.X+[.[.[[.[[.X+[.[.[.[.[.[.X+[.^[.^[.^X+X+[X+[X+[X+[[[A[AX;[[[[A[A[A[AX;[a[[X[8[[[[a[[X[8[[[[[A[[[8[[X;[A[[[8[[X;[A[A[A[A[A[AX;[A[A[A[A[A[AX;[A[A[4[[A[AX;[A[A[[A[[AX;[A[A[A[A[A[AX;[Aa[Aa[AaX;X;[X;[X;[X;[[[P[PXK[[[[P[P[P[PXK[`[[X[H[[[[`[[X[H[[[[[P[[[H[[XK[P[[[H[[XK[P[P[P[P[P[PXK[P[P[P[P[P[PXK[P[P[G[[P[PXK[P[P[[P[[PXK[P[P[P[P[P[PXK[P`[P`[P`XKXK[XK[XK[XK[[[[X[[[[[[[X[S[[X[[[[[S[[X[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[S[S[SXX[X[X[Xkk[[[[[[[[[[[[[[[[[[_[_[_[_[_[_[_[_[_[[[[[[[[[[[[[[[[[k[k[k[k[k[k[k[k[k[[[[[[[[[[[[[[[[[[[[[[[[_[_[_[_[_[_[_[_[_[_[[[[[[[[k[k[k[k[k[X[[[[[[[[[[[[Xk[k[k[k[k[[[[[[[[_[[[[[[[[o[o[o[o[o[S[[[[[[[[[[[[[Xk[X[[[[[[[[[[[[S[o[o[o[o[o[[[[[[[[_[[o[o[o[o[o[o[[_[[[[[[[[o[o[o[pk[X[[[[[[[[[[[[Xk[po[o[o[k[k[k[[[[[k[k[k[o[o[o[[[[[[[[[[[_[_[_[`[[`_[_[_[[[[[[[[[[[o[o[o[o[o[o[[_[[o[o[o[o[o[o[[[[[[[[[o[o[o[pk[po[o[o[[[[[[[[[o[o[o[o[o[o[o[o[o[o[o[o[[[[[[[[[[[[[[[[[[[[[g[o[g[[[[[[[o[o[o[[[o[o[o[[[[[[[[[[k[k[k[o[o[o[[_[_[_[_[_[_[_[_[`[[[[[[[[k[k[k[k[k[po[o[o[[[[[[[[[`_[_[_[_[_[_[_[_[[o[o[o[k[k[k[[[[[[[[[[o[o[o[pk[k[k[k[k[[[[[[[[[[[[[[[[[[[[[[[S[g[S[[[[[[[[[g[[H[H[H[[g[[[[[[[[[[[[[[[[[[[[[keeeeeeeeeeeeeeeeceeeeeeeeeeeeeeeeVbbbbS___^S______^bS______^S___^bb`]]]a`]]]]]]aU`]]]]]]a`]]]abbbbTeeeRS^TeeeeeceeeeeRS^TeeeRbb\Zb\ZbXeeeeeV\leeeeeRUTeeeeejZkeeeeeY[[[[[[b\Z\Zb[[[[[[eeeeeeY`aS____~~~____^`aXeeeeee[[[[[[[\[[[[[[[[[[[Z[[[[[[[eeeeeeVS^`]]]]]]]]]]]aS^keeeeee[[[[[[b\Z[[[\Zb[[[[[[keeeeeY`aTeeeeece+[[[[.[.[.[.X+[^[.[.[.[.[.[^[[[([[[[.[[[([[X+[.[[X[([[[X+[.[[X[([[[X+[.[.[.[.[.[.X+[.[.[.[.[.[.X+[.[.[[[[.X+[.[.[.[.[.[.X+[.X+[.[.X+[.X+[.[^[.[^X+[[[A[AX;[[[[A[A[A[AX;[a[A[A[A[A[A[a[[[8[[[[A[[[8[[X;[A[[X[8[[[X;[A[[X[8[[[X;[A[A[A[A[A[AX;[A[A[A[A[A[AX;[A[A[[[[AX;[A[A[A[A[A[AX;[AX;[A[AX;[AX;[A[a[A[aX;[[[P[PXK[[[[P[P[P[PXK[`[P[P[P[P[P[`[[[H[[[[P[[[H[[XK[P[[X[H[[[XK[P[[X[H[[[XK[P[P[P[P[P[PXK[P[P[P[P[P[PXK[P[P[[[[PXK[P[P[P[P[P[PXK[PXK[P[PXK[PXK[P[`[P[`XK[[[[X[[[[[[[X[S[[[[[[S[[[[[[[[[[[[X[[[X[[[[X[[[X[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[X[[X[X[[S[[SX[[[.[.X+[[[[.[.[.[.X+[^[.[.[.[.[.[X[[[[[.[[+[X[[[[[.X+[+[X[[[[[.X+[([[[[[.X+[.[.[.[.[.[.X+[.[.[.[[[.X+[.[.[.[.[%[.X+[.[.[.[.[.[.X+[.X+[.[.X+[.X+[.[^[.[^X+[[[A[AX;[[[[A[A[A[AX;[a[A[A[A[A[A[X[[[[[A[[;[X[[[[[AX;[;[X[[[[[AX;[8[[[[[AX;[A[A[A[A[A[AX;[A[A[A[[[AX;[A[A[A[A[4[AX;[A[A[A[A[A[AX;[AX;[A[AX;[AX;[A[a[A[aX;[[[P[PXK[[[[P[P[P[PXK[`[P[P[P[P[P[X[[[[[P[[K[X[[[[[PXK[K[X[[[[[PXK[H[[[[[PXK[P[P[P[P[P[PXK[P[P[P[[[PXK[P[P[P[P[G[PXK[P[P[P[P[P[PXK[PXK[P[PXK[PXK[P[`[P[`XK[[[[X[[[[[[[X[S[[[[[[X[[[[[[[[X[[[[[X[[X[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[X[[X[X[[S[[SX[[[.[.X+[[[[.[.[.[.X+[^[[X[([[[[^[[X[([[[[[.[[[([[X+[.[[[([[X+[.[.[.[.[.[.X+[.[.[.[.[.[.X+[.[.[%[[.[.X+[.[.[[.[[.X+[.[.[.[.[.[.X+[.X+[.[.X+[.X+[.[^[.[^X+[[[A[AX;[[[[A[A[A[AX;[a[[X[8[[[[a[[X[8[[[[[A[[[8[[X;[A[[[8[[X;[A[A[A[A[A[AX;[A[A[A[A[A[AX;[A[A[4[[A[AX;[A[A[[A[[AX;[A[A[A[A[A[AX;[AX;[A[AX;[AX;[A[a[A[aX;[[[P[PXK[[[[P[P[P[PXK[`[[X[H[[[[`[[X[H[[[[[P[[[H[[XK[P[[[H[[XK[P[P[P[P[P[PXK[P[P[P[P[P[PXK[P[P[G[[P[PXK[P[P[[P[[PXK[P[P[P[P[P[PXK[PXK[P[PXK[PXK[P[`[P[`XK[[[[X[[[[[[[X[S[[X[[[[[S[[X[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[X[[X[X[[S[[SX[[[[[[[[[[[[[[[[[[[[[[X[X[[[[X[X[[[[[[X[X[[[[[[X[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[X[[[[X[X[[[[XX[[X[[[[XX[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[X[[[[[[XX[[[[[[[XX[[[[[X[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[XX[[X[[[[XX[[X[[[[X[X[[[[X[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[RX[[[[R[X[[[R[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[X[[[R[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[R[[[[[R[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[R[[[[[[[[X[[[R[[[[[[[[[[X[[[[[[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[[X[[[[[R[[[[[[R[[[[[[[[X[[[[[[X[[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[R[[[[[[R[[[[[[R[[[[[[R[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[X[ PAC-DUDE COPYRIGHT (C) 1990,1992,1994 BY BRIAN S O'NEILL DISTRIBUTE FREELY oDƶJZ&1J@"@ fffffffJ'0 Z&0K dffffffJ'0 Z&0D%9Po#4!#Kqٷ0 ' ˽cccc'Tc%Lcc1 c@% 1||0& 9:cccطo@4R5nccccc' c0& 9ĆBCDح٦F&-DCCL ' Cح٦F& '@߆94'1' @5C\Cح٦F& ڶ$19'%'J_  ~k߆5 L"%D%BC9B C9\ ''1 #_9 \94 5IO NE FS OM @@`ERROR`` /d0 g~ɒvۅ[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[[[[X[[[[[[[[[[[[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[[[[[[[[[[[[[[[[[[[[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[R[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[X[[[[[[[[[R[[[X[[R[[[[[[[[[X[[[[[[[[[[[[X[[[[[[[[[[[[[[X[[[R[[[[[[R[[[X[[[[[[[[[[[[[X[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[XR[[[[[[R[[R[[[[[[R[X[[[[RX[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[R[[XR[[R[[[R[X[[[[[[X[[X[[[X[X[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[[[[X[[[R[[X[[[R[[X[[X[[[XR[X[[[[R[[[R[[[[[[RX[[[[[[[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[R[[X[[X[[[X[[[[R[X[X[[[[XR[[[[R[[[[[[[[[[[[[[[[[[[[[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[[[[[[X[R[[[[X[[[[[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[[[[[[X[R[[[[X[[R[[[X[R[[[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[X[[[[[[[X[R[[[[[[R[[[[[[[R[[[[X[[R[[[X[[[R[[X[[R[[[X[R[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[X[[[R[[[X[[[[[[[[[[R[[[[[[[[[[X[[[R[[X[[[[[[X[[[R[[X[[[[[[X[[R[[[[[[[[[[[[R[[[X[[[[[X[[[[[RX[[[[[R[X[R[[R[[[R[[[[[[[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[X[X[[[[X[[X[R[X[[[[R[[R[[[[[[R[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[[[[[[[[RX[R[[[R[[R[X[[[[[[X[[[X[[[R[[X[[[R[[X[[[[[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[[[[[[[[[[[[[[[[[[[R[[[[R[[X[[[[X[[[[R[X[[X[[[X[[[R[[X[[[[[[XR[[[[[[R[[[[[[[[[[[X[[[[[X[[[[[.[.X+[[[[.[.[.[.X+[^[.[.[.[.[.[^[([[[[[[.[([[^[[[X+[.[([[^[[[X+[.[([[[[X+[.[.[.[.[.[.X+[.[.[[[.[.X+[.[%[.[.[.[.X+[.[.[.[.[.[.X+[.X+[.[.X+[.X+[.[^[.[^X+[[[A[AX;[[[[A[A[A[AX;[a[A[A[A[A[A[a[8[[[[[[A[8[[a[[[X;[A[8[[a[[[X;[A[8[[[[X;[A[A[A[A[A[AX;[A[A[[[A[AX;[A[4[A[A[A[AX;[A[A[A[A[A[AX;[AX;[A[AX;[AX;[A[a[A[aX;[[[P[PXK[[[[P[P[P[PXK[`[P[P[P[P[P[`[H[[[[[[P[H[[`[[[XK[P[H[[`[[[XK[P[H[[[[XK[P[P[P[P[P[PXK[P[P[[[P[PXK[P[G[P[P[P[PXK[P[P[P[P[P[PXK[PXK[P[PXK[PXK[P[`[P[`XK[[[[X[[[[[[[X[S[[[[[[S[[[[[[[[[[S[[[X[[[[S[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[[[[[[X[X[[X[X[[S[[SX[[[.[.Xh&C(63),R(63):16&jZ$"CONVERT:":21:Z$"1] RGB > CMP.":21:Z$"2] CMP > RGB.":21:15);": ";&(8);"/";:((135)49)((135)50)4&(8);"\";:((135)49)((135)50)2&(8);((135)):C(135)49'Z(128,8);:C Z$"CMP TO RGB PALETTE CONVERSION.":21::11:Z$"RGB TO CMP PALETTE CONVERSION.":21:'150,1::Z$"ENTER RGB COLOR CODE [0-63]:":21:A:(96,8);:'(A0)(A63)200,1:(32,8);:6(Z$"THE CLOSEST CMP EQUIVALENT OF":21:Z$"RGB COLOR"(A)" IS:":21(4 Z$"COLOR"(C(A))".":21(A 22:6( 150,1::Z$"ENTER CMP COLOR CODE [0-63]:":21:A:(96,8);:( (A0)(A63)200,1:(32,8);:11( Z$"THE CLOSEST RGB EQUIVALENT OF":21:Z$"CMP COLOR"(A)" IS:":21)Z$"COLOR"(R(A))".":21)*22:11)J65497,0::K063:C(K):K*0,11,2,14,7,9,4,16,28,44,13,29,12,27,10,43,18,17,34,33,3,1,19,50,30,45,31,46,15,60,47,61,23,8,21,6,39,22,38,54,25,42,26,58,24,41,40,56,20,5,35,51,37,53,36,52,32,59,49,62,55,57,63,48*#K063:R(K):K:65496,0*0,21,2,20,6,49,35,4,33,5,14,1,12,10,3,28,7,17,16,22,48,34,37,32,44,40,42,13,8,11,24,26,56,19,18,50,54,52,38,36,46,45,41,15,9,25,27,30,63,58,23,51,55,53,39,60,47,61,43,57,29,31,59,62+:Z$"PALETTE CONVERSION ROUTINE.":21:Z$"COPYRIGHT (C) 5 AUGUST 1994.":21:Z$"ROBERT ALLEN TURNER,":21:Z$"BINARY SYSTEMS,":21:Z$"PO BOX 396,":21:Z$"DOUBLE SPRINGS, AL 35553-0396.":21::+(16.5(Z$)));Z$:+:Z$"ANOTHER [Y/N]?":21,d150,1:135,0:44539:A$((135)):(A$"Y")(A$"y")(192,8);::(A$"N")(A$"n")Z$"BYE.":21::200,1:23 V J09SRCB2@ 2ٷ؆<o05 ' t0% 0į09[' 9 m'j&m'#j&ty~%0bf~دLLL94P<54P/ط߷59o+o 3 m.Z&9Z&9o|M'v#ȧ꧍ᎀߧm_31Ơm+4h4d$f3A5% h4d$f1!5%` Z&j&9"v+3:p*93c*9ۧ"Z&91Z&9Z&9o|M'v#ȧ꧍ᎀߧm_31Ơm+4h4d$f3A5% h4d$f1!5%` Z&j& UP``p` g  P`   pP07Pp0p`p`V`0`~ E`  ` 0 p0 0p 10qqp  00`p00p020`@0 00`E0`020E   0>0E 00! ЁP00 0! 0E !!! E   ! 00 0)! 00!*  0 0!! !0@0! 000 0> !0@ ! 000!  !   0  ! ! 0@ > ! 00 ! 0. ! )! 00 0 !! 0 @0 00 E  ( )  0BPT 0 0  00 @ 000B 0)   + > P  b@(   0   E  0 : + E@ 0 ! !(! 0!E! !!+!! !! !T! !! 0!%! !R;V Q!RVe!!p&n!!&%@FBBbP&BVBbB%b@F%!Bd$bR$&B@BbRFB@&F$ Bd$($d&$ $&B@FBFBF$ $d$&%b&$&B@d!b@$&$d $d$%bRd $bBF$&B@&$b@BFB$d $d$d FB$b@Bb@Bd$ $b@F$&BFBF$ Bd FBb@BF$ BbBbBd&$FB$b@$bB@$b@F@$d&$&B$d$ `FBd&BFBF$&BbB@`Bb@F@$b@Bb@BFBF@$`&B@F@Bd $d BbB$d BFFBdF$&$F$&$$`F$d&BFB&B@$&B&&BdF$& $d$F$FF$@Bd $b@BFB@Bd B`QqWququq0`` 0 `6` l 0`0 @3 Vi` e)`c Ep`y?0y1pf)0 ?~81|  ?v@`.<0` x 4\` _h ;W?0(=p `? t U@8]A@<xp 0z Ѩ@?5g8h` p6~fy88p  U  3P  # P  W`.?P  ` h'?ph  ^   "p P? 5{0P  `p < >   "#%&'()*,-.1245679:;<=C4DR-0 BAS@M80TRKS ASM80TRKS BIN/CBHERB NIB+CBMARIE NIB$hCONVTFIXBAS8DISKNAMEBASAINITPC BAS?cNEWTON NIB NIBLOADRBIN`NIBSHOW2BAS0PAC BINPALCNVRTBAS kPRINTDIRBASB[SPIDER NIB3-SPRING NIB!TRANSFERBAS@TRIANGLENIB6p  @8 `t +6l ұ % 0 c? 0 F(` P@`0C 000L op0@(@@0@ @q7 @6#f0 @Cp 6 ʀ@ 0@   @4# @$`8@, 00x@0( 8p@ (`@ (0@ @ (0  @ 8 0 0 P 38`0̐@0@0 @p0@P @cP @ ` @ @8 A@0 @   p`p  >8| !3>>@??@0@|>0@@@f8p@ <  0}| dQ`c`ƫ#(baÓ 0 36g t`zklp1E5P`p x8g6cpx`8blf Jx0|{_0>{x|@X8|m G=p;G7'x1D>.o\/`w>zg;,7Yǻ{np{3<`\|x<8|;xhA 0@ c`   8 00 80p 0 0<x 1~q>=o>`~>>>33??7cg0cc????|?ـll|c>c666?`c` p?=98+)(/???K0kPMqU66?9^ y;zozozzxzoozo zoooozzz zzozoyooozzxooozzxooxzo ooooyoxoozozo zzoxozzoxozzoyx zzz xozo xo z xoop zz zzzoypzzzo zo_o oyozzxzzzzozzozzo zzz zoo_o_o_o_o_ozzzz ozߏo_o_o_o_o_ozxo_o_o_o_o_ozzoo_o_o_o_ozzzߝ ߟo_o_o_o zzzߟߍzz zx 🝉zߐ z ߟٍُzo ى  🐏o Б ߟ ى߉O_Oo o  ߐO_Oo ߝߟ oߟ ߏO_O ߘo  ߘ ُߘ🀐 O_OO  O_OߏO ߟO_O🏉🏟  ߟ؟🏀  ߝ ߟߟ O ߟߟߏOOߟߟOO OߟOO  OOOOO OOOOOOOOO OO OzOOOO🏉zOO O zxzOO zxOOOzO O OxzzO OyzzOOOOzOOzzzzOOyzzpOO yzO OyzzzO OOz OOxzzOOO xyz OOO zzzzxOOOOxzzz OyzzO z yxzzzO zzxzxz OzzO? zO?OxzzzO?O xzzzO?O zz O?zO?O zzOzzxxO?O  zO? zzzz zO????zO???_zzO??_߉O???_ ߍO??_؝O??__ ߀O?_  ??_ؘЉߍ ??__  ؘؑ؟ߝKO??__ЀߝߝK   ؐߟK ٍߘ O??__ ߍߟ ߝ ЉߟߟO??_ЉߘߟO?_ ߟ  ߏ؝  O?_ ߟ  Ѝ؟ OO???_  ߉ OO_  ߘ؟OO_    OO/_ OOO/_/_ OOO/_/_Џ OOO/_/_ ߘ ߟ ߏؐ ߉OOO/_W؝xp  _/_x ߘ_/_p xp  pߟ xpxp ߉  qxp ߉И   xxp ߘ xؘ  🐉p _ _ _x_   🐟  🏟     🀟  ?  🐟 ?    ?NP 'KL  8ր4 ^π. @o \ XPIذ j7ZP ON1  k oi /h('i@ [‚@p kݨ׀ 0 p w! p  "}@+ P OIw@[ [- <8,h}A  ڂ"P͋r K-   )̽| /&ڎ7 @ Sj J:RS ~` _OJ/^?~ ` ]j)h'|,  ](98>x=U((@ ‚iM΃ݽ0 ח kx <̬ 8  X)W ߆Z Do Ow0l @)h)k)uy (<8O<@~ JⳂBMN7 K@w? C z繺@  G_ voN ڿ ' Z77P<> !oMAL77 ,rW" #()ihA>@t| "m8&AM׾Bx޸ }NHJٍD/ex^ ~x{ y<o </ =Pv^VoJ߯o 7q{Wuҿw@o  ԾHo O0 iyd@ w]Aio U$yz guo(OKP} ፭Oo A@d} Go dzOyZΪo oWǭo ?IX7퇿so ˯ ?7o g$)ixo#: |`؀Ucw=݀  ϛ?PA M@  B #~ hQn0b n7@ ^:HA K%jG7\۰ @ N~I  nV@s( \DbgCip qA74WW8")iS`! h( B@y$ U_wx\0 `k |AKծ ϱ `# $Q0 ?ߑ>>B0r.t7^CJj$ 72?eNxOH: >ip#6ikiBrE]0x,߾WE݁h?;`1% ߽~~ T ZAppࢊ oGJH7Vj& G?>+i3?5KOKߧ<)i½Ao{iy_?@ :ܨ89?$t ۣB/??tA@ #W B@  &u<@z wf`Tp7 k 7q|7LJ/KOKON7@,)ikA!i`/וh8Ag~ {CB @~ d`0Y $t00?  @0`b7QZ 0``C? 7O  ))oh) iAX  O35t8(!'ٙ 0KwP `l? eķ(P+ޤ߀m$|03xK L ` a6?!n̴``a xwnዶ;.K"@ @A?-:^ @ _~'0GT(P0l^  7@MV )")}i ~0g$:xR D 6($0o{H { GBf@` ʮ ?(Px08@ }l (wQ?cN^z$Wwٿ]m3\€/@>kc az1a)ho+!0 0?axo6T6P6@Ow ͌{@w x=/H?!D?xdՀ3O:P*RV@@_†_?]sSDP7@}5Z@D焷7^;aci:!kyx?/0 *;] _@>7ӄaml? /@"(xк J wlP j8<&7k??_6H {z;v`Z~נݘpAG?\?K *\+ t<ϙ %#!vy!kA@? WD*0 AQ[k͝?@ Ï?gPxݞj?_*Vw^?7pi13Xtw??C/7&5_pw5yq?v U{! Ma?  梠?>ǃ7?o϶wGkjyy 9h=<ն7_?ݍ ? {נljg}7l? PfH/wqO06?!`?t6~TG~HY}mo??!ՕH-7-ꦪ꺪ꭡWf?=ݼwo?//{&{qۚ y}akx {y~0xo{;~qް w?7{|~w>_~z=g~o_0,p?ƿ`{~~ 1~a ?p{9s/>πP`_=pW;/gk7?m?߿/~x0f7z>B@|j!@ y(p=ķ s   `-瘀`|`ͺ`H7Dz,r@ !~ߞ!o0$030?0$`Ԗ?/`s >c @ @~  ~;y ߿?ǃPo df?XB`~RB ?n?C@@}y(( 4o PH 4@ (/| o 1 @?~@PH((o(s`.~ 0 ``0~`  3}3ǀ3_6?l; @ ߟh~ _(Pxg>p8999999>9>9>9><9~<9~<9~<;~<;|<;<;<;< ;< ;>;}>;}>;>;>;>;>;>~;>;>;>;|>;>;>;<~;8~;<~;;;+?~{????=?????????>?1??;???????7ݿ?????????????ߟ?????;;?????};}????|???7???;???>??{}???;?yyxox19?cw?5fv?w;??3???> ?7~n9?",?%6p303o5y;19?cw?5fv?w;??3???> ?7~n9~ _[``p```p``p```p`` p```  p``j     p`$&   p`d$        ```p`G  G  p`p`࠰`j `   ``p ``p`p p`px`pd`px`p`b`pxp`g `@``h`@`h`@H ```@`  ```  `@``@`@`@`@` `@``@`@`@`@`@`@H     @`@`@`d    @`@``@`  @``@H  @H     H@``@  ``@I `@I        ``@   ఠ`@`@`@ఠ`@  ``@   ```@I ``` ````@I    ``n ````pv ``g```p`@     `p@    ``g       ``@         ``p```v  ````p`@   p`@ PP``vp@ pg PQ  p@P`g`p@P`p@PP``g  PP`p`@`g  `g  p`@P`p`@I `@P`@Pg`@``g   `@PP`@PP`@PP`@P]`@P]    `@PP    P``@^    ```@P    P```@Р`@]    Р``@  Р``@    P    Р`@PP``@PP] ``@P^P] P`@P^P]  `h  @ Р`h  p@P^    p@P^   `h      P``   pPp`XPPPP pXP  pP    pPX^P`pP`PP  PP``pPXP^  pPPXPQ  pP PPpPPPpPPP@pPXP@pPPP^P@pPP^P@pP^P@pP^`pP@`pPP@@ V @ @ !-P`<! L($V6 :108ad.x p@p` @`0sUP@p@.*R["T  0 t$ qH( ?Е;  [BR^I 8 $4P JА8)dJ `@\ "SC Pp3  @ aZ;0@@P,JAT (fHU*uh@"`a@2@,y+B`  *Ԡ$"虀0@ P     @u0 ` .> a@@l (@A2@{ U@ˣ +$` `%  B됖`x 5% <Pj80 SU -  Է$@0`E p 0b<"  mI`($a B<`DB0 uP" xzH\ 0D=V `@@  "DP6 °(҅x 0:PR $$+Bp`%@ QE@$@@THwnz( @(@0 @t0@PXD@ADׂD9H@4a f$ L( @P;p P@0]"@HPBpp[Eh` MIX= P@U x ,2B!0D\*x!B0^0 tV P0@ҿ]?8 @.~`$ @ P .Ir0@V]Q"8<p j <`$P:e+ - 5(#/:.IX 0Pt'l@\h`D @[L@Ĩ `h%Ln@VP"_#@L KVe(4Vx6 Hl`:ѰpA@HP3`` Q@(1  yEK`(b h_A P$>H@I`qu@H 9``'A :)Ēp E .< HRXP)#`@>D 0`6 )Q0 ~Q Ivp" O!p@)ہ(`Ad0S%$bD0P(\adWT;hZH e'<@4)#$pр׀(p(R G(PVBt@|TVj J  9@D )3( pH=+<@z` H2(PWl8g g`9 (sR ߀$(AC)^@@1x:X(1` R"pyը X@fPx ?ΠP ``=J2FHP@PT(izP >h(Af@(P Ҁ+u 6JHhPTEQ8jW z\P `A,ԯpX 9L`H 0`@P XP ^p   H L(R1 <o h 8Px(AkBD@A@ƽJ=pb%t 0֠z1.e]p BP@`+xL%(W\P$ f?ԯb?^@6!P?\ R(?x (J+4 +@@ 0If LZZZJ(]-/*QWE,mEJ9 о=Qxٟ8zK&e6 |ZY:n3 Q((P'L(hn@zt}?8]( @6 4S S€OcvNs4pp6 0Q>. ~ =샌@d 8 } 9Ua t&e237ҳ pƇcP`  m+:6 & 0 ?][+'2 i0d T2A paC 8@LL6 b+25)/4*R0)OPBH9棊ee4b4tĠ0r{bACs »B#͈y! 8&OEAʑx`-B ^yz^!M6 `F@4} qAGrp$SR0;À{8Ào:?9;??;99~;98?98 ;8 ;ϟo>383c`cc?c8`:ay9߃w?7? ٷ398?;83>8;?>;?7g>?9=8;;;33}~??7?6??g~~???xx?????c?c??x||>a???`o`wogs~wpspgp|||~~>v~~||}?}??p7~;?x8?qq 7700p?6.& 8"4$ QR0qRY1*_[7~;?x8?pv~׳b~~m{%5YƤ=ٕǻ&εҝOM4O_(ւPP՝ aOփ~pu~D~mǘ{Dz%)Ƥ=ٕNjǠǿLѰP_FOr(ՕP&P#ԯ nO_' Ԏpv p;q' 怦Z& ٕ9ہ߆~r9ٔ(%(@ '~z~~ ٔ9ٔ(%(@ '~և~֋sٓ*% @ Hѽ'~ֈ~ ~fsٓ*HCP޽'~՛~3~y @94Bc3CcOc'c53/c5 #~'92b7P_%\-%>ہ9'54n2b=4_5DVDVDVVV%0'P)_Z&> P_Z&>5pVV%0'P)_Z&> P_& FROM ISSUE #20&F : NIBSHOW 1.2 by Stuart T. Wyss-Gallifent&: incorporating the NIB COMPRESSION SYSTEM by Rick Cooper&: NIBSHOW 1.1 (C) 1993&(: A few commands are duplicated within the program due to NIB interaction.' 2 80: 0,0: 8,63:1''<8:500:FL$(26):370'pF&HF09D,0:&HF09E,2:&HF09F,0:&HF014,0::DRIVE,HSCREEN,LINES,BORDER'P&HF010,0:&HF011,0:&HF012,0:&HF013,0::COUNT,SS,SSK,DELAY'Z&HF016,1:&HF015,1:&HF017,0:&HF018,1'_3000(d: LOAD NIBLOADR.BIN FROM DRIVE 0(n0(8x65496,0:M"NIBLOADR":65497,0(g(&HCFC3)&H8D &HE76,&HCE:&HE77,&HE7(q380(:CHECK DISK FOR NIB EXTENTIONS(9,55(A219:0,A::A(1,0:28,12:"Reading directory"(K0(ȀS311)Ғ65496,0: (&HF09D),17,S,A$,B$:65497,0)/܀A1(A$)32)q(A$,A8,3)"NIB"((A$,A,1))0KK1:FL$(K)(A$,A,8))K26K26:300)A)A1(B$)32)(B$,A8,3)"NIB"((B$,A,1))0KK1:FL$(K)(B$,A,8))K26K26:300*"A:S*&,28,12:0,0:" "*16A1K*^@(FL$(A))8FL$(A)FL$(A)(32):320*eJA*T&HF010,K:&HF018,1:: SET NUMBER OF ENTRIES*^A1K:B18:&HF019A8B,((FL$(A),B,1)):B:A*h390*r500:FL$(26):370+ |0::0,0:0,0:8,63:9,54:10,19:11,53+J&HF011,0::SET SLIDE SHOW TOGGLE OFF+0,0:"Current drive:"(&HF09D):28,0:1,0:"N I B S H O W 1.2":60,0:0,0:"Default Hscreen:"(&HF09E):"Vertical lines:";, L2(&HF09F):L20"192":L21"200":L22"225",Q66,1:"Border:";:(&HF014)0"black";:(&HF014)63"white";,(&HF016)1&HF016,0:A219:0,A::A,(&HF017)1&HF017,0:470:(&HF017)2&HF017,0:79,22:480,…(&HF010)0470,́930-օ(445728)650,21:"Arrows:move Space:load D:directory C:change drive number B:border swap H:hscreen swap L:192/200/225 lines select S:slide show X:exit"-A$:A$""480-A$"X"65496,0:500:0:1:.xA$"S"(&HF010)00,21:(160,32);:0,21:"Time delay between frames (in seconds, minimum=3): ";A$:(A$)3(A$)900380:&HF013,((A$)):850.A$"H"(&HF09E)2&HF09E,4:&HF017,2:400:(&HF09E)4&HF09E,2:&HF017,2:400/jA$"C"0,21:(160,32);:0,21:"New drive: ";A$:(A$)0(A$)3&HF017,1:400:&HF09D,((A$)):(&HF09D):&HF010,0:&HF016,1:400/A$"L"&HF09F,(&HF09F)1:(&HF09F)3&HF09F,0:&HF017,2:400:&HF017,2:4000#A$"B"(&HF014)0&HF014,63:&HF017,2:400:(&HF014)63&HF014,0:&HF017,2:40003&A$"D"1500I0(&HF010)04700c:A$(32)ASL:5900nD10300NF1$"":B18:F1$F1$((&HF019A8B)):B0X6100b:ACTUALLY LOAD THE PICTURE AND DISPLAY0lX0(F1$)11 v&HE92X,((F1$,X1,1)):X1&HE6E4,&HE61,(&HF09E)1D1:FL$(26):3701Q65496,01\&HF001i65497,01500:FL$(26):3701 QZ0 3:DP(QZ)(&HFFBBQZ)64: QZ1ƒ&HFF9A,(&HF014):(&HF09E)47402"L2(&HF09F):L20&HFF99,158:L21&HFF99,190:L22&HFF99,1262,ځ7602vL2(&HF09F):L20&HFF99,157:L21&HFF99,189:L22&HFF99,12527602(&HF011)18902I$:I$""(&HE92)4211102I$""(&HE92)451140:7702 I$"1"13 I$"2"2:(&HF09E)27103 I$"3"33=*I$"4"4:(&HF09E)471034I$"L"&HF09F,(&HF09F)1:(&HF09F)3&HF09F,0:710:7103>I$"B"(&HF014)0&HF014,63:&HFF9A,63:770:(&HF014)63&HF014,0:&HFF9A,0:7703H7703R:SLIDE SHOW4 \&HF011,1::SET SLIDE SHOW FLAG4.f&HF012,14pF1$"":B18:F1$F1$((&HF019(&HF012)8B)):B:P015:P,0:P:6104z04(&HF013)60910:""910:(&HE92)421110:(&HE92)451140:9005&HF012,(&HF012)1:(&HF012)(&HF010)870:88053805*:MENU5>A1(&HF010)5jHS(A1)(((A1)4)4):VS((A1)4)5zHS20,VS353,05ԀB18:((&HF019A8B));:B:A5SL(&HF018):OLSL5HS(SL1)(((SL1)4)4):VS((SL1)4):HS20,VS36)0,0:B18:((&HF019SL8B));:B634706aA$(10)SLSL4:SL(&HF010)SLSL46A$(94)SLSL4:SL1SLSL46A$(8)SLSL1:SL1SLSL16$A$(9)SLSL1:SL(&HF010)SLSL16.SLOL 1080 : 10207-8HS(OL1)(((OL1)4)4):VS((OL1)4):HS20,VS37XB3,0:B18:((&HF019OL8B));:B7tLOLSL:&HF018,SL:10007V:ANIMATE7eHDP(3)7f QZ3 1 1:DP(QZ)DP(QZ1): QZ7gDP(0)H7h QZ0 3: 11QZ,DP(QZ): QZ8jT1(((&HE93)))15: T:(&HF011)1900:77085t:FRACTAL ANIMATE8RxH20:3020: H20 11468my(&HF011)1900:7708z (&HE93)490 (&HE93)498 40008~A2(0): T1 2((&HE93)49)2: T:(&HF011)1900:7709# A$(&H7C)(&HFF):PP115:C$C$A$((&HB0)PP)(&H12):PP9f € A160:&H400A,((C$,A,1)):A:&H400A,&H39:2&H401:9 : VIEW: -R = RED -G = GREEN -B = BLUE -S = STANDARD9 I$((&HE93)): I$"S" H21 : I$"R" H22 : I$"G" H23 : I$"B" H24 : : ::SET PALETTE:; D H2 3160,3170,3180,3190:g N I0 15: I,((I$,I21,2)): I:: XI$"00010203040506070809101112131415":: bI$"00043236374433383552535455603534":: lI$"00022016182219232630585150172106":; vI$"00010809111025312724141513292812":;70:0,0: 0,0: 8,63:1::;:"You are seeing this screen because at least one filename that you are attepting to view is not correctly formatted."<^:"If a filename begins with a hyphen, also known as a dash like this -, then the next character MUST BE a number from 1 to 9, or one of these letters: S,R,G,or B"<:"Please check that filenames with hyphens meet this requirement. If not, use theRENAME command to change the filename to an acceptable one."=ȇ:"Remember that NIBSHOW 1.2 can animate Fractals, and that the hyphen is a signal to NIBSHOW that the picture is a fractal that needs animating."=Ғ 65496,0::::: If not, use theRENAME command to change the filename to an acceptable one."=ȇ:"Rem&# f#42424T24Pvd24VT24Vp$S!#Eg0u24VQ@vS!#EWPWe24VRQde24g`p6S!#Fq@$sp&T24p!@QuC!#FCTuC!#Eg#p T24Vq4W%FqvC!#Eg4Vq#WTuC!#E`$a62@uC!#V04 QuvT25dPT1eC!#VV&T2vT25`&d!eC!#V`vBvT26W!C!#gqpGst 0vt!#V$pcgB5g@1vB4V!5T!#Ec`52STQT!#Egs24cGVT!#EgEp4`vp0e!#Eg#Ep1SG7gTT!#Eq5rvTrp6'B5bBEpF5Ta0QvBg&AeBEVd2GT!$P%e eC!5t!$WV%2eCV`PBEpvcbG1eCBpe4t!$Vq%'a5SV22BFq@q4deq@SeBEFvsq@SeC!$Vr`Wg 72&1vT2EgG`%pgB2R2`p7eC!$Vq1' # pB5 S$eC!$Vpbq`R60'SGuC!$Vpbq`R60'SGuC!$W$`R$Br6FuC!$W0p4 2Rt5tE@vC!$Su p%@R0dWV @u T2Eg`dT'`QCWgE`v$cupauC!#FuSpdPWp T!vT1uC!#FVp$W0`g1d2eC!e24seg g$T1d2vS!#G gqGA !u5FBe24rr1q01 d0T#cv24g& 2G424`A' ``4aB@Pc!#Eas$` G4P2Bc!#Ea0SB27e4Pe20u24V4#T4W!24VgT`b6 %C!pGPpu24Vp$1CFVt4WT2u4e24Vp4a@gV`$RuBeCCe24W#FWV EvtebT2v T24WVq6'g vVrvP&Bv0T257%q#`Gg@Bv'eF@eC!#Wq#Vp#@g%!5uC eC!#Vp@R5sG@b2vT25g#W0!$p!q$!`S!eC!#Vq$4PSPCPF1vC!#gc4Ep cWa$`GCpW1VvC!#V#S EgvFcGT0gd25Ep`gt240cFrCRt25pFEg&r1u4u0BV0q`4A C!#Pc%cRa'PCEa@vp!pF2d!dTrQC!#VpS4eeEbp e2SAu2 'd24VVBua#'T#`1evC!#E` V#QV1$`PC!pFC!vT24VTp B5`!VqAp4tB`BuC!#F@1&Cq5SF$T24gFp2PT5ea0a@uC!#GW#W@dW Bq#gq@'SP C!#@ pvq`Vepcq#Pp'1 Pd!d uC$!uC!#F0vPR4P#WBWBvT24gTBgPgB4WPC`uBeC!#Fs#F@' #P$$WPEg1u1eC!#EsW5Pb@C0TVqEgE@6@%T24W@u@e% vFp%P`AcF2eC!#E`rE`'25@pvp55 @aT24W5$70T2B#WVpTAvT24VS#uE s#Eg&u0vT24VP'eG p2EgF p0AeC!#E`Pp`EvTrG$Vq$bAvT24VC g06vvF4gPpbeC!#Eap@2%0!5gF Sb@vT24VqEC$pq#Vr5vT24VpE`WT`$g0aeC!#Egd A%vT24Vp& `PpBvT24Vp@p&B2P!eC!#EgP1uFrFqvT24VqEC$pq#Vr5vT24V 1PCVp$a06$eC!#E`2s``Gda#Fp% vT24VP'eG p2EgF p0AeC!#E`%0 B07TR14Vr`p0@PgSGeC!#EpCRCqp0@C$ `5u`g@1@deC!#E`rE`'25@pvp55 @aT24W@u@e% vFp%P`AcF2eC!#EsW5Pb@C0TVqEgE@6@%T24g24dr5r@BEq%Vp#PSvT24gTBgPgB4WPC`uBeC!#F0vPR4P#WBWBvT24g`W75q#BBT12BT24q5r5p4Er'6qu1uT24q5r5p4Er'6qu1uT24gFp2PT5ea0a@uC!#F@1&Cq5SF$T24VTp B5`!VqAp4tB`BuC!#E` V#QV1$`PC!pFC!vT24VVBua#'T#`1evC!#VpS4eeEbp e2SAu2 'd25sG2@P4V@vpCcC!T'%1d25V5&q'PSFa&BvEGd25pFEp`g gC#GS#E`0@q vAPt1 t25`p0b52Vqa$a4pe@SvC!#gc4Ep cWa$`GCpW1VvC!#Vq$4PSPCPF1vC!#Vp@R5sG@b2vT25p0'5g4rPrP7T2T257%q#`Gg@Bv'eF@eC!#Eq5g`@vp2eg 7a`d'ceC!#Ep4a5pE`Q@'gFV eC!gbeC!#Eg#Fp5a&E 'T vT1 1S!#EgC4`Pua WCEpAuC!S@p vS!#E`6pF#bT2uS!#E`@S@B0`uCEp0S!#Ea0SB27e4Pe20u24V4 S#pSES#S!#Eas$` G4P2Bc!#FrFd$24g& 2G424rr1q01 d0T#cv24rpagptSP4d FS!#G0&VrpQ@eCC!e24`%gEsqFC!vT2vS!#FuSpdPWp T!vT1uC!$VG T!v5ptP`Rv'VuC!$Vp`dP'`R0FEvcupT2E7Rp%@RRd5p4T @qR`T2ErF @ 0#`T`1T2Eg a#cu4pT2EgspPR20d#Ru2@vT2EgG`%pgB2R2`p7eC!$Vr`Wg 72&1vT2EFvsq@SeC!$g'@vAvW1T!$Vq%'a5SV22BEpvcbG1eCBpe4t!$WV%2eCV`PBEVPT2P0BEVPT2P0BEVd2GT!$WaPuFd!rd0T!#Eq5rvTrp6'B5bB4Vp4W4pcvp qE@ uB4Vp$WFgvR4Vp0s#F0dp@eB4V6Ps%0uEeB4V!5T!#Vq`1$@@7d!#V$pcgB6pt1pWEgB6qs d!#eug`d!eC!#VV&T2vT25dPT1eC!#V04 QuvT24VF`$T24Vp#Eg5pu@T24Vq4W%FqvC!#Eg#p T24`d01AT24p!@QuC!#Fq@$sp&T24gG1eC!#Fq6e24VRQde24Qup5vS!#E`5`!de2  @@ ?@@BJ@  P_@  y@t  '@ @f @1 Xǘ   v @"h@@Z a@cL @ p !@Ȑ A8@ A8@@ 0`#߄8? P^` 0_!_"@ \h @ qbnlp! @@w` L( m @"/n O '# @ `C2Pg@ * @9# g@#1o} #) C0# (Cx̎ Q90@{38 `OpOpܸx#!p@ D @ l$ BxvpAp kl`@  'H "B@x #(@DxȰ@*@`B ;018L tX8<"p@0LpL p@@$00N@ g@  D2 _Ȑ @ U'96 $ n'& |(Β G_#0`rxYAb0@:< ` P<# n XbNCp X* XbNCp X* ;G8 08 @pO8@\` ` @*d@[#Op d6 H prI X 6Xhpx\@)p(0.|@@&pTC<ސ@@ D.@  E'e @/Tc`V @L" @R&x ? x4JN(x.A(O?4!t( 4M8x? de7654&%$ ?O0o`f00000000oog77 7 3 3 3  .&# : WRITTEN BY PAUL B. O'LEARY&N: COPYRIGHT 1994, ALL RIGHTS RESERVED&U:&: PERMISSION GIVEN TO C.F.D.M. TO PUBLISH FOR C.F.D.M. MEMBERS USE ONLY.&:&# 945&(:2,5:3,3:0,3&- 65497,0: 950&2:'>7(5,4)," Here In The North East This Summer It Has Been Very Hot With High "'<(5,5),"Humidity. Because Or This Condition My BLUE STREAK ULTIMA Went On The " 'A(5,6),"Blink. However At The Time I Didn't Know This Was The Problem. After " (<F(5,7),"Several Hours Of Frustration The Solution Finally Came To The Surface."(K(5,9)," The Solution Wasn't Clear At First Because The Printer Was Printing."(P(5,10),"However, Not In The Character Set or The Font The Program Commanded. ")8U(5,11),"So The Assumption Was That The Printer Was At Fault By Not Accepting ")Z(5,12),"Proper Character & Font Commands. This Was Not The Case, because In ")_(5,13),"Fact The Printer Never Received Such Commands. "*d(5,15)," The Truth Was The Weather Had Effected The Timing Of The Converter."*qi(5,16),"Not By Much, But Enough That The Converter Wouldn't Transfer Complex"*n(5,17),"Printer Commands From The CoCo."*s(5,19)," In The July 1990 RAINBOW MAG. Pg. 58 There Is A Fix By Opening The"+Ex(5,20),"Converter and Making An Adjustment Inside With The Help Or a Small "+}(5,21),"Program. But The Weather Will Change and This Would Have To Be Done" +(5,22),"Again. There Must Be A Better Way !!!": 2,7:(45,22)," PRESS TO CONTINUE", XX, :, 950,j(5,4)," So If The Timing Is Off A little, Let's Use The POKE Command To Solve",(5,5),"The Problem. Remember, This Is Only A Temporary Fix. If The Problem" - (5,6),"Continues The Converter Would Have To Be Opened And The Adjustment"-_(5,7),"Made. However This Program Could Get You Back On Line Now So You Can"-(5,8),"Finish Your Printing." -(5,10)," Please Remember, This Program Uses POKES, When You Use Another Program".(5,11),"Be Sure It Doesn't Change The Fixed Baud Rate Poke.".s(5,13)," I'm Sure You Will Have No Problem Running This Program. Simply Follow".(5,14),"The Instructions On Each Screen, And You Can Not Go Wrong. Be Sure Your"/(5,15),"Keyboard Is In The Upper Case Mode, Or Your CoCo Will Remind You."/q(5,17)," In The Baud Test, The Program Will Test Seven Different Pokes For Each" /(5,18),"Baud Rate. The Printer Will Print-Out The Pokes Which Are Working. You"0(5,19),"Should Pick One Somewhere In The Middle Of The Pack. EXAMPLE BELOW.."0n(5,20),"If Your Printer Lists 150,18...150,19...150,20... Take Poke 150,19 and"0(5,21),"Test This Poke To See If It Works On Complex Printer Commands."02,7:(27,22),"PRESS TO CONTINUE"0 XX: QK9 60516: ********** SCREEN #1 *********************1=:1V 65497,0: 9451l3,3:0,3:4:1,71(0,0)(640,192),,B1(1,1)(639,191),,B1 (2,2)(638,190),,B22 2,7: (3,3)(12,189),,BF:(3,3)(215,27),,BF:(221,3)(211,190),,BF:1,7:(8,1),"CHOOSE ONE:":(8,2)," < 1 - 5 >"2X(3,4),"1. BAUD RATE 300 "2~(3,6),"2. BAUD RATE 600 "2(3,8),"3. BAUD RATE 1200 "2"(3,10),"4. BAUD RATE 2400 "2'(3,12),"5. BAUD RATE 4800 "3G,2,7:(3,110)(212,120),,BF:1,7:(12,110)(210,27),,B:(210,120)(12,183),,B3g1(5,16),"SET YOUR PRINTERS"36(4,17),"CONVERTER TO ONE OF"3;(4,18),"THE ABOVE BAUD RATES"3@(4,19),"PLACE PRINTER ON LINE"3E(4,20),"PRESS 1 - 5 TO MATCH"4J(4,21),"CONVERTERS BAUD RATE"48O2,7:(3,184)(220,190),,BF4VT1,7:(1,190)(639,190),4Y(222,2)(230,190),,BF:(638,1)(638,190),4^2,7:(231,3)(637,26),,BF4c(231,24)(242,189),,BF:(625,3)(637,189),,BF4h(231,184)(637,189),,BF5m1,7:(243,27)(625,183),,B5<r1,7:(244,28)(624,182),,B5gw(40,1),"SERIAL TO PARALLEL CONVERTER"5|(47,2),"TEMPORARY FIX"5(32,5),"The Converter Clock or Time Base occasionally"5(32,6),"drifts with Age, Temperature and Humidity. It"67(32,7),"requires adjustment. However, many of us will"6s(32,8),"not open our equiptment and start tinkering."6(32,9)," This Program will help if the timing is off."6 2,7:(237,90)(630,95),,BF6 1,7:(244,88)(624,88),7 (244,89)(624,89),7"(244,96)(624,96),7;(244,97)(624,97),7y1,7:(32,13)," Since weather conditions can affect the"7(32,14),"Converter, why change anything inside it. The"7(32,15),"Computer itself could do the job much easier."8.(32,16)," I'm not saying that this is a fix-all for"8k(32,17),"the Converter, other things could break down."8(32,18)," If this program helps you finish your days "8(32,19),"Computing, then it has served its purpose."9(2,7:(32,21)," <---- FOLLOW INSTRUCTIONS TO THE LEFT "9/:99B$9K B$"" 4809lN0:L(B$):P$".":KL$"#."9 L5 L0 4809 L6 5109 4809 L 520,535,550,565,5809:9Y177:Z183:A$" *** 300 BAUD RATE ***":$ AB$"FOR BAUD RATE OF 300":150,180: 605:+::[Y85:Z91:A$" *** 600 BAUD RATE ***":AB$"FOR BAUD RATE OF 600":150,88: 605:!::&Y38:Z44:A$" *** 1200 BAUD RATE ***":+AB$"FOR BAUD RATE OF 1200":150,41: 605:0:;&5Y15:Z21:A$" *** 2400 BAUD RATE ***";U:AB$"FOR BAUD RATE OF 2400":150,18: 605;\?:;DY4:Z10:A$" *** 4800 BAUD RATE ***";IAB$"FOR BAUD RATE OF 4800":150,7;N:;S:********* SCREEN #2 *********************;X:<#]N6:3,3:0,33:4:1,7:(0,0)(640,192),,B<<b(1,1)(639,191),,B POKE 150,":(49,N),X= X=(54,14),"<--- NORMAL POKE SETTING"=(5,40)(160,160),,B>(4,39)(161,161),,B>E4,7:(6,41)(28,159),,BF:(28,41)(159,58),,BF>a1,7:(4,59)(161,59),>y(28,59)(28,159),>1,7:(470,45)(610,96),,B:(469,44)(611,97),,B>2,7:(471,46)(609,95),,BF>1,7:(6,6)," PRESS"?(2,8),"T = BAUD RATE"?(2,9)," TEST"?=(2,11),"B = RESET COCO"?Z(2,12)," BAUD RATE"?y(2,14),"R = CHANGE BAUD"?(2,15)," RATE TEST"?(2,17),"Q = QUIT"?(2,18)," PROGRAM"?(2,21),"H = PROGRAM HELP"?:@2,7:(471,140)(609,170),,BF@61,7:(470,139)(610,171),,B@S (469,138)(611,172),,B@t(59,18),"CURRENT BAUD POKE"@(62,19),"POKE 150,":(70,19),(150)@(61,20)," INSTALLED "@ 895@%:A *:********** TO PRINTER FOR TEST *************************A/: A641,7:(62,7),"PLACE PRINTER"AM9(65,8),"ON LINE" Ay>(66,9),"THEN":(62,10),"PRESS "ACX$AH X$"" 835AM X$"Q" 880AR 65496,0AW X Y Z 1A\ 150,XB a#2,"TEST POKE --> POKE 150,";X;:#2," ";AB$Bf XB&k#2,"":#2,""BGp2,7:(471,46)(609,95),,BFB\u 65497,0: 770Bcz:BnZZ$B ZZ$"" 895B ZZ$"r" ZZ$"h" ZZ$"b" ZZ$"t" ZZ$"q" 1420BN6: ZZ$"T" 810B ZZ$"B" 1055C ZZ$"R" 245C ZZ$"Q" 990C- ZZ$"H" 1470C8 895C?:C} 65496,0::8,62:0,3: 80:1:"COCO AT NORMAL SPEED": C:C4:1,7C(0,0)(640,192),,BC(1,1)(639,191),,BDb1,7:(18,1),"SERIAL TO PARALLEL CONVERTER TEMPORARY FIX":(2,21)(637,23),,BF:(0,2)(640,2),:(637,1)(637,192),:(2,1)(2,192),:(1,190)(640,190),DhϐDo:D:*********** QUIT PROGRAM WINDOW ************************D:D1,7:(62,8),"ARE YOU SURE"D(62,9)," Y / N"E"T15;F;A#;F-;A"EN$E! N$"" 1010E5 N$"N" 1035EQ N$"Y" N$"Q" 945E] 1010E~ 2,7:(471,46)(609,95),,BFE 895E:E:************ SET PRINTER BAUD RATE WINDOW ********************E:E$4,7:(471,46)(609,95),,BFF!)1,7:(61,6),"ENTER POKE FIX"FK. Y10 (62,8),"POKE 150,X": 1085Fo3 Y100 (62,8),"POKE 150,XX"F8 Y100 (62,8),"POKE 150,XXX"F= Y100 (61,10),"THEN PRESS E "FB:FGC$FL C$"" 1095FQC(C$)GV4,7:(71,8),"X":1,7:(70,8),CG%[ C$"Q" 1190G,`:G6eP$GIj P$"" 1125G]o P$"E" 1200GjtP(P$)Gy4,7:(72,8),"X":1,7:(71,8),PG~ P$"Q" 1190G:GR$G R$"" 1160G R$"E" 1200GR(R$)H 4,7:(73,8),"X":1,7:(72,8),RH:HW C$"Q" P$"Q" R$"Q" 2,7:(471,46)(609,95),,BF: 895H^:H| P$"E" CP$C$: 1220H R$"E" CP$C$P$: 1220HCP$C$P$R$H:HCP(CP$)H4,7:(471,140)(609,170),,BFH:HӒ 150,CPI:I$1,7:(61,18),"NEW BAUD POKE"IN(62,19),"POKE 150,":(70,19),(150)Ij(61,20)," INSTALLED "I4,7:(471,46)(609,95),,BFI1,7:(62,7),"LIKE TO TEST"I(61,9),"PRINTER Y / N"I:IL$I L$"" 1280J L$"N" L$"Y" L$"Q" 1300 : 1280J!:JB2,7:(471,46)(609,95),,BFJV L$"Y" 1320Ja 895Jh#:J(1,7:(61,6),"PLACE PRINTER"J-(64,7),"ON LINE" J2(62,8),"THEN PRESS":(62,10),"P = TO PRINT":(62,11),"Q = TO QUIT"J7L$K< L$"" 1335K8A L$"Q" 2,7:(471,46)(609,95),,BF: 895KLF L$"P" 1365KXK 1335K_P:KU:********** TO PRINTER ***************************KZ:L_ 65496,0:#2,"":#2,"":#2,"YOUR CURRENT COCO BAUD RATE POKE IS ----> POKE 150,";(150) LJd#2,"":#2,"NOW TRY SOME COMPLEX FONT OR CHARACTER SET CHANGES."Li#2,"IF YOU ARE USING A PROGRAM THAT SETS THE BAUD RATE, BE SURE"Ln#2,"TO CHANGE IT TO THE FIXED POKE RATE OF THIS PROGRAM.":#2,""Ms#2," HAPPY PRINTING !!!!!!"Mx:M(}4,7:(471,46)(609,95),,BFM= 65497,0: 770ME: Ma(471,46)(609,95),,BFMu"T5;F;A#;F-;A"M1,7:(61,7),"PLACE KEYBOARD"M(62,8),"IN UPPER CASE"M(62,9)," MODE"M(62,10)," THANK YOU !!"M GH1 2000: GHN2,7:(471,46)(609,95),,BFN%N,:NX3,3:0,33:4:1,7:(0,0)(640,192),,BNr(5,40)(160,160),,BN(4,39)(161,161),,BN4,7:(6,41)(28,159),,BF:(28,41)(159,58),,BFN1,7:(4,59)(161,59),N(28,59)(28,159),O1,7:(6,6)," PRESS"O+(2,8),"T = BAUD RATE"OD(2,9)," TEST"Ob(2,11),"B = RESET COCO"O(2,12)," BAUD RATE"O(2,14),"R = CHANGE BAUD"O(2,15)," RATE TEST"O(2,17),"Q = QUIT"O(2,18)," PROGRAM"O :P8(26,3),"T = CONVERTER'S BAUD RATE TEST....THIS WILL RUN A"Pw(30,4),"TEST TO YOUR PRINTER. YOU WILL GET A PRINT-OUT" P(30,5),"OF GARBAGE ON SOME LINES & HOPEFULLY ALSO POKES" P(30,6),"THAT WORKED. THE POKES THAT WORK WILL BE LISTED"P":Q?'(26,8),"B = RESET COCO BAUD RATE.... YOU CAN SET YOUR NEW" Q~,(30,9),"BAUD RATE AND ALSO TEST YOUR PRINTER USING THIS" Q1(30,10),"OPTION. PRESS B & FOLLOW INSTRUCTIONS IN WINDOW"Q2(30,11),"REPLACE XX OR XXX WITH CORRECTED POKE SETTING."R6:RF;(26,13),"R = CHANGE BAUD RATE TEST....THIS OPTION ALLOWS A" R@(30,14),"BAUD RATE TEST OF ANY OTHER BAUD RATE LISTED IN"RE(30,15),"THE FIVE CHOICES ON THE FIRST PROGRAM SCREEN."SJ(26,17),"Q = QUIT PROGRAM.....PRESS Q TO QUIT PROGRAM OR Q"SFO(30,18),"CAN BE USED ANYTIME TO EXIT THE OPTION YOU ARE"ST(30,19),"USING & BRING YOU BACK TO CHOOSE ANOTHER OPTION"SY(45,21),"PRESS < P > FOR MORE HELP" S^(45,22),"PRESS TO RETURN"ScQK9ShX$: X$"" 1640T m X$"P" 145Tr 605 BE USED ANYTIME TO EXIT THE OPTION YOU ARE"ST(30,19),"USING & BRING YOU BACK TO CHOOSE ANOTHER OPTION"SY(45,21),"PRESS < P > FOR MORE HELP" S^(45,22),"PRESS TO RETURN"ScQK9ShX$: X$"" 1640T m EN X=X+1 1596 FOR XX=28 TO 31:POKE 1536+XX+A+P*128,X AND 255:X=INT(X/256):NEXT XX:GOSUB 1750 1597 SF$=LEFT$(T$,11):T=ASC(MID$(T$,12)):S=ASC(MID$(T$,13)):P=ASC(MID$(T$,14)):A=ASC(MID$(T$,15)):E=ASC(MID$(T$,16)):S3$=A$(0):S2$=X$:RETURN 1598 'UPDATE CLUSTER POINTER 1600 IF (C AND 1)=1 THEN 1650 1610 Q=VARPTR(S0$):ON INT(C*1.5/128) GOSUB 1681,1682,1683:POKE PEEK(Q+2)*256+PEEK(Q+3)+(C*1.5 AND 127),N AND 255 1630 ON INT((C*1.5+1)/128) GOSUB 1681,1682,1683:Q=PEEK(Q+2)*256+PEEK(Q+3)+(C*1.5+1 AND 127):POKE Q,(PEEK(Q) AND 240)+INT(N/256):RETURN 1650 Q=VARPTR(S0$):ON INT(C*1.5/128) GOSUB 1681,1682,1683:Q=PEEK(Q+2)*256+PEEK(Q+3)+(C*1.5 AND 127):POKE Q,(PEEK(Q) AND 15)+(N AND 15)*16 1670 Q=VARPTR(S0$):ON INT((C*1.5+1)/128) GOSUB 1681,1682,1683:POKE PEEK(Q+2)*256+PEEK(Q+3)+(C*1.5+1 AND 127),INT(N/16):RETURN 1681 Q=VARPTR(S2$):RETURN 1682 Q=VARPTR(S3$):RETURN 1683 Q=VARPTR(S4$):RETURN 1695 'SAVE ALLOCATION TABLE 1700 XX=PEEK(33):POKE 33,6:N=VARPTR(S1$):POKE N+2,7:POKE N+3,0:MID$(S1$,1,128)=S3$:POKE N+3,128:MID$(S1$,1,128)=S4$ 1710 POKE 33,XX:DSKO$ D,0,2,S0$,S2$:DSKO$ D,0,PE/2,S0$,S2$:RETURN 1740 'SAVE DIRECTORY ENTRY 1750 X=VARPTR(S1$):POKE X+2,6:POKE X+3,0:S3$=S1$+"":POKE X+3,128:S2$=S1$+"":DSKO$ D,T,S,S3$,S2$:RETURN 1790 'SCAN FOR UNUSED CLUSTER 1800 C=C+1:IF C>EC THEN C=0:RETURN ELSE GOSUB 1100:IF X=0 THEN RETURN 1805 I=(C*1.5 AND 127)+1:S1$=S0$:FOR Z=INT(C*1.5/128) TO 3:ON Z GOSUB 273,1880,1890 1810 I=INSTR(I+1,S1$,CHR$(0)):IF I=0 THEN 1840 ELSE C=INT((Z*128+I-1)/1.5):GOSUB 1100 1820 IF X=0 AND C<=EC THEN RETURN ELSE 1810 1840 NEXT Z:C=0:RETURN 1880 S1$=S3$:RETURN 1890 S1$=S4$:RETURN +1:S1$=S0$:FOR Z=INT(C*1.5/128) TO 3:ON Z GOSUB 273,1880,1890 1810 I=INSTR(I+1,S1$,CHR$(0)):IF I=0 THEN 1840 ELSE C=INT((Z*128+I-1)/1.5):GOSUB 1100 1820 IF X=0 AND C<=EC THEN RETURN ELSE 1810 10 'PC DISK INITIALIZATION 20 'WRITTEN BY JEFF VAVASOUR 30 ' 50 CLEAR 1000:CLS:PRINT"PC DISK INITIALIZATION":PRINT 60 PRINT"SELECT DRIVE: "; 70 I$=INKEY$:IF I$=""THEN 70 ELSE D=VAL(I$):IF I$<"0" OR I$>"3" THEN PRINT"ABORTED.":END ELSE PRINT I$ 80 PRINT"PRESS [ENTER] WHEN READY" 90 I$=INKEY$:IF I$=""THEN 90 ELSE IF I$<>CHR$(13) THEN RUN 100 DSKI$ D,0,2,S1$,S2$:S3$=" ":X=VARPTR(S3$):POKE X,128:POKE X+2,7:POKE X+3,128 110 X=ASC(S1$):IF X=254 THEN 200 ELSE IF X=252 THEN 400 120 PRINT"DISK NOT PC SINGLE-SIDED" 130 PRINT"PRESS ANY KEY." 140 IF INKEY$=""THEN 140 ELSE RUN 150 PRINT"TRACKS 35-39 ALREADY ALLOCATED":GOTO 130 200 PRINT"139776 BYTES (8 SPT)":IF (PEEK(1948) AND 15)<>0 OR MID$(S3$,30,60)<>STRING$(60,0) THEN 150 210 POKE 1948,PEEK(1948) OR 112:X$="" 220 FOR X=1 TO 20:X$=X$+CHR$(255)+CHR$(247)+CHR$(127):NEXT X:X=PEEK(33) 230 POKE 33,6:MID$(S3$,30,60)=X$:POKE 33,X 240 DSKO$ D,0,2,S1$,S2$:DSKO$ D,0,3,S1$,S2$:GOTO 130 400 PRINT"156672 BYTES (9 SPT)":IF MID$(S3$,79)<>STRING$(50,0) THEN 150 410 DSKI$ D,0,3,S1$,S2$:IF LEFT$(S1$,18)<>STRING$(18,0) THEN 150 420 X$="":FOR X=1 TO 6:X$=X$+CHR$(255)+CHR$(247)+CHR$(127):NEXT X 430 MID$(S1$,1)=X$:DSKO$ D,0,3,S1$,S2$:DSKO$ D,0,5,S1$,S2$ 440 DSKI$ D,0,2,S1$,S2$:X$="":FOR X=1 TO 17:X$=X$+CHR$(247)+CHR$(127)+CHR$(255):NEXT X:X=PEEK(33) 450 POKE 33,6:MID$(S3$,79)=X$:POKE 33,X:DSKO$ D,0,2,S1$,S2$:DSKO$ D,0,4,S1$,S2$:GOTO 130 ):NEXT X 430 MID$(S1$,1)=X$:DSKO$ D,0,3,S1$,S2$:DSKO$ D,0,5,S1$,S2$ 440 DSKI$ D,0,2,S1$,S2$:X$="":FOR X=1 TO 17:X$=X$+CHR$(247)+CHR$(127)+CHR$(255):NEXT X:XJ& "4DR-0/BAS"& 40:6&' 14&= X110:85,1::&5,12:"THIS RETURNS ALL DISK":10,14:"DRIVES TO 0":X11000:&:5,12:"ALL DRIVES LOADED AND ON?":15,14:"(Y/N)":44539:ANS$: ANS$"Y" 16 : ANS$"N" 170 : 15&'$A2000: 44609 A: 0,0,1,A$,B$ :DRIVE 0'A13:15,2:"DRIVE 0 OK"'nA2000: 44609 A: 1,0,1,A$,B$ :DRIVE 1'13:15,4:"DRIVE 1 OK"'A2000: 44609 A: 2,0,1,A$,B$ :DRIVE 2'13:15,6:"DRIVE 2 OK"(A2000: 44609 A: 3,0,1,A$,B$ :DRIVE 3(13:15,8:"DRIVE 3 OK"(/ X1500:(c 10,12:"ALL DRIVES AT 0 (MAC?)":X11000::)7,3:"THO I'VE A LONG WAY TO GO,":10,5:"I'm reminded of ----":2,10:"Happy is the man who finds wisdom,":2,12:"And the man who gains understanding.":22,15:"Prov.3:13"):dA$"L8O3GG#O4CD#L2G#L4GL8G#L4G")cnB$"L8O3GG#O4CD#L4G#GL8G#L4GFL8GL2F")xC$"O3L8AB-O4C#FL4O5C#CO4B-G#FC#L2CO3B-")D$"L8AB-O4CC#L2FGL4D#L1G#")X$"XA$;XB$;XC$;XD$;") X$ :Line 100-150 from CFDM 1-25 pg 13*6:10,10:"THIS WILL NOW COLD START":X11000:: 113,0:*<* Lines 17,19,21 & 23 restore heads to track 0. The DLOAD on line 160, from a note by George Quellhorst in one of the early (before Hardcopy) CFDM editions.+I LInes 100-150 from CFDM VOL 1-25 PG 13 FASCINATION Music by Herb Schulerfor the card game "FASCIN8".19,21 & 23 restore heads to track 0. The DLOAD on line 160, from a note by George Quellhorst in one of the early (before Hardcopy) CFDM editions.+I LInes 100-150 from CFDM VO&$:DISKNAME.BAS IS PROGRAM NAME&+:&Z:PUT DISKETTE NAME INTO TRACK 17 SECTOR 1&w:COPYRIGHT (C) 07/21/87&: By: Robert E. Bruhl&: 841 N. Mapleton Ave.&: Oak Park, Il, 60302&:&: Last Modified: 1/03/95' :'F 1000: : 330: 65497,0 :65495 IF COCO 1 OR 2' 32 :COMMENT OUT IF COCO 1 OR 2': X 1125 1146: 230:'( X 1223 1240: 230:'2 X 1324 1331: 230:(<@387,"PRESS ANY KEY TO CONTINUE": 260(6F:@0,"DRIVE 0-3?"(pPAN$ : AN$ "0" AN$ "3" 80 : DR (AN$)(Z:DR,17,1,A$,B$:N$ (A$,20)(d@193,N$:@289,"THIS IS CURRENT DISKETTE NAME": 250(n ("YyNn",I$) 190,190,120,120) xA$ (128,(255)))/:@102,"ENTER DISKETTE NAME")M@213,"]":@192,"[";:N$)m (N$)20 270: 130)LE (N$): LE 20 N$ N$ " ": 160):@320,"-"N$"-": 240: ("YyNn",I$) 180,180,130,130* A$ N$ (108,(255)):DR,17,1,A$,B$*5:@98,"ANOTHER DISKETTE? (Y/N)": 260*[Ȉ ("YyNn",I$) 210,210,280,280*҇@162,"INSERT NEW DISKETTE":@226,"THEN PRESS ": 260*܁ 70* A: X,A:*@290,"YOU ENTERED"*@386,"IS THIS CORRECT? (Y/N)"+I$ : I$ "" 260 : +C:@170,"LINE TOO LONG": T 1 500: T:+: 65496,0: :65494 IF COCO 1 OR 2+" 80,85,84,96,78,65,77,69,96,73,78,84,79,96,68,73,83,75,69,84,84,69,, 66,89,96,82,79,66,69,82,84,96,69,110,96,66,82,85,72,76,66 104,67,105,96,113,121,120,119,h@:HIGH SPEED DISK I/O MODE by L. TODD KNUDSEN,J (&HE289) 68 :IF ADOS, RETURN- T (&HC004) 214 A$ "C0EED52AD6D1D6F1D727D75E" : A$ "C101D617D7C4D7E4D81AD851"-^ V 1 24 4-=hA ("&H" (A$,V,4))-lr A,189: A 1,240: A 2,157: A 3,18-r|- &HF09D,52: &HF09E,127- &HF09F,53: &HF0A0,255-(&HC004) 214 A$ "C0EED52AD6D1D6F1D727D75E" : A$ "C101D617D7C4D7X&$:PRINTDIR.BAS IS PROGRAM NAME&+:&U:COCO MULTI-COLUMN DIRECTORY LISTING&n:COPYRIGHT (C) 1986&: By: Robert E. Bruhl&: 841 N. Mapleton Ave.&: Oak Park, Il. 60302&:&: Last Modified 11/24/94& :' 2000:C$ " ": I$(78): 890'n 65497,0 :65495 IF COCO 1 OR 2' 150,41 :2400 BAUD( ( 32 :COMMENT OUT IF COCO 1 OR 2((2 N 1 78:I$(N) "":(z Y 192 Z Y: 390.LN N 1.I$(N)N$C$E$C$T$C$F$C$(G) :STORE FILENAME INFO. J,GR,S. ("123",L$) 680,450,450/‡#2,(27);(18); :10 CHARACTERS PER INCH/&̅ N 17 630/Qև#2,DI$;:#2,27);FG;"FREE GRANULES"/d N 37 590/#2,(27);(20) :16 CHARACTERS PER INCH/ N 55 5600 M ((N 3)4): I 1 M :4 FILENAMES PER LINE0@#2,(I$(I),12);:#2,22);(I$(M I),12);0d#2,43);(I$(M 2 I),12);0#2,64);(I$(M 3 I),12)0&: 66000M ((N 2)3): I 1 M :3 FILENAMES PER LINE1:#2,I$(I);:#2,27);I$(M I);:#2,54);I$(M 2 I)1+D: 6601tN#2,(27);(29) :12 CHARACTERS PER INCH1XM ((N 1)2): I 1 M :2 FILENAMES PER LINE1b#2,I$(I);:#2,31);I$(M I)1l: 6602;v#2,DI$:#2 :1 FILENAME PER LINE2X I 1 N:#2,I$(I):2}#2:#2,1);FG;"FREE GRANULES"2#22 ("123",L$) 680,840,6802#2,(27);(77); :MICROFONT3#2,DI$;:#2,43);FG;"FREE GRANULES"3%#238ƅ N 37 7903Ѐ I 1 N 6 :6 FILENAMES PER LINE3ڇ#2,(I$(I),8);:#2,10);(I$(I 1),8);3#2,20);(I$(I 2),8);3#2,30);(I$(I 3),8);4#2,40);(I$(I 4),8);4/#2,50);(I$(I 5),8)4< : 8404 I 1 N 4 :4 FILENAMES PER LINE4 #2,(I$(I),12);:#2,15);(I$(I 1),12);4*#2,31);(I$(I 2),12);44#2,46);(I$(I 3),12):5 >#2:#25H#2:#25CR "ANOTHER DISK?";AN$: AN$ "Y" 505\#2,(27);(18) :10 CHARACTERS PER INCH5f 65496,0: :65494 IF COCO 1 OR 26 p:HIGH SPEED DISK I/O ROUTINE By L. TODD KNUDSEN6Sz (&HE289) 68 :IF ADOS, RETURN6 (&HC004) 214 A$ "C0EED52AD6D1D6F1D727D75E" : A$ "C101D617D7C4D7E4D81AD851"6 V 1 24 46A ("&H" (A$,V,4))7 A,189: A 1,240: A 2,157: A 3,18774 &HF09D,52: &HF09E,1277Q &HF09F,53: &HF0A0,2557Wʐ(&HC004) 214 A$ "C0EED52AD6D1D6F1D727D75E" : A$ "C101D617D7C4D7E4D81AD851"6 V 1 24 46A ("&H" (A$,V,4))7 A,189: A 1,240: A