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 
