home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / OHMMETER.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  544b  |  18 lines
  1. 5  HOME : TEXT : VTAB 24: HGR 
  2. 7  HCOLOR= 3
  3. 10  PRINT  CHR$(4)"BLOAD OHMMETER.OBJ,A$7000"
  4. 15  PRINT "GRAPHIC OHMMETER": PRINT "================"
  5. 20  INPUT "ENTER PADDLE (0-3) TO READ:";P
  6. 21  IF P <0  OR P >3  THEN 15
  7. 25  POKE 7 *4096 +3,P
  8. 30  CALL 7 *4096
  9. 40 R =  PEEK(7 *4096 +4) + PEEK(7 *4096 +5) *256
  10. 45 R1 = (R *21)/22:R2 = (R +1) *21/22
  11. 50  PRINT R1"K <= R < "R2"K
  12. 60  HCOLOR= 3: HPLOT 0,Y TO 279,Y
  13. 70  HCOLOR= 0: HPLOT 0,Y TO 279,Y
  14. 80  IF R >279  THEN R = 279
  15. 90  HCOLOR= 3: HPLOT R,Y
  16. 100 Y = Y +1
  17. 110  IF Y >159  THEN Y = 0
  18. 120  GOTO 30