10 INTEGER : EXTEND 20 ; CHR$(12) 30 ; CUR(0,0) "Converting program --- from PAH format to BASIC POKE instructions "+STRING$(80,61) 40 Defin$="MEM:" 50 ; CUR(7,20) "Input PAH file:"; : IF Defin$<>"" ; CUR(7,0) "<" Defin$ ">" 60 ; CUR(9,20) "Output BASIC file:" 70 ; CUR(7,40); : INPUT ""Infile$ 80 IF Infile$="" THEN Infile$=Defin$ : ; CUR(7,40) Infile$ 90 ; CUR(9,40); : INPUT ""Outfile$ 100 OPEN Infile$ AS FILE 1 110 PREPARE Outfile$ AS FILE 2 120 Rnr=1 130 ON ERROR GOTO 230 140 INPUT LINE #1,Pahstr$ : Pahstr$=LEFT$(Pahstr$,LEN(Pahstr$)-2) 150 ; #2 NUM$(Rnr)+" POKE "+NUM$(FNNohex(LEFT$(Pahstr$,4)))+"%"; 160 Pahstr$=RIGHT$(Pahstr$,6) ! Hoppa |ver kolon 170 FOR I=1 TO LEN(Pahstr$)/2 180 ; #2 ","+NUM$(FNNohex(MID$(Pahstr$,I*2-1,2)))+"%"; 190 NEXT I 200 ; #2 210 Rnr=Rnr+1 220 GOTO 140 230 CLOSE 240 ! PAH-format: 250 ! Adress:bytebytebyte... 260 ! T ex: 270 ! FF80:210000 280 ! FF83:010000 290 ! FF86:CD0200 300 ! FF89:BE 310 ! FF8A:C9 320 DEF FNNohex(Str$) LOCAL Hx$=16,Tal,Loop 330 Hx$="0123456789ABCDEF" 340 Loop=1 350 Tal=0 360 WHILE Loop<=LEN(Str$) 370 Tal=Tal*16 380 Tal=Tal+INSTR(1,Hx$,MID$(Str$,Loop,1))-1 390 Loop=Loop+1 400 WEND 410 RETURN Tal 420 FNEND