;------------------------------------------------------------------------------
; .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.3O (Encryption type II) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING001
String TSTRING002(4)
String TSTRING003(22)
;------------------------------------------------------------------------------
Print "@POFF@"
For INTEGER002 = 1 To 22
TSTRING003(INTEGER002) = ReadLine(PPEPath() + "PUMPY.PCB", INTEGER002)
Next
For INTEGER003 = 1 To 22
PrintLn TSTRING003(INTEGER003)
Delay 1
Next
:LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
If (STRING001 == "UP") Gosub LABEL003
AnsiPos 30, 19
Print "@X02p@X0AU@X08BLIC UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
If (STRING001 == "UP") Gosub LABEL003
AnsiPos 30, 19
Print "@X08P@X02u@X0AB@X08LIC UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PU@X02b@X0AL@X08IC UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUB@X02l@X0AI@X08C UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBL@X02i@X0AC @X08UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLI@X02c @X0AU@X08PLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC @X02u@X0AP@X08LOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC U@X02p@X0AL@X08OAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC UP@X02l@X0AO@X08AD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC UPL@X02o@X0AA@X08D"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC UPLO@X02a@X0AD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC UPLOA@X02d"
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC UPL@X02o@X0AA@X08D"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC UP@X02l@X0AO@X08AD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC U@X02p@X0AL@X08OAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLIC @X02u@X0AP@X08LOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBLI@X02c @X0AU@X08PLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUBL@X02i@X0AC @X08UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PUB@X02l@X0AI@X08C UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08PU@X02b@X0AL@X08IC UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X08P@X02u@X0AB@X08LIC UPLOAD"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == "UP") Gosub LABEL003
If (STRING001 == Chr(13)) Then
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
Gosub LABEL004
Endif
If (STRING001 == "DOWN") Gosub LABEL002
AnsiPos 30, 19
Print "@X02p@X0AU@X08BLIC UPLOAD"
Gosub LABEL001
:LABEL002
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X02p@X0AR@X08IVATE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08P@X02r@X0AI@X08VATE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PR@X02i@X0AV@X08ATE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRI@X02v@X0AA@X08TE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIV@X02a@X0AT@X08E PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVA@X02t@X0AE @X08PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVAT@X02E @X0AP@X08UMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE @X02p@X0AU@X08MP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE P@X02u@X0AM@X08P!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE PU@X02m@X0AP@X08!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE PUM@X02p@X0A!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE PU@X02m@X0AP@X08!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE P@X02u@X0AM@X08P!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVATE @X02p@X0AU@X08MP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVAT@X02e @X0AP@X08UMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIVA@X02t@X0AE @X08PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRIV@X02a@X0AT@X08E PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PRI@X02v@X0AA@X08TE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08PR@X02i@X0AV@X08ATE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X08P@X02r@X0AI@X08VATE PUMP!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
Gosub LABEL005
Endif
If (STRING001 == "DOWN") Gosub LABEL003
If (STRING001 == "UP") Gosub LABEL001
AnsiPos 30, 20
Print "@X02p@X0AR@X08IVATE PUMP!"
Gosub LABEL002
:LABEL003
AnsiPos 30, 20
Print "@X08PRIVATE PUMP!"
AnsiPos 30, 19
Print "@X08PUBLIC UPLOAD"
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
AnsiPos 30, 21
Print "@X02m@X0AA@X08YBE LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08M@X02a@X0AY@X08BE LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MA@X02y@X0AB@X08E LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAY@X02b@X0AE @X08LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYB@X02e @X0AL@X08ATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE @X02l@X0AA@X08TURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE L@X02a@X0AT@X08URE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LA@X02t@X0AU@X08RE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LAT@X02u@X0AR@X08E!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LATU@X02r@X0AE@X08!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LATUR@X02e@X0A!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LATU@X02r@X0AE@X08!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LAT@X02u@X0AR@X08E!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE LA@X02t@X0AU@X08RE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE L@X02a@X0AT@X08URE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYBE @X02l@X0AA@X08TURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAYB@X02e @X0AL@X08ATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MAY@X02b@X0AE @X08LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08MA@X02y@X0AB@X08E LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X08M@X02a@X0A@X0AY@X08BE LATURE!"
Delay 2
STRING001 = Upper(Inkey())
If (STRING001 == Chr(13)) Then
AnsiPos 30, 21
Print "@X08MAYBE LATURE!"
Gosub LABEL006
Endif
If (STRING001 == "DOWN") Gosub LABEL001
If (STRING001 == "UP") Gosub LABEL002
AnsiPos 30, 21
Print "@X02m@X0AA@X08YBE LATURE!"
Gosub LABEL003
:LABEL004
TSTRING002(1) = "@X0A"
TSTRING002(2) = "@X08"
TSTRING002(3) = "@X02"
TSTRING002(4) = "PPε BY Z-HEAD"
AnsiPos 25, 2
For INTEGER001 = 1 To Len(TSTRING002(4))
Print "@X0A" + Mid(TSTRING002(4), INTEGER001, 3)
Backup 3
Delay 1
Print TSTRING002(2) + Mid(TSTRING002(4), INTEGER001, 2)
Backup 2
Delay 1
Print TSTRING002(1) + Mid(TSTRING002(4), INTEGER001, 1)
Next
AnsiPos 25, 2
Print "@X78████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X07████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X0F████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X00████████████████████"
Delay 1
TSTRING002(4) = "ART BY TOMAHOCK"
AnsiPos 25, 2
Print "@X00 "
AnsiPos 25, 2
For INTEGER001 = 1 To Len(TSTRING002(4))
Print "@X0A" + Mid(TSTRING002(4), INTEGER001, 3)
Backup 3
Delay 1
Print TSTRING002(2) + Mid(TSTRING002(4), INTEGER001, 2)
Backup 2
Delay 1
Print TSTRING002(1) + Mid(TSTRING002(4), INTEGER001, 1)
Next
AnsiPos 25, 2
Print "@X78████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X07████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X0F████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X00 "
Cls
End
:LABEL005
TSTRING002(1) = "@X0A"
TSTRING002(2) = "@X08"
TSTRING002(3) = "@X02"
TSTRING002(4) = "PPε BY Z-HEAD"
AnsiPos 25, 2
For INTEGER001 = 1 To Len(TSTRING002(4))
Print "@X0A" + Mid(TSTRING002(4), INTEGER001, 3)
Backup 3
Delay 1
Print TSTRING002(2) + Mid(TSTRING002(4), INTEGER001, 2)
Backup 2
Delay 1
Print TSTRING002(1) + Mid(TSTRING002(4), INTEGER001, 1)
Next
AnsiPos 25, 2
Print "@X78████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X07████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X0F████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X00████████████████████"
Delay 1
TSTRING002(4) = "ART BY TOMAHOCK"
AnsiPos 25, 2
Print "@X00 "
AnsiPos 25, 2
For INTEGER001 = 1 To Len(TSTRING002(4))
Print "@X0A" + Mid(TSTRING002(4), INTEGER001, 3)
Backup 3
Delay 1
Print TSTRING002(2) + Mid(TSTRING002(4), INTEGER001, 2)
Backup 2
Delay 1
Print TSTRING002(1) + Mid(TSTRING002(4), INTEGER001, 1)
Next
AnsiPos 25, 2
Print "@X78████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X07████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X0F████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X00████████████████████"
Delay 1
Cls
KbdStuff "U" + Chr(13) + "Z-PPE.Zip" + Chr(13) + "/Upload PPε By Z-HEAD! Art Tomahock!" + Chr(13) + "/X-DreaM Board!" + Chr(13) + Chr(13)
End
:LABEL006
TSTRING002(1) = "@X0A"
TSTRING002(2) = "@X08"
TSTRING002(3) = "@X02"
TSTRING002(4) = "PPε BY Z-HEAD"
AnsiPos 25, 2
For INTEGER001 = 1 To Len(TSTRING002(4))
Print "@X0A" + Mid(TSTRING002(4), INTEGER001, 3)
Backup 3
Delay 1
Print TSTRING002(2) + Mid(TSTRING002(4), INTEGER001, 2)
Backup 2
Delay 1
Print TSTRING002(1) + Mid(TSTRING002(4), INTEGER001, 1)
Next
AnsiPos 25, 2
Print "@X78████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X07████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X0F████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X00████████████████████"
Delay 1
TSTRING002(4) = "ART BY TOMAHOCK"
AnsiPos 25, 2
Print "@X00 "
AnsiPos 25, 2
For INTEGER001 = 1 To Len(TSTRING002(4))
Print "@X0A" + Mid(TSTRING002(4), INTEGER001, 3)
Backup 3
Delay 1
Print TSTRING002(2) + Mid(TSTRING002(4), INTEGER001, 2)
Backup 2
Delay 1
Print TSTRING002(1) + Mid(TSTRING002(4), INTEGER001, 1)
Next
AnsiPos 25, 2
Print "@X78████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X07████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X0F████████████████████"
Delay 1
AnsiPos 25, 2
Print "@X00████████████████████"
Delay 1
Cls
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 3 Cls
; 79 Goto
; 95 Let
; 182 Print
; 1 PrintLn
; 197 If
; 192 Gosub
; 96 Delay
; 1 KbdStuff
; 169 AnsiPos
; 12 Backup
;
;
; ■ Functions used :
;
; 35 +
; 189 ==
; 8 <
; 8 <=
; 16 >=
; 71 !
; 16 &&
; 8 ||
; 12 Len(
; 63 Upper()
; 18 Mid()
; 68 Chr()
; 63 Inkey()
; 1 PPEPath()
; 1 ReadLine()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 8 For/Next
; 0 While/EndWhile
; 63 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------
