CLS

DIM a$(300)
SCREEN 12

10 CLS : LOCATE 1, 1: PRINT "Press a key (1-8) to see the i-th page..."
20 GOSUB 50
IF INSTR("12345678", k$) = 0 THEN 20

CLS
OPEN k$ + ".txt" FOR INPUT AS #1

c = 0
WHILE NOT EOF(1)
c = c + 1
LINE INPUT #1, a$(c)
WEND
CLOSE #1

c = 0: y = 350: x = 180
FOR t = 1 TO 269
FOR k = 1 TO LEN(a$(t))
c = c + 1
IF c = 128 THEN c = 1: y = y - 2
vl = 15 - 15 * VAL(MID$(a$(t), k, 1))
'PSET (x + 2 * c, y), vl
LINE (x + 2 * c, y)-(x + 2 * c + 1, y + 1), vl, BF
IF vl = 15 THEN freq = 240.94 ELSE freq = 481.88

' ***** €¤ Ÿœª ¤˜ ˜¡¦ç©œ ª ¡˜  §àª ¢ã­Ÿž¡œ «¦ £ç¤ž£˜ ™šá¢œ «¦ REM ****
REM SOUND freq, 1.214
'**********************************************************************

NEXT k, t
LOCATE 1, 1: PRINT "Press a key to continue or 'E' to end the program..."
GOSUB 50
IF UCASE$(k$) = "E" THEN END
CLS
GOTO 10

50 k$ = INKEY$: IF k$ = "" THEN 50
RETURN