home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / morse.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  16 lines
  1. 0 'MORSE.BA / Rudy E. Kokich, MD           13-07-86
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CALL16959:DEFINTA-Z:DIMC(50)
  4. 3 READD:IFD=-1THEN4ELSEC(X)=D:X=X+1:GOTO3
  5. 4 GOSUB13:BEEP:PRINT"SPEED  (1)fast  (2)medium  (3)slow: ";:E$=INPUT$(1):E=VAL(E$):PRINT
  6. 5 GOSUB13:LINEINPUT"Message: ";M$:PRINT:PRINT"Sending: ";:IFM$="Menu"THENCLS:MENUELSEIFM$=""THEN4
  7. 6 N$=M$:FORZ=1TOLEN(M$):I$=MID$(M$,Z,1):IFI$>="a"ANDI$<="z"THENI$=CHR$(ASC(I$)-32)
  8. 7 IFI$>=","ANDI$<="Z"THENA=C(ASC(I$)-44):GOTO10
  9. 8 IFI$=" "THENFORX=0TO150*E:NEXTX:PRINT" ";
  10. 9 NEXTZ:PRINT:GOTO5
  11. 10 FORC=0TO47*E:NEXTC:PRINTI$;:FORX=7TO0STEP-1:B=AAND2^X:IFB>0THEN11ELSENEXTX
  12. 11 FORY=X-1TO0STEP-1:B=AAND2^Y:IFB>0THENSOUND2000,6*EELSESOUND2000,1*E
  13. 12 FORF=1TO67*E:NEXTF:NEXTY:NEXTZ:PRINT:GOTO5
  14. 13 CLS:CALL17001:PRINT@0,STRING$(40,32):PRINT@1,"Morse Code Instructor":PRINT@28,"<F8> aborts":CALL17006:PRINT:RETURN
  15. 14 DATA115,,85,,63,47,39,35,33,32,48,56,60,62,120,106,,,,82,,5,24,26,12,2,18,14,16,4,23,13,20,7,6,15,22,29,10,8,3,9,17,11,25,27,28,-1
  16.