1. Hey Guest! We just wanted to let you know our new website is http://stonelegion.com and our new YouTube channel is http://youtube.com/stonelegionvideos Godcraft had lasted well over 3 years and became one of top servers in the world. We had decided overtime to start fresh with a new Site & Name but also change our ways. In the past Godcraft cost a small fee to play where Stone Legion is %100 free! So please check out http://stonelegion.com and hope to see you soon!
    Dismiss Notice

Sample BASIC "Firewalk" program

Sample BASIC "Firewalk" program
This is the program that is used to light the RP igniters in the Lapotron Sphere. It is used as a sample here. More info on BASIC on RP computers.

10 A=IOGET(3)
20 DELAY 20
30 IF A=2 THEN GOTO 10
40 IOSET 3,2
50 DELAY 20
60 IOSET 3,0
70 B=INT(RND(1)*4-1)+1
80 IF B=0 THEN C=1
90 IF B=1 THEN C=2
100 IF B=2 THEN C=4
110 IF B=3 THEN C=8
120 IOSET 4,C
130 DELAY 80
140 D=D+1
150 IF D<75 THEN GOTO 70
160 IOSET 4,0
170 IOSET 3,2
180 DELAY 20
190 IOSET 3,0
200 DELAY 20
210 D=0
220 E=E+1
230 PRINT
240 PRINT "Cycle count:" E
250 GOTO 10
Jul 24, 2012