home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib20a.dsk / JUNE.1984 / MINUS.FIXER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  836b  |  17 lines
  1. 60  REM  **********************
  2. 70  REM  *    MINUS  FIXER    *
  3. 80  REM  *   BY PAUL RAYMER   *
  4. 90  REM  * COPYRIGHT (C) 1984 *
  5. 100  REM * BY MICROSPARC, INC *
  6. 110  REM * LINCOLN, MA. 01773 *
  7. 120  REM **********************
  8. 130  TEXT : HOME : CLEAR 
  9. 140  VTAB 3: PRINT "WEARY OF MINUS NUMBERS SUCH AS CALL -936"
  10. 150  PRINT "OR PEEK (-16336) OR EVEN CALL -1152?"
  11. 160  PRINT : PRINT "USE THE MINUS FIXER AND YOU WILL NEVER": PRINT 
  12. 170  PRINT "HAVE TO LOOK AT A MINUS SIGN AGAIN!": PRINT 
  13. 180  VTAB 16: HTAB 5: CALL 65152: PRINT "ENTER ZERO TO QUIT": CALL 65156
  14. 190  VTAB 13: HTAB 1: CALL 64668: INPUT "WHAT MINUS NUMBER SHALL WE TRY? ";N$:N =  VAL(N$): IF N = 0  THEN  VTAB 10: HTAB 1: CALL  -958: END 
  15. 200  IF N >0  THEN M = M -N:N = M:M = 0
  16. 210  VTAB 16: HTAB 5: CALL 64668: PRINT  CHR$(34)N CHR$(34);" = ";2 ^16 - ABS(N)
  17. 220  GOTO 190