home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22a.dsk / DECEMBER.1984 / AMPERGO.DEMO1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  49 lines
  1. 10  REM  ***********************
  2. 20  REM  *    AMPERGO.DEMO1    *
  3. 30  REM  * BY CORNELIS BONGERS *
  4. 40  REM  * COPYRIGHT (C)  1984 *
  5. 50  REM  * BY MICROSPARC, INC. *
  6. 60  REM  * CONCORD, MA   01742 *
  7. 70  REM  ***********************
  8. 80  PRINT  CHR$(4)"BRUN AMPERGO"
  9. 90  REM 
  10. 100  REM  MAIN PROGRAM (ADD TWO DIGITS)
  11. 110  REM 
  12. 120  &  GOSUB INIT
  13. 130  &  GOSUB USER INPUT :FDIG = DIG
  14. 140  &  GOSUB USER INPUT 
  15. 150  PRINT : PRINT "THE SUM OF ";
  16. 160  PRINT FDIG;" AND ";DIG;" IS ";FDIG +DIG
  17. 170  END 
  18. 180  REM 
  19. 190  REM  USER INPUT
  20. 200  REM 
  21. 210  &  >USER INPUT 
  22. 220  PRINT : PRINT "ENTER A DIGIT ";
  23. 230  &  >DIGIT: GET DIG$
  24. 240  CALL CLREOS
  25. 250  &  GOSUB CHECK
  26. 260  IF   NOT ER  THEN  PRINT DIG$: RETURN 
  27. 270  &  GOSUB "ERROR": &  GOTO DIGIT
  28. 280  REM 
  29. 290  REM  CHECK INPUT
  30. 300  REM 
  31. 310  &  >CHECK:ER = 0
  32. 320  LET DIG =  VAL(DIG$): IF (DIG)  THEN  RETURN 
  33. 330  IF DIG$ < >"0"  THEN ER = 1
  34. 340  IF DIG$ =  CHR$(3)  THEN  STOP 
  35. 350  RETURN 
  36. 360  REM 
  37. 370  REM  INITIALIZE
  38. 380  REM 
  39. 390  &  >INIT: TEXT : HOME 
  40. 400  LET CLREOS =  -958: RETURN 
  41. 410  REM 
  42. 420  REM  ERROR HANDLER
  43. 430  REM 
  44. 440  &  >"ERROR"
  45. 450  LET HPO =  POS(0) +1:VPO =  PEEK(37) +1
  46. 460  HTAB 10: VTAB 24: INVERSE 
  47. 470  PRINT "NOT A DIGIT, REENTER";
  48. 480  HTAB HPO: VTAB VPO: NORMAL 
  49. 490  RETURN