Atari 8-bit Source code

0 ------------------------------
2 REM   titlbach milan 88
4 REM || | =================
6 REM | |  speed R
8 ------------------------------
9 REM Pro tiskarnu BT-100 upravil :​ Pavel Mach ul.25.unora 42 Nove Mesto nad Metuji.
10 DIM H$(20),​A$(20),​NN$(20),​M$(39),​D$(20),​Z$(2),​K$(8),​KK$(2),​KS$(2),​KO$(4),​KZ$(8),​ZZ$(3),​X$(1),​U$(1),​PI$(1)
20 M$=" ":​OB=0
30 GOSUB 2860:​POKE 730,​2:​POKE 729,​12
40 POKE 752,​1:​GOSUB 80:​GOSUB 270
50 REM 
60 FOR W=Y1 TO Y2:​POSITION 0,​W:​? M$:​SOUND 0,​W/2,​4,​2:​NEXT W:​SOUND 0,​0,​0,​0:​RETURN
70 ------------------------------
80 REM 
90 POKE 82,​4
100 POSITION 4,​8:​? " menu"
110 ? " doplneni+abecedni zarazeni"
120 ? " vymazani"
130 ? " listing + -"
140 ? " vyhledavani"
150 ? " save TURBO"
160 ? " save CSAVE"
170 ? " vypis "
180 ? " oprava ":​?
190 ? ""
200 ? "| = ";FRE(0):​POSITION 35,​19:​? "|"
210 ? ""
220 RETURN
230 ------------------------------
240 REM 
250 POSITION 0,​22:​? M$:​FOR E=14 TO 0 STEP -0.05:​SOUND 0,​150,​10,​E:​NEXT E:​RETURN
260 ------------------------------
270 REM 
280 POKE 764,​255
290 K=PEEK(764):​IF K=28 THEN M=0:​L=0:​O=0:​K=1:​D=0:​V=0:​GOTO 30
300 IF K=58 THEN M=0:​L=0:​O=0:​K=0:​D=1:​V=0:​POP:​GOTO 970
310 IF K=37 THEN M=1:​L=0:​O=0:​K=0:​D=0:​V=0:​POP:​GOTO 1700
320 IF K=0 THEN M=0:​L=1:​O=0:​K=0:​D=0:​V=0:​POP:​GOTO 1700
330 IF K=16 THEN M=0:​L=0:​O=0:​K=0:​D=0:​V=1:​POP:​GOTO 820
340 IF K=62 THEN POP:​GOTO 2240
350 IF K=18 THEN POP:​GOTO 2260
360 IF K=10 THEN POP:​GOTO 2310
370 IF K=8 THEN M=0:​L=0:​O=1:​K=0:​D=0:​V=0:​POP:​GOTO 1700
380 IF K=23 THEN POP:​GOTO 840
390 POKE 711,​A:​A=A+0.2:​IF A>255 THEN A=0:​GOSUB 2800:​GOTO 390
400 SOUND 0,​0,​6,​2:​PAUSE 1:​DSOUND:​GOTO 290
410 RETURN
420 ------------------------------
430 REM 
440 POSITION 2,​Y:​? "Uzivatelske programy  / Hry ":​GOSUB 2810
450 POKE 764,​255
460 K=PEEK(764):​IF K=11 THEN U=1:​DR=6000:​RETURN
470 IF K=57 THEN H=1:​DR=5000:​RETURN
480 GOTO 460
490 ------------------------------
500 REM 
510 POSITION 2,​12:​? "TURBO ..... TURBO-UNI .."
520 ? "ZXL-1 ..... CLOAD ......"
530 ? "ZXL-2 ..... ENTER ......"
540 ? "ZXL-3 ..... ";CHR$(34);"DOS";CHR$(34);" ....."
550 ? "ZXL-4 ..... OP+ST ....."
560 ? "ZXL-5 ..... START ....."
570 ? " T-BASIC ..."
580 INPUT "*** ",​Z
590 RETURN
600 ------------------------------
610 REM 
620 ON Z GOTO 630,​640,​650,​660,​670,​680,​690,​700,​710,​720,​730,​740,​750
630 POSITION X,​Y:​? "Turbo":​GOTO 760
640 POSITION X,​Y:​? "ZXL-1":​GOTO 760
650 POSITION X,​Y:​? "ZXL-2":​GOTO 760
660 POSITION X,​Y:​? "ZXL-3":​GOTO 760
670 POSITION X,​Y:​? "ZXL-4":​GOTO 760
680 POSITION X,​Y:​? "ZXL-5":​GOTO 760
690 POSITION X,​Y:​? "T-UNI":​GOTO 760
700 POSITION X,​Y:​? "Cload":​GOTO 760
710 POSITION X,​Y:​? "Enter":​GOTO 760
720 POSITION X,​Y:​? CHR$(34);"DOS";CHR$(34):​GOTO 760
730 POSITION X,​Y:​? "OP+ST":​GOTO 760
740 POSITION X,​Y:​? "START":​GOTO 760
750 POSITION X,​Y:​? "T-Basic":​GOTO 760
760 REM 
770 KK$=K$(1,​2):​KS$=K$(3,​3):​KO$=K$(4,​6)
780 POSITION X,​Y+2:​? "Kazeta....";KK$
790 POSITION X,​Y+3:​? "Strana....";KS$
800 POSITION X,​Y+4:​? "Otacky....";KO$
810 RETURN
820 REM 
830 A=0:​GRAPHICS 0:​POKE 752,​1:​POKE 82,​2:​SETCOLOR 2,​1,​4:​SETCOLOR 4,​1,​4:​Y=22:​GOSUB 430:​GOSUB 240
840 GRAPHICS 0:​POKE 752,​1:​POKE 82,​2:​SETCOLOR 2,​1,​4:​SETCOLOR 4,​1,​4
850 POKE 764,​255:​GOSUB 2760
860 POSITION 1,​2:​? ""
870 POSITION 2,​5:​INPUT "Hledany nazev:​ ",​H$
880 IF LEN(H$)<2 THEN ? "KRATKY NAZEV-V SEZNAMU SE NEVYSKYTUJE":​GOTO 870
890 N=2:​K=1:​R=2
900 RESTORE DR+N:​IF R+5=20 THEN 950
910 TRAP 950:​READ A$,​Z,​K$
920 IF A$=H$ THEN X=24:​Y=8:​GOSUB 610:​GOTO 950
930 IF A$(1,​2)=H$(1,​2) THEN R=R+1:​N=N+2:​POSITION 2,​7:​? "PODOBNE NAZVY:​":​POSITION 3,​R+5:​? A$:​POSITION 26,​22:​? "CEKEJ":​GOTO 900
940 IF A$(1,​2)<>H$(1,​2) THEN N=N+2:​GOTO 900
950 POSITION 2,​22:​? "         -oprava":​GOSUB 2810:​GOSUB 270
960 ------------------------------
970 REM 
980 A=0:​GRAPHICS 0:​POKE 752,​1:​POKE 82,​2:​SETCOLOR 2,​0,​4:​SETCOLOR 4,​0,​4:​Y=22:​GOSUB 430:​GOSUB 240
990 POKE 764,​255:​GOSUB 2760
1000 POSITION 1,​2:​? ""
1010 POSITION 2,​5:​INPUT "Nazev programu:​ ",​NN$
1020 GOSUB 500
1030 Y1=12:​Y2=21:​GOSUB 50
1040 POSITION 2,​14:​INPUT "Cislo kazety ",​KS$
1050 IF LEN(KS$)=1 THEN KK$="0":​KK$(LEN(KK$)+1)=KS$:​GOTO 1070
1060 KK$=KS$
1070 INPUT "Strana ",​KS$
1080 INPUT "Otacky ",​ZZ$:​IF LEN(ZZ$)=1 THEN KO$="00":​KO$(LEN(KO$)+1)=ZZ$
1090 IF LEN(ZZ$)=3 THEN KO$=ZZ$
1100 IF LEN(ZZ$)=2 THEN KO$="0":​KO$(LEN(KO$)+1)=ZZ$
1110 KZ$=KK$:​KZ$(LEN(KZ$)+1)=KS$:​KZ$(LEN(KZ$)+1)=KO$
1120 Y1=5:​Y2=20:​GOSUB 50
1130 REM 
1140 IF NN$="" THEN 1010
1150 REM 
1160 FOR A=1 TO LEN(NN$)
1170 D$(A)=NN$(A,​A):​B=ASC(D$(A))
1180 POSITION 17-LEN(NN$)/2,​10:​? ">":​POSITION 19-LEN(NN$)/2+LEN(NN$),​10:​? "<"
1190 POSITION 18-LEN(NN$)/2+A,​10:​? CHR$(B+128):​GOSUB 2830
1200 POSITION 8,​12:​? Z:​POSITION 20,​12:​? KZ$
1210 NEXT A
1220 ------------------------------
1230 POSITION 2,​14:​? "=START /// =SELECT"
1240 POKE 53279,​7
1250 K=PEEK(53279):​IF K=6 THEN 1290
1260 IF K=5 THEN Y1=5:​Y2=22:​GOSUB 50:​GOTO 1010
1270 GOTO 1250
1280 ------------------------------
1290 Y1=10:​Y2=22:​GOSUB 50:​N=2:​ZZ=Z
1300 POSITION 2,​11:​? "Pocet polozek seznamu:​":​GOSUB 2820
1310 Y1=5000:​RESTORE Y1+N
1320 READ A$,​Z,​K$:​IF A$="" THEN PH=(N-2)/2:​GOTO 1340
1330 N=N+2:​GOTO 1310
1340 POSITION 24,​11:​? PH:​GOSUB 2800
1350 N=2
1360 Y2=6000:​RESTORE Y2+N
1370 READ A$,​Z,​K$:​IF A$="" THEN PU=(N-2)/2:​GOTO 1390
1380 N=N+2:​GOTO 1360
1390 POSITION 24,​12:​? PU:​GOSUB 2800
1400 IF D=1 THEN POP:​GOTO 1420
1410 N=2:​RETURN
1420 REM 
1430 POSITION 2,​13:​? "CEKEJ !":​GOSUB 2830:​GOSUB 2830
1440 IF DR=5000 THEN PP=PH:​GOTO 1460
1450 IF DR=6000 THEN PP=PU
1460 FOR I=2 TO 2*PP STEP 2:​P=0:​J=0
1470 J=J+2
1480 RESTORE DR+J:​READ A$,​Z,​K$
1490 IF A$(1,​1)>NN$(1,​1) THEN 1550
1500 IF A$>NN$ THEN 1550
1510 IF J<>2*PP+1 THEN 1470
1520 IF P=0 THEN I=PP*2
1530 NEXT I
1540 GOTO 1680
1550 POKE 82,​2:​POSITION 2,​14:​? "POZICE NALEZENA !!"
1560 POSITION 2,​17:​? DR+J-1;"D.";NN$;",​";ZZ;",​";KZ$
1570 POSITION 2,​18:​? "CONT"
1580 POSITION 2,​15:​POKE 842,​13:​STOP
1590 POKE 842,​12
1600 FOR W=14 TO 18:​POSITION 0,​W:​? M$:​NEXT W
1610 REM 
1620 RENUM Y1,​Y1,​2:​IF DR=6000 THEN Y1=Y1-2
1630 IF M=1 AND DR=5000 THEN Y1=Y1-4
1640 RENUM Y1+(PH*2+6),​Y2,​2:​IF M=1 THEN CLR:​GOTO 10
1650 POSITION 2,​15:​? "":​GOSUB 2830:​GOSUB 2830
1660 IF DR=5000 THEN POSITION 24,​11:​? PP+1:​PAUSE 50:​GOTO 1680
1670 IF DR=6000 THEN POSITION 24,​12:​? PP+1:​PAUSE 50
1680 POSITION 2,​21:​? "        ":​GOSUB 2810:​GOSUB 270
1690 ------------------------------
1700 REM 
1710 A=0:​GRAPHICS 0:​POKE 752,​1:​POKE 82,​2:​SETCOLOR 2,​3,​4:​SETCOLOR 4,​3,​4:​Y=22:​GOSUB 430:​GOSUB 240
1720 N=2:​POKE 764,​255:​GOSUB 2760
1730 IF L=1 THEN POSITION 1,​2:​? "":​GOTO 1780
1740 IF M=1 THEN POSITION 1,​2:​? "":​GOTO 1760
1750 IF O=1 THEN POSITION 1,​2:​? "":​GOTO 1770
1760 ?:​? "Vylistuj nazev k mazani":​GOTO 1780
1770 ?:​? "Vylistuj nazev k oprave":​GOTO 1780
1780 GOSUB 1290
1790 POSITION 29,​11:​? "-":​POSITION 29,​12:​? "-"
1800 PAUSE 75:​Y1=10:​Y2=20:​GOSUB 50
1810 ------------------------------
1820 IF DR=5000 THEN PP=PH
1830 IF DR=6000 THEN PP=PU
1840 IF N<4 THEN N=2
1850 RESTORE DR+N:​READ A$,​Z,​K$
1860 IF A$="" AND N=2 THEN POSITION 2,​8:​? "DATABANKA JE PRAZDNA":​PAUSE 100:​CLR:​GOTO 10
1870 IF A$="" THEN N=2:​GOTO 1850
1880 POSITION 19-LEN(A$)/2,​8:​? A$:​POSITION 2,​8:​? N/2;"/";PP:​POSITION 2,​22:​? "   ":​GOSUB 2810
1890 X=16:​Y=10:​GOSUB 610
1900 REM 
1910 POKE 764,​255
1920 K=PEEK(764):​IF K=6 THEN VPRED=1:​GOTO 1990
1930 IF K=14 THEN VPRED=-1:​GOTO 1990
1940 IF K=28 THEN CLR:​GOTO 10
1950 IF K=16 AND M=1 THEN 2040
1960 IF K=16 AND O=1 THEN 2130
1970 GOTO 1920
1980 ------------------------------
1990 IF VPRED=1 THEN N=N+2
2000 IF VPRED=-1 THEN N=N-2
2010 POKE 764,​255
2020 Y1=8:​Y2=14:​GOSUB 50
2030 GOTO 1840
2040 REM 
2050 POKE 764,​255
2060 Y1=4:​Y2=22:​GOSUB 50
2070 POSITION 0,​8:​LIST DR+N
2080 POSITION 4,​13:​? "Mazat ? no e ":​GOSUB 2810
2090 K=PEEK(764):​IF K=63 THEN 2120
2100 IF K=35 THEN Y1=8:​Y2=13:​GOSUB 50:​GOTO 1850
2110 GOTO 2090
2120 DEL DR+N,​DR+N:​POSITION 4,​16:​? "":​Y1=5000:​Y2=6000:​N=2:​GOTO 1610
2130 REM 
2140 POKE 764,​255
2150 Y1=4:​Y2=22:​GOSUB 50
2160 POSITION 2,​8:​LIST DR+N
2170 POSITION 4,​13:​? "Oprava ? no e ":​GOSUB 2810
2180 K=PEEK(764):​IF K=63 THEN 2210
2190 IF K=35 THEN Y1=8:​Y2=13:​GOSUB 50:​GOTO 1850
2200 GOTO 2180
2210 POSITION 0,​13:​? M$:​POKE 764,​255:​POKE 752,​0:​POSITION 11,​9:​INPUT "",​X$
2220 POSITION 11,​9:​? " ":​? "CONT":​POSITION 2,​7:​POKE 842,​13:​STOP
2230 POKE 842,​12:​POKE 752,​1:​Y1=4:​Y2=22:​GOSUB 50:​GOTO 1850
2240 REM 
2250 GRAPHICS 0:​SETCOLOR 2,​0,​0:​GOSUB 2810:​DOS
2260 REM 
2270 GRAPHICS 0:​SETCOLOR 2,​0,​0:​? " -stlac- ":​GOSUB 2810
2280 POKE 764,​255
2290 IF PEEK(764)=12 THEN ? "CSAVE":​CSAVE
2300 GOTO 2290
2310 REM 
2320 GRAPHICS 0:​POKE 752,​1:​SETCOLOR 2,​3,​0:​SETCOLOR 4,​3,​0
2330 ? " ISKARNA nebo BRAZOVKA"
2340 GET KEY:​?:​?
2350 IF KEY=79 THEN GOTO 2380
2360 IF KEY=84 THEN GOTO 2510
2370 IF KEY<>79 OR KEY<>84 THEN GOTO 2340
2380 REM 
2390 N=0:​DR=5000
2400 ?:​? " KTERY ZNAK CHCES NA OBRAZOVKU ";
2410 INPUT PI$:​?:​?
2420 RESTORE DR+N:​READ A$,​Z,​K$:​IF A$="" AND DR=5000 THEN N=0:​DR=6000
2430 IF DR=6000 AND A$="" THEN ?:​?:​? " THE END":​CLR:​PAUSE 250:​GOTO 10
2440 N=N+2:​IF OB=1 THEN GOSUB 2790
2450 IF A$(1,​1)=PI$ THEN GOTO 2470
2460 IF A$(1,​1)<>PI$ THEN GOTO 2420
2470 FOR I=1 TO LEN(A$)
2480 POSITION I+2,​22:​? A$(I,​I):​GOSUB 2830:​NEXT I:​PAUSE 30
2490 POSITION 22,​22:​? Z;" - ";K$(1,​2);" - ";K$(3,​3);" - ";K$(4,​6):​?
2500 GOTO 2420
2510 REM 
2520 ? " KTERY ZNAK CHCES TISKEM ";
2530 INPUT PI$
2540 CLOSE #1:​OPEN #1,​8,​33,​"P:​":​LPRINT " PROGRAMY NA PISMENO -[ZNAK]- :​ ";PI$:​LPRINT
2550 CLOSE #1:​OPEN #1,​8,​17,​"P:​"
2560 LPRINT "NAZEV PROGRAMU :​ ZAV.:​ KAZ.:​ STR.:​ POC.:​":​LPRINT
2570 ?:​?:​? " CEKEJ,​HLEDAM !"
2580 N=0:​DR=5000:​LET POC=0
2590 LET POC=POC+1:​RESTORE DR+N:​READ A$,​Z,​K$:​IF A$="" AND DR=5000 THEN N=0:​DR=6000
2600 IF DR=6000 AND A$="" THEN ?:​?:​? " THE END":​CLR:​PAUSE 250:​GOTO 10
2610 N=N+2:​IF OB=1 THEN GOSUB 2790
2620 IF A$(1,​1)<>PI$ THEN POC=0:​IF A$(1,​1)<>PI$ THEN GOTO 2590
2630 IF A$(1,​1)=PI$ THEN GOTO 2640
2640 FOR I=1 TO LEN(A$):​POSITION I+2,​22:​? A$(I,​I):​GOSUB 2830:​NEXT I:​PAUSE 30
2650 POSITION 22,​22:​? " ":​POSITION 22,​22:​? Z;" - ";K$(1,​2);" - ";K$(3,​3);" - ";K$(4,​6):​?
2660 IF LEN(A$)=9 THEN LPRINT ;A$,​"";Z,​K$(1,​2),​K$(3,​3),​K$(4,​6):​GOTO 2590
2670 IF LEN(A$)=8 OR LEN(A$)=7 OR LEN(A$)=6 OR LEN(A$)=5 THEN LPRINT ;A$,​,​;Z,​K$(1,​2),​K$(3,​3),​K$(4,​6):​GOTO 2590
2680 IF LEN(A$)=4 OR LEN(A$)=3 OR LEN(A$)=2 OR LEN(A$)=1 THEN LPRINT ;A$,​,​;Z,​K$(1,​2),​K$(3,​3),​K$(4,​6):​GOTO 2590
2690 LPRINT A$,​Z,​K$(1,​2),​K$(3,​3),​K$(4,​6)
2700 IF A$(1,​1)=PI$ AND POC=72 THEN GOTO 2720
2710 GOTO 2590
2720 LET POC=0:​?:​? "":​?:​?:​PAUSE 1500:​GOTO 2590
2730 ?:​? " ":​CLR:​PAUSE 250:​GOTO 10
2740 POSITION 1,​1:​? ""
2750 POSITION 1,​3:​? ""
2760 RETURN
2770 ------------------------------
2780 REM 
2790 SOUND 0,​80,​12,​8:​PAUSE 8:​GOTO 2840
2800 SOUND 0,​90,​12,​6:​PAUSE 8:​GOTO 2840
2810 SOUND 0,​29,​10,​6:​PAUSE 10:​GOTO 2840
2820 SOUND 0,​200,​12,​6:​PAUSE 10:​GOTO 2840
2830 SOUND 0,​6,​12,​4:​PAUSE 8
2840 DSOUND:​RETURN
2850 ------------------------------
2860 REM 
2870 PUT 125:​POKE 82,​0
2880 GRAPHICS 16:​SETCOLOR 0,​5,​6:​SETCOLOR 1,​0,​8:​SETCOLOR 2,​11,​2:​SETCOLOR 3,​13,​15
2890 SETCOLOR 4,​15,​2
2900 ST=PEEK(560)+PEEK(561)*256+4
2910 POKE ST+4,​7
2920 POKE ST+5,​2
2930 POKE ST+6,​6
2940 POKE ST+9,​2
2950 POKE ST+24,​65
2960 POKE ST+25,​PEEK(560)
2970 POKE ST+26,​PEEK(561)
2980 ------------------------------
2990 POSITION 0,​0:​? "":​POSITION 3,​1:​? ""
3000 POSITION 0,​2:​? ""
3010 POSITION 0,​3:​? ""
3020 POSITION 20,​4:​? " ATARIKLUB OSTRAVA"
3030 POSITION 0,​5:​? ""
3040 RETURN
3050 ------------------------------
5000 DATA ,​0,​0
5898 DATA ,​0,​0
6000 DATA ,​0,​0
6002 DATA ,​0,​0	

• Download link 1
• Download link 2