
390 j=w+x-1\\ 
400IF j>255 THEN 440\\ 
410HPLOT x, y TO j, y\\ 
420 x=x+w\\ 
430GOTO 350\\ 
440HPLOT x, y TO 255, y\\ 
450 i=y+1\\ 
460 j=j-256\\ 
470HPLOT 0, i TO j, i\\ 
480 xFROM THE ADVISA NEWSLETTER OF THE VISA (Canada) AUG comes the following:  
PAGE l6.  
\K\Q\W\CSMARTBASIC PROGRAM LISTING\\ 
\\ 
RLE GRAPHICS\w\\ 
\K\B\A\\
1 REM: This program was received from PSAN.\\
2 REM: I am not sure of its actual author\\
3 REM: We appreciate PSAN sharing this program with us.  It is excellent.\\
4 REM: It not only allows you to view RLE files but also to change colors.\\
5 REM: Further it gives you information on RLE pictures.\\ 
10TEXT\\ 
15?:?:?:?:? " <<<RLE FILE VIEWER>>> "\\ 
16POKE 25471, 0\\ 
20VTAB (18):? "Would you like more informationon RLE Graphics?  (y/n) "; :GET t$\\ 
25IF t$="y" OR t$="Y" THEN 40\\ 
30IF t$="n" OR t$="N" THEN 200\\ 
35GOTO 10\\ 
40HOME:?:?:? "RLE stands for RUN LENGTH ENCODED.  These are computer"\\ 
45? "graphics that have been changed into text files so that they"\\ 
46? "may easily telecomunicated and displayed on any computer that"\\ 
47? "is capable of displaying HIGH RESOLUTION GRAPHICS."\\ 
48?:? "These graphics may have been created using a paint program;\\ 
49? "such as PAINTMASTER or MacPAINTor they may be digitalized"\\ 
50? "photographics."\\ 
51?:? "This program will allow you to display these on your ADAM."\\ 
52?:?:?:? " <PRESS ANY KEY TO CONTINUE>"\\ 
53GET t$\\ 
54HOME:?:?:? "RLE Files are available on many local BBS and on Compuserve."\\ 
55?:? "On Compuserve, many may be Downloaded from the Picture Support Forum (GO PICS)"\\ 
56? "More may be found in other forums, CB Society. You may also download weather maps"\\ 
57? "(GO WEATHER) or the FBI's TEN MOST WANTED LIST."\\ 
58?:? "RLE Files may be downloaded using ADAMLINK II or may be"\\ 
59? "captured using MADAM7 of ADAMEXjust as you would any text file"\\ 
60VTAB (20):? " <PRESS ANY KEY TO CONTINUE>"\\ 
61GET t$\\ 
62HOME:?:?:?:? "You may be told that your terminal can't display the"\\ 
63? "graphics you have requested. We KNOW better.  Open your file";\\ 
64? "and tell CIS you want to see them anyway"\\ 
65?:? "When you have logged off, if you have captured the RLE file"\\ 
66? "to CP/M, transfer the file to ADAM format using CPMADAM.COM."\\ 

\r~45,80\\ 
\K\B\A\\ 
\\ 
\\ 
\\ 
\\ 
\\ 
67?:? "Now boot SmartBASIC, and run this program just as you did to get this far"\\ 
68VTAB (20):? " <PRESS ANY KEY TO CONTINUE> "; :GET t$\\ 
69HOME:?:?:? "RLE files are most often viewed in black and white, but since"\\ 
70? "ADAM has such good colors, you will be given a selection of colors to use."\\ 
71?:? "Since RLE files are created in different ways, the terms"\\ 
72? "'FOREGROUND' and 'BACKGROUND' are relative."\\ 
73?:? "It may take some experimentation to discover the best choice of"\\ 
74? "colors for each graphic."\\ 
75VTAB (20):? "WOULD YOU LIKE TO VIEW A RLE FILE NOW? (y/n) "; :GET t$\\ 
76IF t$="y" OR t$="Y" THEN 200\\ 
77IF t$="n" OR t$="N" THEN HOME:END\\ 
78GOTO 75\\ 
199ONERR GOTO 2000\\ 
200HOME:?:?:?:?:? "When you have finished enjoying your display.  Press any key to view another or exit."\\ 
201VTAB (20):? " <PRESS ANY KEY TO CONTINUE>"\\ 
202GET t$\\ 
204HOME:?:?:?:?:? " <<<SELECT DRIVE>>>"\\ 
205?:?:? " 1. DATA DRIVE 1"\\ 
206? " 2. DATA DRIVE 2"\\ 
207? " 3. DISK DRIVE 1"\\ 
208? " 4. DISK DRIVE 2"\\ 
209?:?:?:? "ENTER # OF DRIVE THAT CONTAINS THE RLE FILE YOU WISH TO VIEW: "\\ 
210GET dr\\ 
211IF dr<1 OR dr>4 THEN 200\\ 
212HOME\\ 
213 d$=CHR$(4)\\ 
214IF dr=3 OR dr=4 THEN dr=dr+2\\ 
219ONERR GOTO 2000\\ 
220? d$; "CATALOG, D"; dr\\ 
277?:?\\ 
280INPUT "ENTER FILE NAME: "; f$\\ 
281GOSUB 1000\\ 
282GOSUB 800\\ 
290ONERR GOTO 2010\\ 
291? d$; "OPEN "; f$\\ 
295? d$; "READ "; f$\\ 
296ONERR GOTO 3000\\ 
300HOME:HGR2\\ 
305HCOLOR =c\\ 
310 y=0: x=0\\ 
315REM \\ 
330GET b$:IF b$<>"G" THEN 330\\ 
340GET b$:IF b$<>"H" THEN 330\\ 
350GET b$: b=ASC(b$)-32:IF b<0 THEN 500\\ 
360 x=x+b:IF x>255 THEN y=y+1: x=x-256\\ 
370GET b$: w=ASC(b$)-32:IF w<0 THEN 500\\ 
380IF w=0 THEN 350\\
 
 
\r~05,80\\ 
\K\Q\W\CPAGE 17.\\ 
\r~05,40\K\Q\W\C\\ 
SMARTBASIC LISTING CONT.,\w\\ 
\K\B\A\\ 
390 j=w+x-1\\ 
400IF j>255 THEN 440\\ 
410HPLOT x, y TO j, y\\ 
420 x=x+w\\ 
430GOTO 350\\ 
440HPLOT x, y TO 255, y\\ 
450 i=y+1\\ 
460 j=j-256\\ 
470HPLOT 0, i TO j, i\\ 
480 x=x+w\\ 
490GOTO 350\\ 
500? d$; "CLOSE "; f$\\ 
510GET t$\\ 
515TEXT:?:?:?:?:? " Would you like to diplay another?  (y/n)":GET tc$\\ 
520IF tc$="n" OR t$="N" THEN POKE 25431, 1:POKE 16777, 255:TEXT:NEW:END\\ 
525IF tc$="y" OR t$="Y" THEN 200\\ 
530GOTO 515\\ 
800TEXT\\ 
801?:?:?:? " <<<FOREGROUND COLOR>>> "\\ 
805?:? " 1-GREEN 8-DARK GREEN"\\ 
810? " 2-DARK RED 9-DARK BLUE"\\ 
815? " 3-WHITE 10-GREY"\\ 
820? " 4-BLACK 11-LIGHT RED"\\ 
825? " 5-MED. RED 12-DARK GREEN"\\ 
830? " 6-MED. BLUE 13-LIGHT YELLOW"\\ 
835? " 7-WHITE 14-SKY BLUE"\\ 
840? " 15-MAGENTA"\\ 
845?:?\\ 
850INPUT " ENTER COLOR CODE: "; c\\ 
855IF c<1 OR c>15 THEN 800\\ 
860IF c=1 THEN c$="GREEN"\\ 
861IF c=2 THEN c$="DARK RED"\\ 
862IF c=3 THEN c$="WHITE"\\ 
863IF c=4 THEN c$="BLACK"\\ 
864IF c=5 THEN c$="MEDIUM RED"\\ 
865IF c=6 THEN c$="MEDIUM BLUE"\\ 
866IF c=7 THEN c$="WHITE"\\ 
867IF c=8 THEN c$="DARK YELLOW"\\ 
868IF c=9 THEN c$="DARK BLUE"\\ 
869IF c=10 THEN c$="GREY"\\ 
870IF c=11 THEN c$="LIGHT RED"\\ 
871IF c=12 THEN c$="DARK GREEN"\\ 
872IF c=13 THEN c$="LIGHT YELLOW"\\ 
873IF c=14 THEN c$="SKY BLUE"\\ 
874IF c=15 THEN c$="MAGENTA"\\ 
875TEXT\\ 
880?:?:?:? " <<<BACKGOUND COLOR>>>":?\\ 
890? " 1-BLACK 8-MEDIUM RED"\\ 
895? " 2-MED. GREEN 9-LIGHT RED"\\ 
900? " 3-LIGHT GREEN 10-DARK YELLOW"\\ 
905? " 4-DARK BLUE 11-LIGHT YELLOW"; \\ 

\r~45,80\\ 
\K\B\A\\ 
\\ 
\\ 
\\ 
\\ 
\\ 
910? " 5-LIGHT BLUE 12-DARK GREEN"\\ 
915? " 6-DARK RED 13-MAGENTA"\\ 
920? " 7-CYAN 14-GREY"\\ 
925? " 15-WHITE"\\ 
930?:? " FOREGROUND COLOR IS"\\ 
935? " "; c$\\ 
940?\\ 
945INPUT "ENTER COLOR CODE: "; bg\\ 
950IF bg<1 OR bg>15 THEN 875\\ 
955POKE 25471, 0:POKE 25431, bg\\ 
960RETURN\\ 
1000HOME:?:?:?:? " Your current colors are:"\\ 
1001 cr=PEEK(16777)\\ 
1002IF cr<1 OR cr>15 THEN HCOLOR =3: c=3\\ 
1003 cr=PEEK(16777)\\ 
1004GOSUB 1500\\ 
1005?:?:? " Foreground - "; cr$\\ 
1006 cr=PEEK(25431)\\ 
1007GOSUB 1500\\ 
1008?:? " Background - "; cr$\\ 
1009VTAB (20):? "Would you like to change these colors? (y/n) ":GET ts$\\ 
1010IF ts$="n" OR ts$="N" THEN 290\\ 
1011IF ts$="y" OR ts$="Y" THEN 282\\ 
1500REM \\ 
1501IF cr=1 THEN cr$="BLACK"\\ 
1502IF cr=2 THEN cr$="MEDIUM GREEN"\\ 
1503IF cr=3 THEN cr$="LIGHT GREEN"\\ 
1504IF cr=4 THEN cr$="DARK BLUE"\\ 
1505IF cr=5 THEN cr$="LIGHT BLUE"\\ 
1506IF cr=6 THEN cr$="DARK RED"\\ 
1507IF cr=7 THEN cr$="CYAN"\\ 
1508IF cr=8 THEN cr$="MEDIUM RED"\\ 
1509IF cr=9 THEN cr$="LIGHT RED"\\ 
1510IF cr=10 THEN cr$="DARK YELLOW"\\ 
1511IF cr=11 THEN cr$="LIGHT YELLOW"\\ 
1512IF cr=12 THEN cr$="DARK GREEN"\\ 
1513IF cr=13 THEN cr$="MAGENTA"\\ 
1514IF cr=14 THEN cr$="GREY"\\ 
1515IF cr=15 THEN cr$="WHITE"\\ 
1520RETURN\\ 
2000HOME:?:?:?:?:?:? " DRIVE NOT LOADED"\\ 
2001VTAB (20):? " <PRESS ANY KEY TO CONTINUE>"\\ 
2002GET ta$ 
2003 GOTO 204 
2010HOME:?:?:?:?:?:? " FILE NOT ON " 
2011? " DRIVE ";dr 
2012 VTAB (20):? " (PRESS ANY KEY TO CONTINUE)" 
2013 GET tb$ 
2014 GOTO 204 
3000 ? d$; "CLOSE "; E$ 
3010 GOTO 510 
 
Would you like to change these colors? (y/n) 

