> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 3A 00 58 08 01 00 8F 20 28 43 |......:.X.... (C|
00000010: 29 20 31 39 38 34 20 4B 49 57 49 53 4F 46 54 20 |) 1984 KIWISOFT |
00000020: 50 52 4F 47 52 41 4D 53 20 2A 2A 2A 2A 2A 2A 2A |PROGRAMS *******|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 00 6B 08 02 00 8B C2 28 |********.k.....(|
00000060: 35 36 29 B2 37 30 A7 9C 3A 89 34 00 9A 08 03 00 |56).70..:.4.....|
00000070: 97 35 31 2C 2E 3A 97 35 32 2C 37 30 3A 97 35 35 |.51,.:.52,70:.55|
00000080: 2C 2E 3A 97 35 36 2C 37 30 3A 9C 3A 93 22 3F 49 |,.:.56,70:.:."?I|
00000090: 53 50 14 14 14 22 2C 38 2C 31 00 BF 08 04 00 86 |SP...",8,1......|
000000A0: 46 49 24 28 31 39 29 3A 4A 54 B2 33 36 38 37 30 |FI$(19):JT.36870|
000000B0: 3A 42 4F B2 35 33 32 38 30 3A 89 39 30 30 30 00 |:BO.53280:.9000.|
000000C0: DB 08 0A 00 46 49 24 28 30 29 B2 22 56 49 4E 54 |....FI$(0)."VINT|
000000D0: 41 47 45 20 53 50 4F 52 54 53 22 00 F0 08 0B 00 |AGE SPORTS".....|
000000E0: 46 49 24 28 31 29 B2 22 56 49 4E 54 41 47 45 22 |FI$(1)."VINTAGE"|
000000F0: 00 04 09 0C 00 46 49 24 28 32 29 B2 22 52 41 43 |.....FI$(2)."RAC|
00000100: 49 4E 47 22 00 20 09 0D 00 46 49 24 28 33 29 B2 |ING". ...FI$(3).|
00000110: 22 52 41 4C 4C 59 20 26 20 52 41 43 49 4E 47 22 |"RALLY & RACING"|
00000120: 00 35 09 0E 00 46 49 24 28 34 29 B2 22 53 50 4F |.5...FI$(4)."SPO|
00000130: 52 54 53 31 22 00 4A 09 0F 00 46 49 24 28 35 29 |RTS1".J...FI$(5)|
00000140: B2 22 53 50 4F 52 54 53 32 22 00 60 09 10 00 46 |."SPORTS2".`...F|
00000150: 49 24 28 36 29 B2 22 41 4D 45 52 49 43 41 4E 22 |I$(6)."AMERICAN"|
00000160: 00 75 09 11 00 46 49 24 28 37 29 B2 22 48 4F 54 |.u...FI$(7)."HOT|
00000170: 52 4F 44 53 22 00 7B 09 1D 00 8E 00 81 09 1E 00 |RODS".{.........|
00000180: 8E 00 87 09 50 00 8F 00 AD 09 51 00 8F 20 54 4F |....P.....Q.. TO|
00000190: 20 44 49 53 50 4C 41 59 20 54 48 45 20 50 49 43 | DISPLAY THE PIC|
000001A0: 54 55 52 45 53 20 53 45 54 20 54 48 45 00 CA 09 |TURES SET THE...|
000001B0: 52 00 8F 20 56 41 52 49 41 42 4C 45 53 20 41 53 |R.. VARIABLES AS|
000001C0: 20 46 4F 4C 4C 4F 57 53 3A 2D 00 D0 09 53 00 8F | FOLLOWS:-...S..|
000001D0: 00 F5 09 54 00 8F 20 49 44 24 20 54 4F 20 54 48 |...T.. ID$ TO TH|
000001E0: 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 20 50 49 |E NAME OF THE PI|
000001F0: 43 54 55 52 45 00 FB 09 55 00 8F 00 22 0A 56 00 |CTURE...U...".V.|
00000200: 8F 20 42 43 20 20 54 4F 20 54 48 45 20 42 4F 52 |. BC TO THE BOR|
00000210: 44 45 52 20 43 4F 4C 4F 52 2C 20 49 46 20 54 48 |DER COLOR, IF TH|
00000220: 49 53 00 43 0A 57 00 8F 20 20 20 20 20 49 53 20 |IS.C.W.. IS |
00000230: 41 42 4F 56 45 20 31 35 20 54 48 45 20 42 4F 52 |ABOVE 15 THE BOR|
00000240: 44 45 52 00 5F 0A 58 00 8F 20 20 20 20 20 43 4F |DER._.X.. CO|
00000250: 4C 4F 52 53 20 57 49 4C 4C 20 43 59 43 4C 45 00 |LORS WILL CYCLE.|
00000260: 65 0A 59 00 8F 00 8B 0A 5A 00 8F 20 44 50 20 20 |e.Y.....Z.. DP |
00000270: 54 4F 20 54 48 45 20 23 20 4F 46 20 53 45 43 53 |TO THE # OF SECS|
00000280: 20 54 4F 20 44 49 53 50 4C 41 59 00 A2 0A 5B 00 | TO DISPLAY...[.|
00000290: 8F 20 20 20 20 20 54 48 49 53 20 50 49 43 54 55 |. THIS PICTU|
000002A0: 52 45 00 A8 0A 5C 00 8F 00 CA 0A 5D 00 8F 20 54 |RE...\.....].. T|
000002B0: 48 45 20 53 55 42 52 4F 55 54 49 4E 45 20 41 54 |HE SUBROUTINE AT|
000002C0: 20 31 30 30 30 20 57 49 4C 4C 00 E8 0A 5E 00 8F | 1000 WILL...^..|
000002D0: 20 20 20 20 20 44 49 53 50 4C 41 59 20 54 48 45 | DISPLAY THE|
000002E0: 20 50 49 43 54 55 52 45 00 EE 0A 63 00 8F 00 0F | PICTURE...c....|
000002F0: 0B 64 00 49 44 24 B2 46 49 24 28 30 29 3A 42 43 |.d.ID$.FI$(0):BC|
00000300: B2 31 36 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |.16:DP.10:.1000.|
00000310: 2F 0B 6E 00 49 44 24 B2 46 49 24 28 31 29 3A 42 |/.n.ID$.FI$(1):B|
00000320: 43 B2 31 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.1:DP.10:.1000.|
00000330: 4F 0B 78 00 49 44 24 B2 46 49 24 28 32 29 3A 42 |O.x.ID$.FI$(2):B|
00000340: 43 B2 32 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.2:DP.10:.1000.|
00000350: 6F 0B 82 00 49 44 24 B2 46 49 24 28 33 29 3A 42 |o...ID$.FI$(3):B|
00000360: 43 B2 33 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.3:DP.10:.1000.|
00000370: 8F 0B 8C 00 49 44 24 B2 46 49 24 28 34 29 3A 42 |....ID$.FI$(4):B|
00000380: 43 B2 34 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.4:DP.10:.1000.|
00000390: AF 0B 96 00 49 44 24 B2 46 49 24 28 35 29 3A 42 |....ID$.FI$(5):B|
000003A0: 43 B2 35 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.5:DP.10:.1000.|
000003B0: CF 0B A0 00 49 44 24 B2 46 49 24 28 36 29 3A 42 |....ID$.FI$(6):B|
000003C0: 43 B2 36 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.6:DP.10:.1000.|
000003D0: EF 0B AA 00 49 44 24 B2 46 49 24 28 37 29 3A 42 |....ID$.FI$(7):B|
000003E0: 43 B2 37 3A 44 50 B2 31 30 3A 8D 31 30 30 30 00 |C.7:DP.10:.1000.|
000003F0: F8 0B E7 03 89 31 30 30 00 1C 0C E8 03 A0 31 3A |.....100......1:|
00000400: 9F 31 2C 38 2C 32 2C 49 44 24 3A A1 23 31 2C 41 |.1,8,2,ID$:.#1,A|
00000410: 24 3A 8B 41 24 B3 B1 22 50 22 A7 8E 00 2D 0C F2 |$:.A$.."P"...-..|
00000420: 03 9E 4A 54 AA 33 30 3A 97 42 4F 2C 31 00 5D 0C |..JT.30:.BO,1.].|
00000430: FC 03 A1 23 31 2C 41 24 3A 55 42 B2 C6 28 41 24 |...#1,A$:UB..(A$|
00000440: AA C7 28 30 29 29 3A 97 42 4F AA 31 2C 55 42 3A |..(0)):.BO.1,UB:|
00000450: 9E 4A 54 3A A0 31 3A 55 B2 B8 28 30 29 00 85 0C |.JT:.1:U..(0)...|
00000460: 06 04 8B 42 43 B3 31 37 A7 81 49 B2 30 A4 44 50 |...BC.17..I.0.DP|
00000470: 3A 81 4A B2 30 A4 35 30 30 3A 82 4A 3A 82 49 3A |:.J.0.500:.J:.I:|
00000480: 89 31 30 36 30 00 A1 0C 10 04 81 49 B2 30 A4 44 |.1060......I.0.D|
00000490: 50 3A 81 4A B2 30 A4 32 34 38 3A 82 4A 3A 8D 33 |P:.J.0.248:.J:.3|
000004A0: 30 00 B4 0C 1A 04 81 4A B2 30 A4 32 34 38 3A 82 |0......J.0.248:.|
000004B0: 4A 3A 82 49 00 C7 0C 24 04 A1 41 24 3A 8B 41 24 |J:.I...$..A$:.A$|
000004C0: B3 B1 22 51 22 A7 8E 00 D1 0C 2E 04 9E 4A 54 AA |.."Q"........JT.|
000004D0: 36 00 FA 0C 28 23 9E 4A 54 AA 33 30 3A 97 35 33 |6...(#.JT.30:.53|
000004E0: 32 37 32 2C 31 32 30 3A 97 35 33 32 36 35 2C C2 |272,120:.53265,.|
000004F0: 28 35 33 32 36 35 29 B0 33 32 00 11 0D 32 23 97 |(53265).32...2#.|
00000500: 35 33 32 37 30 2C C2 28 35 33 32 37 30 29 B0 31 |53270,.(53270).1|
00000510: 36 00 3F 0D 3C 23 97 35 36 35 37 38 2C C2 28 35 |6.?.<#.56578,.(5|
00000520: 36 35 37 38 29 B0 33 3A 97 35 36 35 37 36 2C 28 |6578).3:.56576,(|
00000530: C2 28 35 36 35 37 36 29 AF 32 35 32 29 B0 32 00 |.(56576).252).2.|
00000540: 4C 0D 46 23 8D 31 30 3A 89 31 30 30 00 00 00 |L.F#.10:.100... |
......:.X.... (C) 1984 KIWISOFT PROGRAMS
***************************************
********.K....B(56).70..:.4......51,.:.5
2,70:.55,.:.56,70:.:."?ISP...",8,1......
FI$(19):JT.36870:BO.53280:.9000.....FI$(
0)."VINTAGE SPORTS".....FI$(1)."VINTAGE"
.....FI$(2)."RACING". ...FI$(3)."RALLY &
RACING".5...FI$(4)."SPORTS1".J...FI$(5)
."SPORTS2".`...FI$(6)."AMERICAN".U...FI$
(7)."HOTRODS".{.............P.....Q.. TO
DISPLAY THE PICTURES SET THE.J.R.. VARI
ABLES AS FOLLOWS:-.P.S.....T.. ID$ TO TH
E NAME OF THE PICTURE...U...".V.. BC TO
THE BORDER COLOR, IF THIS.C.W.. IS
ABOVE 15 THE BORDER._.X.. COLORS WIL
L CYCLE.E.Y.....Z.. DP TO THE # OF SECS
TO DISPLAY...[.. THIS PICTURE...\..
.J.].. THE SUBROUTINE AT 1000 WILL...^..
DISPLAY THE PICTURE...C.....D.ID$.F
I$(0):BC.16:DP.10:.1000./.N.ID$.FI$(1):B
C.1:DP.10:.1000.O.X.ID$.FI$(2):BC.2:DP.1
0:.1000.O...ID$.FI$(3):BC.3:DP.10:.1000.
....ID$.FI$(4):BC.4:DP.10:.1000.....ID$.
FI$(5):BC.5:DP.10:.1000.O. .ID$.FI$(6):B
C.6:DP.10:.1000.....ID$.FI$(7):BC.7:DP.1
0:.1000......100..... 1:.1,8,2,ID$:.#1,A
$:.A$.."P"...-....JT.30:.BO,1.]....#1,A$
:UB.F(A$.G(0)):.BO.1,UB:.JT: 1:U..(0)...
...BC.17..I.0.DP:.J.0.500:.J:.I:.1060...
...I.0.DP:.J.0.248:.J:.30......J.0.248:.
J:.I.G.$..A$:.A$.."Q"...Q....JT.6...(#.J
T.30:.53272,120:.53265,B(53265).32...2#.
53270,B(53270).16.?.<#.56578,B(56578).3:
.56576,(B(56576).252).2.L.F#.10:.100...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL