10 DIM A$[255],B$[255],C$[255] 20 READ A$,B$ 25 IF A$=" " THEN 50 30 PRINT A$[1,1];" ";A$[2]," ",B$[1,1];" ";B$[2] 40 GOTO 20 50 READ A$,B$ 55 IF A$="$" THEN 80 60 PRINT A$,B$ 70 GOTO 50 80 END 1000 DATA "A*=","B=***","C=*=*","D=**","E*" 1010 DATA "F**=*","G==*","H****","I**","J*===" 1020 DATA "K=*=","L*=**","M==","N=*","O===" 1030 DATA "P*==*","Q==*=","R*=*","S***","T=" 1040 DATA "U**=","V***=","W*==","X=**=","Y=*==","Z==**" 1050 DATA "0=====","1*====","2**===","3***==","4****=" 1060 DATA "5*****","6=****","7==***","8===**","9====*" 1070 DATA "/=**=*",":=*=*=*","-=****=",",==**==","?**==**" 1080 DATA ".**==*=","'*====*",'92"=*==*=","(=*==*=",")=*==*=" 1090 DATA " " 1110 DATA " "," ******** ERROR"," =***= DOUBLE-DASH"," *=*** WAIT" 1120 DATA " =*= INVITATION TO TRANSMIT"," ***=*= END OF WORK" 1130 DATA " =*==*= PARENTHESIS (ONLY PARTIALLY SUPPORTED)" 1135 DATA "$","$" 1140 END