ON ERROR GOTO 666
CLS
barre$ = "ฐ"
defil$ = ""
col1 = 15
col2 = 1
one$ = STRING$(1, 0)
blank$ = STRING$(30, " ")

'DEBUT PROG
'----------

COLOR col1, col2
CLS
PRINT "ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป"
PRINT "บ                                                                              บ"
PRINT "ฬออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน"
PRINT "บ                                                                             บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                              บ"
PRINT "บ                                                                             บ"
PRINT "ฬออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออน"
PRINT "บ                                                                              บ"
PRINT "ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ"
FOR i = 5 TO 19
LOCATE i, 79
PRINT barre$
NEXT i
5 x = 10: y = 27
LOCATE x, y
PRINT "ษออออออออออออออออออออออป"
LOCATE x + 1, y
PRINT "บ OUVERTURE DE FICHIER บ"
LOCATE x + 2, y
PRINT "ฬออออออออออออออออออออออน"
LOCATE x + 3, y
PRINT "บ                    บ"
LOCATE x + 4, y
PRINT "ศออออออออออออออออออออออผ"
1 LOCATE x + 3, 33
INPUT "", file$
IF file$ = "" OR LEN(file$) > 12 THEN GOTO 1
OPEN file$ FOR BINARY AS #1
x = 9: y = 27
FOR i = 1 TO 5
LOCATE x + i, y
PRINT "                        "
NEXT i
IF LOF(1) <> 0 THEN ro = CLNG(LOF(1) / 14) ELSE ro = 1
LOCATE 2, 3
PRINT "            "
LOCATE 2, 3
PRINT UCASE$(file$)
LOCATE 22, 2
PRINT blank$
LOCATE 22, 2
PRINT LOF(1); "octets"

'RETOUR DE PROG
'--------------

2 ligne = 4
FOR i = o + 1 TO o + 272
c = c + 1
IF c = 17 THEN ligne = ligne + 1: c = 1
IF i > LOF(1) OR i < 0 THEN one$ = " ": fin = 1 ELSE GET #1, i, one$: fin = 0
LOCATE ligne, 10 + c + (c * 2)
IF fin <> 1 THEN IF LEN(HEX$(ASC(one$))) <> 2 THEN PRINT "0" + HEX$(ASC(one$)) ELSE PRINT HEX$(ASC(one$)) ELSE PRINT "  "
LOCATE ligne, 61 + c
IF ASC(one$) > 27 AND ASC(one$) < 255 THEN PRINT one$ ELSE PRINT "."
FOR no = 1 TO 17
LOCATE no + 3, 3
nomo$ = STRING$((8 - LEN(HEX$(o + (no * 16) - 16))), "0")
PRINT nomo$ + HEX$(o + (no * 16) - 16)
NEXT no
pl = CLNG(o / ro)
IF pl2 <> pl THEN LOCATE pl2 + 5, 79: PRINT barre$ ELSE LOCATE pl + 5, 79: PRINT defil$
pl2 = pl
NEXT i

9 c = 0
k$ = INPUT$(1)
IF UCASE$(k$) = "Q" OR ASC(k$) = 27 THEN CLOSE : END
IF k$ = "+" AND o + 16 < LOF(1) THEN o = o + 16: GOTO 2
IF k$ = "-" AND o - 16 >= 0 THEN o = o - 16: GOTO 2
IF k$ = "7" THEN o = 0: GOTO 2
IF k$ = "1" AND LOF(1) > 256 THEN o = LOF(1) - 256: GOTO 2
IF k$ = "3" AND o + 256 < LOF(1) THEN o = o + 256: GOTO 2
IF k$ = "9" AND o - 256 >= 0 THEN o = o - 256: GOTO 2
IF UCASE$(k$) = "O" THEN CLOSE : GOTO 5
GOTO 9

666 x = 11: y = 35
    LOCATE x, y
    PRINT "ษอออออออป"
    LOCATE x + 1, y
    PRINT "บ ERROR บ"
    LOCATE x + 2, y
    PRINT "ศอออออออผ"
CLOSE
END