> :32:6:1000,24576:"* HICOLOR GRAPHICS VIEWER V1.4 ********* BY SOCK MASTER ********* CONVERTS 256 COLOR 320 X 200 ** .BMP AND .IMG FILES *";:(58035)1M"HICOLOR":58035,1:58037,3? 220:DR(235):B$(15):A$(0)"ONE":A$(1)"TWO":A$(2)"THREE":A$(3)"FOUR":E$(0)"ON":E$(1)"OFF":X$(0)"NORMAL DITHER / ":X$(1)"EXTENDED MIX / ":PE(58037):E(PE 16)16@PB$(0)"16":B$(1)"16":B$(2)"49":B$(3)"136":B$(4)"100":B$(5)"816/3876":B$(6)"169":B$(7)"780":B$(8)"64":B$(9)"64":B$(10)"343":B$(11)"1000":B$(12)"1000":B$(13)"4096":B$(14)"2197":B$(15)"6859@@160,"CONVERT USING:":A(PE 1)4816:"A)"A"COCO PALETTES ON SCREEN":B(PE 2)2(PE 8)4:"B) "A$(B)" GRAPHICS SCREENS":C(PE 4)4:A(A16)6B2CA"C) "X$(C)B$(A)" COLORS":"E) ERROR DIFFUSION ";E$(E)::"D) DRIVE"DR:"L) LOAD BMP FILE & CONVERT":"I) LOAD IMG FILE & CONVERT":"V) VIEW GRAPHICS IN MEMORY":"S) SAVE CONVERTED GRAPHICS";A# 200Br(APE 239:Q$:Q$"A"Q$"a"A((A1)1)(A 254):Q$"C"Q$"c"A((A4)4)(A 251):Q$"B"Q$"b"B((A 2)2(A 8)41)3:A(A 245)(B 1)2(B 2)4:B2B3:AA2B*E(PE 16)16:Q$"E"Q$"e"E(E1)C>2PEAE16:58037,PE:Q$"V"Q$"v"140:Q$"L"Q$"l"60:Q$"T"Q$"t"330:Q$"S"Q$"s"1000:Q$"I"Q$"i"2000:Q$"D"Q$"d"DR(DR1)3:27:27Cs<:DR:"FILENAME OF BMP FILE TO CONVERT -->";F$D F"D",#1,F$".BMP:"(48DR),256:LF(1)1:LF2:"BAD FILENAME?":F$".BMP:"(48DR)::P2709:A1(P):A2(P1):P1,0:"LOADING BMP TO RAM"D=O 0,1,1,8,8,9,11,11,15,29,29,31,31,59,59,63DP59078,33:2:65433,25464:65437,199:65438,208:G015:A:G,A:::DATA0,0,0,0,7,7,7,7,56,56,56,56,63,63,63,63DZB48:S96:65443,B:G1LF:P,S:#1,G:SS&H1:S&H80 :120EdS96:BB1:B55B59En65443,B:E2xP,A1:P1,A2:EC58036,0::ET58036,2::Eȇ"ERROR #""IN LINE":31 "THE FILE EXTENSION .BMP IS ASSUMED."Eܒ65496,0:65443,59:1000,32768:FJ80:0,0:8,54:0,0:1:65496,0:"I",#1,"HICOLOR.TXT":L0FZT(1)0360:65496,0:#1,A$:65497,0:A$:LL1:L23340:"";F^Q$:Q$""350:(13,8);:L1:340Fh65496,0::GV:235,DR:1000,32767:DR(235):G(0)16:G(1)30:G(3)58:A(58037):PE(A 8)4(A 2)2::"A DISK WITH"G(PE)"FREE GRANULES IS REQUIRED FOR SAVING.":"THIS DISK HAS";(DR);"GRANULES":G"SAVE AS? ";:F$:A(1,F$,"/"):A0(F$,A,1)"."GA(1,F$,":"):A0F$F$":"(DR48)H A(1,F$,"."):A0B(1,F$,":"):F$(F$,B1)".BIN"(F$,B,10)HBA122:"O",#1,F$:::"AFTER IT'S DONE, YOU CAN QUICKLYAND EASILY VIEW THIS PICTURE JUST BY TYPING:":"LOADM"(34)F$(34)":EXEC":I$A(PE 1)1:BPE 2:"SAVING IMAGE DATA":S1393216:E1393215A32000:AD0:1160:B0"SAVING IMAGE DATA 2":S1327680:E1391679:AD0:1160I$"SAVING COLOR & PROGRAM DATA":S13584:E17151:AD1:1160:S158036:E158037:AD1:1160I."CLOSING FILE...";:EX6797:1130:I8B(1,F$,":")1:D((F$,B,1))J*BA(1,F$,"."):D$((F$,(1,F$,".")1)" ",8)((F$,A1,BA1)" ",3)JLS318:D,17,S,A$(0),A$(1):G01:H112732:(A$(G),H,11)D$(A$(G),H11,2)(2)(0):D,17,S,A$(0),A$(1):H200:G9:S18JV:::"DONE!":180,1:K$`:BB 63:BAB :A0:1140:A1:1150:A65442:1150:AB:1140:65442,B:BAB:KNjA255:1140:A0:1150:AEX:1150:K_t#1,(A);:K~AAA:A(A256):1140:AAAA256:1140:KAD1B1122:B2B1:A1(S1256):A2S1A1256:A3(E1256):A4E1A3256:1180LXB1(S18192):B2(E18192):A1S1B1819216384:A3E1B2819216384:A2A1 255:A4A3 255:A1A1256:A3A3256L58036,4:58038,B1:58039,A1:58040,A2:58041,B2:58042,A3:58043,A4:111,1::111,0:MЇ:DR:"THIS FUNCTION REQUIRES 512K RAM.FILENAME OF IMG FILE TO CONVERT -->";F$Mڙ"D",#1,F$".IMG:"(48DR),256:LF(1)1:LF50:"FILE BAD? OR BAD FILENAME."::P2709:A1(P):A2(P1):P1,0:"LOADING IMG TO RAM"M59078,33:4:65433,25364:65437,0:65438,0:0,0:1,7:2,56:3,63N$B0:S96:65443,B:G1LF:P,S:#1,G:SS&H1:S&H80 :2060N>S96:BB1:65443,B:NR P,A1:P1,A2:NA(1):A3"ONLY SUPPORTS 4096 COLOR IMG FORMAT":N58036,3::