home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / bbsdmo.ba < prev    next >
Text File  |  2006-10-19  |  8KB  |  70 lines
  1. 0 'BBSDMO.BA Richard Hanson December/87
  2. 1 'CLUB 100 Library 415/939-1246 BBS,      937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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
  4. 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$;
  5. 4 Z$=INKEY$:IFZ$=""THEN4
  6. 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$;
  7. 6 Z$=INKEY$:IFZ$=""THEN6
  8. 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"
  9. 8 PRINTR$" Hit ENTER to continue... "N$;
  10. 9 Z$=INKEY$:IFZ$=""THEN9
  11. 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"
  12. 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? ";
  13. 12 Z$=INKEY$:IFZ$=""THEN12
  14. 13 IFZ$="Y" ORZ$="y"THENPRINTZ$;:GOTO16
  15. 14 IFZ$="N" ORZ$="n"THENPRINTZ$;:CLS:GOTO11
  16. 15 GOTO
  17. 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
  18. 17 PRINT"questions as if you were calling in":PRINT"with a Model 100 and hitting the keys.":PRINTR$" Hit ENTER to continue... "N$;
  19. 18 Z$=INKEY$:IFZ$=""THEN18
  20. 19 CLS:PRINT"":PRINT"Terminal Width (10-132)? ";:FORX=1TO700:NEXTX:PRINT"4";:FORX=1TO100:NEXTX:PRINT"0":FORX=1TO500:NEXTX:PRINT"":PRINT"<A>Model 100    <B>Model 102":PRINT"<C>Model 200    <D>NEC PC8201A":PRINT"<E>Olivetti M10 <F>MS-DOS
  21. 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"
  22. 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"
  23. 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 
  24. 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? ";
  25. 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
  26. 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$;
  27. 26 Z$=INKEY$:IFZ$=""THEN26
  28. 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"
  29. 28 PRINTR$" Hit ENTER to continue... "N$;
  30. 29 Z$=INKEY$:IFZ$=""THEN29
  31. 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"
  32. 31 FORX=1TO500:NEXTX:GOSUB46
  33. 32 Z$=INKEY$:IFZ$=""THEN32
  34. 33 IFZ$="T" ORZ$="t"THENGOSUB45
  35. 34 IFZ$="1"THENGOSUB48
  36. 35 IFZ$="2"THENGOSUB49
  37. 36 IFZ$="3"THENGOSUB50
  38. 37 IFZ$="4"THENGOSUB51
  39. 38 IFZ$="5"THENGOSUB52
  40. 39 IFZ$="6"THENGOSUB53
  41. 40 IFZ$="7"THENGOSUB54
  42. 41 IFZ$="8"THENGOSUB56
  43. 42 IFZ$="9"THENGOSUB57
  44. 43 IFZ$="G" ORZ$="g"THENGOSUB58
  45. 44 GOTO32
  46. 45 CLS
  47. 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
  48. 47 PRINT"(H)elp (N)ewsletter (G)oodbye (M)isc":PRINT"":PRINT"Command: ";:RETURN
  49. 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
  50. 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
  51. 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
  52. 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
  53. 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
  54. 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
  55. 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"
  56. 55 PRINT"Command: ";:RETURN
  57. 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
  58. 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
  59. 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
  60. 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
  61. 60 PRINTR$" Hit ENTER to continue... "N$;
  62. 61 Z$=INKEY$:IFZ$=""THEN61
  63. 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
  64. 63 PRINT"local carrier to get the actual cost.":PRINT"And, what will you do while online?":PRINTR$" Hit ENTER to continue... "N$;
  65. 64 Z$=INKEY$:IFZ$=""THEN64
  66. 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
  67. 66 PRINT"See you soon... -Rick-":PRINTR$" Hit ENTER to continue... "N$;
  68. 67 Z$=INKEY$:IFZ$=""THEN67
  69. 68 CLS:PRINT@130,R$" T H E   E N D "N$:FORX=1TO1000:NEXT:MENU
  70.