home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PWAULTP3.ZIP
/
PWAPRGMS.A02
/
PWA95
/
PWAPCP01.ZIP
/
TUTOR152
/
TUTOR.PPX
< prev
next >
Wrap
Text File
|
1995-09-03
|
18KB
|
351 lines
;------------------------------------------------------------------------------
;
; █▀████ ████▄▄ █▀████ █████▄▄ █▀████ █████▄▄ █▀█▀ ▄ █▀████ █████▄▄
; ██████ ███ ██████ ███ ██████ ███ █▀ ▄██ ██████ ███
; ████▓█ ███ ████▓█ ███ ████▓█ ███ ▄██▓█ ████▓█ ███
; ███▓▒█ ███ ███▓▒█ ███▓▒█ ███▓▒█ ███▓▒█
; ██▓▒░█ ░▒▓████ ██▓▒░█ ░▒▓█ ██▓▒░█ ░▒▓███▄ ██▓▒░█ ▀█▓▒░████████▄
; █▓▒░ █ █▓█ █▓▒░ █ ▄▄▄ █▓▒░ █ █▓█ █▓▒░ █ ▄▄▄▄▄▄ █▓█
; █▒░ █ █▒█ █▒░ █ █▒█ █▒░ █ █▒█ █▒░ █ █▒░ █ █▒█
; █░ █ █░█ █░ █ █░█ █░ █ █░█ █░ █ █░ █ █░█
; █▄▄▄▄█KLoY!█▄█ █▄▄▄▄█ ██████▄▀ █▄▄▄▄█ ██████▄▀ █▄▄▄▄█ █▄▄▄▄█ ██████▄▀
;
; C O R P
;------------------------------------------------------------------------------
; P.P.L.X. 1.5O (C)1995 - Lone Runner / AEGiS CoRP'95
;------------------------------------------------------------------------------
; PPE 3.1O (crypted) - Analysis OFF
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
Declare Function FUNCTION001() String
;------------------------------------------------------------------------------
STRING001 = ReadLine(PcbDat(), 94)
INTEGER001 = Len(STRING001) / 16
STRING002 = 4646464
FOpen 1, PpePath() + "TUTOR.CFG", 0, 0
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING006
FGet 1, STRING005
FGet 1, STRING007
FCloseAll
Log " Opened DOOR (Tutorial) at @SYSTIME@", 1
If (!AnsiOn()) Goto LABEL000
Goto LABEL001
:LABEL000
PrintLn
PrintLn
PrintLn "PCBoard Tutorial - ERROR: 101"
PrintLn
PrintLn "ANSI.SYS is REQUIRED! to view this program."
PrintLn "Please make sure that you have the ANSI.SYS command loaded in your"
PrintLn "config.sys file and that you choose Color graphics on this system."
PrintLn
Goto LABEL002
:LABEL001
PrintLn "@CLS@@POFF@"
PrintLn
PrintLn "@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█"
PrintLn "@X1F█ @X18█@X07"
PrintLn "@X1F█ @X19PCB Tutorial PCB Tutorial PCB Tutorial PCB Tutorial @X08█"
PrintLn "@X1F█ @X19PCB T@X7F ┌─────────────────────────────────────────────────────────@X70┐ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │ @X70╗══╗╔══╗╗══╗@X78tm @X70╔═╦═╗╦ ╦╔═╦═╗╔══╗╔══╗ ╦ ╔══╗╦ │ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │ @X71╠══╝║ ╠══╣ ║ ║ ║ ║ ║ ║╠═╦╝ ║ ╠══╣║ @X70│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │ @X70╩ ╚══╝╝══╝ ╩ ╚══╝ ╩ ╚══╝╩ ╚═ ╩ ╩ ╩╚══╝ │ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │@X74 Version 1.52 @X70│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │ @X78 PCBoard Tutorial (C) (08-29-95) - A.600" + STRING003 + "711", "@POS:69@ @X70│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │ @X70│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F │ @X70 │ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X7F └@X70─────────────────────────────────────────────────────────┘ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 Tutorial PCB Tutorial PCB Tutorail PCB Tuto@X19rial @X08█"
PrintLn "@X1F█ @X19PCB Tutorial PCB Tutorial PCB Tutorial PCB Tutorial @X08█"
PrintLn "@X1F█ @X08█"
PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
PrintLn "@X03 Copyright (c)1995 Equinox Software"
If (!(STRING002 <> STRING003)) Goto LABEL003
Goto LABEL004
Goto LABEL004
:LABEL003
If (!(STRING002 == STRING003)) Goto LABEL004
Goto LABEL005
:LABEL004
AnsiPos 27, 12
PrintLn "@XFEUNREGISTERED EVALUATION COPY@X03"
AnsiPos 27, 13
PrintLn "@X7E 20 Second Delay @X07"
Delay 18 * 15
Goto LABEL006
:LABEL005
AnsiPos 27, 12
PrintLn "@X70Registered and Licensed to:@X07"
AnsiPos 13, 13
PrintLn "@X70@BOARDNAME:54C@@X07"
AnsiPos 1, 22
PrintLn "@WAIT@"
:LABEL006
PrintLn "@CLS@ @X4E PCB Tutorial @X07 @X17╔════════════════════════════════════════════════════════╗@X07"
PrintLn "@X70┌─@X4E Version 1.52 @X70─┐@X01 @X17║ ║@X07"
PrintLn "@X70│ │@X01 @X17╟────────────────────────────────────────────────────────╢@X07"
PrintLn "@X70│ @X6F @X60(@X6FA@X60)@X67ll about @X6F @X78▄ @X70│@X01 @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
PrintLn "@X70│ @X10 @X13(@X1FC@X13)@X17ommands @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X1F @X13(@X1FI@X13)@X17nternet @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ Please make your selection from any of the │@X03░░@X17║@X07"
PrintLn "@X70│ @X50 (@X5FU@X50)@X57senet @X78▄ @X70│@X01 @X17║@X03░░@X0B│ catagories on the left. │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X30 @X34(@X3FF@X34)@X38idonet @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X40 (@X4FH@X40)@X47elp @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X2F @X28(@X2EE@X28)@X20XIT @X78▄ @X70│@X0F @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
PrintLn "@X70│ │@X01 @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
PrintLn "@X70└──── Options ────┘@X01 @X17╚════════════════════════════════════════════════════════╝@X07"
If (!(STRING002 <> STRING003)) Goto LABEL007
Goto LABEL008
Goto LABEL009
:LABEL007
If (!(STRING002 == STRING003)) Goto LABEL009
Goto LABEL009
:LABEL009
AnsiPos 24, 2
PrintLn "@X1BRegistered to: @X1F@BOARDNAME:39@@X07"
Goto LABEL010
:LABEL008
AnsiPos 36, 2
PrintLn "@X9E UNREGISTERED EVALUATION COPY@X07"
Goto LABEL010
:LABEL010
Goto LABEL011
:LABEL032
AnsiPos 1, 4
PrintLn "@X70│ @X6F @X60(@X6FA@X60)@X67ll about @X6F @X78▄ @X70│@X01 @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 5
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
AnsiPos 1, 6
PrintLn "@X70│ @X10 @X13(@X1FC@X13)@X17ommands @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 7
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 8
PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 9
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 10
PrintLn "@X70│ @X1F @X13(@X1FI@X13)@X17nternet @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 11
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ Please make your selection from any of the │@X03░░@X17║@X07"
AnsiPos 1, 12
PrintLn "@X70│ @X50 (@X5FU@X50)@X57senet @X78▄ @X70│@X01 @X17║@X03░░@X0B│ catagories on the left. │@X03░░@X17║@X07"
AnsiPos 1, 13
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 14
PrintLn "@X70│ @X30 @X34(@X3FF@X34)@X38idonet @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 15
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 16
PrintLn "@X70│ @X40 (@X4FH@X40)@X47elp @X78▄ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 17
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 18
PrintLn "@X70│ @X2F @X28(@X2EE@X28)@X20XIT @X78▄ @X70│@X0F @X17║@X03░░@X0B│ │@X03░░@X17║@X07"
AnsiPos 1, 19
PrintLn "@X70│ @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01 @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
AnsiPos 1, 20
PrintLn "@X70│ │@X01 @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
AnsiPos 1, 21
PrintLn "@X70└──── Options ────┘@X01 @X17╚════════════════════════════════════════════════════════╝@X07"
AnsiPos 1, 22
PrintLn " "
:LABEL011
AnsiPos 1, 22
STRING008 = " "
:LABEL029
If (!(Upper(STRING008) <> "E")) Goto LABEL012
STRING008 = FUNCTION001()
If ((STRING008 == "END")) Goto LABEL002
If ((STRING008 == Chr(13))) Goto LABEL013
If (!(Upper(STRING008) == "A")) Goto LABEL014
Goto LABEL015
Goto LABEL016
:LABEL014
If (!(Upper(STRING008) == "I")) Goto LABEL017
Goto LABEL018
Goto LABEL016
:LABEL017
If (!(Upper(STRING008) == "U")) Goto LABEL019
Goto LABEL020
Goto LABEL016
:LABEL019
If (!(Upper(STRING008) == "H")) Goto LABEL021
Goto LABEL022
Goto LABEL016
:LABEL021
If (!(Upper(STRING008) == "F")) Goto LABEL023
Goto LABEL024
Goto LABEL016
:LABEL023
If (!(Upper(STRING008) == "C")) Goto LABEL025
Goto LABEL026
Goto LABEL016
:LABEL025
If (!(Upper(STRING008) == "L")) Goto LABEL027
Goto LABEL028
Goto LABEL016
:LABEL027
If (!((Upper(STRING008) == "E") || (Upper(STRING008) == "e"))) Goto LABEL016
Goto LABEL002
:LABEL016
Goto LABEL029
:LABEL012
End
Function FUNCTION001() String
:LABEL031
If (!(FUNCTION001 == "")) Goto LABEL030
FUNCTION001 = Inkey()
Goto LABEL031
:LABEL030
EndFunc
:LABEL013
AnsiPos 26, 17
PrintLn "@X4F Please @XCEmake your selection @X4Ffrom the catagories @X07"
AnsiPos 26, 18
PrintLn "@X4F on the LEFT. @X07"
Delay 100
Goto LABEL006
:LABEL015
Call PpePath() + "ABOUT.MOD"
Goto LABEL032
:LABEL028
Call PpePath() + "LOGIN.MOD"
Goto LABEL006
:LABEL018
Call PpePath() + "INTERNT.MOD"
Goto LABEL032
:LABEL026
Call PpePath() + "commands.mod"
Goto LABEL032
:LABEL020
Call PpePath() + "USENET.MOD"
Goto LABEL032
:LABEL022
Call PpePath() + "HELP.MOD"
Goto LABEL032
:LABEL024
Call PpePath() + "FIDO.MOD"
Goto LABEL032
:LABEL002
PrintLn "@CLS@@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█@X0B"
PrintLn "@X1F█ @X18█@X0B"
PrintLn "@X1F█ @X19PCB Tutorial PCB Tutorial PCB Tutorial PCB Tutorial @X08█@X0B"
PrintLn "@X1F█ @X19PCB T@X47 ┌─────────────────────────────────────────────────────────┐ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 │ @X4B≡≡≡≡≡ @X4ECREDITS / ACKNOWLEDGEMENTS @X4B≡≡≡≡≡ @X47│ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 │ │ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 │ @X4FPCBoard is a registered Trademark (R) of @X47│ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 │@X4F Clark Developement Co, Inc. @X47│ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X08 T@X47 │ │ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X47 │ @X4FA special thanks to The Wizard's BBS (508)481-4693, @X47│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X47 │ @X4FBob Neal and Jay Parekh for there suggestions and beta @X47│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X47 │ @X4Ftesting of this program. @X47│ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X08 T@X47 │ │ @X19ial @X08█"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 │ │ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 │ @X4APCB Tutorial (C)1995 Equinox Software @X47│ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08T@X47 └─────────────────────────────────────────────────────────┘ @X19ial @X08█@X0B"
PrintLn "@X1F█ @X19PCB@X07 @X08Tutorial PCB Tutorial PCB Tutorail PCB Tuto@X19rial @X08█"
PrintLn "@X1F█ @X19PCB Tutorial PCB Tutorial PCB Tutorial PCB Tutorial @X08█@X0B"
PrintLn "@X1F█ @X17 @X08█"
PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
PrintLn "@WAIT@", "@PON@"
If (!(STRING002 <> STRING003)) Goto LABEL033
Goto LABEL034
Goto LABEL034
:LABEL033
If (!(STRING002 == STRING003)) Goto LABEL034
Goto LABEL035
:LABEL034
AnsiPos 27, 5
PrintLn "@XCE UNREGISTERED EVALUATION COPY @X07"
AnsiPos 1, 21
PrintLn " @X0ASupport Shareware - Ask your SysOp to register this program@X07"
Delay 18 * 15
:LABEL035
PrintLn
PrintLn "Now returning to the @BOARDNAME@...."
Log " Back from DOS at @SYSTIME@", 1
Delay 17
KbdStuff "MENU"
;------------------------------------------------------------------------------
;
; Statements used :
;
; 1 End
; 59 Goto
; 6 Let
; 101 PrintLn
; 19 If
; 1 FOpen
; 5 FGet
; 2 Log
; 4 Delay
; 1 KbdStuff
; 7 Call
; 31 AnsiPos
; 1 FCloseAll
; 1 EndFunc
;
;
; Functions used :
;
; 2 *
; 1 /
; 12 +
; 15 ==
; 4 <>
; 17 !
; 1 ||
; 1 Len(
; 10 Upper()
; 2 Mid()
; 1 Right()
; 1 Chr()
; 3 Asc()
; 1 Inkey()
; 3 String()
; 1 PcbDat()
; 8 PpePath()
; 1 ReadLine()
; 1 AnsiOn()
;
;------------------------------------------------------------------------------
; (C)1995 AEGiS CoRP - Main Code by Lone Runner - Parts by The doC
;------------------------------------------------------------------------------
; ___________ _______________________ _____________
;[=======\ \====/ / /_____ / /=======]
; ::::::::\ ______ \::/ \_____ / _______ /______)/ \_______ /::::::::
; ::kL!:::_\/ _/ \/ ___)__\/ \ \/ \_________ \/:::::::::
; ::::::::\ __ \_ \ \_ \_ \_ \_ / \_::::::::
;[=========\_____/______/__________/___________/_________/__________/========]
;
; C O R P
;------------------------------------------------------------------------------
; Dedicated to pure anarchists all around the world...
;------------------------------------------------------------------------------