2 POKE11,48:POKE12,2 4 FORP=560TO574:READD:POKEP,D:NEXT 6 DATA173,0,223,74,41,1,234,234,168,169,0,76,193,175,96 15 DIM A$(63) 16 FOR I=0 TO 63:READA$(I):NEXT 17 DATA!,K,Q,U,!,J,W,A,X,F,Y,S,B,D,Z,E 18 DATAV,C,P,I,G,R,L,!,M,N,H," ",O,!,T,! 19 DATA!,(,1,7,!,!,2,-,/,!,6,',?,#,+,3 20 DATA=,":",0,8,%,4,),!,".",",",";"," ",9,!,5,! 21 A$(0)=CHR$(0) 22 A$(4)=CHR$(0) 23 A$(23)=CHR$(10) 24 A$(29)=CHR$(13) 25 A$(31)=CHR$(0) 26 A$(32)=CHR$(0) 27 A$(36)=CHR$(0) 28 A$(41)=CHR$(232) 29 A$(55)=CHR$(10) 30 A$(61)=CHR$(13) 31 A$(63)=CHR$(0) 32 A$(37)=CHR$(8) 41 C1=59471:ZE=0:UN=1 42 DU=2:QU=4:T2=32 44 PRINTCHR$(147); 45 PRINT"RTTY DECODER BY I0FLY" 46 PRINT:PRINT"SPEED SELECT":PRINT 47 PRINT"FOR 45.45 BAUD -> OM" 48 PRINT"FOR 50.00 BAUD -> BC" 49 PRINT 50 INPUT XY$ 51 IFXY$<>"OM"ANDXY$<>"BC"GOTO53 52 FORI=0TO19:PRINT:NEXT:GOTO55 53 PRINTTAB(8);"NOT VALID" 54 GOTO 50 55 IFXY$="OM"THENX=14:Y=10 56 IFXY$="BC"THENX=12:Y=8 60 IFUSR(ZE)=ZETHEN60 61 K=ZE 62 FORJ=UNTOX:NEXT 63 FORI=UNTOQU 64 K=(K+USR(ZE))*DU 65 FORJ=UNTOY:NEXT 66 NEXT 67 K=K+USR(ZE) 68 PRINTA$(K); 69 IFK<>4THEN60 70 IFUSR(ZE)=ZETHEN70 71 K=DU 72 FORJ=UNTOX:NEXT 73 FORI=UNTOQU 74 K=(K+USR(ZE))*DU 75 FORJ=UNTOY:NEXT 76 NEXT 77 K=K+USR(ZE) 78 PRINTA$(K); 79 IFK<>T2THEN70 80 GOTO60 POKE 515,0