6 GOSUB 2000
7 HI = 191
8 LOW = 185
9 Y = 0
10 FOR X = 1 TO 42
20 PRINT CHR$(HI);
25 GOSUB 1000
27 PRINT CHR$(150+RE);
30 NEXT X
35 PRINT CHR$(HI)
40 Y = Y + 1
80 GOTO 10
1000 REM MOD
1005 Z = X + Y
1010 RE = Z - (INT(Z/10)*10)
1040 RETURN
2000 REM LIST CHARS
2005 FOR CH = X TO 20+X
2008 PRINT CH;
2010 PRINT CHR$(CH)
2020 NEXT CH
2025 PRINT CHR$(CH)
2030 RETURN