10 CLS:CLEAR1000:DIME$(35):DIMF$(35):DIMD(10):D(1)=80:D(2)=64:D(3)=112:D(4)=96:D(5)=144:D(6)=128:D(7)=176:D(8)=160
15 PRINT"THIS PROGRAM IS A PUBLIC DOMAIN PROGRAM BY TOM VANDE-STOUWE":PRINT"OF B.T. ENTERPRISES, AND CONNECTION-80 BBS (516) 588-5836":PRINT:PRINT
20 PRINT"THIS PROGRAM WILL REMOVE THE SERIAL NUMBER FROM YOUR":PRINT"ST80III/CMD (TM) VERSION 2.2 PROGRAM AND REPLACE IT WITH":PRINT"A MESSAGE OF YOUR CHOICE. THIS PROGRAM WILL ALSO CREATE AN"
30 PRINT"AUTO LOG-ON FOR SOME BBS SYSTEM WHICH USE POLLING AS AN AUTO":PRINT"LOGON FEATURE":PRINT:PRINT"PLEASE ENTER <1> FOR CUSTOM LOG-ON, <2> FOR CUSTOM MESSAGE"
40 I$=INKEY$:IFI$=""THEN40
50 IFI$="1"THEN300
60 IFI$="2"THEN400
70 GOTO40
200 STOP
300 CLS:E$(1)="*"
310 PRINT"YOUR LOG-ON MAY HAVE 28 CHARACTERS IN IT. PLEASE USE THE":PRINT"FOLLOWING FORMAT:FIRST LAST;TOWN STATEEX: JOHN SMITH;ANYTOWN NY"
315 FORX=2TO29:PRINT@704+X,"-";:NEXT
320 FORX=2TO29:GOTO330
325 FORX=1TO29:GOTO330
330 I$=INKEY$:IFI$=""THEN330
335 IFASC(I$)=8THENX=X-1:PRINT@704+X,"-";:GOTO330
336 IFI$=CHR$(13)THENFORZ=XTO29:E$(Z)=CHR$(32):NEXTZ:GOTO375
340 IFASC(I$)<32THEN330
350 IFASC(I$)>90THENPRINT@960,"UPPER CASE ONLY PLEASE";:GOTO330
360 PRINT@704+X,I$;:E$(X)=I$
370 NEXT
375 E$(30)=CHR$(15)
380 GOTO500
400 CLS:PRINT"THIS SECTION WILL ALLOW YOU TO ENTER ANY MESSAGE YOU LIKE":PRINT"TO BE SENT WHEN THE HOST POLLS YOUR PROGRAM BY SENDING":PRINT"3 CONTROL A'S (CHR$(1)). THE LIMIT IS 29 CHARACTERS."
410 FORX=1TO29:PRINT@704+X,"-";
420 NEXT
430 GOTO325
500 FORX=1TO29
510 C=ASC(E$(X))
520 C=C-31
530 D=INT((C-1)/8)+1
540 F=C-((D-1)*8)
550 FORI=1TOF:READG:NEXT
560 RESTORE:E=D(D)+G
570 F$(X)=CHR$(E)
580 NEXTX
585 F$(30)=CHR$(15)
590 FORX=1TO30:T$=T$+F$(X):NEXTX
900 OPEN"R",1,"ST80III/CMD"
910 GOSUB1000
915 GET1,10
920 LSETID$=T$
930 PUT1,10
940 CLOSE
950 END
1000 FIELD1,217ASDU$,30ASID$:RETURN
2000 DATA5,7,1,3,13,15,9,11
20000 I$=INKEY$:IFI$=""THEN20000ELSEPRINTASC(I$):GOTO2000
