home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib39b.dsk / APPLE.MOD.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  944b  |  21 lines
  1. 10  REM   ******************************
  2. 20  REM   * APPLE.MOD.DEMO             *
  3. 30  REM   * BY WILLIAM SIMPSON         *
  4. 40  REM   * COPYRIGHT(C) 1990          *
  5. 50  REM   * MINDCRAFT PUBL. CORP.      *
  6. 60  REM   * CONCORD, MA 01742          *
  7. 70  REM   ******************************
  8. 80  PRINT  CHR$(4)"BLOAD MOD.BIN,A$300"
  9. 90  HOME : PRINT "APPLE MOD DEMO BY WILLIAM SIMPSON"
  10. 100  PRINT "(C) 1990 MINDCRAFT PUBL. CORP."
  11. 110  ONERR  GOTO 190
  12. 120  VTAB 6: INPUT "ENTER TWO INTEGERS (A,B) ";A,B
  13. 130  CALL 768A,B,C
  14. 140  PRINT : PRINT "MOD ROUTINE RESULT IS ";C
  15. 150  PRINT : PRINT "BASIC RESULT IS ";
  16. 160 C =  INT((A/B - INT(A/B)) *B +.05) * SGN(A/B)
  17. 170  PRINT C
  18. 180  VTAB 20: PRINT "PRESS RETURN TO RUN AGAIN";: GET QQ$: GOTO 90
  19. 190  IF  PEEK(222) = 6  THEN  PRINT "MOD.OBJ MUST BE ON THIS DISK": END 
  20. 200  IF  PEEK(222) = 254  THEN  HOME : END 
  21. 210  VTAB 19: PRINT : PRINT "ERROR NUMBER " PEEK(222)" IN LINE " PEEK(218) +256 * PEEK(219): END