home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug035.ark / DISTEST.FAS < prev    next >
Encoding:
Text File  |  1984-04-29  |  563 b   |  21 lines
  1. ; DEMO OF THE DISTANCE FUNCTION OF "FELIX".
  2. ; MOSHELL 1 SEPTEMBER 79
  3. ;
  4. ; THIS PROGRAM MOVES AN OBJECT UNDER CONTROL OF JS-1
  5. ; AND DISPLAYS THE "MANHATTEN DISTANCE" IN THE 
  6. ; LIGHTS. USEFUL FOR LEARNING HOW FELIX'S DISTANCE
  7. ; OPERATOR WORKS. ALSO THE RESCALE OPERATOR 
  8. ; IS USED WITH THE SWITCH REGISTER; USEFUL DEMO
  9. ; OF RESCALING. IF SW.REG CONTAINS A NUMBER LIKE
  10. ; 5 6 OR 7, JOYSTICKS HAVE ALMOST NO POWER....
  11. ;
  12. ;
  13.     NEWBACK    0
  14.     ONLIST    2,1,2
  15. LOOP:    DIST    1,2,!SWREG
  16.     POSIT    1,?JS1X,?JS1Y
  17.     SHOW
  18.     RESCALE JS1X,!SWREG
  19.     RESCALE JS1Y,!SWREG
  20.     JUMP    LOOP
  21.