1 'save"REVERSE2.BAS",A
100 DEFINT A-Z:DIM A(255):AD=&HF55E:DEFUSR=AD
110 A$="23237E5F237E57D5E10600AF90C5060807CB1910FB79C177232310EF":GOSUB 210
120 A$="06002618AF6FCD4D003C10F9":GOSUB 210
130 A$="21F8F77E5F237E57210000CD4A00E50600873001044FD5E1097EE1CD4D00233E08"
140 A$=A$+"BC20E7C9":GOSUB 210
150 SCREEN 1:WIDTH 32:KEY OFF
160 LOCATE 0,8:TIME=0:A=USR(VARPTR(A(0)))
170 LOCATE 0,20:PRINT TIME/60;"sec"
180 DEFUSR1=&H156:A=USR1(0):BEEP
190 A$=INKEY$:IF A$="" THEN 190
200 A=USR(VARPTR(A(0))):A=USR1(0):END
210 A=LEN(A$)\2:FOR K=0 TO A-1
220 POKE AD+K,VAL("&H"+MID$(A$,K*2+1,2)):NEXT K:AD=AD+A:RETURN