basic/app.txt

   1 6 GOSUB 2000
   2 7 HI = 191
   3 8 LOW = 185
   4 9 Y = 0
   5 10 FOR X = 1 TO 42
   6 20 PRINT CHR$(HI);
   7 25 GOSUB 1000
   8 27 PRINT CHR$(150+RE);
   9 30 NEXT X
  10 35 PRINT CHR$(HI)
  11 40 Y = Y + 1
  12 80 GOTO 10
  13 1000 REM MOD
  14 1005 Z = X + Y
  15 1010 RE = Z - (INT(Z/10)*10)
  16 1040 RETURN
  17 2000 REM LIST CHARS
  18 2005 FOR CH = X TO 20+X
  19 2008 PRINT CH;
  20 2010 PRINT CHR$(CH)
  21 2020 NEXT CH
  22 2025 PRINT CHR$(CH)
  23 2030 RETURN
  24