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
Entry name:
Prevod pameti do tabulky dat
|
Publisher/Developer:
Flop 7 (Disk magazine) |
|
|
-
Entry name:Prevod pameti do tabulky dat
-
Category:Programming utilities
-
Publisher/Developer:Flop 7
-
Year:1986
Listing 1 (Flop 7 - )
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
References
Listing downloads
Copyright holder