home *** CD-ROM | disk | FTP | other *** search
/ Personal Computing Magazine 1988 September / SEPT_1988 / PDBASIC / ROBOT.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-01-01  |  699 b   |  23 lines
  1. 10 REM *******************************
  2. 20 REM * Basic robot control program *
  3. 30 REM *        By Alan Foster       *
  4. 40 REM *  (c) Database Publications  *
  5. 50 REM *******************************
  6. 60 CLS
  7. 70 OUT &H303,130:REM Set port A to output and port B to input
  8. 80 look=INP(&H301):REM Look at port B
  9. 90 done$=INKEY$
  10. 100 IF done$="q" THEN STOP
  11. 110 c=0
  12. 120 IF look<=128 THEN c=c
  13. 130 IF look>=128 THEN look=look-128:c=c+128
  14. 140 IF look<=64 THEN c=c
  15. 150 IF look>=64 THEN look=look-64:c=c+192
  16. 160 IF look<=32 THEN c=c
  17. 170 IF look>=32 THEN look=look-32:c=c+32
  18. 180 IF look<=16 THEN c=c
  19. 190 IF look>=16 THEN look=look-16:c=c+48
  20. 200 OUT &H300,c:REM Send result to port A
  21. 210 GOTO 50
  22.  
  23.