sem se spomnila, da ima tole po-

nima namreč možnosti vrivanja zna-
kov na želeno mesto. To pa je že
tvoja naloga. Pošlji svojo rešitev
problema, objavljena bo v eni izmed
prihodnjih rubrik.

ku, kajti v tem primeru je popravljanje

zaključeno. Pri tipkanju tega teksta

SILVA PREDALIČ

A$0)
GOTO 70

BORDER 3: INK 3: PRINT AT 10,3; »PROGRAM ZA KREIRANJE DOMAČE
»BAZE PODATKOV«

FORI< 1 TO3:BEEP 0.5,1 - 2": BEEP0.3,3 -3"I:BEEP 07,2 2": NEXTI:.

teč INPUT »VPIŠI ŽELJENO DOLŽINO POSAMEZNEGA ZAPISA DATO-

KE« ;A :

LET D —INT (800"32/A) — 4

zdi š 1 THEN PRINT FLASH 1; AT 10,9; »PREDOLG ZAPIS«; PAUSE 100:
30

pora PRINT AT 8,1; »V PODATKOVNO BAZO LAHKO SHRANIŠ ";D;" ZAPI-

SOV«

DIM A$ (D--1,A) : DIM P$ (2,A) : LET P$ (1) < """: LET P$ (2) — "K«

LET A$ (1) < P$(1: LETE <0

PAUSE 200: CLS: DER 5: INK 1

PRINT"" MENU" "1 —' VNOS. NOVIH PODATKOV"'" 2 — PREGLED.

SHRANJENIH PODATKOV"'" 3 < POPRAVEK POSAMEZNEGA PODAT-

KA"'" 4 — IZPIS POSAMEZNEGA PODATKA"'" 5 — SHRANITEV PODAT-

KOV NA KASETO"'" 6 < VNAŠANJE PODATKOV S KASETE"'" K < IZ-

STOP IZ PROGRAMA«

FOR |'-E 1 TO 3: BEEP 0.5, I: NEXTI

IF INKEY$ — "" THEN GOTO 100

IF INKEY$ < "1" THEN GOTO 200

IF INKEY$ < "2" THEN GOTO 300

IF INKEY$ < "3" THEN GOTO 645

IF INKEY$ — "4" THEN GOTO 500

IF INKEY$ x "5" THEN GOTO 800

IF INKEY$ <— "6" THEN GOTO 900

IF INKEY$ < "K" THEN STOP

GOTO 110 $

tETI5et:o.

IF A$ (l) < > P$ (1) AND I<D THENLET | < | 4-1: GOTO 185

a a OP MR l0—>FSTI TNENIM K ekoi ;
ETURN

CLS: BORDER 2: INK 2: PRINT »VNAŠANJE PODATKOV (K — KONEC VNA-

ŠANJA)« ": GOSUB 180 ;

IF K< D AND A$ (K 1-1) — P$ (1) THEN PRINT »PODATKOVNA BAZA JE

POLNA«: GOTO 70 š : S RESNE K

PRINT K;"."; : INPUT A$ (K) < > P$ (2) THEN PRINT A$ (K): IF K< D THEN

LETK < K-1: GOTO 220 ;

IF A$ (K) < P$ (2) THEN LET A$ (K) — P$41)

IF K— D AND A$ (K) < > P$ (1) THEN PRINT »PODATKOVNA BAZA JE

POLNA«: LET A$ (Dt 1) < P$(1):LETK <K 1: FORI <3 TO1 STEP —1:

BEEP 0.5, I::NEXTI

GOSUB 240: GOTO 70

PAUŠE 100: CLS: PRINT FLASH 1; AT 10,11; »SORTIRANJE«': FOR] < 1

TO 3: BEEP 0.1,3: NEXT!

FORI<1TOK—2:FORJ <141TOK—1: J

IF A$ (J) < A$ (l) THEN LET T$ < A$ (l): LET A$ (l) — A$ (J): LETA$ (J) < T$

NEXT J: NEXTI Ni

PRINT »KONČANO« j ee
RETURN :

CLS: BORDER 4: INK 2: PRINT' »PREGLED SHRANJENIH PODATKOV«":
FOR | < 1 TO 3: BEEP 0.2,5: NEXT 1

GOSUB 180

FORI< 1 TO K—1:PRINT [;"."; A$ (l): NEXTI

PRINT" »K — KONEC PREGLEDA«

IF INKEY$ < > "K" THEN GOTO 340

GOTO 70 f

CLS: PRINT' »VPIŠI ENEGA ALI VEČ ZAČETNIH ZNAKOV ŽELJENEGA PO-
DATKA«: INPUT B$ s J
GOSUB 180

LETB —< LENB$:LETJ —-0

FORI< 1 TOK—1 ;

IF A$ (|, 1 TO B) < B$ THEN PRINT A$ (l): LETJ < JA1

NEXT I Ši.

IF J — O THEN PRINT' »TAKEGA PODATKA NI V DATOTEKI«
IF A$ (1) — P$ (1) THEN PRINT' »PODATKOVNA BAZA JE PRAZNA«
RETURN

CLS: PRINT" »IZPIS POSAMEZNIH ELEMENTOV"""« »1 — IZPIS« »K — KO-
NEC IZPISOVANJA«

IF INKEY$ — "" THEN GOTO 510

IF INKEY$ — "1" THEN GOSUB 400: PAUSE 200: GOTO 500

IF INKEY$ — "K" THEN GOTO 70.
GOTO 510 :.

(CLS: INPUT »VPIŠI IME POD KATERIM NAJ SHRANIM DATOTEKO« ;C$
CLS: PRINT FLASH 1; AT 10,5; »SHRANJUJEM DATOTEKO«: SAVE C$ DATA

.

pravljanje majhno pomanjkljivost,

900  CLS: INPUT »VPIŠI IME DATOTEKE, KI JO NAJ VNESEM« ;C$
910  CLS: PRINT FLASH 1; AT 10,5; »VNAŠAM DATOTEKO« ;C$ bš;
920 LOAD C$ DATA A$ ()

930 GOTO70

1020
1030
1040
1050
1100

1110
1115

1117
1120
1130

1140

1150
1160
1170
- 1180
1190
1200

1300
1305
1310

1320:
1330
1340
1350
1360
1400

1410
1420

1430
1450
1460
1500
1510

1520
1530

1540

REM »POPRAVLJANJE«
CLS: IF A$ (1).< P$ (1) THEN PRINT'»PODATKOVNA BAZA JE PRAZNA«:
GOTO 70

KA, KI GA ŽELIŠ POPRAVLJATI ALI BRISATI«' »K — KONEC POPRAVLJA-
NJA«

IF INKEY$ < "" THEN GOTO 1020

IF INKEY$ < "k" THEN GOTO 70

IF INKEY$ <— "1" THEN GOTO 1100

GOTO 1020

PAUSE,100: CLS: PRINT »VPIŠI ENEGA ALI VEČ ZAČETNIH ZNAKOV ŽE-
LJENEGA PODATKA, TAKO DA BO ENOUMNO DOLOČEN«" '
INPUT B$

IF UEN B$ < 0 THEN PRINT »TAKEGA PODATKA NIMAM V DATOTEKI«:
PAUSE 200: GOTO 1010

GOSUB 180: LET | - 1

IF A$(l, 1 TO LEN B$) < >B$ANDI<K—1 THENLETI <1 4-1: GOTO 1120
IF i < K—1 ANDA$ (|, 1 TO LEN B$) < > B$ THEN PRINT »TAKEGA PO-
DATKA NIMAM V DATOTEKI«: PAUSE 200: GOTO 1010

LET IND < I: PRINT A$ (IND)' »1 — BRISANJE TEGA PODATKA«' »2-— PO-
PRAVLJANJE TEGA PODATKA«' »K <— IZSTOP-NA VIŠJI NIVO«"

IF INKEY$ — "" THEN GOTO 1150
IF INKEY$ — "1" THEN GOTO 1200
IF INKEY$ < "2" THEN GOTO 1300
IF INKEY$ — "k" THEN GOTO 1010
GOTO 1150

CLS: PRINT A$ (IND): PRINT FLASH 1; BRISANJE«':FOR J — INDTOK —1:
LET A$ (J) — A$ (J- 1): NEXT J: PRINT »PODATEK JE ZBRISAN«: PAUSE
200: GOTO 1010."

LET IX < 1:LETIY <0: CLS
PRINT AT 0,0; - $ (IND)"
PRINT AT -4,0; »P < PRESKAKOVANJE ZNAKOV 'DANEGA PODATKA«'
»V — VPIS NOVIH ZNAKOV«' »| < KONEC POPRAVLJANJA«"'

IF INKEY$ < "" THEN.GOTO 1320 '

IF INKEY$ < "P" THEN GOTO 1400

IF INKEY$ < "V" THEN GOTO 1500

IF INKEY$ < "I" THEN GOTO 1010

GOTO 1320 J j
IF IX > A THEN PRINT »KONEC PODATKA! POPRAVEK JE. OPRAVLJEN«:
PAUSE 200: GOTO 1000

INPUT »KOLIKO«; C: LET IY < IY -C: IF IY >A THENLETIY —A

A

GOSUB 450: PRINT FLASH 1; AT 10 IZ,IW;"C"

GOTO 1310

LET IZ — INT (IX/32): LET IW < IX —IZ'32

RETURN

PAUSE 200: GOTO 1000

LETC1< MN—IX
LET A$ (IND, IX TO IY) < X$ (1 TO C1)

GOSUB 1450: PRINT FLASH 1; AT 10-4- IZ,1Ww;"C"
GOTO 1310

ALI VESTE, DA...

— bo podjetje CONTAL uvedlo konsignacijsko prodajo 'osebnih in
žepnih računalnikov SHARP

— radio Študent pripravlja izdajo prve jugoslovanske kasete Softwa-
rea ; sleči

— bosta kmalu v prodaji 2. posebna računalniška številka Galaksije in
1. posebna računalniška izdaja Teleksa

— dav Italiji izhaja mesečno več kot 10 specializiranih računalniških
revij

— da bo Iskra predvidoma »že« jeseni poslala na tržišče osebni raču-
nalnik HR 84 (podobnih zmogljivosti kot ZX-81, s profesionalno ta-

| staturo in televizorjem), ki pa bo za razrliko od ZX, ki npr. v ZDA
stane pičlih 350 starih jurjev, veljal kar 10 (deset) starih milijonov.
Iskra seveda nasprotuje uvozu tujih mikroračunalnikov, prizadeva '
pa si za dogovor, po katerem naj bi šole v "Sloveniji opremljali
predvsem z HR-84. ;

— bo slovenska skupščina predvidoma julija letos na pobudo mladin-
ske organizacije razpravljala o ODPRAVLJANJU RAČUNALNI:
ŠKE NEPISMENOSTI.

— v Ljubljani (na Kersnikovi 4) že nekaj časa uspešno deluje Mikrora-

čunalniški klub, ki je iniciator in nosilec večine akcij pri prebujanju

zavesti o potrebnosti širjenja računalniških znanj med. mladimi.

CLS: PRINT AT 2,1; »POPRAVLJANJE IN BRISANJE«" »1 < IZPIS PODAT-

GOSUB 1450: PRINT AT 10 t IZ,IW;A$ (IND, IX TO IY)-LET IX < IX-C:

IF IX > A THEN PRINT »KONEC PODATKA, POPRAVEK JE OPRAVLJEN«:
INPUT X$: LETC1 — LEN X$: LETIY < IY £C1:IF IM >ATHENLETIY <A:

GOSUB 1450: PRINT.AT 10 - IZ,IW; A$ (IND, IX TO [Y): LET IX < IX £C1:

mladina, stran 17

DRUŽBA — MIKROELEKTRONIKA — RAČUNALNIŠTVO — INFORM

lahko ponavljaš toliko časa, dokler
ne prideš do mesta, ki bi ga rad po-
pravil. Z ukazom »V« vneseš popra-
vek. To popravljanje se sproti prika-
zuje na ekranu. Pri tem moraš paziti,
da ne greš čez osnovno dolžino po-
datka, ki je bila definirana na začet-

sud: