0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
1 'VIEW.BA/CO by Fred Edelkamp
10 CLS:CLEAR50,61600:DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":B=61600:A=B:S=99:M=99
12 PRINT@64,"Line";:PRINT@104,"Address";
14 GOSUB32:IFO=0THENPOKEA,K:A=A+1:GOTO14
16 P=K:GOSUB32:G=P+256*K+B:P=INT(G/256):Q=G-P*256
18 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO14
20 SAVEM"VIEW",61600,62950,61600:END
22 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN30
24 IFU>16THENU=U-16:O=1ELSEO=0
26 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN30
28 K=(U-1)*16+V-1:RETURN
30 BEEP:PRINT@165,"Bad character";:END
32 IFM<N*2+5THEN40
34 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";:END
36 READY:M=1:GOSUB22:IFK=0THEN20
38 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB22:M=5:L=K:GOSUB22:L=K*256+L:R=0
40 M=M+2:GOSUB22:R=R+K:RETURN
100 DATA385E1FCD2BF42162F922BEF42ABEF4EB2102001922BCF421E6F522BAF42ABEF47E6F2600EB21C000CD7FF47CB5C22FF1CDEBF3CD18F42ABCF4EB2A
101 DATA38981ABEF4D5EB210A0019D1CD97F47CB5CA18F12ABEF422B8F42ABEF4EB210200197E6F2600EB210001CD52F4EB2ABEF4D5EB210100197E6F2600
102 DATA38541FD11922B6F4C34CF12ABCF47E6F2600EB2ABAF47E6F2600CD97F47CB5C2CDF02ABEF4EB210B001922BEF42ABEF4EB218BFACD97F47CB5C23B
103 DATA38BE1CF3C3A9F02AB6F422BAF4CD3142CD02F4CD24F421020022B4F421A6FFE52100007DE1772ABAF47E6F260022B2F4CD18F42AB2F4EB212000CD
104 DATA38FD2197F47CB5CA95F12ABCF4EB2104001922BCF4C34EF22ABCF4EB21EFF57E6F2600EBCD7FF47CB5CAACF1CDF7F32AB4F4EB213D00EBCD7FF47C
105 DATA38921FB5C2E4F221000022BEF42AB2F4EB210D00CD97F47CB5CAE0F121200022B2F4CD48F3CDF7F3C36BF12AB2F4EB210900CD97F47CB5CA08F22A
106 DATA38921CBCF4EB211C00CD66F4EB211C00CD52F4EB211C001922BCF42AB2F4EB217E00EBCD7FF47CB5CA1EF2217E0022B2F42AB2F4EB211A00CD97F4
107 DATA389E217CB5CA39F2217F0022B2F4CD48F3C3E4F22AB2F4EB212000CD7FF47CB5C26BF1CD48F3CDEBF32ABAF422BEF42AB2F4EB212000CD97F47CB5
108 DATA380A1EC2B0F22AB2F4EB212D00CD97F47CB5C2B0F22ABEF4EB2ABAF4EB424B08EB210400CD52F4EB2ABCF419EB210100EB424B08EB21EFF57E6F26
109 DATA384E2000EBCD7FF47CB5CAADF22ABCF47CB5CAADF2CDF7F3C36BF12ABEF47E6F2600EB212100CD7FF47CB5C272F22ABEF47E6F2600EB212D00CD97
110 DATA382421F47CB5C272F22ABEF4EB2101001922BEF4C3B0F221A6FF7E6F260022BEF42ABEF47CB5C2F9F2C3E4F22ABEF4EB212E00CD97F47CB5C24CF1
111 DATA38FD1F2ABEF4EB213F00CD97F47CB5C23BF32ABEF4EB213B00CD97F47CB5CA32F321C000E52AB8F4D17BCD40592AB0F422BAF4C352F121AAFFE521
112 DATA38281A00007DE177CD975721010022AEF421C6F4EB2AAEF419EB2AB2F4D5EB212000EB424B08EB210300CD52F4D1197E6F260022BEF42AAEF4EB21
113 DATA38131D01001922AEF421010022ACF42AB4F422AAF42AACF4EB2ABEF4CD78F47CB5CAA6F32ABCF4E52AAAF45DE155CD4C742AAAF4EB2101001922AA
114 DATA385723F42AACF4EB2ABEF4CD7FF47CB5CACEF32AACF4EB2AACF41922ACF4C38AF321000022BEF4CDEBF32AAEF4EB210400CD97F47CB5CAE8F3C9C9
115 DATA38991AC34EF32ABCF4EB2101001922BCF4C92AB4F4EB2106001922B4F421000022BCF42AB4F4EB213800CD97F47CB5C224F4C92ABAF4EB21010019
116 DATA382B1922BAF4C92ABAF422B0F4C921AAF4111B003600231B7AB3C231F421C1F422C2F421000022C4F42123F9EB2125F91922C0F4C9444D2100003E
117 DATA38F51D1029EB29EBD261F4093DC259F4C97CB5C8EB424B1100001308D26FF41B09EBC97CA2677DA36FC97CEE80677AEE80BCC28CF47BBDDA93F421
118 DATA380C200000C921FFFFC97CBAC2A5F47DBBC2A5F421FFFFC9210000C900CD1FF5218CF4119BF4CD585AEBCD585ACDCB12CDE90FFE4EC8FE59C2BA04
119 DATA38B8020E000017000300030A1B0A10371A1904130A151A0201000E110000110E150E15040E04100C000404040010001804030E110E121F10191512
120 DATA383F0311150A06041F1715090E1508011D031F151F02150E000A00100A00040A110A0A0A110A0401150208151E1E051E1F150A0E110A1F110E1F15
121 DATA384204111F05010E11191F041F111F1108100F1F041B1F10101F061F1F011F1F111F1F09060E111E1F0916121509011F011F101F0F100F1F0C1F1B
122 DATA388303041B031C031915131F110003041800111F0201021010100102000C121E1F120C0C12120C121F0C1A141E0902242A1C1F021C001D00201D00
123 DATA384E041F0814001F001E041E1E021C0C120C3E120C0C123C1E020410161A021F021E101E0E100E1E081E120C1226281E1A1612041B11001B00111B
124 DATA075F0004150A15040E15
125 DATA00