Atari 8-bit Source code

0 GRAPHICS 0:​SETCOLOR 2,​0,​0:​POKE 752,​1:​DIM A$(1)
1 ? "********** ARATI 800 XL **********"
2 ?:​? " PREVOD PAMETI DO TABULKY DAT"
3 ?:​?:​? " ZLATKO BLEHA 1986 (013) 851 905"
4 ?:​? " PREKLAD DRASTICH AK OSTRAVA 89"
5 ?:​? " PROGRAM UMOZNUJE PREVOD CASTI PAMETI DO TABULKY.";
6 ? "PO PREVODU SE MUZE PROGRAM SMAZATI A TABULKA DAT ZUSTANE.";
7 ? "TABULKU MUZETE NAHRATI NA KAZETU,​DISKETU JAKO KAZDY JINY BASIC PROGRAM.";
8 ? "POSLEDNI CI- SLO V KAZDEM RADKU JE SOUCET TOHOTO RADKU":​POSITION 12,​22:​? "STLAC START."
9 IF PEEK(53279)<>6 THEN 9
10 GRAPHICS 0:​SETCOLOR 2,​0,​0:​TRAP 10
11 ? " POCATECNI ADRESA PRO PREVOD ";:​INPUT PA:​IF PA<0 OR PA>65535 THEN ?:​? " ERROR ADRESA NEZNAMA ":​GOTO 11
12 TRAP 12:​? " KONECNA ADRESA ";:​INPUT KA:​IF KA<0 OR KA>65535 THEN ?:​? " ERROR ADRESA NEEXISTUJE ":​GOTO 12
13 IF KA<PA THEN ?:​? "ERROR KONECNA ADRESA MENSI ":​GOTO 12
14 TRAP 14:​? "ZADEJ CISLO PRVNIHO RADKU(VETSI NEZ 40";:​INPUT BL:​IF BL<40 THEN ? "ERROR CISLO MENSI NEZ 40":​GOTO 14
15 TRAP 15:​?:​? " ZADEJ KROK MEZI RADKY";:​INPUT KR
16 IF KR<1 OR KR>5000 THEN ?:​? " ERROR SPATNE URCENY KROK":​GOTO 15
17 GRAPHICS 0:​SETCOLOR 2,​0,​0:​? "***** POCKEJ NEZ UKONCIM PREVOD *****":​POSITION 2,​4
18 ? BL;" DATA ";
19 IF PA>KA THEN ? CS:​? " GOTO 26":​GOTO 24
20 A=PEEK(PA):​? A;",​";:​PA=PA+1:​CS=CS+A:​S=S+1:​IF S/10=INT(S/10) THEN 22
21 GOTO 19
22 ? CS:​CS=0:​BL=BL+KR:​Q=Q+1:​IF Q<>10 THEN 18
23 Q=Q:​? " GOTO 25"
24 POSITION 0,​0:​POKE 842,​13:​STOP
25 POKE 842,​12:​? CHR$(125):​GOTO 17
26 POKE 842,​12:​? CHR$(125):​GRAPHICS 0:​SETCOLOR 2,​0,​0:​? " ********** PREVOD UKONCEN **********"
27 ?:​? "* PREJES SI AT SE PROGRAM SMAZE?(A/N)*":​INPUT A$:​IF A$<>"A" THEN END
28 GRAPHICS 0:​SETCOLOR 2,​0,​0:​POSITION 2,​4:​FOR Z=0 TO 29:​? Z:​IF Z=15 THEN ? "GR.0:​SE.2,​0,​0:​POS.2,​4:​G.29":​GOTO 24
29 NEXT Z:​? " POKE 842,​12:​?CHR$(125)":​GOTO 24	

• Download link 1
• Download link 2