0 REM 23-JUN-1995 Comet
10 CLS
20 DEFINT A-Z
25 G$=" .-/)*$"
30 Y=17
40 OPEN "SEXY.DO" FOR INPUT AS 1
50 Y=Y+1
60 LINE INPUT #1,S$
70 S$=MID$(S$,9,LEN(S$)-8)
80 C=LEN(S$):IF C>64 THEN LET C=64
90 FOR X=1 TO C
100 P$=MID$(S$,X,1)
110 P=INSTR(1,".-/)*$",P$)
120 IF P>6*RND(1) THEN PSET(Y-1,64-X)
130 IF 0=Y MOD 4 AND P>6*RND(1) THEN PSET(Y,64-X)
140 NEXT X
150 IF 0=Y MOD 4 THEN LET Y=Y+1
160 IF NOT EOF(1) THEN 50
170 BEEP
180 END