00000000: 01 1C 19 1C 64 00 DE 31 2C 31 3A E7 30 2C 31 3A |....d..1,1:.0,1:|
00000010: E7 34 2C 31 3A E7 31 2C 32 00 46 1C 6E 00 81 54 |.4,1:.1,2.F.n..T|
00000020: B2 31 A4 39 30 A9 33 3A 8F 20 53 45 54 20 55 50 |.1.90.3:. SET UP|
00000030: 20 4C 4F 4F 50 20 46 4F 52 20 42 4F 58 20 52 4F | LOOP FOR BOX RO|
00000040: 54 41 54 49 4F 4E 00 6E 1C 78 00 E1 31 2C 31 31 |TATION.n.x..1,11|
00000050: 30 2C 35 30 2C 32 31 30 2C 31 35 30 2C 54 3A 8F |0,50,210,150,T:.|
00000060: 20 44 52 41 57 20 26 20 52 4F 54 41 54 45 00 75 | DRAW & ROTATE.u|
00000070: 1C 82 00 82 54 00 7D 1C 8C 00 FE 0B 32 00 95 1C |....T.}.....2...|
00000080: 96 00 DE 31 2C 31 3A 8F 20 43 4C 45 41 52 20 53 |...1,1:. CLEAR S|
00000090: 43 52 45 45 4E 00 C6 1C A0 00 81 54 B2 31 A4 31 |CREEN......T.1.1|
000000A0: 35 30 A9 33 3A 8F 20 53 45 54 20 55 50 20 4C 4F |50.3:. SET UP LO|
000000B0: 4F 50 20 46 4F 52 20 52 4F 54 41 54 49 4F 4E 20 |OP FOR ROTATION |
000000C0: 4F 46 20 42 4F 58 00 F3 1C AA 00 58 B2 58 AA 31 |OF BOX.....X.X.1|
000000D0: 3A 59 B2 59 AA 31 3A 8F 20 49 4E 43 52 45 4D 45 |:Y.Y.1:. INCREME|
000000E0: 4E 54 20 58 20 41 4E 44 20 59 20 50 4F 49 4E 54 |NT X AND Y POINT|
000000F0: 45 52 53 00 17 1D B4 00 E1 31 2C 58 2C 59 2C 58 |ERS......1,X,Y,X|
00000100: 32 AA 31 30 2C 59 32 AA 31 30 2C 54 3A 8F 20 44 |2.10,Y2.10,T:. D|
00000110: 52 41 57 20 42 4F 58 00 51 1D BE 00 58 32 B2 58 |RAW BOX.Q...X2.X|
00000120: 32 AA 58 AB 32 3A 59 32 B2 59 32 AA 58 AB 32 3A |2.X.2:Y2.Y2.X.2:|
00000130: 82 54 3A 8F 20 49 4E 43 52 45 4D 45 4E 54 20 58 |.T:. INCREMENT X|
00000140: 32 20 41 4E 44 20 59 32 20 50 4F 49 4E 54 45 52 |2 AND Y2 POINTER|
00000150: 53 00 6D 1D C8 00 FE 0B 32 3A DE 31 2C 31 3A 8F |S.m.....2:.1,1:.|
00000160: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 97 1D | CLEAR SCREEN...|
00000170: D2 00 59 B2 31 3A 81 58 B2 33 32 30 A4 31 A9 AB |..Y.1:.X.320.1..|
00000180: 31 30 3A 8F 20 4C 4F 4F 50 20 46 4F 52 20 58 20 |10:. LOOP FOR X |
00000190: 50 4F 49 4E 54 45 52 00 B2 1D DC 00 E5 31 2C 58 |POINTER......1,X|
000001A0: 2C 31 A4 31 2C 59 3A 8F 20 44 52 41 57 20 4C 49 |,1.1,Y:. DRAW LI|
000001B0: 4E 45 00 BD 1D E6 00 59 B2 59 AA 31 30 00 C4 1D |NE.....Y.Y.10...|
000001C0: F0 00 82 58 00 CC 1D FA 00 FE 0B 32 00 F1 1D 04 |...X.......2....|
000001D0: 01 81 58 B2 31 A4 33 32 30 A9 31 30 3A 8F 20 4C |..X.1.320.10:. L|
000001E0: 4F 4F 50 20 46 4F 52 20 58 20 50 4F 49 4E 54 45 |OOP FOR X POINTE|
000001F0: 52 00 10 1E 0E 01 E5 31 2C 33 31 38 2C 59 A4 58 |R......1,318,Y.X|
00000200: 2C 31 39 39 3A 8F 20 44 52 41 57 20 4C 49 4E 45 |,199:. DRAW LINE|
00000210: 00 1B 1E 18 01 59 B2 59 AB 31 30 00 22 1E 22 01 |.....Y.Y.10.".".|
00000220: 82 58 00 2A 1E 2C 01 FE 0B 32 00 33 1E 36 01 DE |.X.*.,...2.3.6..|
00000230: 31 2C 31 00 5D 1E 40 01 59 B2 31 3A 81 58 B2 31 |1,1.].@.Y.1:.X.1|
00000240: 36 30 A4 31 A9 AB 31 30 3A 8F 20 4C 4F 4F 50 20 |60.1..10:. LOOP |
00000250: 46 4F 52 20 58 20 50 4F 49 4E 54 45 52 00 7A 1E |FOR X POINTER.z.|
00000260: 4A 01 E5 31 2C 58 2C 31 A4 31 2C 59 3A 8F 20 49 |J..1,X,1.1,Y:. I|
00000270: 4E 43 52 45 4D 45 4E 54 20 59 00 87 1E 54 01 59 |NCREMENT Y...T.Y|
00000280: B2 59 AA 36 2E 32 35 00 8E 1E 5E 01 82 58 00 9E |.Y.6.25...^..X..|
00000290: 1E 68 01 81 58 B2 31 A4 31 36 30 A9 31 30 00 AF |.h..X.1.160.10..|
000002A0: 1E 72 01 E5 31 2C 31 2C 59 A4 58 2C 31 39 39 00 |.r..1,1,Y.X,199.|
000002B0: BC 1E 7C 01 59 B2 59 AA 36 2E 32 35 00 C3 1E 86 |..|.Y.Y.6.25....|
000002C0: 01 82 58 00 D5 1E 90 01 81 58 B2 31 36 30 A4 33 |..X......X.160.3|
000002D0: 32 30 A9 31 30 00 E8 1E 9A 01 E5 31 2C 58 2C 31 |20.10......1,X,1|
000002E0: 39 39 A4 33 31 38 2C 59 00 F5 1E A4 01 59 B2 59 |99.318,Y.....Y.Y|
000002F0: AB 36 2E 32 35 00 FC 1E AE 01 82 58 00 0F 1F B8 |.6.25......X....|
00000300: 01 81 58 B2 33 32 30 A4 31 36 30 A9 AB 31 30 00 |..X.320.160..10.|
00000310: 20 1F C2 01 E5 31 2C 33 31 38 2C 59 A4 58 2C 31 | ....1,318,Y.X,1|
00000320: 00 34 1F CC 01 59 B2 59 AB 36 2E 32 35 3A 8B 59 |.4...Y.Y.6.25:.Y|
00000330: B3 31 A7 80 00 3B 1F D6 01 82 58 00 00 00 |.1...;....X... |
....D..1,1:.0,1:.4,1:.1,2.F.N..T.1.90.3:
. SET UP LOOP FOR BOX ROTATION.N.X..1,11
0,50,210,150,T:. DRAW & ROTATE.U....T.}.
....2......1,1:. CLEAR SCREEN.F. ..T.1.1
50.3:. SET UP LOOP FOR ROTATION OF BOX..
...X.X.1:Y.Y.1:. INCREMENT X AND Y POINT
ERS......1,X,Y,X2.10,Y2.10,T:. DRAW BOX.
Q...X2.X2.X.2:Y2.Y2.X.2:.T:. INCREMENT X
2 AND Y2 POINTERS.M.H...2:.1,1:. CLEAR S
CREEN...R.Y.1:.X.320.1..10:. LOOP FOR X
POINTER......1,X,1.1,Y:. DRAW LINE.....Y
.Y.10.D....X.L.....2......X.1.320.10:. L
OOP FOR X POINTER......1,318,Y.X,199:. D
RAW LINE.....Y.Y.10."."..X.*.,...2.3.6..
1,1.].@.Y.1:.X.160.1..10:. LOOP FOR X PO
INTER.Z.J..1,X,1.1,Y:. INCREMENT Y...T.Y
.Y.6.25...^..X...H..X.1.160.10...R..1,1,
Y.X,199...|.Y.Y.6.25.C....X.U....X.160.3
20.10......1,X,199.318,Y.....Y.Y.6.25...
...X......X.320.160..10. .B..1,318,Y.X,1
.4.L.Y.Y.6.25:.Y.1...;.V..X...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL