6SX((65533)255): SX0808,234:1160:""G&:(0)55" WITH 80 COLUMN CAPABILITY IS REQUIRED":" WITCH YOUR TO 80 COLUMN MODE,"A$:5" AND PRESS ."% 808,127O(14)" "" 128 OOT AKER & NSTALLER - V3.0 1571/1581 OMPATIBLE "" "Z" Y: YSOPS OF HE ILLIAM EELY HALKBOARD / "" " " PEN 24 OURS A AY, ATERING TO EGINNERS ND XPERTS LIKE "e" "C$" ALL OW! (203)-449-0649 300/1200(AND SOON 2400) BAUD "Y$""K "HIS ROGRAM, WHEN RUN, WILL READ ONTO THE SCREEN ALL OF THE ROGRAM TYPE FILES" "FROM DISK IN THE DRIVE YOU CHOOSE. OU WILL THEN, (WITH THE CURSOR CONTROLS,"!!"HIFT EY, AND қ) BE ABLE TO SELECT UPTO 20 FILES (EITHER BASIC OR ̛)"i!""FOR THE PROGRAM TO CREATE AND INSTALL A PROGRAM ENTITLED: "(34)"CHALK BOOTER"(34)". LUS"!#"INSTALL ONTO TRACK 1 SECTOR 0, THE REGULAR ͞ AUTOBOOTING PARAMETERS TO BOOT"S"$(34)"CHALK BOOTER"(34)". F YOU HAVE A PROGRAM RUNNING THROUGH (1,0), THEN THIS PROGRAM WILL TRY TO DO A RELOCATION AND ONLY IF ";"%"SUCCESSFUL, WILL IT WRITE THE BOOTER PROGRAM ADDRESS TO THE BLOCK.";:" HE INSTALLED BOOT WILL RUN AND LIST THE"_#&"TITLES YOU SELECTED. HEN YOU CAN RUN THE PROGRAM OF YOUR CHOICE BY PRESSING":"ITS CORRESPONDING NUMBER AND RETURN.#."F YOU LIKE THIS BOOTER MAKER THEN HELP US PAY OUR PHONE BILLS. END $5 TO"$/"HE HALKBOARD / Ӛ C/O M. EELY CHOOL, M. EELY R. ROTON, 06340"g$0""$1" IT NY EY TO TART HE HALKBOOT AKER"%2"  - 1 0 HANKS YSOPS OUT//":&&%3A$:TT1:T78T1B%4""(Y$,7)""(C$,T);P%6(C$,T);^%8A$""51%%:(14)"";:"RIVE# 8";DV%TL$(160):", ORKING ";:215%#1,A$:(A$(34)(ST 64)0)210:&5000:1,DV,0,"$0":T1:210:210:210(&TT(TL$(T)""):C$" ":T$""M&#1,A$:A$(34)(ST 64)64235_&T$T$A$:225i&".";&#1,A$:((ST 64)64)255:A$(34)220&C$C$A$:C$(C$,2):C$"PRG"TL$(T)T$&240&1.':" SE URSOR KEYS TO MOVE AROUND,  Ғ TO SELECT OR UNSELECT  RGS."'" ! USE A -  SPACE BAR TO SELECT OR UNSELECT ACHINE ANGUAGE RGS.":"":J04:I120:TL$(J20I)""J5:I21:270' J15J2)TL$(J20I)1(:""::" IT RETURN AFTER LAST SELECTION IS MADE"A(X0:Y1:F0n(""(Y$,Y)X15X2)""TL$(X20Y)""(A$:(A$"")285:""(Y$,Y)X15X2)TL$(X20Y)""("A$""XX1:XX5(X5):TL$(X20Y)""290)'A$""XX1:XX5(X1):TL$(X20Y)""295B),A$""YY1:YY20(Y0):TL$(X20Y)""300v)1A$""YY1:YY20(Y21):TL$(X20Y)""305)6(A$(13)N0)325:A$" "317);A$(TL$(X20Y),1):A$""A$""N21TL$(X20Y)""TL$(X20Y):NN1:280*<TL$(X20Y)(TL$(X20Y),2):NN1:280/*=A$""280*>A$(TL$(X20Y),1):A$""A$""N21TL$(X20Y)""TL$(X20Y):NN1:280*?TL$(X20Y)(TL$(X20Y),2):NN1:280*E1,DV,1,"BOOTER":15,DV,15+J15,A,A$:15:A0A63"**"A$"** ERROR.":65341+OA0350+T" **********":" FILE TITLED "(34)" "(34)" ALREADY XISTS ON THIS ISK!!",Y" RITE THIS NEW ONE OVER IT?? (/)?":A$:A$"N"65341,Z"ORKING..."=,^1:1,DV,1,"@0:CHALK BOOTER"H,cP7394Y,h1,(0)(0);x,jI71697393:1,((I));:,lL5:NPP9:460,m1,(153)(34)""(14)(34)(0);,rLL1:NPP19:460,w1,(153)(34)" 1) IRECTORY"(34)(0);/-|J1:I1T:A$(TL$(I),1):A$""A$""395]-LL1:JJ1:NPP8(TL$(I))((J)):460-1,(153)(34)""(J)") "(TL$(I),2)(34)(0);-:LL1:NPP39:460-1,(153)(34)"ILE UMBER TO OOT? OR (џ)UIT"(34)(59)(0);%.L200:NPP41:460:I141:A:1,(A);:\.LL1:NPP10:460:1,(139)(65)(36)(178)(34);}.1,"1"(34)(167)(238)(0);.J1:I1T:A$(TL$(I),1):A$""A$""445.JJ1:LL1:NPP10(TL$(I))((J)):460/1,(139)(65)(36)(178)(34);8/1,((J),2)(34)(167);:A$""1,(138);:440L/1,(254)(27);n/1,(34)(TL$(I),2)(34)(0);/:L300:NPP2:460:1,(128)(0)(0)(0);:1/UDV:15,DV,15:480/65341/1,(NP(NP256)256)((NP256));01,(L(L256)256)((L256));:PNP:0133,65,36,58,145,171,40,65,36,178,34,81,34,41,137,51,48,48,58,139,197,40,65,36,41,179,49,176,197,40,65,36,41,177,50,48,167,50,48,48,00X(48):(X8)653410NU$(0)015,A,AA$,C,D:(A0)680:48008,DV,8,"#"(115,"U1:8 0"(TT)(SS):15,"B-P";8;5;1#8,BA$:BL$""n115,"U1:8 0 1 0":15,A,AA$,C,D:A0680:4801I0100: #8,A$: BL$BL$((A$)): 1F0:(DR1001)595:DR416001((BL$,3,1)"M")530:(BL$,3,8)"@@@@@@@@@"5702I8:F1 2T$""2#2A$(BL$,I,1)02!T$T$A$:2&II1I2+ A$NU$2-" HERE IS ALREADY A BOOT PROGRAM ("(T$,12)") ON RACK 1 IN SECTOR 0 ":"";255853:F2:" ORRY, BUT BOOT SECTOR (TRACK 1 SECTOR 0) IS BEING USED BY ANOTHER PROGRAM. "Z3I"  RITE OVER IT? (Y/N) N";A$:6023S"HIS IS AN 1001 FORMATTED DISK, IT IS LATE AND 'M GOING TO BED.":5:15:65341#4X"HIS IS A 1541 FORMATTED DISK, RITE THE BLOCK ? (Y/N) Y";TH$:TH$"N"65341B4ZF(A$"N"DR71)670,800X4\DR81A$"N"6754]F$"CHALK BOOTER BY THE CHALKBOARD C/G BBS SYSOPS CALL (203) 449-0649 TODAY":RM$"RUN"4bF2$"CHALK BOOTER"4gAA (F$)("B00")155lAL AA 255: AH AA 256"5v15,"B-P 8 0"L5{8, "CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;o58, (162);(AL);(160);(AH);58, (76);(("A5"));(("AF"));58, RM$;(34);F2$;NU$515, "U2:8 0 1 0"515,"U1:8 0"(TT)(SS)515,"B-P 8"(412SS)6#8,A$:#8,B$86A$((A$)((B$)1)):B$((B$)254)S615,"B-P 8"(412SS)z68,A$;B$;:15,"U2:8 0"(TT)(SS)6A$DS$:DS0680:480.7"˞, EVERYTHING WENT LIKE CLOCKWORK AND YOUR NEW START-UP Ҟ IS INSTALLED.": 5:"OW LETS Ԟ IT OUT..": 3:65341:78: 15^75000:DR71677:S8$"Y"8007"HE R1,C0 ELOCATION PART OF THIS PROGRAM ONLY WORKS WITH 1571 RIVES.":"OU WILL HAVE TO USE A ECTOR DITOR AND MAKE 1581 DISK CHANGES ON YOUR OWN."8 5:65341i8"O YOU WANT TO TRY TO RELOCATE THE INTRUDING BLOCK TO AN AVAILABLE ONE? N";S8$:8:"ORRY, BUT YOUR DISK HAS A DISK ERROR AND THIS PROGRAM DOESN'T THINK IT SHOULD":"GO AHEAD AND MAKE THINGS WORSE..":8:15N9""A","AA$","C","D:E1:"PRESS ANY KEY TO RESET":G$:65341u9 "ELOCATE RACK-1 ECTOR-1 ":|9"%9& M%(70,20),N$(144),S$(70),BM%(70,20)9(B$"":Z$(0):SE$""9* K0 7: FT$(K):FT$(K)"...."FT$(K)::, DEL,SEQ,PRG,USR,REL,???,???,???":. K0 70K:0T(K10):S$(K)(48T)(48K10T)Q:2[:4 6,3:6: "ISPLAY ILE HAIN (Y/N) Y";P$:8FC1:((P$)127)89 FC0:@15: 15,DV,15,"I0":B 1000:D 1,DV,4,"#":F 1000:H 2,DV,5,"#";J 1000;L15,"U1:4 0 18 1"';NDP0:NF01;R 866B;T FX1 850L;V1:2];X15,E,E$,T,Se;Z15;\6,:6,"LL ILES AVE EEN HECKED";^6:450;bFD1:SF0:15,"B-P:4"232DP;d#1,A$:FT135(A$Z$);f FT127 874;hSF1;jNFNF1 ZZDB 6,"";B>6:6,ZZ"LOCKS OUND,"DB"IN IRECTORY"N>DPDP1_> DP8 952m>DP0:DK1>15,"B-P:4 0">#1,A$:TD(A$Z$)>#1,A$:SD(A$Z$)> TD0 FX0:>15,"U1:4 0"TD;SD> 1000> FD0 866>FX1:?ZZ0$? M%(TR,SE)0 990:5?M%(TR,SE)NFN?ZZZZ1: FC0 976k? BM%(TR,SE)1 6,"";?6,S$(TR)","S$(SE)" ";? S$(TR)"01" S$(SE)"00" 6:6, "R-1,E-0 ART OF--"N$(NF):1020?OT$S$(TR):OS$S$(SE)@ ZZ13(ZZ13)6@15,"U1:5 0 "TR;SE3@ 1000 : E9 E@15,"B-P:5 0"\@#2,A$:TR(A$Z$)s@#2,A$:SE(A$Z$)@ TR0 TR71 960@@6:6,"OLLISION WITH "N$(M%(TR,SE))@6,"OLLISION ON RACK"TR"ECTOR"SE@@1:2:6A15,E,E$,T,S:15:65341$A15,E,E$,T,S3A E20 QA:"DISK ERROR: "E;E$;T;SeA EF1 EF0:A:"RESS C TO ONTINUE OR Q TO UIT"A A$: A$"" 1010A A$"C" A A$"Q" 996A 1010ATT18A 5)B6,"HECKING FOR NEXT AVAILABLE SECTOR FOR RELOCATION"0B6FB15,"U1:4 0 18 0"^B 1000: E19 996oB BB42844B BB144 6,"O AVAILABLE BLOCKS ON SIDE 1, CHECKING SIDE 2"B  BB284 6,"O AVAILABLE BLOCKS ON THIS DISK":996C  BB143 BXBB:BX(185(BB4))%C15,"B-P";4;BX BX$"1" SX(8TX)E@B2((B11)8)SXFB6,"OUND FIRST AVAILABLE BLOCK AT TRACK ";BF;" SECTOR ";B2,FD6,"EADING TRACK-1, SECTOR-0"6FF1:2EFH1,8,4,"#"ZFJ15,"U1";4;0;1;0FL6,"WRITING TO TRACK ";BF;" SECTOR ";B2FN15,"U2";4;0;BF;B2FP 1000FR1FT6,"LLOCATING NEW BLOCK"FV2,8,2,"#"FX15,"B-A";0;BF;B2FZ24G\6,"EALLOCATE TRACK-1, SECTOR-0 FOR USE. "DG^2,DV,2,"#"XG`15,"B-F";0;1;0_Gb2jGd 1000Gf TQ1 6,"EWRITING DIRECTORY TO SHOW NEW FIRST LINK":1144Hh6,"EWRITING PREVIOUS TRACK ";OT$;" SECTOR ";OS$;" TO SHOW NEW FORWARD LINK"Hj2,DV,2,"#"(HlOT(OT$):OS(OS$)?Hn15,"U1";2;0;OT;OSaHp15,"B-P";2;0:2,(BF)(B2);xHr15,"U2";2;0;OT;OSHt 1000Hv2:6:15:450Hx 2,DV,4,"#"Hz DK1 TD18:SD1H|15,"U1";4;0;TD;SDH~DP1YC3:YC2I15,"B-P";4;YC32DPI2,(BF)(B2);/I15,"U2";4;0;TD;SD9I1140I(14)"ORRY, BUT THIS PROGRAM IS FOR A 128":"WHEN USED WITH A 1571 OR A 1581 DRIVE":T1 6000::64738I15:15,DV,15:5010:15:J15,"M-R"(198)(229)(1):#15,A$:A$A$(0)$J(A$)255DR81:TT40:SS1:HJ(A$)169DR1001:TT40:SS1:J5,DV,5,"#":15,"U1";5;0;18;0:15,"B-P";5;3:#5,B$:5:((B$)128)5035JDR41:TT18:SS0:JDR71:TT18:SS0: