rint statement plus line number":PRINT"ata statement plus line number" 116 PRINT:PRINT"Enter you choice ";:GOSUB19:IFINSTR("DLPR",I$)=0THENGOTO7 117 PRINTL$:FORMZ=1TOX 118 IFI$="P" THEN A$(MZ)=MID$(STR$(SN),2)+" PRINT"+CHR$(34)+A$(MZ)+CHR$(34) 119 IFI$="D" THEN A$(MZ)=MID$(STR$(SN),2)+" DATA"+CHR$(34)+A$(MZ)+CHR$(34) 120 IFI$="L" THEN A$(MZ)=MID$(STR$(SN),2)+" "+A$(MZ) 121 IFI$="R" THEN A$(MZ)=MID$(STR$(SN),2)+" '"+A$(MZ) 122 SN=SN+IN:PRINTA$(MZ):NEXTMZ:GOTO17 123 REM * Hard copy * 124 GOSUB22:PRINT"Hard copy":PRINTL$ 125 PRINT"Do you wish line number included? ";:GOSUB19:GOSUB197 126 FORMX=1TO X:IFI$="Y"THENPRINT#-2,"Line ";MX;:PRINT#-2,STRING$(4-LEN(STR$(MX))," "); 127 PRINT"Printing line "MX" of "X" lines";CHR$(31):PRINT#-2,A$(MX):NEXTMX 128 PRINT:PRINT"Listing done -- ";:GOTO16 129 REM * Forum-80 - ST80III save * 130 CLS:PRINT"Forum-80 Message Entry - for use with" 131 PRINTL$:PRINT"ST80III - << REMEMBER >> - USE SPEED 'P3'":PRINTL$ 132 M$(1)="L":PRINT:PRINT"Enter type of message" 133 PRINT:PRINT"M = MISCELANEOUS":PRINT"P = PERSONAL":PRINT"C = COMMERCIAL":PRINT"G = GRAPHICS ? ";:GOSUB19:M$(0)=I$ 134 IFINSTR("MPCG",M$(0))=0THENGOTO132 135 INPUT"MESSAGE TO ";M$(2) 136 INPUT"SUBJECT ";M$(3) 137 INPUT"PASSWORD ";M$(4):CLS:RETURN 138 REM * Center * 139 GOSUB22:SZ=0:PRINT"Text Center/Uncenter":PRINTL$ 140 PRINT"enter or ncenter text? ";:GOSUB19 141 CLS:IFI$="U"THENPRINT"Uncenter";:ELSEPRINT"Center"; 142 PRINT" text":PRINTL$:PRINT:PRINTL$ 143 FORP=1TO X:PRINT"Working on line";P 144 IFLEFT$(A$(P),1)=" " THEN A$(P)=RIGHT$(A$(P),LEN(A$(P))-1):PRINTA$(P)+" ";:PRINTSTRING$(LEN(A$(P))+1,CHR$(8));:GOTO144 145 IFRIGHT$(A$(P),1)=" " THEN A$(P)=LEFT$(A$(P),LEN(A$(P))-1):GOTO145 146 PRINTCHR$(31):IFLEN(A$(P))>SZ THEN SZ=LEN(A$(P)) 147 NEXTP:IFI$="U" THENGOTO7 148 IFSZ=0THENGOTO7 149 CLS:CL=0:FORP=1TO X:CL=LEN(A$(P)):IFCL+1";S1$:IFS1$<>""THENSS$=S1$ 154 FORI=1TOX 155 IFINSTR(A$(I),SS$)>0THENLETA$(I)=MID$(A$(I),INSTR(A$(I),SS$)+LEN(SS$)):PRINTA$(I):ELSEPRINT"** No match line # "I" **" 156 NEXTI:PRINT:GOTO17 157 REM * Join lines * 158 GOSUB63:PRINT:PRINT"Join line #2 onto the end of line #1. " 159 L1=0:L2=0:PRINTL$:INPUT"Enter line #1,#2";L1,L2:IFL1=0ORL2=0THENGOTO7 160 IF L1<1 OR L1>X OR L2<1 OR L2>X THEN PRINT"** INPUT ERROR**":GOTO159 161 IFLEN(A$(L1))+LEN(A$(L2))<239THENLETA$(L1)=A$(L1)+" "+A$(L2)ELSEPRINT"Sorry, line would be to long.":GOTO163 162 IFL2<>L1 THEN L=L2:I$="J":GOSUB74 163 1 'NOBUG MESSAGE GENERATOR 2 'MODIFIED FOR THE COCO BY RICHARD DUNCAN 3 GOTO212 4 CLEAR10000:L$=STRING$(63,61):PL=500:DIMA$(PL+3):X=0:CF$="NONE":GOTO7 5 A$(DR)=A$(DR+LH+1) 6 RETURN 7 CLS:PRINTTAB(12)"N O B U G Message Generator REV 3.1 ":PRINTTAB(11)"Modified for TRS-80c by Richard Duncan":PRINT"Current file < "CF$" >";TAB(32)"Lines <"X"> Remain <"PL-X">" 8 PRINTL$:PRINT"* Menu *":PRINT"oad / ave message elete line / <#> Clear" 9 PRINT"nsert Message or line ard copy":PRINT"dit line / easure Message order - add/remove" 10 PRINT"umber lines <$> END reboot" 11 PRINT"

~~rint the Message to CRT ext center/uncenter":PRINT"~~dd disk file to message emove DDS line #, etc" 12 PRINT"oin text lines together et directory":PRINT"<*> disk functions" 13 PRINT"ill message on disk echange text" 14 PRINTL$:PRINT"Menu selection: ";:GOSUB19:GOTO23 15 REM *** GET I$ INPUT *** 16 GOSUB18:GOTO7 17 PRINTL$:GOSUB18:GOTO7 18 PRINT"** Hit for menu **"; 19 I$=INKEY$:IFI$=""THEN19ELSEPRINTI$ 20 IFASC(I$)>96THENI$=CHR$(ASC(I$)-32) 21 RETURN 22 IFX<1THENCLS:PRINT"** Buffer empty **":GOTO17ELSECLS:RETURN 23 I1=INSTR("V#SELIATMBNHP$DRJG*K!X",I$):IFI1=0THEN7ELSE ON I1 GOTO169,24,37,55,30,81,30,139,91,98,113,124,63,69,72,151,157,164,166,186,70,188 24 LETX=0:CF$="NONE":GOTO7 25 REM * Enter * 26 CLS:PRINT" Enter message -- when you wish to quit":PRINT" press by itself in the last line.":PRINTL$:PRINT 27 X=X+1:IFX>PL THEN PRINT"LIMIT -"PL"- LINES":ELSEPRINTX;TAB(4)" ";:LINEINPUTA$(X) 28 IFA$(X)=""THENX=X-1:PRINTL$:PRINT"End of Message -- ";:GOTO16ELSEGOTO27 29 REM * Load * 30 CLS:IFI$="A"THENPRINT"Add";:ELSEPRINT"Load"; 31 PRINT" message":PRINTL$:GOSUB40 32 IFI$<>"A"THENX=0 33 X=X+1:IFX>PL THENPRINT"* Message may not be complete.":GOTO35:ELSEIFEOF(1)THEN35 34 PRINT"Loading line "X:LINEINPUT#1,A$(X):GOTO33 35 X=X-1:CLOSE:PRINT:PRINT"Message Loaded -- ";:GOTO16 36 REM * Save * 37 REM 38 I$="P":CLS 39 PRINT"Save Message":PRINTL$:GOSUB40:GOTO48 40 PRINT"Enter <*> for current file ("CF$") ":PRINT"or of standard filename.":RESTORE:S=0:TB=34:PRINTL$ 41 IFTB=0THENTB=26ELSEPRINT" ":TB=0 42 S=S+1:READSN$:IFSN$<>"** END **"THENPRINTTAB(TB)"<"S">";TAB(TB+8)SN$;:GOTO41ELSEPRINTTAB(TB)"< * >";TAB(TB+8)CF$ 43 PRINT:PRINTL$:FS$="":LINEINPUT"Enter Filename ==> ";FS$:IFFS$=""THENGOTO7 44 IFFS$="*"ANDCF$="NONE"THEN7ELSEIFFS$="*"THENFS$=CF$ 45 SS=VAL(FS$):IFSS>0ANDSS "FS$:PRINTL$:RETURN 48 IFII$="T"ANDA$(1)<>CHR$(18)THENPRINT#1,CHR$(18) 49 IFII$="S"THENFORU=0TO4:PRINT#1,M$(U):NEXTU 50 FORJ=1TO X:PRINT"Saving line "J:PRINT#1,A$(J):NEXTJ 51 IFII$="T"ANDA$(X)<>CHR$(20)THENPRINT#1,CHR$(20) 52 IF(II$="S"ORII$="D")ANDA$(X)<>CHR$(4)THENPRINT#1,CHR$(4) 53 PRINT:CLOSE:PRINT"Message Saved -- ";:GOTO16 54 REM * Edit * 55 GOSUB22:GOSUB63 56 IFX=1THEN L=1ELSEPRINTL$:L=0:INPUT"Change line ";L:IFL<1THEN GOTO7ELSEIFL>X THEN56 57 PRINT"Line now reads :":PRINTL"> "A$(L):OL$=A$(L) 58 TP$="":PRINT"Text to be changed :";:LINEINPUTTP$:IFTP$=""THENGOTO7 59 A=INSTR(A$(L),TP$):IFA=0THENPRINT:PRINT"No text match":GOTO58 60 PRINT"New text :";:NW$="":LINEINPUTNW$:LS$=MID$(A$(L),1,A-1):RS$=MID$(A$(L),A+LEN(TP$)):A$(L)=LS$+NW$+RS$ 61 PRINT:PRINT"Line "L" was:":PRINTL"> "OL$:PRINT"Line "L" now reads:":PRINTL"> "A$(L):PRINT:GOTO56 62 REM * CRT display * 63 GOSUB22 64 PRINT" ENTER TO SKIP TO THE END OF LONG LISTING.":PRINTL$:FORP=1TOX 65 PRINTP;TAB(4)" ";A$(P):IFINKEY$=CHR$(10)THENP=X:ELSENEXTP 66 IFI$<>"P"THENRETURNELSEPRINTL$ 67 PRINT:GOTO16 68 REM * End * 69 END 70 CLS:POKE113,0:EXEC40999 71 REM * Delete * 72 GOSUB63:PRINTL$:PRINT"Hit for menu or enter the line number to delete.":PRINT"For block delete enter start line - end line ie <5-13>";:L=0:LH=0:L1$="":INPUTL1$:L=VAL(L1$):IFL<1ORL>X THENGOTO7 73 Y=INSTR(L1$,"-"):IFY>0THEN LL=VAL(LEFT$(L1$,Y)):LH=VAL(MID$(L1$,Y+1)):L=LL:LH=LH-LL:IFLH<1THENPRINT"* INPUT ERROR":GOTO72 74 CLS:PRINTL$:PRINTL$:FORDR=L TO X:GOSUB5 75 PRINT"LINE ";DR;" Exchanged with ";DR+LH+1;:IFX by itself to end input.";:INPUTLN 83 IFLN>=X THENGOTO79ELSEIFLN<0THEN7 84 FORDR=X TO LN+1STEP-1 85 A$(DR+1)=A$(DR) 86 NEXTDR:LETX=X+1 87 LH=0:PRI USERLOG EDITOR The System Userlog Editor (SUL/EDI) is used to modify a user's privilege or other pertinent information. Upon loading and running the editor the following menu will appear: USERS: (NUMBER) ~~EARCH O TO USER # EXT AST ENTRY ODIFY FIELD EGISTER~~ ~~CTIVATE ELETE~~

RINT LISTING ACKUP NTER USER SER CLASS UIT ARD COPY COMMAND> NOTE: A USER'S INFORMATION MUST BE INITIALLY PRINTED ON THE SCREEN BEFORE ANY MODIFICATIONS MAY BE MADE. EARCH Searches for a user by string comparision. After pressing the "S" the system will prompt for the test string. The test string may be any target in the name or from. Use SHIFT-CLEAR to separate name and from in text string. O TO USER # Jumps to user specified. Note: The user number will change when the userlog is backed up and there are deleted entries. EXT Goes to the next user in the log. AST ENTRY Goes to the previous user in the log. ODIFY FIELD Used to change one of the user listings information. Note: Some listing may not be modified. After choosing "M" the system will ask for field to be modified. See the section on field modification. EGISTER Sets the registration flag where the user will be classified as either a New, Probationary or Registered user. This has no bearing on the operation of the system for that user as all those controls are in the command and user privilege information, but the user may be shown a text file at log-on that only new users will see. ~~CTIVATE "Un-deletes" a user from the log if deleted by accident. ELETE Flags a user to be deleted from the log the next time a Backup is performed.~~