home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_DOS1.ZIP / DOSS.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-06-19  |  6.3 KB  |  404 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   STRING013
  41.     String   STRING014
  42.     String   STRING015
  43.     String   STRING016
  44.     String   STRING017
  45.     String   STRING018
  46.     String   STRING019
  47.     String   STRING020
  48.  
  49. ;------------------------------------------------------------------------------
  50.  
  51.     INTEGER001 = 0
  52.     INTEGER005 = ReadLine(PPEPath() + "DOSS.CNF", 2)
  53.     INTEGER006 = ReadLine(PPEPath() + "DOSS.CNF", 3)
  54.     INTEGER007 = ReadLine(PPEPath() + "DOSS.CNF", 4)
  55.     INTEGER008 = ReadLine(PPEPath() + "DOSS.CNF", 5)
  56.     INTEGER004 = ReadLine(PPEPath() + "DOSS.CNF", 6)
  57.     STRING002 = ReadLine(PPEPath() + "DOSS.CNF", 7)
  58.     STRING009 = ReadLine(PPEPath() + "DOSS.CNF", 8)
  59.     STRING010 = ReadLine(PPEPath() + "DOSS.CNF", 9)
  60.     STRING019 = ReadLine(PPEPath() + "DOSS.CNF", 10)
  61.     STRING003 = ReadLine(PPEPath() + "DOSS.CNF", 11)
  62.     STRING011 = ReadLine(PPEPath() + "DOSS.CNF", 12)
  63.     STRING012 = ReadLine(PPEPath() + "DOSS.CNF", 13)
  64.     STRING004 = ReadLine(PPEPath() + "DOSS.CNF", 14)
  65.     STRING013 = ReadLine(PPEPath() + "DOSS.CNF", 15)
  66.     STRING014 = ReadLine(PPEPath() + "DOSS.CNF", 16)
  67.     STRING020 = ReadLine(PPEPath() + "DOSS.CNF", 17)
  68.     STRING016 = ReadLine(PPEPath() + "DOSS.CNF", 18)
  69.     STRING017 = ReadLine(PPEPath() + "DOSS.CNF", 19)
  70.     STRING018 = ReadLine(PPEPath() + "DOSS.CNF", 20)
  71.     STRING015 = 0
  72.     GetToken INTEGER009
  73.     Select Case (INTEGER009)
  74.         Case 148
  75.             Goto LABEL024
  76.         Case 259
  77.             Goto LABEL023
  78.         Case 260
  79.             Goto LABEL025
  80.         Case 1
  81.             Goto LABEL005
  82.         Case 2
  83.             Goto LABEL006
  84.         Case 3
  85.             Goto LABEL007
  86.     End Select
  87.     :LABEL001
  88.     Delay 4
  89.     PrintLn "C:"
  90.     Delay 4
  91.     PrintLn "CD\PCB"
  92.     Delay 4
  93.     PrintLn "PCBOARD.EXE"
  94.     Delay 4
  95.     PrintLn "File Not Found, PCBOARD.EXE, System is Now Unstable"
  96.     Delay 15
  97.     Print "@CLS@"
  98.     AnsiPos 22, 10
  99.     Print "┌──────────────────────────────────┐"
  100.     AnsiPos 22, 11
  101.     Print "│ System Is Rebooting, Please Wait │"
  102.     AnsiPos 22, 12
  103.     Print "└──────────────────────────────────┘"
  104.     Delay 20
  105.     Cls
  106.     Delay 20
  107.     AnsiPos 0, 0
  108.     PrintLn "@X07CL-GDX145"
  109.     PrintLn "Copyright 1992-1993 Circus Logic Corporation"
  110.     PrintLn "Copyright 1994 Jim Jones of Anti-Lamers Federation"
  111.     AnsiPos 0, 9
  112.     Print "Hit <DEL> To Run Setup"
  113.     AnsiPos 0, 21
  114.     PrintLn "(c) American Megatrends"
  115.     PrintLn "40-0104-006362-001-0110-7666"
  116.     Delay 4
  117.     AnsiPos 0, 5
  118.     Print "001024 KB OK"
  119.     Delay 4
  120.     AnsiPos 0, 5
  121.     Print "002048 KB OK"
  122.     Delay 4
  123.     AnsiPos 0, 5
  124.     Print "003072 KB OK"
  125.     Delay 4
  126.     AnsiPos 0, 5
  127.     Print "004096 KB OK"
  128.     Delay 4
  129.     AnsiPos 0, 5
  130.     Print "005120 KB OK"
  131.     Delay 4
  132.     AnsiPos 0, 5
  133.     Print "006144 KB OK"
  134.     Delay 4
  135.     AnsiPos 0, 5
  136.     Print "007168 KB OK"
  137.     Delay 4
  138.     AnsiPos 0, 5
  139.     Print "008192 KB OK"
  140.     Delay 4
  141.     AnsiPos 0, 7
  142.     PrintLn "WAIT........"
  143.     Delay 15
  144.     Cls
  145.     PrintLn "STARTING DOSS"
  146.     Delay 20
  147.     Cls
  148.     PrintLn "ECHO OFF"
  149.     PrintLn "SHARE LOADED CORRECTLY"
  150.     DispFile PPEPath() + "HEADER", 1
  151.     Goto LABEL013
  152.     :LABEL002
  153.     STRING005 = ""
  154.     Print STRING001
  155.     InputText "_", STRING005, 15, 74
  156.     STRING005 = Upper(STRING005)
  157.     Select Case (STRING005)
  158.         Case "DIR"
  159.             Goto LABEL009
  160.         Case "MEM"
  161.             Goto LABEL015
  162.         Case "PCBOARD"
  163.             Goto LABEL022
  164.         Case "FORMAT C:"
  165.             STRING006 = "C:"
  166.             Goto LABEL018
  167.         Case "FORMAT A:"
  168.             Goto LABEL016
  169.         Case "FORMAT B:"
  170.             Goto LABEL017
  171.         Case "CD\"
  172.             Goto LABEL011
  173.         Case "CD.."
  174.             Goto LABEL011
  175.         Case "DIR /W"
  176.             Goto LABEL010
  177.         Case "DIR/W"
  178.             Goto LABEL010
  179.         Case "CD " + STRING020
  180.             Goto LABEL012
  181.         Case "HELP"
  182.             Goto LABEL014
  183.         Case "CD\" + STRING020
  184.             Goto LABEL012
  185.         Case "CD " + STRING019
  186.             Goto LABEL013
  187.         Case "CD\" + STRING019
  188.             Goto LABEL013
  189.         Case "FORMAT"
  190.             Goto LABEL020
  191.         Case "CLS"
  192.             Goto LABEL008
  193.         Case STRING016
  194.             Goto LABEL003
  195.         Case "OS/2"
  196.             Goto LABEL004
  197.         Case Else
  198.             PrintLn ""
  199.             PrintLn "Bad Command or Filename"
  200.             Goto LABEL002
  201.             :LABEL003
  202.             FCreate 1, "ALF", 1, 0
  203.             FOpen 1, "ALF", 0, 0
  204.             FPut 1, "1"
  205.             FClose 1
  206.             End
  207.             :LABEL004
  208.             FCreate 1, "OS2", 1, 0
  209.             FOpen 1, "OS2", 0, 0
  210.             FPut 1, "2"
  211.             FClose 1
  212.             End
  213.             :LABEL005
  214.             KbdStuff "U ALF.APP Z"
  215.             End
  216.             :LABEL006
  217.             KbdStuff "D ALFAPP.ZIP"
  218.             End
  219.             :LABEL007
  220.             DispFile PPEPath() + "LOGOFF", 1
  221.             Hangup
  222.             End
  223.             :LABEL008
  224.             Cls
  225.             Goto LABEL002
  226.             :LABEL009
  227.             PrintLn ""
  228.             DispFile PPEPath() + STRING007, 1
  229.             Goto LABEL002
  230.             :LABEL010
  231.             PrintLn ""
  232.             DispFile PPEPath() + STRING008, 1
  233.             Goto LABEL002
  234.             :LABEL011
  235.             STRING001 = STRING003
  236.             STRING007 = STRING011
  237.             STRING008 = STRING012
  238.             PrintLn ""
  239.             Goto LABEL002
  240.             :LABEL012
  241.             STRING001 = STRING004
  242.             STRING007 = STRING013
  243.             STRING008 = STRING014
  244.             PrintLn ""
  245.             Goto LABEL002
  246.             :LABEL013
  247.             STRING001 = STRING002
  248.             STRING007 = STRING009
  249.             STRING008 = STRING010
  250.             PrintLn ""
  251.             Goto LABEL002
  252.             :LABEL014
  253.             DispFile PPEPath() + "HELP.TXT", 1
  254.             PrintLn "@WAIT@"
  255.             Goto LABEL002
  256.             :LABEL015
  257.             PrintLn ""
  258.             DispFile PPEPath() + "MEM.TXT", 1
  259.             Goto LABEL002
  260.             :LABEL016
  261.             STRING006 = "A:"
  262.             Goto LABEL018
  263.             :LABEL017
  264.             STRING006 = "B:"
  265.             :LABEL018
  266.             INTEGER002 = GetX()
  267.             INTEGER003 = GetY()
  268.             :LABEL019
  269.             AnsiPos INTEGER002, INTEGER003
  270.             PrintLn ""
  271.             Print "Formatting ", STRING006, " ", INTEGER001, "% Done"
  272.             Delay 15
  273.             If (INTEGER001 == 100) Then
  274.                 Goto LABEL021
  275.             Else
  276.                 INTEGER001 = INTEGER001 + 1
  277.                 Goto LABEL019
  278.             Endif
  279.             :LABEL020
  280.             PrintLn ""
  281.             PrintLn "Usage Error, No Drive Specified"
  282.             Goto LABEL002
  283.             :LABEL021
  284.             PrintLn "Format Complete"
  285.             Delay 15
  286.             Select Case (STRING006)
  287.                 Case "B:"
  288.                     Goto LABEL002
  289.                 Case "A:"
  290.                     Goto LABEL002
  291.                 Case Else
  292.                     PrintLn "bad or missing command interpreter"
  293.                     Hangup
  294.             End Select
  295.             End
  296.             :LABEL022
  297.             PrintLn ""
  298.             PrintLn "Doss.ppe by Jim Jones @X08[@X03Alf@X08]@X07 [6/18/94]"
  299.             PrintLn "@WAIT@"
  300.             Cls
  301.             End
  302.             :LABEL023
  303.             If (Exist("ALF") == 1) Then
  304.                 Goto LABEL028
  305.             ElseIf (Exist("OS2") == 1) Then
  306.                 Goto LABEL026
  307.             Else
  308.                 DispFile PPEPath() + "LOGON.PCB", 2 + 1
  309.                 AnsiPos INTEGER005, INTEGER006
  310.             Endif
  311.             End
  312.             :LABEL024
  313.             If (Exist("ALF") == 1) Then
  314.                 Goto LABEL029
  315.             ElseIf (Exist("OS2") == 1) Then
  316.                 Goto LABEL027
  317.             Else
  318.                 AnsiPos INTEGER007, INTEGER008
  319.             Endif
  320.             End
  321.             :LABEL025
  322.             AnsiPos INTEGER007, INTEGER008
  323.             KbdStuff " " + Chr(13)
  324.             AnsiPos 0, 20
  325.             End
  326.             :LABEL026
  327.             KbdStuff "OS2" + Chr(13)
  328.             End
  329.             :LABEL027
  330.             KbdStuff "OS2" + Chr(13)
  331.             Delete "OS2"
  332.             End
  333.             :LABEL028
  334.             KbdStuff STRING017 + Chr(13)
  335.             End
  336.             :LABEL029
  337.             KbdStuff STRING018 + Chr(13)
  338.             Delete "ALF"
  339.             End
  340.     End Select
  341.     End
  342.  
  343. ;------------------------------------------------------------------------------
  344. ;
  345. ; Usage report (before postprocessing)
  346. ;
  347. ; ■ Statements used :
  348. ;
  349. ;    15      End
  350. ;    5       Cls
  351. ;    111     Goto 
  352. ;    38      Let 
  353. ;    15      Print 
  354. ;    30      PrintLn 
  355. ;    32      If 
  356. ;    7       DispFile 
  357. ;    2       FCreate 
  358. ;    2       FOpen 
  359. ;    2       FClose 
  360. ;    2       FPut 
  361. ;    2       Hangup
  362. ;    2       Delete 
  363. ;    20      Delay 
  364. ;    1       GetToken 
  365. ;    1       InputText 
  366. ;    7       KbdStuff 
  367. ;    20      AnsiPos 
  368. ;
  369. ;
  370. ; ■ Functions used :
  371. ;
  372. ;    37      +
  373. ;    32      ==
  374. ;    32      !
  375. ;    1       Upper()
  376. ;    5       Chr()
  377. ;    26      PPEPath()
  378. ;    19      ReadLine()
  379. ;    4       Exist()
  380. ;    1       GetX()
  381. ;    1       GetY()
  382. ;
  383. ;------------------------------------------------------------------------------
  384. ;
  385. ; Analysis flags : B
  386. ;
  387. ; B - Brute hangup ■ 1
  388. ;     Program hangup without notification. This may be a good way to
  389. ;     disconnect a user, but if used randomly, may be very nasty
  390. ;     ■ Search for : HANGUP, DTROFF
  391. ;
  392. ;------------------------------------------------------------------------------
  393. ;
  394. ; Postprocessing report
  395. ;
  396. ;    0       For/Next
  397. ;    0       While/EndWhile
  398. ;    5       If/Then or If/Then/Else
  399. ;    3       Select Case
  400. ;
  401. ;------------------------------------------------------------------------------
  402. ;                 AEGiS Corp - Break the routines, code against the machines!
  403. ;------------------------------------------------------------------------------
  404.