; 2 bugs randomly traversing the screen
; Requires screen words
; 5/22/06
OCTAL DEFINE BUGS
;LOC 100 = BUG1 COLUMN
;LOC 101 = BUG1 ROW
;LOC 102 = BUG2 COLUMN
;LOC 103 = BUG2 ROW
100 30 PUT 101 10 PUT
102 50 PUT 103 15 PUT
11 4 COLOR CLS
#0 S>SR "SET ANY SR BIT TO STOP" $PRINT
DO
 101 GET 100 GET ;TO ERASE OLD BUG
 RND 7 AND CASE
 = 0 100 GET DEC DUP IFZ DROP ELSE 100 SWAP PUT ENDIF
 = 1 100 GET DEC DUP IFZ DROP ELSE 100 SWAP PUT ENDIF
     101 GET DEC DUP DEC IFZ DROP ELSE 101 SWAP PUT ENDIF
 = 2 101 GET DEC DUP DEC IFZ DROP ELSE 101 SWAP PUT ENDIF
 = 3 100 GET INC DUP 107 SUB IFZ DROP ELSE 100 SWAP PUT ENDIF
     101 GET DEC DUP DEC IFZ DROP ELSE 101 SWAP PUT ENDIF
 = 4 100 GET INC DUP 107 SUB IFZ DROP ELSE 100 SWAP PUT ENDIF
 = 5 100 GET INC DUP 107 SUB IFZ DROP ELSE 100 SWAP PUT ENDIF
     101 GET INC DUP 27 SUB IFZ DROP ELSE 101 SWAP PUT ENDIF
 = 6 101 GET INC DUP 27 SUB IFZ DROP ELSE 101 SWAP PUT ENDIF
 = 7 100 GET DEC DUP IFZ DROP ELSE 100 SWAP PUT ENDIF
     101 GET INC DUP 27 SUB IFZ DROP ELSE 101 SWAP PUT ENDIF
 ENDCASE
 POS 12 3 COLOR "   " $PRINT
 101 GET 100 GET POS 16 3 COLOR "<*>" $PRINT
 26 #1 POS CRLF
 103 GET 102 GET
 RND 7 AND CASE
 = 0 102 GET DEC DUP IFZ DROP ELSE 102 SWAP PUT ENDIF
 = 1 102 GET DEC DUP IFZ DROP ELSE 102 SWAP PUT ENDIF
     103 GET DEC DUP DEC IFZ DROP ELSE 103 SWAP PUT ENDIF
 = 2 103 GET DEC DUP DEC IFZ DROP ELSE 103 SWAP PUT ENDIF
 = 3 102 GET INC DUP 107 SUB IFZ DROP ELSE 102 SWAP PUT ENDIF
     103 GET DEC DUP DEC IFZ DROP ELSE 103 SWAP PUT ENDIF
 = 4 102 GET INC DUP 107 SUB IFZ DROP ELSE 102 SWAP PUT ENDIF
 = 5 102 GET INC DUP 107 SUB IFZ DROP ELSE 102 SWAP PUT ENDIF
     103 GET INC DUP 27 SUB IFZ DROP ELSE 103 SWAP PUT ENDIF
 = 6 103 GET INC DUP 27 SUB IFZ DROP ELSE 103 SWAP PUT ENDIF
 = 7 102 GET DEC DUP IFZ DROP ELSE 102 SWAP PUT ENDIF
     103 GET INC DUP 27 SUB IFZ DROP ELSE 103 SWAP PUT ENDIF
 ENDCASE
 POS 12 6 COLOR "   " $PRINT
 103 GET 102 GET POS 13 6 COLOR "[:]" $PRINT
 26 #1 POS CRLF
 #0 777 +DO +LOOP
 SR>S
UNTIL
-COLOR CLS
END
CONSOLE