Update to include cylon eyes when it starts
This commit is contained in:
parent
0bddf60f87
commit
72dd826360
@ -13,6 +13,7 @@
|
||||
13 REM
|
||||
14 REM You should have received a copy of the GNU General Public License
|
||||
15 REM along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
40 GOSUB 9000
|
||||
50 DIM D(6)
|
||||
60 H=0:C=0:K=0:I=0:G=0:E=0:J=0:B=0
|
||||
61 FOR P=1 TO 5
|
||||
@ -93,3 +94,23 @@
|
||||
8020 IF B>9 Z=#10 + (B-10)
|
||||
8030 OUT(0,4,Z)
|
||||
8040 RETURN
|
||||
9000 N=129
|
||||
9010 OUT (0,4,N)
|
||||
9020 WAIT(8)
|
||||
9030 N=66
|
||||
9040 OUT (0,4,N)
|
||||
9050 WAIT(8)
|
||||
9060 N=36
|
||||
9070 OUT (0,4,N)
|
||||
9080 WAIT(8)
|
||||
9090 N=24
|
||||
9100 OUT (0,4,N)
|
||||
9110 WAIT(8)
|
||||
9120 N=36
|
||||
9130 OUT (0,4,N)
|
||||
9140 WAIT(8)
|
||||
9150 N=66
|
||||
9160 OUT (0,4,N)
|
||||
9170 WAIT(8)
|
||||
9180 OUT (0,4,0)
|
||||
9190 RETURN
|
Loading…
Reference in New Issue
Block a user