Archived
1
0
This repository has been archived on 2025-03-31. You can view files and clone it, but cannot push or open issues or pull requests.
powerbasic/movetest.bas
2013-07-15 23:19:32 +02:00

45 lines
1.0 KiB
QBasic
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

x=.028
dim z(256)
tim=50
cls
color 15
locate 5,1:print"Programming ASCII-Codes ... ";
let z(1)=32
let z(2)=250
let z(3)=249
let z(4)=7
let z(5)=254
print "codes programmed"
print "Counting values ... ";
a=1
1 if z(a)=0 and z(a+1)=0 then maxz=a-1:goto 2 else a=a+1:goto 1
2 print "counted:";maxz;"values found"
print "Playing sequence";tim;"times ... ";
cx=csrlin
cy=pos(0)
atim=1
Anfang:
for y=1 to maxz
locate 1,1
print chr$(z(y))
delay x
next y
t1=atim/10
t2=t1-int(t1)
t3=t2*10
t3=round(t3,0)
tim$=str$(atim)+"th"
if t3=3 and int(atim/10)<>1 then tim$=str$(atim)+"rd"
if t3=2 and int(atim/10)<>1 then tim$=str$(atim)+"nd"
if t3=1 and int(atim/10)<>1 then tim$=str$(atim)+"st"
if atim>1 then s$="s" else s$=""
locate cx,cy:print"seq. now played";tim$;" time";s$;" "
tim$=""
if atim=tim then goto Ende else atim=atim+1:goto Anfang
Ende:
locate cx,cy
print"sequence played";tim;"times "
print"Shutting Down ... ";
print"program completely shutted down. Bye!"