home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TUCD10.ZIP / CDROM.PPS < prev    next >
Text File  |  1996-09-14  |  560b  |  35 lines
  1. ;Show CD-ROM PPE v1.0 Copyright 1996 by The Usurper
  2. ;
  3. ;Maybe I'll make it into PWA with such talent :)
  4.  
  5. STRING ONLINE
  6. STRING CDNAME
  7. STRING FILENAME
  8. STRING TEXT1
  9. STRING COLOR1
  10. INTEGER ENTRIES
  11. INTEGER I
  12. BOOLEAN FOUND
  13.  
  14. FOUND = FALSE
  15. FOPEN 1, PPEPATH() + "CDROM.CFG", 0, 2
  16. FGET 1, ONLINE
  17. FGET 1, TEXT1
  18. FGET 1, COLOR1
  19. FGET 1, ENTRIES
  20.  
  21. FOR I = 1 TO ENTRIES
  22. IF (!FOUND) THEN
  23. FGET 1, FILENAME
  24. FGET 1, CDNAME
  25.   IF (EXIST(FILENAME)) THEN
  26.     ONLINE = CDNAME
  27.     FOUND = TRUE
  28.   ENDIF
  29. ENDIF
  30. NEXT
  31. PRINTLN
  32. PRINTLN TEXT1 + COLOR1 + ONLINE
  33.  
  34.  
  35.