home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / BUGLIST.bas < prev    next >
BASIC Source File  |  2000-01-01  |  4KB  |  40 lines
  1. 30 SP = 10:Q$ =  CHR$(34):G$ =  CHR$(7)
  2. 50  TEXT : PRINT  CHR$(21): HOME : INVERSE : PRINT " UTILITY CITY BUGLIST ";: NORMAL : HTAB 34: PRINT "8/22/84": FOR I = 1 TO 999: NEXT 
  3. 55  PRINT "PRODOS NOTE": PRINT "------------": PRINT "UTILITY CITY IS A DOS 3.3 DISK. EVEN    THOUGH YOU CAN CONVERT ITS PROGRAMS TO  PRODOS, MOST OF THEM WON'T WORK.": PRINT : PRINT "NEITHER WILL THE TIPS ON PAGES 2 AND 25."
  4. 56  PRINT : PRINT "40-COLUMNS ONLY": PRINT "--------------": PRINT "PLEASE DISCONNECT YOUR 80-COLUMN CARD   WHENEVER USING UTILITY CITY PROGRAMS.": GOSUB 5000
  5. 60  PRINT "MISTEAK": PRINT "-------": PRINT "PAGE 25:  IF YOU SEE A "Q$"HLIN 0,9 AT 19"Q$" IN PROGRAM LINE 40, CROSS IT OUT.   --": PRINT 
  6. 64  FOR I = 1 TO 555: NEXT 
  7. 65  PRINT "PRINTER REMS": PRINT "------------": PRINT "FIVE UTILITY CITY PROGRAMS UTILIZE A    PRINTER. IF YOU ARE NOT GETTING PROPER  PRINTOUTS WITH YOUR PARTICULAR PRINTER, READ THE EARLY REM STATEMENTS IN:"
  8. 66  PRINT "<CTRL-M>  - MULTI-CAT<CTRL-M>  - SCREENWRITER<CTRL-M>  - SORTFILE<CTRL-M>  - TEXT DUMP<CTRL-M>  - XLISTER.A (XLISTER)
  9. 70  VTAB 21: FOR I = 1 TO 999: NEXT : PRINT "FOLLOWING ARE UP-TO-DATE COMMENTS ON    EACH UTILITY CITY PROGRAM...": GOSUB 5000
  10. 100  INVERSE : PRINT " ADDRESS CHECKER ";: GOSUB 4040
  11. 200  PRINT " BFIND ";: GOSUB 4040
  12. 300  PRINT " BIGLINER ";: GOSUB 4040
  13. 400  PRINT " CHR$ POKER ";: GOSUB 4040
  14. 500  PRINT " COMMAND ZAP ";: GOSUB 4040
  15. 600  PRINT " CONNECT ";: GOSUB 4040
  16. 700  PRINT " CTRL-FIND ";: NORMAL : PRINT " NOTE--": PRINT "  SAME AS REM FIND, BUT RUN, DON'T EXEC.                        ---": INVERSE 
  17. 800  PRINT " DEC, HEX & DEX ";: NORMAL : PRINT " NOTE--": PRINT "  DEC CONVERTS HEX TO DECIMAL.": PRINT "  HEX CONVERTS DECIMAL TO HEX.": PRINT "  DEX CONVERTS BOTH WAYS AND TO BINARY.": GOSUB 4000
  18. 900  INVERSE : PRINT " DOUBLE LOADER ";: GOSUB 4040
  19. 1000  PRINT : INVERSE : PRINT " FILENAME ZAP ";: GOSUB 4040
  20. 1200  PRINT " INT CONVERTER ";: GOSUB 4040
  21. 1300  PRINT " KEY-CAT ";: NORMAL : PRINT " NOTE--": PRINT "  MANY BINARY FILES ARE NOT MEANT TO BE   BRUN, AND MANY TEXT FILES CANNOT BE     EXEC'D. KEY-CAT WILL UNDOUBTEDLY CRASH  IF YOU TRY.": INVERSE : PRINT 
  22. 1400  PRINT " KILL-CAT ";: NORMAL : PRINT " NOTE--": PRINT "  WILL NOT WORK IN 3.2.": PRINT : INVERSE 
  23. 1500  PRINT " LINE SEARCH ";: GOSUB 4040
  24. 1600  PRINT " MULTI-CAT ";: NORMAL : PRINT " PROBLEMS? LIST/READ 1ST REMS": INVERSE 
  25. 1700  PRINT " REM ZAP & REM FIND ";: GOSUB 4040
  26. 1800  INVERSE : PRINT " RUN COUNTER & RUN DATER ";: GOSUB 4040
  27. 1900  INVERSE : PRINT " SCREENWRITER ";: NORMAL : PRINT " NOTE--": PRINT "  TO COPY SCREENWRITER, YOU NEED TO COPY  THE 3 "Q$"SCR."Q$" FILES AS WELL. USE FID,    AND ENTER "Q$"SCR="Q$" TO COPY ALL 4 FILES.": PRINT 
  28. 2000  INVERSE : PRINT " SORTFILE ";: NORMAL : PRINT " ";: FLASH : PRINT "UPDATE";: NORMAL 
  29. 2005  NORMAL : PRINT "--": PRINT "  THE LIMITATION ON PAGE 37 HAS BEEN      ELIMINATED. YOU MAY ENTER AN ITEM'S     NUMBER OR THE FIRST FEW CHARACTERS OF   THE ITEM'S NAME. ALSO SEE LINE 130.": PRINT : INVERSE 
  30. 2100  PRINT " TEST PATTERNS ";: GOSUB 4040
  31. 2200  INVERSE : PRINT " TEXT DUMP ";: NORMAL : PRINT " NOTE--": PRINT "  DEPENDING ON YOUR PRINTER'S CAPABILI-   TIES, YOU MAY BE ABLE TO MAKE FLASH     AND/OR INVERSE PRINT AS EMPHASIZED      TYPE. CONSULT YOUR PRINTER'S MANUAL"
  32. 2210  PRINT "  AND INSERT THE NECESSARY CONTROL OR     ESCAPE CHARACTERS IN THE LISTING.": GOSUB 4000
  33. 2300  INVERSE : PRINT " XLISTER ";: NORMAL : PRINT " SEE XLISTER.A, LINE 40": VTAB 23: FOR I = 1 TO 40: PRINT "-";: NEXT : GOTO 5010
  34. 4000  FOR J = 1 TO SP: NEXT : IF  PEEK(37) <21  THEN  PRINT : INVERSE : RETURN 
  35. 4020  GOTO 5000
  36. 4040  NORMAL : FOR J = 1 TO SP: NEXT : PRINT " O.K.": GOTO 4000
  37. 5000  SPEED= 222: VTAB 23: HTAB 1: FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT " RETURN  FOR MORE OR <Q> TO QUIT.";: HTAB 1: PRINT "<RETURN> FOR MORE OR  Q ";:K =  PEEK( -16384)
  38. 5002  IF K < >141  AND K < >209  THEN 5000
  39. 5005  POKE  -16368,0: SPEED= 240: IF K = 141  THEN  HOME : RETURN 
  40. 5010  FOR I = 37 TO 1  STEP  -1: SPEED= 175: VTAB 24: HTAB I: PRINT "]";: FLASH : PRINT " ";: NORMAL : CALL  -868: NEXT : SPEED= 255: VTAB 23