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$;
20 PRINT"<G>ALL Others":PRINT"":PRINT"Enter letter of your terminal, <CR> 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 <CR>":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"
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