This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
Listing 1
0 REM ***MORSE*** 1 ? "" 5 DIM N$(1),TEXT$(256),MEM$(256),OUTPUT$(1) 7 ? "Automat.klic...A":? "Vyuka CW.......V" 8 INPUT N$ 9 IF N$="V" THEN 100 10 REM 11 ?:? "OK":? 13 ? "Prosim dalsi text" 15 INPUT TEXT$ 18 IF TEXT$="" THEN TEXT$=MEM$ 19 MEM$=TEXT$ 20 FOR POS=1 TO LEN(TEXT$) 25 GOSUB 1000 30 NEXT POS 40 GOTO 10 100 REM ***VYUKA*** 110 ?:? " Jake znaky chces procvicovat?" 115 INPUT TEXT$ 120 ? "" 125 IF TEXT$="" THEN TEXT$=MEM$:? "" 130 MEM$=TEXT$ 135 ?:? TEXT$ 140 N=LEN(TEXT$) 150 FOR R=5 TO 9 155 FOR WR=1 TO 2*W:NEXT WR 160 FOR S=2 TO 6 170 POS=INT(RND(0)*N)+1 180 GOSUB 1000 190 POSITION PS+S,R:? OUTPUT$; 200 NEXT S 210 NEXT R 220 PS=PS+6 230 IF PS<30 THEN 150 240 ?:PS=0:GOTO 100 1000 REM ***MORSE BEGIN*** 1020 OUTPUT$=TEXT$(POS,POS) 1030 RESTORE 2000+ASC(OUTPUT$) 1035 READ LENGHT 1040 FOR A=1 TO LENGHT 1045 FOR D=1 TO 15:NEXT D 1050 READ MCODE 1060 IF MCODE=1 THEN SOUND 0,80,10,8:NEXT A 1070 SOUND 0,0,0,0:NEXT A 1080 FOR W=1 TO 60:NEXT W 1100 RETURN 2032 DATA 4,0,0,0,0 2033 DATA 20,1,1,1,0,1,1,1,0,1,0,1,0,1,1,1,0,1,1,1,0 2043 DATA 14,1,0,1,1,1,0,1,0,1,1,1,0,1,0 2044 DATA 18,1,0,1,1,1,0,1,0,1,1,1,0,1,0,1,1,1,0 2046 DATA 12,1,0,1,0,1,0,1,0,1,0,1,0 2047 DATA 14,1,1,1,0,1,0,1,0,1,1,1,0,1,0 2048 DATA 20,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0 2049 DATA 18,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0 2050 DATA 16,1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0 2051 DATA 14,1,0,1,0,1,0,1,1,1,0,1,1,1,0 2052 DATA 12,1,0,1,0,1,0,1,0,1,1,1,0 2053 DATA 10,1,0,1.0,1,0,1,0,1,0 2054 DATA 12,1,1,1,0,1,0,1,0,1,0,1,0 2055 DATA 14,1,1,1,0,1,1,1,0,1,0,1,0,1,0 2056 DATA 16,1,1,1,0,1,1,1,0,1,1,1,0,1,0,1,0 2057 DATA 18,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,0 2061 DATA 14,1,1,1,0,1,0,1,0,1,0,1,1,1,0 2063 DATA 16,1,0,1,0,1,1,1,0,1,1,1,0,1,0,1,0 2065 DATA 6,1,0,1,1,1,0, 2066 DATA 10,1,1,1,0,1,0,1,0,1,0 2067 DATA 12,1,1,1,0,1,0,1,1,1,0,1,0 2068 DATA 8,1,1,1,0,1,0,1,0 2069 DATA 2,1,0 2070 DATA 10,1,0,1,0,1,1,1,0,1,0 2071 DATA 10,1,1,1,0,1,1,1,0,1,0 2072 DATA 8,1,0,1,0,1,0,1,0 2073 DATA 4,1,0,1,0 2074 DATA 14,1,0,1,1,1,0,1,1,1,0,1,1,1,0 2075 DATA 10,1,1,1,0,1,0,1,1,1,0 2076 DATA 10,1,0,1,1,1,0,1,0,1,0 2077 DATA 8,1,1,1,0,1,1,1,0 2078 DATA 6,1,1,1,0,1,0 2079 DATA 12,1,1,1,0,1,1,1,0,1,1,1,0 2080 DATA 12,1,0,1,1,1,0,1,1,1,0,1,0 2081 DATA 14,1,1,1,0,1,1,1,0,1,0,1,1,1,0 2082 DATA 8,1,0,1,1,1,0,1,0 2083 DATA 6,1,0,1,0,1,0 2084 DATA 4,1,1,1,0 2085 DATA 8,1,0,1,0,1,1,1,0 2086 DATA 10,1,0,1,0,1,0,1,1,1,0, 2087 DATA 10,1,0,1,1,1,0,1,1,1,0 2088 DATA 12,1,1,1,0,1,0,1,0,1,1,1,0 2089 DATA 14,1,1,1,0,1,0,1,1,1,0,1,1,1,0 2090 DATA 12,1,1,1,0,1,1,1,0,1,0,1,0
References
Listing downloads
Copyright holder