@,@"GEOVIEW128 BY RET ATSHAW C@"T S@d5000:4000@"READ VLIR INDEX TABLE INTO ARRAY X@ 15,D,15:5,D,5,"#":15,"U1:";5;0;T;S@I0255:#5,A$:X(I)(A$)::5:15:A"READ VLIR RECORD, DECODE, AND DISPLAY7A252,0:253,28:T1X(R):S1X(R1):T1.S1.JAT1.S1255wA 15,D,15:5,D,5,"#":15,"U1:";5;0;T1;S1A#5,A$:T1(A$):#5,A$:S1(A$):T10MCS1:MC254A4991,MC:4992:5:15:T1.2020A 4864:RR0:՗254,RR2:5064:B "LOAD AND VIEW PICTUREBB 1000:6000:R2742:RRR:2000:WB A$:A$""3010wB X(" ",A$):X03010B X3040,3050,3060,3070,3080,3090,3110:3010B 7000:4000B R2742:RRR:2000::3010B R16902:RRR16:2000::3010.C FCFC1:FCFC15:CLFC16BC:G,CL,26:3010^C BCBC1:BCBC15:CLFC16BC:G,CL,26:3010C ("CDDA"),,24: V:V64VV64:VV64C G,V,24:3010C& ("CDDA"),,25: V:V64VV64:VV64C0 G,V,25:3010C"MAIN LOOP OF PROGRAM;D"":18,0,79,24:" NTERLACE IEWER FOR 1581"::ND"OMMANDS:":sD" : HANGE DRIVE NUMBER"D" : OAD DIRECTORY FROM CURRENT DRIVE"D": URSOR UP AND DOWN TO SELECT FILE"E": OAD AND VIEW PICTURE""E::"HILE VIEWING PICTURE:"IE": ETURN TO THIS SCREEN"xE": OVE TO BOTTOM/TOP OF PICTURE"E" 1: HANGE FOREGROUND COLOR"E" 3: HANGE BACKGROUND COLOR"E" 5: WITCH FOREGROUND/BACKGROUND COLORS"/F" 7: WITCH COLOR ATTRIBUTES ON/OFF"?F" 4250:FL0oF,A$:A$""4140:X(" HD",A$):X04140F6X4160,4180,4190,4200,4220,4240:FL3000:Չ4140F@0,0,15,24,1:MT08000:MT0 "O EOPAINT FILES ON THIS DISK.":F0:AGJ0,0,15,24,1:" ";:I1MT:,0,I,A$(I),0::FMT:4220bGTF0TT(F):SS(F):FL1::ՎzG^ PRINT HELP SCREENGhF0:ՙ"";:,0,F,A$(F),0:FF1:F1FMTGr,0,F,A$(F),1:G|F0:ՙ"";:,0,F,A$(F),0:FF1:FMTF1H,0,F,A$(F),1:HDD1:D10D8KH 70,0,79,1:" #";D;:0,0,15,24,1:F0:hH"INITIALIZE PROGRAMH1,1:216,0:%:15:G52684:""(14)H("CDDA"),,25: VC:VDVC128H (215)128(27);"X"H 7000: 10000#I X(255),L(144),T(24),S(24),A$(24):FC15:BC0:CL240:D8CI1,"":3,"":5,"":7,""rI(4864)169I0767:A$:4864I,(A$):xIIo"TURN ON INTERLACE SCREENIpG,125,0:G,79,4:G,7,5:G,79,6:G,77,7:G,3,8:G,7,9JzG,254,12:G,192,13:G,96,24:G,VD,25:G,CL,26:G,63,28@JG,.,18:G,0,19:G,0,31:I0255:G,0,30:iJFC15:BC.:SS.:G,195,20:G,80,21:JW"RESTORE BORING OLD 80-COLUMN SCREENJXG,126,0:G,32,4:G,7,5:G,25,6:G,29,7:G,.,8:G,7,9 KbG,.,12:G,.,13:G,32,24:G,VC,25:G,240,26:G,47,28(KlG,8,20:G,.,21: 52748:kK?"READ DIRECTORY AND DECIDE WHICH FILES ARE GEOPAINT FILESK@252,0:253,28:T40:S3:MC0:BS7168KJ 15,D,15:5,D,5,"#":15,"U1:";5;0;T;SKT4991,MC:4992:5:15 L^T(BS):S(BS1):BSBS256:T.8040:8010)LhLNBS7168:ENLN32:BS7168iLrI0EN:(I32BS23)1(I32BS24)7L(I)1::L(I)0:L|I0EN:L(I)08080:T(I32BS21):S(I32BS22):252,.:253,27:4991,0:15,D,15:5,D,5,"#":15,"U1:";5;0;T;SM4992:5:15:(691277)80(691283)73L(I)0M:J1:I0EN:L(I)1L(I)J:T(J)(I32BS3):S(J)(I32BS4):A$(J)"":K520:A$(J)A$(J)((I32BSK))::JJ1M:MTJ1:M(# A9,00,85,FA,A9,24,85,FB,A9,00,85,FC,A9,1C,85,FDN2# 20,69,13,C9,00,F0,51,C9,40,90,13,C9,80,90,1C,E9HN<# 80,AA,20,69,13,20,74,13,CA,D0,FA,4C,10,13,AA,20NF# 69,13,20,74,13,CA,D0,F7,4C,10,13,38,E9,40,AA,A5NP# FC,8D,04,1A,A5,FD,8D,05,1A,A0,08,98,48,20,69,13NZ# 20,74,13,68,A8,88,D0,F3,CA,F0,B5,AD,04,1A,85,FC(Od# AD,05,1A,85,FD,4C,49,13,60,A0,00,B1,FC,E6,FC,D0`On# 02,E6,FD,60,A0,00,91,FA,E6,FA,D0,02,E6,FB,60,23Ox# A2,05,20,C6,FF,AE,7F,13,A0,00,20,CF,FF,91,FC,E6O# FC,D0,02,E6,FD,CA,D0,F2,20,CC,FF,60,00,00,FF,FFP# 00,24,02,24,04,24,06,24,80,26,82,26,84,26,86,26@P# 01,24,03,24,05,24,07,24,81,26,83,26,85,26,87,26xP# F0,5A,50,BE,20,DA,D0,F2,A9,00,8D,C4,13,A9,C3,8DP# C5,13,A9,70,8D,C0,13,A9,FE,8D,C1,13,A6,FE,18,A9P# 80,6D,C0,13,8D,C0,13,A9,02,6D,C1,13,8D,C1,13,CA Q# D0,EC,18,AD,C0,13,69,60,8D,C2,13,AD,C1,13,69,63XQ# 8D,C3,13,A6,FE,18,A9,A0,6D,C4,13,8D,C4,13,A9,00Q# 6D,C5,13,8D,C5,13,CA,D0,EC,18,AD,C4,13,69,B0,8DQ# C6,13,AD,C5,13,69,18,8D,C7,13,A9,A0,85,FC,A9,13R# 85,FD,A2,12,AD,C1,13,20,CC,CD,E8,AD,C0,13,20,CC8R# CD,A0,00,B1,FC,85,FA,C8,B1,FC,85,FB,C8,98,48,20pR# 81,14,68,A8,C9,10,D0,EB,A2,12,AD,C3,13,20,CC,CDR$ E8,AD,C2,13,20,CC,CD,A0,10,B1,FC,85,FA,C8,B1,FCR$ 85,FB,C8,98,48,20,81,14,68,A8,C9,20,D0,EB,4C,9ES$ 14,A9,50,85,FE,A0,00,A2,1F,B1,FA,20,CC,CD,A2,08PS"$ E6,FA,D0,02,E6,FB,CA,D0,F7,C6,FE,D0,E8,60,A2,12S,$ AD,C5,13,20,CC,CD,E8,AD,C4,13,20,CC,CD,A9,A0,85S6$ FE,A9,08,85,FA,A9,29,85,FB,20,E3,14,C6,FE,D0,F9S@$ A2,12,AD,C7,13,20,CC,CD,E8,AD,C6,13,20,CC,CD,A90TJ$ A0,85,FE,A9,08,85,FA,A9,29,85,FB,20,E3,14,C6,FEhTT$ D0,F9,60,A0,00,A2,1F,B1,FA,A8,B9,00,15,20,CC,CDT^$ E6,FA,D0,02,E6,FB,60,00,00,00,F5,FF,FF,FF,05,FFTh$ 00,0F,08,07,0B,04,02,0D,0A,0C,09,06,01,05,03,0EUr$ F0,FF,F8,F7,FB,F4,F2,FD,FA,FC,F9,F6,F1,F5,F3,FEHU|$ 80,8F,88,87,8B,84,82,8D,8A,8C,89,86,81,85,83,8EU$ 70,7F,78,77,7B,74,72,7D,7A,7C,79,76,71,75,73,7EU$ B0,BF,B8,B7,BB,B4,B2,BD,BA,BC,B9,B6,B1,B5,B3,BEU$ 40,4F,48,47,4B,44,42,4D,4A,4C,49,46,41,45,43,4E(V$ 20,2F,28,27,2B,24,22,2D,2A,2C,29,26,21,25,23,2E`V$ D0,DF,D8,D7,DB,D4,D2,DD,DA,DC,D9,D6,D1,D5,D3,DEV$ A0,AF,A8,A7,AB,A4,A2,AD,AA,AC,A9,A6,A1,A5,A3,AEV$ C0,CF,C8,C7,CB,C4,C2,CD,CA,CC,C9,C6,C1,C5,C3,CEW$ 90,9F,98,97,9B,94,92,9D,9A,9C,99,96,91,95,93,9E@W$ 60,6F,68,67,6B,64,62,6D,6A,6C,69,66,61,65,63,6ExW$ 10,1F,18,17,1B,14,12,1D,1A,1C,19,16,11,15,13,1EW$ 50,5F,58,57,5B,54,52,5D,5A,5C,59,56,51,55,53,5EW$ 30,3F,38,37,3B,34,32,3D,3A,3C,39,36,31,35,33,3E X% E0,EF,E8,E7,EB,