0 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 'CURSOR.BA/CO by Fred Edelkamp 11/25/87 2 'CURSOR.CO is the second generation of SMALL.CO and is relocatable. 10 GOSUB29 11 PRINT@41,"Input END address?";:PRINT@121,"ENTER alone to put it just below HIMEM" 12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29 14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address"; 15 GOSUB24:IFO=0THENPOKEA,K:A=A+1:GOTO15 16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256 17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15 18 SAVEM"SMALL",B,C,D:MENU 19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23 20 IFU>16THENU=U-16:O=1ELSEO=0 21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23 22 K=(U-1)*16+V-1:RETURN 23 BEEP:PRINT@165,"Bad character";:END 24 IFMRTHENBEEP:PRINT@165,"Checksum fail";END 26 READY:M=1:GOSUB19:IFK=0THEN18 27 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB19:M=5:L=K:GOSUB19:L=K*256+L:R=0 28 M=M+2:GOSUB19:R=R+K:RETURN 29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=2832:D=0:RETURN 100 DATA386B15CDSF08CD3A1F2193FC22NF09CD4942CDHC0946696C652000CDOB052AND09EB211F00EBCDJ0097CB5C2M4002AND09EB210800CDK8097CB5CA 101 DATA384C16L2002ANF09EB2193FCEBCDJ0097CB5CAL200CDS205217F007DE72AND09EB210D00CDK8097CB5C2P900C3H8002AND09EB216000EBCDJ0097C 102 DATA385915B5CAO2002AND09EB212000EB424B0822ND092AND097DE7CDT1052ANF09EB2199FCCDJ0097CB5C2H80021200022ND092ANF09EB2199FCCDJ0 103 DATA38BA13097CB5CAR400CDT105C3P90021440022ND09CDT105214F0022ND09CDT10521BAF922ND0921810022NB09CD4E42CD795A2AND09EB21020019 104 DATA38BD1422N9092192FC22N7092AND097E6F2600EB21C000CDJ0097CB5C2L801CDJ105CDPB052AN909EB2AND09D5EB210A0019D1CDK8097CB5CAK101 105 DATA3895112AND09EB210200197E6F2600EB210001CDV608EB2AND09D5EB210100197E6F2600D11922N509C3N5012AN9097E6F2600EB2AN7097E6F2600 106 DATA381815CDK8097CB5C2VC002AND09EB210B001922ND092AND09EB218BFACDK8097CB5C2MB04C3T8002AN50922N70921A6FFE52100007DE17721H00B 107 DATA38D1127E6F2600EB210400CDV60822N3092AN70922NF09CDV3052AN70922N109CDO308CD3142CDO405CDV305CDM7052AN7097E6F260022MF092AN9 108 DATA38F11509EB2AMD09EB424B08EB2AN309CDK8097CB5CAT801CDN5052AMB09EB213B00EBCDJ0097CB5C2N802CDPB05CDS707CDOF042AN70922M9092A 109 DATA383115MF09EB217F00CDK8097CB5C2R1072AMF09EB218000CDK8097CB5CAHE02CDPB05CDN505C3R4012AMF09EB212E00CDJ0097CB5C2LF022AM909 110 DATA380016EB2AN709EB424B08EB210400CDV608EB2AN90919EB2AMD09EB424B08EB2AN309EBCDJ0097CB5CALC02CDN505C3R4012AM9097E6F2600EB21 111 DATA38C1162E00CDJ0097CB5C2ID02CDU705C3LF02CDV3052AM709EB210A00CDK8097CB5C2PF07CDQ705CDLE082ANF09EB2AN109CDJ0097CB5CAQ502CD 112 DATA38B414R305C3Q802C3NB02CDM70521A6FF7E6F260022ND092AND09EB213B00CDK8097CB5CASE022101007DCDPE09C3S6002AND09EB213F00CDK809 113 DATA38A4147CB5C2MB042ANF097E6F260022MF09CDOB052AND09EB210100197D3DCAVA053DCAJ6083DCAM2043DCAVA053DCAVA053DCAVA053DCAHD083D 114 DATA38E319CAVA053DCAV6033DCAR5033DCAVA053DCAVA053DCAVA053DCASD033DCAVA053DCAVA053DCAVA053DCAL6043DCAL0073DCAVA053DCAL3043D 115 DATA387E17CAVA053DCAME043DCAN5013DCAVA053DCAVA053DCAN8073DCAMB043DCAP1063DCAS0063DCATF063DCAG6072AND09EB217F00CDK8097CB5C2 116 DATA385115I1042AMF09EB210D00CDK8097CB5C2R5032AMF09EB211A00CDK8097CB5C2U2032ANB09EB218200CDK8097CB5CAR503CDT105C3S4032AND09 117 DATA383013E52ANF09D17BCD616BCDTB0521010022M509C3N802210D00E52ANF09D17BCD616BCDTB05210A0022ND09CDQ7052ANF09EB2102001922N109 118 DATA380815CDO308C3R503CDLE082ANF09EB2AN109CDK8097CB5C2Q802CDS2052ANF097E6F2600EB210A00CDK8097CB5CAI104CDS2052ANF097E6F2600 119 DATA383016EB211A00CDK8097CB5C2Q802E52ANF09D17BCDTF092ANF097E6F2600EB210A00CDK8097CB5C2J404C3S403CDV305CDLE082AN10922NF09C3 120 DATA38FB11LF0721090022M709C3L007CD97572ANB09EB218100CDK8097CB5CAO60421820022NB09C3QB0221810022NB09C3QB022AN909EB210000CDJ0 121 DATA388D14097CB5C2JD052AN909EB21EF00EBCDJ0097CB5C2JD0521O70922M9092AM909EB2AMF09D5EB210300CDV608D1197E6F260022M309CDU70521 122 DATA38C712010022M1092AMB0922LF092AM109EB2AM309CDI9097CB5CAV7042AN909E52ALF095DE155CD4C742AM109EB2AM309CDJ0097CB5CAHF052AM1 123 DATA38EB1009EB2AM1091922M1092ALF09EB2101001922LF09C3TB04CDJ1052AM909EB21OA09CDJ0097CB5C2R4042AN909EB2101001922N909C92AN909 124 DATA38C513EB2104001922N909C9CDLE082ANF09EB2AN109EB424B08EB210400CDV608EB2AMD091922N909C92AM709EB210600CDV60822MB09C9CDQ705 125 DATA38510FCDM7052AN70922N109CDO3082AMD0922N909C921000022ND09CD42726F260022ND09C92AN709EB2101001922N709C92AM709EB2101001922 126 DATA38FE11M709C92AM709EB210100EB424B0822M709C92ANF09EB210100EB424B0822NF09C92ANF09E52AND097DE1772ANF09EB2101001922NF09C92A 127 DATA386111M909EB2101001922M909C921000022M709C92AM5097CB5CAGB0621000022M509C3O206CDK9052AN909EB21EF00EBCDJ0097CB5CAIB062150 128 DATA38B911002BCDI20922MD09C3O2062AN909EB210000CDJ0097CB5CAK30621000022MD09C3O2062ANB0922MF09CDOF04CD1A5321V504E5214D007DE1 129 DATA38EF1577CDK905CDOF042ANF097E6F260022MF09CDS70721V504E5214C007DE177CDK905CDOF04CD1A53C3QB02CDV305CDLE082AN10922N709C3PC 130 DATA389615012ANF097E6F2600EB211A00CDK8097CB5C2Q802CDTB052ANF097E6F2600EB210A00CDK8097CB5CARD06CDTB05C3N802CDV305CDLE082ANF 131 DATA38A31509EB2AN109EBCDJ0097CB5CATC06CDS205C3LF07C3N5012AM7097CB5CAG307CDKF082ANF09EB2AN109EB424B08EB2ALD091922NF09CDR305 132 DATA388F14C3IE07C3N501CDQ705CDKF082ANF09EB2ALD09EB424B08EB2AN1091922NF092AM709EB210A00CDK8097CB5C2PF07CDQ705CDLE08CDR3052A 133 DATA382B15NF09EB2AN109D5EB210100EB424B08D1CDJ0097CB5C2LF07CDQ705CDLE082AN10922NF09CDS2052ANF097E6F2600EB210A00CDK8097CB5CA 134 DATA389012N507CDS205C3N8022AN709EB210100EB424B087E6F2600EB211A00CDK8097CB5CAPF072AN70922NF09CDS205C3N80221090022M709CDLE08 135 DATA387C142AN10922N709C3P6012AMB09EB213B00EBCDJ0097CB5C2N802CDN505C3R1072AMF09EB217E00EBCDJ0097CB5CATD07217E0022MF092AMF09 136 DATA382212EB211A00CDK8097CB5CAV207217F0022MF092AMF09EB210D00CDK8097CB5CAG70821800022MF092AMF09EB212000CDJ0097CB5CAHC08217E 137 DATA388D140022MF09C92ANF097E6F2600EB212100CDJ0097CB5C2P106CDTB05C3HD082ANF097E6F2600EB212100CDJ0097CB5C2S006CDS205C3J608CD 138 DATA388613R305CDLE082AN10922LD09CDQ705CDRC082ALB097E6F2600EB210001CDV608EB2ALB09D5EB210100197E6F2600D11922N109C9CDRC082ALB 139 DATA383E1509E52AN109EB210001CDGA097DE1772ALB09EB21010019E52AN109EB2ALB097E6F2600D5EB210001CDV608D1EB424B087DE177C92AM709EB 140 DATA38A510210200CDV608EB21O8091922LB09C921LB09112B003600231B7AB3C2T50821O20922O30921000022O5092123F9EB2125F91922O109C9444D 141 DATA38EF162100003E1029EB29EBD2G509093DC2VD08C97CB5C8EB424B1100001308D2H3091B09EBC9E1CD585A23E97C2F677D2F6FC97CA2677DA36FC9 142 DATA38B0147CEE80677AEE80BCC2JD097BBDDAK409210000C921FFFFC97CBAC2L6097DBBC2L60921FFFFC9210000C90000000000000000000000000000 143 DATA38BF0800000000000000000000000000000092FC82FA81008BFA9BFC48F2O209000000000000000000000000000000000000000000000000003221 144 DATA38F11EF92A7AF6E52AC2FAE52A9DFBE521000022E7F639229DFBCD0F22E521S109C3745FCD5D5DE1229DFBE122C2FAE1227AF6AF3250F63C32ADFA 145 DATA38F00721786C228AF8C906000E01CD9F6BC90000000017000300030A1B0A10371A1904130A151A0201000E110000110E150E15040E04100C000404 146 DATA38D302040010001804030E110E121F1019151211150A06041F1715090E1508011D031F151F02150E000A00100A00040A110A0A0A110A0401150208 147 DATA385D04151E1E051E1F150A0E110A1F110E1F15111F05010E11191F041F111F1108100F1F041B1F10101F061F1F011F1F111F1F09060E111E1F0916 148 DATA387703121509011F011F101F0F100F1F0C1F1B041B031C031915131F110003041800111F0201021010100102000C121E1F120C0C12120C121F0C1A 149 DATA384904141E0902242A1C1F021C001D00201D001F0814001F001E041E1E021C0C120C3E120C0C123C1E020410161A021F021E101E0E100E1E081E12 150 DATA2129030C1226281E1A1612041B11001B00111B04150A15040E15040E1F1F1F1F3F3F3F3C 151 DATA00