home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TUTOR151.ZIP
/
USENET.MOD
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-06-03
|
22KB
|
584 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
Declare Function FUNCTION001() String
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING004
FGet 1, STRING003
FGet 1, STRING005
FCloseAll
Select Case (STRING005)
Case "YES"
Goto LABEL002
Case "NO"
End Select
:LABEL001
AnsiPos 1, 4
PrintLn "@X70│ @X70│@X01 @X17║@X3B@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 5
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40┌──────────────────────────────────────────────────@X4C┐@X37@X01░░@X17║@X07"
AnsiPos 1, 6
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 7
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 8
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 9
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 10
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│@X4FWe are sorry but, this area of the tutorial is @X4Enot@X4C│@X01░░@X17║@X07"
AnsiPos 1, 11
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4Fcurrently available because there are @X4Eno @X4FUSENET @X4C│@X01░░@X17║@X07"
AnsiPos 1, 12
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4Fconferences online at this time. @X4C│@X01░░@X17║@X07"
AnsiPos 1, 13
PrintLn "@X70│ │@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 14
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 15
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 16
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 17
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 18
PrintLn "@X70│ @X70│@X0F @X17║@X01░░@X07@X40│ @X4C│@X01░░@X17║@X07"
AnsiPos 1, 19
PrintLn "@X70│ @X70│@X01 @X17║@X01░░@X40└@X4C──────────────────────────────────────────────────┘@X01░░@X17║@X07"
AnsiPos 1, 20
PrintLn "@X70│ │@X01 @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 21
PrintLn "@X70└──── Options ────┘@X01 @X17╚════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL007
:LABEL002
AnsiPos 1, 4
PrintLn "@X70│ @X6F @X60(@X6FM@X60)@X67ain Menu @X6F @X78▄ @X70│@X01 @X17║@X02░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 5
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X09@X02░░@X0A┌──────────────────────────────────────────────────┐@X02░░@X17║@X07"
AnsiPos 1, 6
PrintLn "@X70│ @X70│@X01 @X17║@X09@X02░░@X0A│@X4F USENET @X0A│@X02░░@X17║@X07"
AnsiPos 1, 7
PrintLn "@X70│ @X70│@X01 @X17║@X09@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 8
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0C[@X0E1@X0C] @X0FWhat is the USENET? @X0A│@X02░░@X17║@X07"
AnsiPos 1, 9
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0C[@X0E2@X0C] @X0F@X0BUSENET Etiquette @X0F- How to properly use the @X0A│@X02░░@X17║@X07"
AnsiPos 1, 10
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0FUSENET NewsGroups @X0A│@X02░░@X17║@X07"
AnsiPos 1, 11
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0C[@X0E3@X0C] @X0FMessage Symbols @X0A│@X02░░@X17║@X07"
AnsiPos 1, 12
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 13
PrintLn "@X70│ │@X01 @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 14
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 15
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 16
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 17
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 18
PrintLn "@X70│ @X70│@X0F @X17║@X02░░@X0A│ @X0A│@X02░░@X17║@X07"
AnsiPos 1, 19
PrintLn "@X70│ @X70│@X01 @X17║@X02░░@X0A└──────────────────────────────────────────────────┘@X02░░@X17║@X07"
AnsiPos 1, 20
PrintLn "@X70│ │@X01 @X17║@X0B@X02░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 21
PrintLn "@X70└──── Options ────┘@X01 @X17╚════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
STRING006 = " "
While (Upper(STRING006) <> "E") Do
STRING006 = FUNCTION001()
If (STRING006 == "END") Goto LABEL007
If (STRING006 == Chr(13)) Goto LABEL006
If (Upper(STRING006) == "1") Then
Goto LABEL003
Continue
Endif
If (Upper(STRING006) == "2") Then
Goto LABEL004
Continue
Endif
If (Upper(STRING006) == "3") Then
Goto LABEL005
Continue
Endif
If (Upper(STRING006) == "M") Then
Goto LABEL007
Continue
Endif
If ((Upper(STRING006) == "E") || (Upper(STRING006) == "e")) Then
Goto LABEL007
Endif
EndWhile
End
;------------------------------------------------------------------------------
Function FUNCTION001() String
While (FUNCTION001 == "") Do
FUNCTION001 = Inkey()
EndWhile
EndFunc
:LABEL003
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F100% Viewed @X70─┘@X07 @X17║ @X0A @X0EWHAT IS THE USENET? @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0FThe @X0AUSENET @X0Fis a large collection of computers that share data with each @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0Fother. @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0FLocated on these computers are over 4,500+ conferences (forums). @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0FEach conference deals with its own subject and it is important to @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0Fremember to stick to the conferences topic when leaving e-mail. @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0FMost if not all of the USENET groups expect you to send mail @X0BPUBLICLY@X0F. @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0FThats, is when you send a message on one of these conferences it should @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0Fbe sent to `@X0BALL@X0F` or an certain person with the meesage security set to @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0F`@X0BPUBLIC@X0F`. @X0FPrivate mail is @X0Cnot @X0Fallowed in the USENET Newsgroups. @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL002
:LABEL004
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 14% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0FThe easiest way to learn how to use the USENET is to watch others do @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0Fit. @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0ANEVER FORGET THE PERSON ON THE OTHER END. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0FBecause your interacting with a computer it is easy to forget that @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0Fthere are `other` people out there. Situations arise were emotions @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0Ferupt into a verbal free-for-all that can lead to hurt feelings. @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0FPlease remember that people from all over the world are reading your @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0Fmessages. Screaming, cursing and abusing others only serves to make @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0Fpeople think less of you and less willing to help you when you need it. @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0ABE CAREFUL ABOUT WHAT YOU SAY ABOUT OTHERS. @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0FPlease remember, you read netnews and so do as many as 3 million others.@X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X0FThis group possibly includes your boss, your buddies, your girlfriends @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 28% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0Fmother or your parents. These words can come back to haunt you. @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X8CIMPORTANT! @X0F- Think twice before you provide personal information about @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0Fyourself. @X0CNEVER! @X0Fsupply social security numbers, addresses, or phone @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0Fnumbers. Remember, all this information is being provided to millions @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0Fof other people. @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│@X0A BE BRIEF @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0FKeep your messages as brief as possible. Never say in 10 words what you @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0Fcould say in fewer. Remember, the longer you make your message the @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0Ffewer people will bother to read it. @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 42% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0AUSE DESCRIPTIVE TITLES @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│@X0F The description lne of an article is there to enable a person with a @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│@X0F limited amount of time to decide whether or not to read your message. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│@X0F Tell people what the message is about before the read it. A title like @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│@X0F `Computer for Sale` in the alt.misc.computers conference does not help @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│@X0F as much as `486-DX For Sale`. Don't expect people to read your message @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│@X0F to find out what it is about, most people won't bother. @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0ASTICK TO THE CONFERENCES SUBJECT (THEME) @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0FDon't post a message about the computer you have for sale in the @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0Frec.autos conference. Post it in a conference that deals with the @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0Fselling and buying of items. This is not only a waste of time but will @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X0Falso upset a lot of people. When you send a message about a certain @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 56% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0Fsubject be sure you send it to the right conference. Also, if your @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0Fmessage has a local context try to post it in a conference that would @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0Fdeal with the subject on a more local level. @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0ABE CAREFUL WITH HUMOR AND SARCASM. @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0FWithout actually hearing you speak it is easy for a remark meant to be @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0Ffunny to be misinterpreted. To compensate for this there are symbols @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0Fthat can be used to express the way your feeling and to help convey the @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0Fway you want the message taken. @X0B(See `@X0DMESSAGE SYMBOLS@X0B` for more info) @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0AONLY POST A MESSAGE ONCE. @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X0FSimple enough, only post your message once. It might take some time @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X0Fbefore you receive a reply but posting it again each day is a waste of @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 70% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0Ftime and annoys alot of people. Would you like to see that same message @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0F25 times in an area? @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0AREPLYING TO MESSAGES @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0FThis is a sticky area with most members of a conference. Replying to a @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0Fmessage or `QUOTING` is most of the time overdone. Quoting is when you @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0Fplace at the beginning of your message some of the remarks made by the @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0Fperson in his or her message in order to give the person an idea of @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0Fthe conversation that was talking place. With all the messages you @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0Fmight receive its a good idea to `quote`, just so you can remember what @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0Fit was that you were discussing. @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F 84% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0F@X0BHeres an example: @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0F@X20 Date: @SYSDATE@ (13:16) Number 148 of 2056 @X0F @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X4F To: Janie Smith @X07 @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X1F From: John Smith @X07 @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X1F Subj: Example of quoting a message @X07 @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X1F Read: (N/A) Status: PUBLIC MESSAGE @X07 @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X1F Conf: alt.pcboard.tutorial Read Type: General @X07 @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X8E@X0DQuoting@X8E @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ -> Can you give me more information on the 486-DX computer you have for @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ -> sale? As to the type of BIOS you have and the size of the MB. @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ Its a AMI BIOS and the motherboard is of the smaller (newer) generation @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F100% Viewed @X70─┘@X07 @X17║ @X0A @X0EHow To Use The USENET NewsGroups @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0ADON'T OVERDUE SIGNATURES @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0FSignatures are nice and many people can have a signature added to there @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0Fmessages automatically by placing it in a file called `HOME/.signature`.@X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0FDon't overdue it. Signatures can tell the world something about you but @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0Fkeep them short. A signature that is longer than the message is @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0Fconsidered to be in bad taste. The main purpose of a signature is to @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0Fhelp people locate you, not to tell your life story. Every signature @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0Fshould contain your address (e-mail address) and the place your @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0Flocated. @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ END @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL002
:LABEL005
AnsiPos 1, 4
PrintLn "@X0F@X70└─ @X7F100% Viewed @X70─┘@X07 @X17║ @X0A @X0EMessage Symbols @X17 ║@X07"
AnsiPos 1, 5
PrintLn "@X17╔════════════════════╩════════════════════════════════════════════════════════╣@X07"
AnsiPos 1, 6
PrintLn "@X17║ @X07┌─────────────────────────────────────────────────────────────────────────┐@X17 ║@X07"
AnsiPos 1, 7
PrintLn "@X17║ @X07│ @X0FThe following symbols are used in a message to help convey a certain @X07│@X17 ║@X07"
AnsiPos 1, 8
PrintLn "@X17║ @X07│ @X0Ffeeling to a message. @X07@X07│@X17 ║@X07"
AnsiPos 1, 9
PrintLn "@X17║ @X07│ @X0DSMILELY FACES @X0C(@X0BTilt your help to the left to view them@X0C) @X07│@X17 ║@X07"
AnsiPos 1, 10
PrintLn "@X17║ @X07│ @X0F;-) @X0A[A Wink] @X0F:-) @X0A[ A Smile] @X07│@X17 ║@X07"
AnsiPos 1, 11
PrintLn "@X17║ @X07│ @X0FO:-) @X0A[An Angel] @X0F:-P @X0A[Sticking out your tougue] @X07│@X17 ║@X07"
AnsiPos 1, 12
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 13
PrintLn "@X17║ @X07│ @X0DINITIALS @X07│@X17 ║@X07"
AnsiPos 1, 14
PrintLn "@X17║ @X07│ @X0FLOL @X0A[Laughing out Loud] @X0FBRB @X0A[Be Right Back] @X07│@X17 ║@X07"
AnsiPos 1, 15
PrintLn "@X17║ @X07│ @X0FTTYL @X0A[Talk to you later] @X0FCYA @X0A[See Ya] @X07│@X17 ║@X07"
AnsiPos 1, 16
PrintLn "@X17║ @X07│ @X0F<g> @X0A[Grin] @X0Fheheh @X0A[Laugh] @X07│@X17 ║@X07"
AnsiPos 1, 17
PrintLn "@X17║ @X07│ @X0F @X07│@X17 ║@X07"
AnsiPos 1, 18
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 19
PrintLn "@X17║ @X07│ @X07│@X17 ║@X07"
AnsiPos 1, 20
PrintLn "@X17║ @X07└─────────────────────────────────────────────────────────────────────────┘@X17 ║@X07"
AnsiPos 1, 21
PrintLn "@X17╚═════════════════════════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
AnsiPos 1, 22
Wait
Goto LABEL002
:LABEL006
AnsiPos 26, 17
PrintLn "@X0B@X4F Please @XCEmake your selection @X4Ffrom the catagories @X07"
AnsiPos 26, 18
PrintLn "@X0B@X4F ABOVE or on the LEFT. @X07"
Delay 100
Goto LABEL002
:LABEL007
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 10 Wait
; 30 Goto
; 3 Let
; 211 PrintLn
; 11 If
; 1 FOpen
; 5 FGet
; 1 Delay
; 222 AnsiPos
; 1 FCloseAll
; 1 EndFunc
;
;
; ■ Functions used :
;
; 1 +
; 11 ==
; 1 <>
; 9 !
; 1 ||
; 7 Upper()
; 1 Chr()
; 1 Inkey()
; 1 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 2 While/EndWhile
; 5 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------