-
Notifications
You must be signed in to change notification settings - Fork 1
/
FullSpin.bas
58 lines (50 loc) · 1.44 KB
/
FullSpin.bas
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
0 ?"Full Spin by Fifty1Ford for the BE6502+VGA+Serial Ctrl-C exit"
1 S=0:DIM D(20)
2 DATA 175,1,175,43,175,85,198,1,198,43,198,85
3 FOR X=0 TO 11:READ D(X):NEXT X
4 COLOR 63:X=30:Y=2:Z=1:P=20:U=10:OX=0:R=0:S=0
6 POKE$E6,D(S):INCS:POKE$E5,D(S):INCS
7 GFX X,Y:INC R:IF R=100 THEN 14
8 IF S>11 THEN S=0
9 GOTO6
14 Z=1:OX=0:R=0:S=0
15 POKE$E6,D(S):INCS:POKE$E5,D(S):INCS
16 GFX X,Y:X=X+Z
17 IFX<2ORX>82THENZ=-Z:INCR:IFR=4THEN24
18 IF S>11 THEN S=0
19 GOTO15
24 Z=1:OX=0:P=20:R=0
25 POKE$E6,D(S):INCS:POKE$E5,D(S):INCS
26 GFX X,Y:GFX X+42,P:X=X+Z
27 IFX<2ORX>82THENZ=-Z:INCR:IFR=4THEN34
28 IF S>11 THEN S=0
29 GOTO25
34 U=10:R=0
35 POKE$E6,D(S):INCS:POKE$E5,D(S):INCS
36 GFX X,Y:GFX X+42,P:GFX X+85,U:X=X+Z
37 IFX<2ORX>40THENZ=-Z:INCR:IFR=5THEN40
38 IF S>11 THEN S=0
39 GOTO35
40 X=1:Y=1:DX=1:DY=1:R=0:S=0:COLOR 63
44 POKE $E6,D(S):INCS:POKE$E5,D(S):INCS
45 GFX X,Y:X=X+DX:Y=Y+DY
46 IF X<=1ORX>=59THEN DX=-DX:INCR:IFR=8THEN50
47 IF Y <= 0 OR Y>=22 THEN DY=-DY
48 IF S>11 THEN S=0
49 GOTO44
50 S=0:COLOR 63:DX=1:DY=1:R=0
54 POKE$E6,D(S):INCS:POKE$E5,D(S):INCS
55 GFX X,Y:GFX X+42,22-Y:X=X+DX:Y=Y+DY
56 IF X<=1ORX>=58THEN DX=-DX:INCR:IFR=8THEN60
57 IF Y <= 1 OR Y>=21 THEN DY=-DY
58 IF S>11 THEN S=0
59 GOTO54
60 COLOR 63:S=0:DX=1:DY=1:R=0
63 X=30:Y=2:Z=1:P=20:U=10:OX=0
64 POKE$E6,D(S):INCS:POKE$E5,D(S):INCS
65 GFX X,Y:GFX X+42,22-Y:GFX X+84,22-Y:X=X+DX:Y=Y+DY
66 IF X<=2ORX>=40THEN DX=-DX:INCR:IFR=8THEN4
67 IF Y<=2ORY>=20 THEN DY=-DY
68 IF S>11 THEN S=0
69 GOTO64
RUN