home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / MULTISYS.PPS < prev    next >
Encoding:
Text File  |  1996-07-29  |  662 b   |  23 lines
  1. #ppe                        ; force compile to a .PPE
  2. #libpath ..\..\lib          ; set lib path
  3. #use menu                   ; using the menu library
  4.  
  5. Int Choice
  6.  
  7. Choice = Menu("MULTISYS.PCB", 12, 2, 1)
  8.  
  9. Select Case Choice
  10.  
  11.     Case 0
  12.         End
  13.     Case 1
  14.         Kbdstuff "E" + Chr(13) + "LONE RUNNER" + CHR(13) + "COMMENT (" + String(PcbNode()) + ") " + Left(String(Time()),5) + CHR(13) + "R" + Chr(13) + "N" + Chr(13) + "Y" + Chr(13)
  15.         End
  16.     Case 2
  17.         Kbdstuff "E" + Chr(13) + "NUMBER SIX" + CHR(13) + "COMMENT (" + String(PcbNode()) + ") " + Left(String(Time()),5) + CHR(13) + "R" + Chr(13) + "N" + Chr(13) + "Y" + Chr(13)
  18.         End
  19. End Select
  20.  
  21. End
  22.         
  23.