0 GOSUB2:IFC%THENBEEP:PRINT"Bad checksum":ENDELSERESTORE:READH%:D$="-       ":FORI=0TO7:POKE-877+I,ASC(MID$(D$,I+1)):NEXT:B%=-1330:FORI=0TO4STEP4:POKEB%+I,256-256*H%/-256:POKEB%+I+1,255-H%/256:NEXT:B%=-1328:POKEB%,A%-H%:POKEB%+1,0:CALL8960'Ends
2 READD$:IFLEN(D$)=0THENC%=S%ANDC%:RETURNELSEIFSGN(VAL(D$))=0THENGOSUB3:GOTO2ELSEA%=VAL(D$):C%=INSTR(D$,"."):S%=VAL(RIGHT$(D$,SGN(C%)*3)):C%=255*SGN(C%):B%=0:D%=0:GOTO2
3 FORP%=1TOLEN(D$):D%=D%*2^6+ASC(MID$(D$,P%,1))-62:B%=B%+6:IFB%>6THENB%=B%-8:H%=D%\2^B%:D%=D%AND2^B%-1:POKEA%,H%:A%=A%+1:S%=(S%+H%)MOD256:NEXT:RETURNELSENEXT:RETURN
9 DATA-86.132,>BsKORSLQcSSANrxymrU}^evHgiwFeqtG^?mBXE{DUvaWd{|wdA@tMz|?QHh}zuJFJtpEzZ,