home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG035.ARK
/
DISTEST.FAS
< prev
next >
Wrap
Text File
|
1984-04-29
|
563b
|
21 lines
; DEMO OF THE DISTANCE FUNCTION OF "FELIX".
; MOSHELL 1 SEPTEMBER 79
;
; THIS PROGRAM MOVES AN OBJECT UNDER CONTROL OF JS-1
; AND DISPLAYS THE "MANHATTEN DISTANCE" IN THE
; LIGHTS. USEFUL FOR LEARNING HOW FELIX'S DISTANCE
; OPERATOR WORKS. ALSO THE RESCALE OPERATOR
; IS USED WITH THE SWITCH REGISTER; USEFUL DEMO
; OF RESCALING. IF SW.REG CONTAINS A NUMBER LIKE
; 5 6 OR 7, JOYSTICKS HAVE ALMOST NO POWER....
;
;
NEWBACK 0
ONLIST 2,1,2
LOOP: DIST 1,2,!SWREG
POSIT 1,?JS1X,?JS1Y
SHOW
RESCALE JS1X,!SWREG
RESCALE JS1Y,!SWREG
JUMP LOOP