caranmegil/retrocoding
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update to include cylon eyes when it starts

Browse Source
This commit is contained in:
William Moore 2023-08-06 09:30:11 -05:00
parent 0bddf60f87
commit 72dd826360
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/1802mc/SCC.bas
View File

@ -13,6 +13,7 @@
13 REM 13 REM
14 REM You should have received a copy of the GNU General Public License 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/>. 15 REM along with this program. If not, see <http://www.gnu.org/licenses/>.
40 GOSUB 9000
50 DIM D(6) 50 DIM D(6)
60 H=0:C=0:K=0:I=0:G=0:E=0:J=0:B=0 60 H=0:C=0:K=0:I=0:G=0:E=0:J=0:B=0
61 FOR P=1 TO 5 61 FOR P=1 TO 5
@ -93,3 +94,23 @@
8020 IF B>9 Z=#10 + (B-10) 8020 IF B>9 Z=#10 + (B-10)
8030 OUT(0,4,Z) 8030 OUT(0,4,Z)
8040 RETURN 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