ibars.exe | ibar.exe
like
ibar.bas
Code: Select all
dim s as string
dim ss as string
dim i as integer
dim d as integer
dim c as integer=0
color 15,1
cls
open cons for input as #1
do
line input #1,s
if asc(s)>=asc("0") and asc(s)<=asc("9") then
d=0
d=val(s)
locate 1,1
print d;"% ";
sleep 200
else
locate 2,1
print s;". ";
sleep 200
end if
if eof(1) then exit do
loop
close #1
ibar.bat
Code: Select all
@echo off
echo 0
echo geting ready
echo 10
echo p 10
echo 20
echo p 30
echo 30
echo p 30
echo 40
echo p 40
echo 50
echo p 50
echo 60
echo p 60
echo 70
echo p 70
echo 80
echo p 80
echo 90
echo p 90
echo 100
echo p 100
@echo on