1 BORDER 0: PAPER 0: INK 7: CLS
2 PRINT "LOADING..."
5 LOAD "" SCREEN$
10 LET ADR=55000
20 FOR A=100 TO 250
30 POKE 50008, A: POKE 50038, A
40 POKE 50065, A: POKE 50070, A
50 RANDOMIZE USR 50000
60 LET C=PEEK 65000
70 LET D=PEEK 65001
75 POKE ADR, C: POKE ADR+1, D
76 POKE ADR+2, A: LET ADR=ADR+3
80 NEXT A
100 LET ADR=55000
102 LET MIN=65536
105 FOR S=0 TO 447 STEP 3
110 LET R=(PEEK(ADR+S))+256* PEEK (ADR+S+1)
120 IF R<MIN THEN LET MIN=R: LET H=PEEK (ADR+S+2)
130 NEXT S
200 POKE 32739, 250
220 POKE 32751, 250
230 RANDOMIZE USR 32730
240 POKE 50008, H: POKE 50038, H
250 POKE 50065, H: POKE 50070, H
260 RANDOMIZE USR 50000
270 POKE 32739, H
280 POKE 32751, H
290 CLS: LET L=MIN-32730
300 RANDOMIZE USR 32730
400 PRINT #1; "LENGHT: "; L
410 PAUSE 200: CLS
420 PRINT "SAVE 32730, ";4
430 INPUT "NAME???"; N$
450 SAVE N$ CODE 32730, L
460 PAUSE 50: RUN
500 REM SAVE PR.
510 SAVE "P.S.V." LINE 600
520 SAVE "ARH1" CODE 50000, 100
530 SAVE "ARH2" CODE 32730, 38
540 STOP
600 LOAD " " CODE
610 LOAD " " CODE
620 RUN