"LOADING CYLONS" $PRINT CRLF
;
; CYLONS by Bob Shannon
; usage: #loops CYLONS
; location 100 controls speed
;
OCTAL 100 377 PUT
OCTAL DEFINE DELAY
1 100 GET +DO +LOOP END
OCTAL DEFINE SHOW
S>SR DELAY END
OCTAL DEFINE CYLON
1 SHOW 3 SHOW 7 DUP SHOW
1 15 +DO ROL DUP SHOW +LOOP DROP
140000 SHOW 100000 DUP SHOW SHOW
140000 SHOW 160000 DUP SHOW
1 15 +DO ROR DUP SHOW +LOOP DROP
3 SHOW 1 SHOW END
OCTAL DEFINE CYLONS
1 SWAP +DO CYLON +LOOP END
;--------------------------------------------------
"LOADING SPEED" $PRINT CRLF
;
; SPEED - pops stack and writes to loc. 100 to change
; the speed of CYLONS, smaller is faster (default=377)
;
OCTAL DEFINE SPEED
100 SWAP PUT END
;--------------------------------------------------
"DONE" $PRINT CONSOLE