home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / LOPBCK40.ZIP / POSTCARD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-12-07  |  2KB  |  113 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.     String   STRING003
  20.     String   STRING004
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     Cls
  25.     DispFile PPEPath() + "THIRTEEN.DSP", 2 + 1 + 4
  26.     PrintLn 
  27.     PrintLn "@X70┌─────────────────────────────────────────────────────────────────────────────@X7F┐@X0F"
  28.     PrintLn "@X70│                                                                             @X7F│@X0F"
  29.     PrintLn "@X70│                                                                             @X7F│@X0F"
  30.     PrintLn "@X70│                                                                             @X7F│@X0F"
  31.     PrintLn "@X70│                                                                             @X7F│@X0F"
  32.     PrintLn "@X70│                                                                             @X7F│@X0F"
  33.     PrintLn "@X70│                                                                             @X7F│@X0F"
  34.     PrintLn "@X70└@X7F─────────────────────────────────────────────────────────────────────────────┘@X0F"
  35.     PrintLn 
  36.     If (Psa(3)) Then
  37.         GetUser
  38.         AnsiPos 2, 8
  39.         Input "@X74Street Address", U_Addr(0)
  40.         PrintLn 
  41.         AnsiPos 2, 9
  42.         Input "Apt # or Suite", U_Addr(1)
  43.         PrintLn 
  44.         AnsiPos 2, 10
  45.         Input "City          ", U_Addr(2)
  46.         AnsiPos 2, 11
  47.         Input "State         ", U_Addr(3)
  48.         PrintLn 
  49.         AnsiPos 2, 12
  50.         Input "Zip code      ", U_Addr(4)
  51.         AnsiPos 2, 13
  52.         Input "Telephone #   ", U_HVPhone
  53.     Endif
  54.     STRING003 = U_Name()
  55.     FOpen 1, PPEPath() + String(U_RecNum(STRING003)) + ".POS", 2, 0
  56.     FPutLn 1, U_Name()
  57.     FPutLn 1, U_Addr(0) + " " + U_Addr(1)
  58.     FPutLn 1, U_Addr(2) + ", " + U_Addr(3) + ", " + U_Addr(4)
  59.     FPutLn 1
  60.     FPutLn 1, U_HVPhone
  61.     FClose 1
  62.     STRING004 = Time()
  63.     Log "Exited LoopBack with Postcard Verify at  -> " + STRING004, 0
  64.  
  65. ;------------------------------------------------------------------------------
  66. ;
  67. ; Usage report (before postprocessing)
  68. ;
  69. ; ■ Statements used :
  70. ;
  71. ;    1       Cls
  72. ;    1       Goto 
  73. ;    2       Let 
  74. ;    13      PrintLn 
  75. ;    1       If 
  76. ;    1       DispFile 
  77. ;    6       Input 
  78. ;    1       FOpen 
  79. ;    1       FClose 
  80. ;    5       FPutLn 
  81. ;    1       GetUser
  82. ;    1       Log 
  83. ;    6       AnsiPos 
  84. ;
  85. ;
  86. ; ■ Functions used :
  87. ;
  88. ;    12      +
  89. ;    1       !
  90. ;    1       Time()
  91. ;    2       U_Name()
  92. ;    1       String()
  93. ;    2       PPEPath()
  94. ;    1       Psa()
  95. ;    1       U_RecNum()
  96. ;
  97. ;------------------------------------------------------------------------------
  98. ;
  99. ; Analysis flags : No flag
  100. ;
  101. ;------------------------------------------------------------------------------
  102. ;
  103. ; Postprocessing report
  104. ;
  105. ;    0       For/Next
  106. ;    0       While/EndWhile
  107. ;    1       If/Then or If/Then/Else
  108. ;    0       Select Case
  109. ;
  110. ;------------------------------------------------------------------------------
  111. ;                 AEGiS Corp - Break the routines, code against the machines!
  112. ;------------------------------------------------------------------------------
  113.