Sorry your browser is not supported!

Rem ***** Main Source File *****
// create a string
a as string 
a = "starting mainframe..."

// get the length of the string
length = len(a)

// create an array with the size of the length of the string
// to get the typing effect we must print each character at a time
dim array(length) as string

// fill the array with a character for each space in the array
for n = 1 to length
    array(n) = mid$(a,n)
next n 

// print the array
for n = 1 to length
    text n*10, 0, array(n)
    wait 100 // get the program to pause, alter this for faster/slower effects
next n

// pause the program
wait key
end

set display mode 1366, 768, 32
load image "achtergrond.png",111
paste image 111,0,0

Ink RGB(0,165,0),RGB(150,150,150)
String1$ = "powering up, in 4 seconds"
String2$ = "                                                "
String3$ = "accessing mainframe, please standby"
String4$ = "all systems checked ok"
String5$ = "please enter your password"
set cursor 150,150
print String1$ 
wait 6000
sync
set cursor 150,150
print String2$ 
wait 2000

set cursor 150,150
print String3$
wait 6000
sync
set cursor 150,150
print string2$
wait 2000

set cursor 150,150
print String4$
wait 6000
set cursor 150,150
print String2$
wait 2000

set cursor 150,150
print string5$
wait 6000
set cursor 150,150
print String2$
wait 4000
end

set display mode 1366, 768, 32
` Turn on screen syncing  (without this SYNC is pointless)
sync rate 0
sync on
sync

` Dimensionalize an array to store 20 text lines
dim CText$(19)

load image "achtergrond.png",111
Ink RGB(0,165,0),RGB(150,150,150)

` Define the array
CText$(0) = "powering up, in 6 seconds"
CText$(1) = "accessing mainframe, please standby"
CText$(2) = "all systems checked ok"
CText$(3) = "please enter your password"

` Go through each line of the array with a FOR/NEXT loop
for t=0 to 3
 ` Show the background (erases all text from last loop)
 paste image 111,0,0
 ` Show the text at 150x150
 text 150,150,CText$(t)
 ` Update the screen
 sync  
 ` Pause for 6 seconds
 wait 6000
next t