Microsoft Small Basic

Program Listing: RSK589

List Program

Alpha="A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
Nums="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26"

a=1
b=2
c=3
d=4
e=5
f=6
g=7
h=8
i=9
j=10
k=11
l=12
m=13
n=14
o=15
p=16
q=17
r=18
s=19
t=20
u=21
v=22
w=23
x=34
y=25
z=26

Knowledge=k+n+o+w+l+e+d+g+e
HardWork=h+a+r+d+w+o+r+k
Attitude=a+t+t+i+t+u+d+e

GraphicsWindow.DrawText(0,0,"IF")
GraphicsWindow.DrawText(0,20,Alpha)
GraphicsWindow.DrawText(0,40,"EQUALS")
GraphicsWindow.DrawText(0,60,Nums)
GraphicsWindow.DrawText(0,80,"THEN")
GraphicsWindow.DrawText(0,100,"k+n+o+w+l+e+d+g+e")
GraphicsWindow.DrawText(0,120,"11+14+15+23+12+5+4+7+5="+Knowledge+"%")
GraphicsWindow.DrawText(0,140,"h+a+r+d+w+o+r+k")
GraphicsWindow.DrawText(0,160,"11+14+15+23+12+5+4+7+5="+HardWork+"%")

GraphicsWindow.DrawText(0,180,"Both are important, but fall short of 100%")
GraphicsWindow.DrawText(0,200,"BUT!")

GraphicsWindow.DrawText(0,220,"a+t+t+i+t+u+d+e")
GraphicsWindow.DrawText(0,240,"1+20+20+9+20+21+4+5="+Attitude+"%")