5 rem Arecibo-Ascii
6 port1=0
10 string 1853,24:rem 73 strings with 23 chars for arecibo msg
100 $(0)="      # # # #          "
101 $(1)="  # #     # #       #  "
102 $(2)="#   #   #   #  # ##  # "
103 $(3)="# # # # # # # #  #  #  "
104 $(4)="                       "
105 $(5)="            ##         "
106 $(6)="          ## #         "
107 $(7)="          ## #         "
108 $(8)="         # # #         "
109 $(9)="         #####         "
110 $(10)="                       "
111 $(11)="##    ###   ##    ##   "
112 $(12)="#             ##  #    "
113 $(13)="## #   ##   ##    ## # "
114 $(14)="##### ##### ##### #####"
115 $(15)="                       "
116 $(16)="   #                 # "
117 $(17)="                       "
118 $(18)="    #                 #"
119 $(19)="#####             #####"
120 $(20)="                       "
121 $(21)="##    ##    ###   ##   "
122 $(22)="#       #         #    "
123 $(23)="## #    ##   ###  ## # "
124 $(24)="##### ##### ##### #####"
125 $(25)="                       "
126 $(26)="   #      ##         # "
127 $(27)="          ##           "
128 $(28)="    #     ##          #"
129 $(29)="#####     ##      #####"
130 $(30)="          ##           "
131 $(31)="  #        #        #  "
132 $(32)="   #      ##       #   "
133 $(33)="    ##    ##      #    "
134 $(34)="      ##   #    ##     "
135 $(35)="          ##  ##       "
136 $(36)="      ##   #    ##     "
137 $(37)="    ##    ##      #    "
138 $(38)="   #      #        #   "
139 $(39)="  #       ##        #  "
140 $(40)=" #        ##        #  "
141 $(41)=" #         #       #   "
142 $(42)="  #       #       #    "
143 $(43)="   #            ##     "
144 $(44)="    ##        ##       "
145 $(45)="  #   ### # ##         "
146 $(46)="  #       #            "
147 $(47)="  #     #####          "
148 $(48)="  #    # ### #  # ## ##"
149 $(49)="      #  ###  #  ######"
150 $(50)="# ###    ###     ## ###"
151 $(51)="         # #     ### ##"
152 $(52)="  #      # #     ######"
153 $(53)="  #      # #     ##    "
154 $(54)="  #     ## ##          "
155 $(55)="                       "
156 $(56)="  ###     #            "
157 $(57)="  ### # #   # # # # # #"
158 $(58)="  ###         # # # #  "
159 $(59)="              # #      "
160 $(60)="        #####          "
161 $(61)="      #########        "
162 $(62)="    ###       ###      "
163 $(63)="   ##           ##     "
164 $(64)="  ## #         # ##    "
165 $(65)=" ##  ##       ##  ##   "
166 $(66)=" #   # #     # #   #   "
167 $(67)=" #   #  #   #  #   #   "
168 $(68)="     #   # #   #       "
169 $(69)="     #    #    #       "
170 $(70)="     #         #       "
171 $(71)="       #  # #          "
172 $(72)=" ####  ##### #  ####   "
200 rem prog start
210 for z=0 to 72:rem lines/strings
220 for c=1 to 23:rem char in string
230 IF ASC($(Z),C)=35 THEN  GOSUB 300 ELSE  GOSUB 400
240 next c
250 print:rem new line
260 next z
299 for c=0 to 1000:next c: print: print: goto 200
300 rem output a '1'
310 print "#",
320 port1=port1.or.1:rem set p1.0 to 1
399 return
400 rem output a '0'
410 print " ",
420 port1=port1.and.0ffh-1:rem set p1.0 to 0
499 return