(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Aug-2022 08:54:17" ("compiled on " {DSK}larry>medley>lispusers>STARBG.;2) "23-Aug-2022 23:38:05" brecompiled changes%: Cosmos in "FULL 23-Aug-2022 ..." dated "23-Aug-2022 23:38:07") (FILECREATED "24-Aug-2022 08:54:17" {DSK}larry>medley>lispusers>STARBG.;2 16815 :CHANGES-TO (FNS Cosmos) :PREVIOUS-DATE "17-Aug-88 03:26:58" {DSK}larry>medley>lispusers>STARBG.;1) Between :D8 (I 0 pair) @ @ (16 RAND 11 UpperBound 5 LowerBound) NIL () BlackHole :D8 (I 3 radius I 2 y I 1 x I 0 win F 1 voidShade F 2 starShade) mA­j` b¿B­j` b¿C¬ln, b¿ABCQ@ jl Hjðµ H´H ´ABll R@ (106 FILLCIRCLE 98 RAND 84 \FZEROP 65 RAND 57 FILLCIRCLE 43 RAND 28 RAND 12 RAND) (23 SCREENHEIGHT 7 SCREENWIDTH) () Catastrophe :D8 (P 4 i P 2 cy P 1 cx P 0 extent I 0 win) Xl lÈ j` j` #Hk¼»LKó‘h@l2IjH ØJjH Ø ¿LkÔ\°Ò(79 Stomp 73 PlusOrMinus 68 RAND 59 PlusOrMinus 54 RAND 30 RAND 19 RAND 8 RAND) (25 SCREENHEIGHT 14 SCREENWIDTH) () ChanceIn :D8 (I 0 n) j@kÙ Hjðµ H´H (27 \FZEROP 8 RAND) NIL () CloseFollower :D8 (F 0 cursorFollower) P (5 CLOSEW) NIL () Constellation :D8 (P 5 i P 3 NEXT P 2 BM P 1 halfheight P 0 halfwidth I 3 stars I 2 cy I 1 cx I 0 bitmap F 6 BM3 F 7 BM4 F 8 BM5 F 9 nova) ¥A­j` b¿B­j` b¿lld lld "CµlIdHó‘¿HlÛ bkMLó‘hl(jld [ñ’V°l