00000000: 01 40 13 40 0A 00 8F 20 33 44 20 42 41 52 20 44 |.@.@... 3D BAR D|
00000010: 45 4D 4F 00 2E 40 14 00 FE 25 3A 20 8F 20 45 4E |EMO..@...%: . EN|
00000020: 41 42 4C 45 20 32 20 4D 48 20 4D 4F 44 45 00 6F |ABLE 2 MH MODE.o|
00000030: 40 1E 00 40 DE 2C 30 2C 39 3A 40 9C 2C 30 3A 20 |@..@.,0,9:@.,0: |
00000040: 8F 20 45 4E 41 42 4C 45 20 55 4C 54 52 41 20 48 |. ENABLE ULTRA H|
00000050: 49 52 45 53 20 36 34 30 20 58 20 32 30 30 20 41 |IRES 640 X 200 A|
00000060: 4E 44 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 |ND CLEAR SCREEN.|
00000070: BB 40 28 00 D7 20 32 30 30 3A 20 8F 20 53 45 54 |.@(.. 200: . SET|
00000080: 20 55 50 20 53 59 4E 54 41 58 20 45 52 52 4F 52 | UP SYNTAX ERROR|
00000090: 20 54 52 41 50 20 54 4F 20 52 45 54 55 52 4E 20 | TRAP TO RETURN |
000000A0: 54 4F 20 54 45 58 54 20 4D 4F 44 45 20 41 4E 44 |TO TEXT MODE AND|
000000B0: 20 4C 49 53 54 20 45 52 52 4F 52 00 D4 40 32 00 | LIST ERROR..@2.|
000000C0: 40 E0 2C 35 33 32 34 38 2C 30 2C 30 2C 31 2C 31 |@.,53248,0,0,1,1|
000000D0: 2C 22 18 22 00 00 41 3C 00 40 E0 2C 35 33 32 34 |,"."..A<.@.,5324|
000000E0: 38 2C 30 2C 32 34 2C 34 2C 34 2C 22 20 33 44 20 |8,0,24,4,4," 3D |
000000F0: 42 41 52 53 20 42 59 20 43 4F 4D 4D 41 4E 44 22 |BARS BY COMMAND"|
00000100: 00 1D 41 46 00 40 42 41 52 2C 32 30 30 2C 31 39 |..AF.@BAR,200,19|
00000110: 30 2C 32 30 30 2C 35 30 2C 38 30 2C 31 00 26 41 |0,200,50,80,1.&A|
00000120: 50 00 FE 0B 20 32 00 37 41 5A 00 40 DE 2C 30 2C |P... 2.7AZ.@.,0,|
00000130: 31 33 3A 40 9C 2C 30 00 4C 41 64 00 40 E1 2C 30 |13:@.,0.LAd.@.,0|
00000140: 2C 30 2C 36 33 39 2C 31 39 39 2C 31 00 61 41 6E |,0,639,199,1.aAn|
00000150: 00 81 20 58 B2 30 20 A4 20 35 39 39 20 A9 20 34 |.. X.0 . 599 . 4|
00000160: 38 00 7B 41 78 00 20 20 20 20 20 48 54 B2 B5 28 |8.{Ax. HT..(|
00000170: BB 28 31 29 AC 31 37 39 29 AA 38 00 9A 41 82 00 |.(1).179).8..A..|
00000180: 20 20 20 20 20 40 42 41 52 2C 58 2C 31 39 39 2C | @BAR,X,199,|
00000190: 32 39 2C 31 30 2C 48 54 2C 31 00 AE 41 8C 00 20 |29,10,HT,1..A.. |
000001A0: 20 20 20 20 5A B2 31 39 39 AB 48 54 AA 32 00 C3 | Z.199.HT.2..|
000001B0: 41 96 00 20 20 20 20 20 8B 48 54 B3 38 20 A7 20 |A.. .HT.8 . |
000001C0: 31 39 30 00 D5 41 A0 00 20 20 20 20 20 43 24 B2 |190..A.. C$.|
000001D0: C4 28 48 54 29 00 EF 41 AA 00 20 20 20 20 20 43 |.(HT)..A.. C|
000001E0: 24 B2 C9 28 43 24 2C C3 28 43 24 29 AB 31 29 00 |$..(C$,.(C$).1).|
000001F0: 0C 42 B4 00 20 20 20 20 20 40 E0 2C 35 33 32 34 |.B.. @.,5324|
00000200: 38 2C 58 2C 5A 2C 31 2C 31 2C 43 24 00 12 42 BE |8,X,Z,1,1,C$..B.|
00000210: 00 82 00 1A 42 C8 00 FE 0B 35 00 45 42 D2 00 8F |....B....5.EB...|
00000220: 20 47 4F 54 4F 20 54 45 58 54 20 4D 4F 44 45 2C | GOTO TEXT MODE,|
00000230: 20 50 52 49 4E 54 20 53 54 41 54 55 53 20 41 4E | PRINT STATUS AN|
00000240: 44 20 45 4E 44 00 54 42 DC 00 8A 22 54 2E 43 49 |D END.TB..."T.CI|
00000250: 52 43 4C 45 00 00 00 |RCLE... |
.@.@... 3D BAR DEMO..@...%: . ENABLE 2 M
H MODE.O@..@.,0,9:@.,0: . ENABLE ULTRA H
IRES 640 X 200 AND CLEAR SCREEN..@(.W 20
0: . SET UP SYNTAX ERROR TRAP TO RETURN
TO TEXT MODE AND LIST ERROR.T@2.@.,53248
,0,0,1,1,"."..A<.@.,53248,0,24,4,4," 3D
BARS BY COMMAND"..AF.@BAR,200,190,200,50
,80,1.&AP... 2.7AZ.@.,0,13:@.,0.LAD.@.,0
,0,639,199,1.AAN.. X.0 . 599 . 48.{AX.
HT..(.(1).179).8..A.. @BAR,X,199,
29,10,HT,1..A.. Z.199.HT.2.CA..
.HT.8 . 190.UA . C$.D(HT)..A.. C
$.I(C$,C(C$).1)..B.. @.,53248,X,Z,1,
1,C$..B.....BH...5.EBR.. GOTO TEXT MODE,
PRINT STATUS AND END.TB..."T.CIRCLE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL