OCTAL DEFINE 3BUGx  ;ENSEC=046344
000100 000030 PUT 000101 000010 PUT 000102 000050 PUT
000103 000015 PUT 000104 000020 PUT 000105 000020 PUT
11 4 COLOR CLS " SET SR BIT TO EXIT" $PRINT #0 #0 S>SR
DO 101 GET 100 GET RND 7 AND CASE =
000000 000100 GET DEC DUP IFZ DROP ELSE 000100 SWAP PUT
ENDIx = 000001 000100 GET DEC DUP IFZ DROP ELSE 000100 SWAP
PUT ENDIx 000101 GET DEC DUP DEC IFZ DROP ELSE 000101 SWAP
PUT ENDIx = 000002 000101 GET DEC DUP DEC IFZ DROP ELSE
000101 SWAP PUT ENDIx = 000003 000100 GET INC DUP 000107
SUB IFZ DROP ELSE 000100 SWAP PUT ENDIx 000101 GET DEC DUP
DEC IFZ DROP ELSE 000101 SWAP PUT ENDIx = 000004 000100 GET
INC DUP 000107 SUB IFZ DROP ELSE 000100 SWAP PUT ENDIx =
000005 000100 GET INC DUP 000107 SUB IFZ DROP ELSE 000100
SWAP PUT ENDIx 000101 GET INC DUP 000027 SUB IFZ DROP ELSE
000101 SWAP PUT ENDIx = 000006 000101 GET INC DUP 000027
SUB IFZ DROP ELSE 000101 SWAP PUT ENDIx = 000007 000100 GET
DEC DUP IFZ DROP ELSE 000100 SWAP PUT ENDIx 000101 GET INC
DUP 000027 SUB IFZ DROP ELSE 000101 SWAP PUT ENDIx ENDCxxx
SR>S IFNZ ROT SWAP DROP #1 SWAP ROT ENDIF POS 12
000003 COLOx "   " $PRIxx 000101 GET 000100 GET POS 000016
3 COLOR "<*>" $PRINT 26 #1 POS CRLF 103
GET 000102 GET RND 000007 AND CASE = 000000 000102 GET DEC
DUP IFZ DROP ELSE 000102 SWAP PUT ENDIx = 000001 000102 GET
DEC DUP IFZ DROP ELSE 000102 SWAP PUT ENDIx 000103 GET DEC
DUP DEC IFZ DROP ELSE 000103 SWAP PUT ENDIx = 000002 000103
GET DEC DUP DEC IFZ DROP ELSE 000103 SWAP PUT ENDIx =
000003 000102 GET INC DUP 000107 SUB IFZ DROP ELSE 000102
SWAP PUT ENDIx 000103 GET DEC DUP DEC IFZ DROP ELSE 000103
SWAP PUT ENDIx = 000004 000102 GET INC DUP 000107 SUB IFZ
DROP ELSE 000102 SWAP PUT ENDIx = 000005 000102 GET INC DUP
000107 SUB IFZ DROP ELSE 000102 SWAP PUT ENDIx 000103 GET
INC DUP 000027 SUB IFZ DROP ELSE 000103 SWAP PUT ENDIx =
000006 000103 GET INC DUP 000027 SUB IFZ DROP ELSE 000103
SWAP PUT ENDIx = 000007 000102 GET DEC DUP IFZ DROP ELSE
000102 SWAP PUT ENDIx 000103 GET INC DUP 000027 SUB IFZ
DROP ELSE 103 SWAP PUT ENDIF ENDCASE SR>S IFNZ ROT
SWAP DROP #1 SWAP ROT ENDIx POS 000012 000006 COLOx "   "
$PRIxx 000103 GET 000102 GET POS 000013 000006 COLOx "[:]"
$PRINT 26 #1 POS CRLF 105 GET 104 GET RND
7 AND CASE = 0 104 GET DEC DUP IFZ DROP ELSE
000104 SWAP PUT ENDIx = 000001 000104 GET DEC DUP IFZ DROP
ELSE 000104 SWAP PUT ENDIx 000105 GET DEC DUP DEC IFZ DROP
ELSE 000105 SWAP PUT ENDIx = 000002 000105 GET DEC DUP DEC
IFZ DROP ELSE 000105 SWAP PUT ENDIx = 000003 000104 GET INC
DUP 000107 SUB IFZ DROP ELSE 000104 SWAP PUT ENDIx 000105
GET DEC DUP DEC IFZ DROP ELSE 000105 SWAP PUT ENDIx =
000004 000104 GET INC DUP 000107 SUB IFZ DROP ELSE 000104
SWAP PUT ENDIx = 000005 000104 GET INC DUP 000107 SUB IFZ
DROP ELSE 000104 SWAP PUT ENDIx 000105 GET INC DUP 000027
SUB IFZ DROP ELSE 000105 SWAP PUT ENDIx = 000006 000105 GET
INC DUP 000027 SUB IFZ DROP ELSE 000105 SWAP PUT ENDIx =
000007 000104 GET DEC DUP IFZ DROP ELSE 000104 SWAP PUT
ENDIx 000105 GET INC DUP 000027 SUB IFZ DROP ELSE 000105
SWAP PUT ENDIF ENDCASE SR>S IFNZ ROT SWAP DROP #1 SWAP
ROT ENDIx POS 000012 000002 COLOx "   " $PRIxx 000105 GET
000104 GET POS 000015 000002 COLOx "{O}" $PRIxx 000026 #1
POS CRLF #0 777 +DO +LOOP DUP UNTIL DROP -COLOR
CLS END
LIBEND
~TERMINATE~