BOUNCE.GEN
FILE INFORMATION
FILENAME(S): BOUNCE.GEN
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-20 14:30:29
APPEARS ON: 2 disk(s)
FILE HASH
2f1f24008904fdd6360378f134816c02572cdd6888d195612e64ebf90aebf302
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RAMEXP DEMO V1 0 | BOUNCE.GEN | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | DOWNLOAD FILE |
| RAMEXP DEMO V1 0 | BOUNCE.GEN | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1F 1C 01 00 8F 20 20 20 20 20 44 53 41 56 |....... DSAV|
00000010: 45 20 22 40 42 4F 55 4E 43 45 2E 47 45 4E 22 00 |E "@BOUNCE.GEN".|
00000020: 40 1C 0A 00 8F 20 42 4F 55 4E 43 49 4E 47 20 42 |@.... BOUNCING B|
00000030: 41 4C 4C 20 47 45 4E 20 50 52 4F 47 52 52 41 4D |ALL GEN PROGRRAM|
00000040: 00 51 1C 64 00 E7 20 30 2C 31 32 3A E7 20 34 2C |.Q.d.. 0,12:. 4,|
00000050: 31 00 67 1C 6E 00 E7 20 31 2C 31 3A E7 20 32 2C |1.g.n.. 1,1:. 2,|
00000060: 34 3A E7 20 33 2C 33 00 79 1C 78 00 DE 20 33 2C |4:. 3,3.y.x.. 3,|
00000070: 31 3A 20 D7 20 37 30 30 30 00 94 1C C8 00 45 B2 |1: . 7000.....E.|
00000080: 38 31 39 32 3A 20 8F 20 20 42 49 54 4D 41 50 20 |8192: . BITMAP |
00000090: 41 44 44 52 00 B5 1C D2 00 4C B2 36 34 30 30 3A |ADDR.....L.6400:|
000000A0: 20 8F 20 4E 55 4D 42 45 52 20 42 59 54 45 53 20 | . NUMBER BYTES |
000000B0: 53 41 56 45 44 00 CF 1C DC 00 42 53 B2 32 AE 31 |SAVED.....BS.2.1|
000000C0: 36 20 3A 20 8F 20 42 41 4E 4B 20 53 49 5A 45 00 |6 : . BANK SIZE.|
000000D0: EB 1C 2C 01 8F 20 43 41 4C 43 20 4E 55 4D 42 45 |..,.. CALC NUMBE|
000000E0: 52 20 4F 46 20 46 52 41 4D 45 53 00 02 1D 36 01 |R OF FRAMES...6.|
000000F0: 8F 20 53 20 3D 20 53 49 5A 45 20 4F 46 20 44 49 |. S = SIZE OF DI|
00000100: 53 4B 00 23 1D 40 01 53 B2 38 AC 42 53 3A 20 8F |SK.#.@.S.8.BS: .|
00000110: 20 50 45 45 4B 20 44 49 53 4B 20 46 4F 52 20 53 | PEEK DISK FOR S|
00000120: 49 5A 45 00 45 1D 4A 01 8B 20 30 B2 28 31 36 AF |IZE.E.J.. 0.(16.|
00000130: C2 28 D1 28 22 44 46 30 30 22 29 29 29 A7 20 53 |.(.("DF00"))). S|
00000140: B2 32 AC 42 53 00 69 1D 54 01 4E B2 B5 28 53 AD |.2.BS.i.T.N..(S.|
00000150: 4C 29 AB 31 3A 8F 20 4E 55 4D 42 45 52 20 4F 46 |L).1:. NUMBER OF|
00000160: 20 46 52 41 4D 45 53 2D 31 00 89 1D 5E 01 8B 4E | FRAMES-1...^..N|
00000170: AF 31 B3 B1 30 A7 4E B2 4E AB 31 3A 8F 20 4D 41 |.1..0.N.N.1:. MA|
00000180: 4B 45 20 4E 20 45 56 45 4E 00 A8 1D 68 01 48 B2 |KE N EVEN...h.H.|
00000190: B5 28 4E AD 32 29 20 3A 20 8F 20 48 41 4C 46 57 |.(N.2) : . HALFW|
000001A0: 41 59 20 50 4F 49 4E 54 00 C7 1D 90 01 8F 20 53 |AY POINT...... S|
000001B0: 45 54 20 55 50 20 46 4F 52 20 50 4C 41 59 20 43 |ET UP FOR PLAY C|
000001C0: 4F 4D 4D 41 4E 44 53 00 E0 1D 9A 01 FE 0A 31 2C |OMMANDS.......1,|
000001D0: 2E 2C 2E 2C 31 35 2C 31 30 2C 33 2C 32 30 34 38 |.,.,15,10,3,2048|
000001E0: 00 F3 1D A4 01 FE 03 32 30 34 30 2C 2E 2C 31 2C |.......2040,.,1,|
000001F0: 2E 2C 31 00 0E 1E AE 01 FE 04 22 55 39 56 31 54 |.,1......."U9V1T|
00000200: 31 58 31 4F 30 56 32 58 31 4F 30 54 31 22 00 17 |1X1O0V2X1O0T1"..|
00000210: 1E B8 01 FE 05 37 30 00 3B 1E E8 03 8F 20 4C 4F |.....70.;.... LO|
00000220: 41 44 20 53 50 48 45 52 45 53 20 49 4E 54 4F 20 |AD SPHERES INTO |
00000230: 53 54 52 49 4E 47 20 56 41 52 53 00 46 1E F2 03 |STRING VARS.F...|
00000240: 8D 20 39 30 30 30 00 68 1E 4C 04 8F 20 4C 4F 41 |. 9000.h.L.. LOA|
00000250: 44 20 42 41 43 4B 47 52 4F 55 4E 44 20 49 4E 54 |D BACKGROUND INT|
00000260: 4F 20 42 49 54 4D 41 50 00 7A 1E 56 04 FE 11 20 |O BITMAP.z.V... |
00000270: 22 42 41 43 4B 2E 50 49 43 22 00 9E 1E B0 04 8F |"BACK.PIC"......|
00000280: 20 53 41 56 45 20 42 41 43 4B 47 52 4F 55 4E 44 | SAVE BACKGROUND|
00000290: 20 49 4E 20 41 4C 4C 20 46 52 41 4D 45 53 00 B4 | IN ALL FRAMES..|
000002A0: 1E BA 04 8F 20 50 20 43 4F 55 4E 54 53 20 46 52 |.... P COUNTS FR|
000002B0: 41 4D 45 53 00 C2 1E C4 04 81 20 50 B2 30 20 A4 |AMES...... P.0 .|
000002C0: 20 4E 00 E0 1E CE 04 42 4B B2 B5 28 50 AC 4C AD | N.....BK..(P.L.|
000002D0: 42 53 29 3A 45 41 B2 50 AC 4C AB 42 53 AC 42 4B |BS):EA.P.L.BS.BK|
000002E0: 00 F3 1E D8 04 FE 1F 20 4C 2C 45 2C 45 41 2C 42 |....... L,E,EA,B|
000002F0: 4B 3A 82 00 19 1F D0 07 8F 20 43 41 4C 43 20 41 |K:....... CALC A|
00000300: 4E 44 20 50 4C 4F 54 20 41 20 53 45 52 49 53 20 |ND PLOT A SERIS |
00000310: 4F 46 20 46 52 41 4D 45 53 00 2F 1F DA 07 8F 20 |OF FRAMES./.... |
00000320: 50 20 43 4F 55 4E 54 53 20 46 52 41 4D 45 53 00 |P COUNTS FRAMES.|
00000330: 3D 1F E4 07 81 20 50 B2 30 20 A4 20 4E 00 51 1F |=.... P.0 . N.Q.|
00000340: 34 08 8F 20 43 41 4C 43 20 52 41 4D 20 41 44 44 |4.. CALC RAM ADD|
00000350: 52 00 6F 1F 3E 08 42 4B B2 B5 28 50 AC 4C AD 42 |R.o.>.BK..(P.L.B|
00000360: 53 29 3A 45 41 B2 50 AC 4C AB 42 53 AC 42 4B 00 |S):EA.P.L.BS.BK.|
00000370: 91 1F 98 08 8F 20 43 41 4C 43 20 53 43 52 45 45 |..... CALC SCREE|
00000380: 4E 20 41 44 44 52 20 46 4F 52 20 53 50 48 45 52 |N ADDR FOR SPHER|
00000390: 45 00 AC 1F A2 08 58 B2 50 AD 4E 20 3A 59 B2 28 |E.....X.P.N :Y.(|
000003A0: 31 AB B6 28 BE 28 FF AC 58 29 29 29 00 C4 1F AC |1..(.(..X)))....|
000003B0: 08 50 58 B2 28 31 34 37 AB 34 34 AB 31 33 29 AC |.PX.(147.44.13).|
000003C0: 58 AA 31 33 00 E1 1F B6 08 50 59 B2 28 31 35 32 |X.13.....PY.(152|
000003D0: AB 35 31 AB 33 32 29 AC 59 AA 28 35 31 AB 33 32 |.51.32).Y.(51.32|
000003E0: 29 00 FA 1F FC 08 8F 20 46 45 54 43 48 20 41 20 |)...... FETCH A |
000003F0: 42 41 43 4B 47 52 4F 55 4E 44 00 0B 20 06 09 FE |BACKGROUND.. ...|
00000400: 21 20 4C 2C 45 2C 45 41 2C 42 4B 00 24 20 60 09 |! L,E,EA,BK.$ `.|
00000410: 8F 20 43 41 4C 43 20 53 48 50 45 52 45 20 4E 55 |. CALC SHPERE NU|
00000420: 4D 42 45 52 00 3A 20 6A 09 49 4C B2 38 AB 28 50 |MBER.: j.IL.8.(P|
00000430: AB 38 AC B5 28 50 AD 38 29 29 00 56 20 C4 09 8D |.8..(P.8)).V ...|
00000440: 20 38 30 30 30 20 20 3A 20 8F 20 44 52 41 57 20 | 8000 : . DRAW |
00000450: 53 48 41 44 4F 57 00 70 20 28 0A 8D 20 39 31 30 |SHADOW.p (.. 910|
00000460: 30 20 20 3A 20 8F 20 44 52 41 57 20 42 41 4C 4C |0 : . DRAW BALL|
00000470: 00 87 20 8C 0A 8F 20 53 54 41 53 48 20 54 48 49 |.. ... STASH THI|
00000480: 53 20 46 52 41 4D 45 00 98 20 96 0A FE 1F 20 4C |S FRAME.. .... L|
00000490: 2C 45 2C 45 41 2C 42 4B 00 9E 20 F0 0A 82 00 BA |,E,EA,BK.. .....|
000004A0: 20 B8 0B DE 33 3A D7 20 37 30 30 30 3A 8F 20 53 | ...3:. 7000:. S|
000004B0: 45 54 20 55 50 20 45 58 49 54 00 D5 20 C2 0B 8F |ET UP EXIT.. ...|
000004C0: 20 43 59 43 4C 45 20 54 48 52 4F 55 47 48 20 46 | CYCLE THROUGH F|
000004D0: 52 41 4D 45 53 00 DB 20 CC 0B EB 00 E7 20 1C 0C |RAMES.. ..... ..|
000004E0: 81 20 50 B2 31 A4 48 00 05 21 26 0C 42 4B B2 B5 |. P.1.H..!&.BK..|
000004F0: 28 50 AC 4C AD 42 53 29 3A 45 41 B2 50 AC 4C AB |(P.L.BS):EA.P.L.|
00000500: 42 4B AC 42 53 00 18 21 30 0C FE 21 20 4C 2C 45 |BK.BS..!0..! L,E|
00000510: 2C 45 41 2C 42 4B 3A 82 00 25 21 3A 0C FE 04 20 |,EA,BK:..%!:... |
00000520: 22 56 31 46 22 00 33 21 80 0C 81 20 50 B2 48 AA |"V1F".3!... P.H.|
00000530: 31 A4 4E 00 51 21 8A 0C 42 4B B2 B5 28 50 AC 4C |1.N.Q!..BK..(P.L|
00000540: AD 42 53 29 3A 45 41 B2 50 AC 4C AB 42 4B AC 42 |.BS):EA.P.L.BK.B|
00000550: 53 00 64 21 94 0C FE 21 20 4C 2C 45 2C 45 41 2C |S.d!...! L,E,EA,|
00000560: 42 4B 3A 82 00 71 21 9E 0C FE 04 20 22 56 32 47 |BK:..q!.... "V2G|
00000570: 22 00 82 21 E4 0C 81 20 50 B2 4E AB 31 A4 48 A9 |"..!... P.N.1.H.|
00000580: AB 31 00 A0 21 EE 0C 42 4B B2 B5 28 50 AC 4C AD |.1..!..BK..(P.L.|
00000590: 42 53 29 3A 45 41 B2 50 AC 4C AB 42 4B AC 42 53 |BS):EA.P.L.BK.BS|
000005A0: 00 B3 21 F8 0C FE 21 20 4C 2C 45 2C 45 41 2C 42 |..!...! L,E,EA,B|
000005B0: 4B 3A 82 00 C0 21 02 0D FE 04 20 22 56 31 46 22 |K:...!.... "V1F"|
000005C0: 00 D2 21 48 0D 81 20 50 B2 48 AB 31 A4 30 20 A9 |..!H.. P.H.1.0 .|
000005D0: AB 31 00 F0 21 52 0D 42 4B B2 B5 28 50 AC 4C AD |.1..!R.BK..(P.L.|
000005E0: 42 53 29 3A 45 41 B2 50 AC 4C AB 42 4B AC 42 53 |BS):EA.P.L.BK.BS|
000005F0: 00 03 22 5C 0D FE 21 20 4C 2C 45 2C 45 41 2C 42 |.."\..! L,E,EA,B|
00000600: 4B 3A 82 00 10 22 66 0D FE 04 20 22 56 32 47 22 |K:..."f... "V2G"|
00000610: 00 16 22 AC 0D EC 00 29 22 58 1B 8F 20 45 58 49 |.."....)"X.. EXI|
00000620: 54 20 52 4F 55 54 49 4E 45 00 3B 22 62 1B 8B 20 |T ROUTINE.;"b.. |
00000630: CC 28 30 29 B3 34 20 A7 20 DE 30 00 41 22 80 1B |.(0).4 . .0.A"..|
00000640: 80 00 5C 22 40 1F 8F 20 44 52 41 57 20 53 48 41 |..\"@.. DRAW SHA|
00000650: 44 4F 57 20 40 20 50 58 2C 31 35 32 00 74 22 4A |DOW @ PX,152.t"J|
00000660: 1F 8F 20 42 41 53 45 20 53 49 5A 45 20 4F 4E 20 |.. BASE SIZE ON |
00000670: 59 50 4F 53 00 7D 22 54 1F 53 20 B2 59 00 9C 22 |YPOS.}"T.S .Y.."|
00000680: 5E 1F E2 20 31 2C 50 58 AA 32 32 2C 31 35 32 2C |^.. 1,PX.22,152,|
00000690: 37 AA 31 31 AC 53 2C 32 AA 33 AC 53 00 AE 22 68 |7.11.S,2.3.S.."h|
000006A0: 1F DF 20 31 2C 50 58 AA 32 32 2C 31 35 32 00 B4 |.. 1,PX.22,152..|
000006B0: 22 72 1F 8E 00 CF 22 28 23 8F 20 52 45 41 44 20 |"r...."(#. READ |
000006C0: 38 20 50 49 43 53 20 49 4E 54 4F 20 50 53 24 00 |8 PICS INTO PS$.|
000006D0: ED 22 32 23 FE 11 20 22 42 41 4C 4C 53 2E 50 49 |."2#.. "BALLS.PI|
000006E0: 43 22 3A 86 20 50 53 24 28 38 2C 34 29 00 0D 23 |C":. PS$(8,4)..#|
000006F0: 3C 23 58 44 B2 34 34 3A 59 44 B2 36 34 3A 58 49 |<#XD.44:YD.64:XI|
00000700: B2 58 44 AA 33 3A 59 49 B2 59 44 AA 33 00 1A 23 |.XD.3:YI.YD.3..#|
00000710: 46 23 81 20 49 4C B2 31 A4 38 00 31 23 50 23 52 |F#. IL.1.8.1#P#R|
00000720: B2 B5 28 49 4C AD 33 29 3A 43 B2 49 4C AB 52 AC |..(IL.3):C.IL.R.|
00000730: 33 00 49 23 5A 23 58 4F B2 58 49 AC 43 AA 31 3A |3.I#Z#XO.XI.C.1:|
00000740: 59 4F B2 59 49 AC 52 AA 31 00 5A 23 64 23 81 20 |YO.YI.R.1.Z#d#. |
00000750: 53 53 20 B2 20 30 20 A4 20 33 00 70 23 6E 23 53 |SS . 0 . 3.p#n#S|
00000760: 4F B2 31 36 AC 53 53 3A 53 45 B2 53 4F AA 31 36 |O.16.SS:SE.SO.16|
00000770: 00 96 23 78 23 E4 20 50 53 24 28 49 4C 2C 53 53 |..#x#. PS$(IL,SS|
00000780: 29 2C 58 4F 2C 59 4F AA 53 4F 2C 58 4F AA 34 34 |),XO,YO.SO,XO.44|
00000790: 2C 59 4F AA 53 45 00 A0 23 82 23 82 3A 82 3A 8E |,YO.SE..#.#.:.:.|
000007A0: 00 B4 23 8C 23 8F 20 44 52 41 57 20 41 20 53 50 |..#.#. DRAW A SP|
000007B0: 48 45 52 45 00 CE 23 96 23 8F 20 49 4C 20 3D 20 |HERE..#.#. IL = |
000007C0: 53 50 48 45 52 45 20 20 4E 55 4D 42 45 52 00 E6 |SPHERE NUMBER..|
000007D0: 23 A0 23 8F 20 20 50 58 2C 50 59 20 3D 20 50 4F |#.#. PX,PY = PO|
000007E0: 53 49 54 49 4F 4E 00 00 24 AA 23 81 20 53 53 20 |SITION..$.#. SS |
000007F0: B2 20 30 20 A4 20 33 3A 53 4F B2 31 36 AC 53 53 |. 0 . 3:SO.16.SS|
00000800: 00 1C 24 B4 23 E3 20 50 53 24 28 49 4C 2C 53 53 |..$.#. PS$(IL,SS|
00000810: 29 2C 50 58 2C 50 59 AA 53 4F 2C 32 00 22 24 BE |),PX,PY.SO,2."$.|
00000820: 23 82 00 28 24 C8 23 8E 00 62 24 10 27 E7 20 30 |#..($.#..b$.'. 0|
00000830: 2C 31 3A E7 20 31 2C 31 3A E7 20 32 2C 34 3A E7 |,1:. 1,1:. 2,4:.|
00000840: 33 2C 33 3A E7 20 34 2C 31 3A DE 33 2C 31 3A FE |3,3:. 4,1:.3,1:.|
00000850: 21 20 36 34 30 30 2C 38 31 39 32 2C 30 2C 30 20 |! 6400,8192,0,0 |
00000860: 3A 80 00 AF 24 11 27 E7 20 31 2C 32 3A E7 20 31 |:...$.'. 1,2:. 1|
00000870: 2C 31 3A E7 20 32 2C 34 3A E7 20 33 2C 33 3A E7 |,1:. 2,4:. 3,3:.|
00000880: 34 2C 31 3A DE 31 2C 31 3A FE 21 20 36 34 30 30 |4,1:.1,1:.! 6400|
00000890: 2C 38 31 39 32 2C 30 2C 30 3A DF 20 31 2C 30 2C |,8192,0,0:. 1,0,|
000008A0: 31 30 2C 31 3A DF 20 31 2C 31 30 2C 30 2C 31 00 |10,1:. 1,10,0,1.|
000008B0: 00 00 |.. |
....... DSAVE "@BOUNCE.GEN".@.... BO
UNCING BALL GEN PROGRRAM.Q.D.. 0,12:. 4,
1.G.N.. 1,1:. 2,4:. 3,3.Y.X.. 3,1: W 700
0...H.E.8192: . BITMAP ADDR...R.L.6400:
. NUMBER BYTES SAVED.O...BS.2.16 : . BA
NK SIZE...,.. CALC NUMBER OF FRAMES...6.
. S = SIZE OF DISK.#.@.S.8.BS: . PEEK DI
SK FOR SIZE.E.J.. 0.(16.B(Q("DF00"))). S
.2.BS.I.T.N..(S.L).1:. NUMBER OF FRAMES-
1...^..N.1..0.N.N.1:. MAKE N EVEN...H.H.
.(N.2) : . HALFWAY POINT.G.... SET UP FO
R PLAY COMMANDS.......1,.,.,15,10,3,2048
.......2040,.,1,.,1......."U9V1T1X1O0V2X
1O0T1".......70.;.... LOAD SPHERES INTO
STRING VARS.F.... 9000.H.L.. LOAD BACKGR
OUND INTO BITMAP.Z.V... "BACK.PIC"......
SAVE BACKGROUND IN ALL FRAMES...... P C
OUNTS FRAMES.B.D.. P.0 . N...N.BK..(P.L.
BS):EA.P.L.BS.BK...X... L,E,EA,BK:....P.
. CALC AND PLOT A SERIS OF FRAMES./.Z..
P COUNTS FRAMES.=.... P.0 . N.Q.4.. CALC
RAM ADDR.O.>.BK..(P.L.BS):EA.P.L.BS.BK.
..... CALC SCREEN ADDR FOR SPHERE.....X.
P.N :Y.(1..(.(..X))).D...PX.(147.44.13).
X.13.....PY.(152.51.32).Y.(51.32)......
FETCH A BACKGROUND.. ...! L,E,EA,BK.$ `.
. CALC SHPERE NUMBER.: J.IL.8.(P.8..(P.8
)).V D.. 8000 : . DRAW SHADOW.P (.. 910
0 : . DRAW BALL.. ... STASH THIS FRAME.
. .... L,E,EA,BK.. ..... ...3:W 7000:. S
ET UP EXIT.U B.. CYCLE THROUGH FRAMES..
L.... ... P.1.H..!&.BK..(P.L.BS):EA.P.L.
BK.BS..!0..! L,E,EA,BK:..%!:... "V1F".3!
... P.H.1.N.Q!..BK..(P.L.BS):EA.P.L.BK.B
S.D!...! L,E,EA,BK:..Q!.... "V2G"..!...
P.N.1.H..1. !..BK..(P.L.BS):EA.P.L.BK.BS
..!...! L,E,EA,BK:...!.... "V1F".R!H.. P
.H.1.0 ..1..!R.BK..(P.L.BS):EA.P.L.BK.BS
.."\..! L,E,EA,BK:..."F... "V2G".."....)
"X.. EXIT ROUTINE.;"B.. L(0).4 . .0.A"..
..\"@.. DRAW SHADOW @ PX,152.T"J.. BASE
SIZE ON YPOS.}"T.S .Y.."^.. 1,PX.22,152,
7.11.S,2.3.S.."H.. 1,PX.22,152.."R...O"(
#. READ 8 PICS INTO PS$.."2#.. "BALLS.PI
C":. PS$(8,4)..#<#XD.44:YD.64:XI.XD.3:YI
.YD.3..#F#. IL.1.8.1#P#R..(IL.3):C.IL.R.
3.I#Z#XO.XI.C.1:YO.YI.R.1.Z#D#. SS . 0 .
3.P#N#SO.16.SS:SE.SO.16..#X#. PS$(IL,SS
),XO,YO.SO,XO.44,YO.SE. #.#.:.:...#.#. D
RAW A SPHERE.N#.#. IL = SPHERE NUMBER..
# #. PX,PY = POSITION..$.#. SS . 0 . 3:
SO.16.SS..$.#. PS$(IL,SS),PX,PY.SO,2."$.
#..($H#..B$.'. 0,1:. 1,1:. 2,4:.3,3:. 4,
1:.3,1:.! 6400,8192,0,0 :...$.'. 1,2:. 1
,1:. 2,4:. 3,3:.4,1:.1,1:.! 6400,8192,0,
0:. 1,0,10,1:. 1,10,0,1...
> CLICK IMAGE PREVIEW FOR FULL MODAL