Dodatek 1 167

UREJEVALNIK ZA VNOS STROJNEGA KODA

' 10 DEF FN A(D$)<16%(CODE D$(1)—48-74 (CODE D$(1)>57))

4 (CODE D$(2)—-48-7% (CODE D$(2)2>57)) š

20 DEF FN A$(A) <CHR$ (INT (A/16)1481£74 (INT (A/16)2>9))
1CHR$ (A-1I6"INT (A/16) £48147%((A-164INT (A/16))>97))

100 INPUT "START ? ";NASLOV: RANDOMI ZE NASLOV:
CLEAR (NASLOV-1): LET NASLOVzPEEK 2367012564PEEK 23671:
POKE 23658,8

120 PRINT "NASLOV"; TAB 12; "VSEBINA" 'TAB 10;"STARA NOVA":
LET SPOMIN<NASLOV

130 FOR J<O TO 15: PRINT NASLOV; TAB 12;FN A$(PEEK NASLOV) 5:
INPUT C$

140 IF C$<"" THEN PRINT TAB 18;3FN A$(PEEK NASLOV) :
LET NASLOV<NASLOV11: NEXT Jz: GO TO 180

150 IF C$e"C9" THEN POKE NASLOV,FN A(C$):
PRINT TAB 18;C$: GO TO 180

170 FOR I<i TO LEN C$ STEP 2: LET D$zC$(I TO I11):

' POKE NASLOV,FN A(D$): PRINT TAB 18;FN A$(PEEK NASLOV) z

LET NASLOVENASLOV11:LET JseJti: NEXT I: NEXT J

180 INPUT "SPREMEMBE ? ";C$: IF C$<>"N" THEN LET NASLOVzSPOMIN:s
CLS : GO TO 120

190 INPUT "NAPREJ ? ";C$: IF C$<>"N" THEN LET NASLOVzNASLOV-1:
CLS s GO TO 120

200 CLS : INPUT "START ZA USR ? "; LINE S$:
IF S$<" STOP " THEN GO TO 9999

210 PRINT USR VAL S$