0 'BBSDMO.BA Richard Hanson December/87 1 'CLUB 100 Library 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 R$=CHR$(27)+"p":N$=CHR$(27)+"q":CLS:PRINT@90,R$" THE CLUB 100 BBS "N$:PRINT@170,R$" LOGON SIMULATION "N$:FORX=1TO2000:NEXT:CLS:PRINT"Use this demonstration program to":PRINT"practice logging onto the CLUB 100 bbs 3 PRINT"(bulletin board system) in California":PRINT"for the first time. Run through it a":PRINT"few times then call the real CLUB 100":PRINT"bbs at (415)939-1246. You'll be a pro!":PRINT"":PRINTR$" Hit ENTER to continue... "N$; 4 Z$=INKEY$:IFZ$=""THEN4 5 CLS:PRINT"We have added a narrative to the log on":PRINT"process in this simulation. The":PRINT"narrative is not a part of the actual":PRINT"bbs log on process.":PRINT"":PRINT"":PRINT"":PRINTR$" Hit ENTER to continue... "N$; 6 Z$=INKEY$:IFZ$=""THEN6 7 CLS:PRINT"Once the call is placed, from your":PRINT"computer to the CLUB 100 computer, the":PRINT"modems will join and the CLUB 100":PRINT"computer will ask a few simple":PRINT"questions. Please respond to these":PRINT"questions.":PRINT" 8 PRINTR$" Hit ENTER to continue... "N$; 9 Z$=INKEY$:IFZ$=""THEN9 10 CLS:PRINT"":PRINT"":PRINT"":PRINT" CLUB 100: A Model 100 User Group":PRINT" ____Tandy_Models_100/102/200____":PRINT" 937 5039 weekly newsletter":PRINT" 932 8856 system operator":PRINT"":PRINT"":PRINT" 11 LINEINPUT"First Name? ";F$:LINEINPUT"Last Name? ";L$:PRINT"Searching User File ...":LINEINPUT"Calling from (City,State)? ";H$:PRINT"":PRINT"TBBS Welcomes "F$" "L$:PRINT"Calling From "H$:PRINT"Is this correct? "; 12 Z$=INKEY$:IFZ$=""THEN12 13 IFZ$="Y" ORZ$="y"THENPRINTZ$;:GOTO16 14 IFZ$="N" ORZ$="n"THENPRINTZ$;:CLS:GOTO11 15 GOTO 16 CLS:PRINT"The CLUB 100 computer has determined":PRINT"that you are not yet in its log and":PRINT"will now ask some technical questions":PRINT"about your computer. Relax for a":PRINT"moment and we will answer these 17 PRINT"questions as if you were calling in":PRINT"with a Model 100 and hitting the keys.":PRINTR$" Hit ENTER to continue... "N$; 18 Z$=INKEY$:IFZ$=""THEN18 19 CLS:PRINT"":PRINT"Terminal Width (10-132)? ";:FORX=1TO700:NEXTX:PRINT"4";:FORX=1TO100:NEXTX:PRINT"0":FORX=1TO500:NEXTX:PRINT"":PRINT"Model 100 Model 102":PRINT"Model 200 NEC PC8201A":PRINT"Olivetti M10 MS-DOS 20 PRINT"ALL Others":PRINT"":PRINT"Enter letter of your terminal, if ":PRINT"not listed: ";:FORX=1TO700:NEXTX:PRINT"A";:FORX=1TO500:NEXTX:PRINT:PRINT:PRINT"Upper/Lower Case":PRINT"Line Feeds Needed":PRINT"00 Nulls after each ":PRINT" 21 PRINT"Do you wish to modify this? ";:FORX=1TO700:NEXTX:PRINT"N";:FORX=1TO500:NEXTX:PRINT:PRINT"Do you wish to have a pause after each ":PRINT"display page (Y/N)? ";:FORX=1TO700:NEXTX:PRINT"N";:FORX=1TO500:NEXTX:PRINT:PRINT" 22 PRINT"Please Enter a 1-8 character Password ":PRINT"to be used for future logons. This ":PRINT"password may have any printable ":PRINT"characters you wish. Lower case is ":PRINT"considered different from upper case 23 PRINT"and imbedded blanks are legal. ":FORX=1TO700:NEXTX:PRINT"REMEMBER THIS PASSWORD. You will need ":PRINT"it to log on again.":PRINT"":PRINT"Your password? "; 24 FORX=1TO700:NEXTX:PRINT"1";:FORX=1TO100:NEXTX:PRINT"2";:FORX=1TO100:NEXTX:PRINT"3";:FORX=1TO500:NEXTX:CLS:PRINT"A userlog entry has now been set up in":PRINT"your name. It contains the terminal ":PRINT"setting that you have chosen, and your 25 PRINT"password. You will only need to key":PRINT"in your name and password next time ":PRINT"you log onto the CLUB 100 computer.":PRINT"":PRINTR$" Hit ENTER to continue... "N$; 26 Z$=INKEY$:IFZ$=""THEN26 27 CLS:PRINT"Some information will now be displayed":PRINT"for your orientation and you will be":PRINT"placed at the (T)op menu. In this":PRINT"simulation you will only be able to go":PRINT"to the (T)op menu, menus 1 - 9 and":PRINT"(G)oodbye.":PRINT" 28 PRINTR$" Hit ENTER to continue... "N$; 29 Z$=INKEY$:IFZ$=""THEN29 30 CLS:PRINT"":PRINT"":PRINT"You have read through message 0":PRINT"Current last message is 2052 ":PRINT"You are authorized 20 mins this call":PRINT"Searching Message Base ...":PRINT"You have no personal messages waiting.":PRINT"":PRINT" 31 FORX=1TO500:NEXTX:GOSUB46 32 Z$=INKEY$:IFZ$=""THEN32 33 IFZ$="T" ORZ$="t"THENGOSUB45 34 IFZ$="1"THENGOSUB48 35 IFZ$="2"THENGOSUB49 36 IFZ$="3"THENGOSUB50 37 IFZ$="4"THENGOSUB51 38 IFZ$="5"THENGOSUB52 39 IFZ$="6"THENGOSUB53 40 IFZ$="7"THENGOSUB54 41 IFZ$="8"THENGOSUB56 42 IFZ$="9"THENGOSUB57 43 IFZ$="G" ORZ$="g"THENGOSUB58 44 GOTO32 45 CLS 46 PRINT"_____The CLUB 100 bbs_________________":PRINT"(1)Conference (4)Files (7)Programming":PRINT"(2)Archives (5)Market (8)Membership":PRINT"(3)MailBox (6)WrkShp (9)TermStat":PRINT 47 PRINT"(H)elp (N)ewsletter (G)oodbye (M)isc":PRINT"":PRINT"Command: ";:RETURN 48 CLS:PRINT"Menu 1: CONFERENCE (access level 2)":PRINT"":PRINT"(R)ead (S)can (P)ost (A)ctivity":PRINT"(B)ulletins (D)eals (W)ho's on-line":PRINT"(#)Program of the week":PRINT"(Menu:_23456789) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 49 CLS:PRINT"Menu 2: ARCHIVES (access level 3)":PRINT"":PRINT"(B)ulletins (R)eviews":PRINT"":PRINT"":PRINT"(Menu:1_3456789) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 50 CLS:PRINT"Menu 3: MAILBOX":PRINT"":PRINT"(R)ead (P)ost (C)all SysOp":PRINT"Mail to (S)ysOp - Richard Hanson":PRINT"":PRINT"(Menu:12_456789) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 51 CLS:PRINT"Menu 4: FILES (access level 4)":PRINT"":PRINT"(D)ownloads (U)ploads":PRINT"(-)How to download (+)How to upload":PRINT"":PRINT"(Menu:123_56789) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 52 CLS:PRINT"Menu 5: MARKET":PRINT"":PRINT"Club 100: (P)roducts (O)rdering info":PRINT"For Sale: (C)lassified ads - free!":PRINT"":PRINT"(Menu:1234_6789) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 53 CLS:PRINT"Menu 6: WORKSHOPS & CLASSES":PRINT"":PRINT"(W)here-&-When":PRINT"":PRINT"":PRINT"(Menu:12345_789) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 54 CLS:PRINT"Menu 7: PROGRAMMING (access level 3)":PRINT"":PRINT"(R)ead (S)can (P)ost (N)otes":PRINT"(D)ownloads (U)ploads (Z)aploads":PRINT"(-)how to (+)how to (!)how to":PRINT"(Menu:123456_89) (T)op (H)elp (G)oodbye":PRINT" 55 PRINT"Command: ";:RETURN 56 CLS:PRINT"Menu 8: MEMBERSHIP":PRINT"":PRINT"(J)oining (U)pgrading (L)evels":PRINT"(M)emo to membership secretary":PRINT"":PRINT"(Menu:1234567_9) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 57 CLS:PRINT"Menu 9: TERMINAL STATUS":PRINT"":PRINT"Change (S)ettings or (P)assword":PRINT"Please (R)ead me...":PRINT"":PRINT"(Menu:12345678_) (T)op (H)elp (G)oodbye":PRINT"":PRINT"Command: ";:RETURN 58 CLS:PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT"Logged on at 23:03:39":PRINT"Logged off at 23:05:07":PRINT"":PRINT"Thanks for calling the CLUB 100 bbs...":PRINT"":PRINT"":FORX=1TO1000:NEXTX:CLS:PRINT"This ends the simulation. We hope you 59 PRINT"enjoyed the experience. Please rerun":PRINT"this simulation as often as you need to":PRINT"get the feel of going online with CLUB":PRINT"100. Then log onto the real thing and":PRINT"enjoy the experience.":PRINT 60 PRINTR$" Hit ENTER to continue... "N$; 61 Z$=INKEY$:IFZ$=""THEN61 62 CLS:PRINT"What about the cost of going online":PRINT"from a long distance? Good question...":PRINT"glad I thought of it! Do this, plan on":PRINT"spending about 20 minutes per week":PRINT"online with CLUB 100. Check with your 63 PRINT"local carrier to get the actual cost.":PRINT"And, what will you do while online?":PRINTR$" Hit ENTER to continue... "N$; 64 Z$=INKEY$:IFZ$=""THEN64 65 CLS:PRINT"We have a booklet that explanes the":PRINT"advantages of going on line with CLUB":PRINT"100. On this disk is a file called":PRINT"README.DO. Please read this file, fill":PRINT"out the form enclosed and send it in.":PRINT 66 PRINT"See you soon... -Rick-":PRINTR$" Hit ENTER to continue... "N$; 67 Z$=INKEY$:IFZ$=""THEN67 68 CLS:PRINT@130,R$" T H E E N D "N$:FORX=1TO1000:NEXT:MENU