home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / PRISONER.DSK / XEXEC.bas < prev    next >
BASIC Source File  |  2014-09-09  |  469b  |  13 lines
  1. 5  DIM PGM$(29)
  2. 6 D$ =  CHR$(13) + CHR$(4)
  3. 10  FOR I = 1 TO 29: READ PGM$(I): NEXT 
  4. 30  PRINT D$"OPEN XREFEXEC"
  5. 40  PRINT D$"WRITE XREFEXEC"
  6. 45  PRINT "PR#1"
  7. 50  FOR I = 1 TO 29
  8. 60  PRINT "LOAD PR.";PGM$(I)
  9. 80  PRINT "&X": PRINT "PRINT CHR$(12)"
  10. 100  NEXT I
  11. 110  PRINT D$"CLOSE XREFEXEC"
  12. 115  END 
  13. 120  DATA BEGIN,SQ1,VILLAGE,SCHOOL,REC,BANK,STORE,EXPER,HOSPITAL,SLOT,CARE,SAVE,LIB,WILD,HOME,CHURCH,DINER,CLOTH,LOSE,WIN,HALL,THEATER,NEWS,CHAIR,COURT,CARNY,BROTH,ERR,BAR