turbobasic/1998/VO-PSANI.BAS

   1 T$="A"
   2 O$="H"
   3 M$="O"
   4 A$="J"
   5 S$="!"
   6 FOR I=1 TO 3000
   7 CLS
   8 COLOR 14,1
   9 SCREEN 0
  10 LOCATE 2,23
  11 PRINT T$
  12 LOCATE 3,23
  13 PRINT O$
  14 LOCATE 4,23
  15 PRINT M$
  16 LOCATE 5,23
  17 PRINT A$
  18 LOCATE 6,23
  19 PRINT S$
  20
  21 FOR D=1 TO 300
  22 NEXT D
  23 NEXT I
  24 END
  25
  26
  27
  28
  29
  30
  31 \1a