10 BORDER NOT PI: PAPER NOT PI: INK VAL "7" : CLS : LET a$="                              "
20 CAT *:LET n=VAL "6":PRINT #NOT PI;"6-DOL        7-GORA      0-OK    1-Powrot do ostaniego katalogu"
30 PRINT AT n,NOT PI; OVER SGN PI;FLASH SGN PI;a$:BEEP VAL ".1", VAL "40"
40 IF INKEY$="7" AND n>VAL "6" THEN PRINT AT n,NOT PI;FLASH NOT PI;OVER SGN PI;a$:LET n=s-SGN PI: GO TO VAL "30"
45 IF SCREEN$(2,6)>"0" AND INKEY$="1" THEN DRAW *:  RUN
50 IF INKEY$="6" THEN IF n<=VAL "20" THEN LET n=n+SGN PI: GO SUB 1000: PRINT AT n-SGN PI,0; FLASH NOT PI; OVER SGN PI;a$: GO TO VAL "30"
60 IF INKEY$="0" THEN GO TO VAL "5000"
70 GO TO VAL "40" 1000 LET n$="": FOR X=NOT PI TO VAL "8": LET s$=SCREEN$ (n,x): IF s$<>" " THEN LET n$=n$+s$ 1015 NEXT x: LET n$=n$+ "."
1020 FOR x=VAL "9" TO VAL "11": LET s$=SCREEN$(n,x): IF $s<>" " THEN LET n$=n$+s$
1030 NEXT x
1040 IF n$="." THEN LET n$="": LET n=s-SGN PI
1045 PRINT AT n,NOT PI; OVER SGN PI;   FLASH NOT PI;a$
1050 RETURN
5000 GO SUB VAL "1000"
5010 LET r$=n$(LEN n$-VAL "3" TO LEN n$): IF r$=".BAS" THEN LOAD *n$
5020 IF r$=".COD" THEN INPUT "Podaj  RAMTOP  (ENTER-RAMTOP programowy) "; LINE q$: IF q$<>"" THEN LET q=VAL q$-SGN PI: LET l=USR "a":   POKE  l,LEN n$: FOR z=SGN PI TO LEN n$: LET l=l+SGN PI:  POKE l,CODE n$(Z TO Z): NEXT Z: CLEAR q: LET n$ = "": LET n=PEEK USR "a": FOR z=SGN PI TO n: LET n$=n$+CHR$(PEEK(USR "a"+z)): NEXT Z: GO TO VAL  "5030" 5025 LET e$=n$(LEN n$-VAL "3" TO LEN n$): IF e$<>".DIR" AND e$<>".COD" THEN CLS : PRINT "Wczytaj
sobie ten program jak   chcesz, ja nie wiem, co z nim    zrobic!": STOP 5027 IF r$=".DIR" THEN LET d$=n$(SGN PI TO LEN n$-VAL "4"):  GO SUB *d$: RUN
5030 CLS  :  LOAD *n$CODE