CLUB7 1
FILE INFORMATION
FILENAME(S): CLUB7 1
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 00:01:54
APPEARS ON: 1 disk(s)
FILE HASH
e6171cbcbd4f8297b9e24a45303825c2791d2e58715aaa1c0e37ee0a522919ed
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | CLUB7 1 | PRG | earthshaker | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 4E 10 00 00 8F 43 4C 55 42 37 20 31 3A 50 |..N....CLUB7 1:P| 00000010: 4F 4B 45 33 36 38 37 39 2C 31 31 30 3A 50 4F 4B |OKE36879,110:POK| 00000020: 45 36 34 36 2C 31 3A 50 52 49 4E 54 43 48 52 24 |E646,1:PRINTCHR$| 00000030: 28 31 34 29 22 93 11 11 CA CF D9 D3 D4 C9 C3 CB |(14)"...........| 00000040: 20 C9 CE D0 D5 D4 20 54 4F 20 D6 49 43 22 00 9C | ..... TO .IC"..| 00000050: 10 01 00 99 22 11 11 D4 48 45 20 4A 4F 59 53 54 |...."...HE JOYST| 00000060: 49 43 4B 20 49 53 20 4C 49 4B 45 20 20 41 4C 4C |ICK IS LIKE ALL| 00000070: 20 49 4E 50 55 54 2F 4F 55 54 50 55 54 53 20 4F | INPUT/OUTPUTS O| 00000080: 4E 20 20 54 48 45 20 D6 49 43 20 43 4F 4E 54 52 |N THE .IC CONTR| 00000090: 4F 4C 4C 45 44 20 42 59 20 22 3B 3A 00 E9 10 02 |OLLED BY ";:....| 000000A0: 00 99 22 54 48 45 20 36 35 32 32 20 D6 C9 C1 53 |.."THE 6522 ...S| 000000B0: 2E C5 41 43 48 20 48 41 53 41 20 C4 C4 D2 20 44 |..ACH HASA ... D| 000000C0: 41 54 41 20 44 49 52 45 43 54 49 4F 4E 20 20 52 |ATA DIRECTION R| 000000D0: 45 47 49 53 54 45 52 2E D4 48 49 53 20 43 4F 4E |EGISTER..HIS CON| 000000E0: 54 52 4F 4C 53 20 22 3B 3A 00 35 11 03 00 99 22 |TROLS ";:.5...."| 000000F0: 54 48 45 20 44 49 52 45 43 54 49 4F 4E 20 4F 46 |THE DIRECTION OF| 00000100: 20 54 48 45 20 20 50 4F 52 54 2C 20 45 41 43 48 | THE PORT, EACH| 00000110: 20 42 49 54 20 4D 55 53 54 20 42 45 53 45 54 20 | BIT MUST BESET | 00000120: 54 4F 20 30 20 46 4F 52 20 49 4E 50 55 54 20 41 |TO 0 FOR INPUT A| 00000130: 4E 44 22 3B 3A 00 81 11 04 00 99 22 54 4F 20 31 |ND";:......"TO 1| 00000140: 20 46 4F 52 20 4F 55 54 50 55 54 2E C9 46 20 57 | FOR OUTPUT..F W| 00000150: 45 20 57 49 53 48 20 54 4F 20 53 45 54 20 42 49 |E WISH TO SET BI| 00000160: 54 20 37 20 4F 46 20 20 50 4F 52 54 20 C1 20 46 |T 7 OF PORT . F| 00000170: 4F 52 20 49 4E 50 55 54 20 41 4E 44 20 20 22 3B |OR INPUT AND ";| 00000180: 3A 00 CD 11 05 00 99 22 54 48 45 20 4F 54 48 45 |:......"THE OTHE| 00000190: 52 20 42 49 54 53 20 54 4F 20 4F 55 54 20 54 48 |R BITS TO OUT TH| 000001A0: 45 4E 20 57 45 20 50 4F 4B 45 20 54 48 45 20 C4 |EN WE POKE THE .| 000001B0: C4 D2 20 20 57 49 54 48 20 31 32 37 2E 20 D4 4F |.. WITH 127. .O| 000001C0: 20 52 45 41 44 20 54 48 45 20 22 3B 3A 00 18 12 | READ THE ";:...| 000001D0: 06 00 99 22 4A 4F 59 53 54 49 43 4B 2C 20 4F 4E |..."JOYSTICK, ON| 000001E0: 45 20 50 4F 52 54 20 41 4E 44 4F 4E 45 20 C4 C4 |E PORT ANDONE ..| 000001F0: D2 20 4F 46 20 45 41 43 48 20 36 35 32 32 20 20 |. OF EACH 6522 | 00000200: 4D 55 53 54 20 42 45 20 55 53 45 44 2E 20 20 20 |MUST BE USED. | 00000210: 20 20 20 20 20 22 3B 3A 00 38 12 07 00 99 22 11 | ";:.8....".| 00000220: D0 D2 C5 D3 D3 20 40 20 46 4F 52 20 4E 45 58 54 |..... @ FOR NEXT| 00000230: 20 50 41 47 45 22 3B 3A 00 4B 12 08 00 A1 41 24 | PAGE";:.K....A$| 00000240: 3A 8B 41 24 B3 B1 22 40 22 A7 38 00 9E 12 09 00 |:.A$.."@".8.....| 00000250: 99 22 93 1F 1D CA 4F 59 53 54 49 43 4B 20 D3 57 |."....OYSTICK .W| 00000260: 49 54 43 48 20 20 20 20 20 20 20 20 20 C1 52 52 |ITCH .RR| 00000270: 41 4E 47 45 4D 45 4E 54 22 3A 99 22 11 11 1D 1D |ANGEMENT":."....| 00000280: 1D 1D 1D 1D 1D 53 57 31 20 20 20 20 20 20 20 20 |.....SW1 | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 D9 | ."..| 000002A0: 12 0A 00 99 22 20 20 20 20 20 20 20 20 DD 22 3A |...." .":| 000002B0: 97 33 36 38 37 39 2C 32 35 3A 99 22 20 20 20 20 |.36879,25:." | 000002C0: 20 20 20 20 DD 22 3A 99 22 20 20 53 57 32 C0 C0 | .":." SW2..| 000002D0: C0 20 C0 C0 C0 53 57 33 22 00 12 13 0B 00 99 22 |. ...SW3"......"| 000002E0: 20 20 20 20 20 20 20 20 DD 22 3A 99 22 20 20 20 | .":." | 000002F0: 20 20 20 20 20 DD 22 3A 99 22 20 20 20 20 20 20 | .":." | 00000300: 20 20 DD 22 3A 99 22 20 20 20 20 20 20 20 53 57 | .":." SW| 00000310: 34 22 00 2D 13 0C 00 99 22 11 11 20 20 C6 C9 D2 |4".-....".. ...| 00000320: C5 20 C2 D5 D4 D4 CF CE 20 53 57 35 22 00 7D 13 |. ...... SW5".}.| 00000330: 0D 00 99 22 11 46 4F 55 52 20 4F 46 20 54 48 45 |...".FOUR OF THE| 00000340: 20 53 57 49 54 43 48 45 53 20 20 41 52 45 20 52 | SWITCHES ARE R| 00000350: 45 41 44 20 46 52 4F 4D 20 D6 C9 C1 23 31 20 20 |EAD FROM ...#1 | 00000360: 20 54 48 45 20 4F 54 48 45 52 20 53 57 33 20 46 | THE OTHER SW3 F| 00000370: 52 4F 4D 20 20 20 20 D6 C9 C1 23 32 22 00 9C 13 |ROM ...#2"...| 00000380: 0E 00 99 22 D0 D2 C5 D3 D3 20 40 20 46 4F 52 20 |..."..... @ FOR | 00000390: 4E 45 58 54 20 50 41 47 45 22 3B 3A 00 B0 13 0F |NEXT PAGE";:....| 000003A0: 00 A1 41 24 3A 8B 41 24 B3 B1 22 40 22 A7 31 35 |..A$:.A$.."@".15| 000003B0: 00 E8 13 10 00 99 22 93 20 CB 45 59 20 CC 4F 43 |......". .EY .OC| 000003C0: 41 54 49 4F 4E 53 22 3A 99 22 11 12 44 45 43 49 |ATIONS":."..DECI| 000003D0: 4D 41 4C 92 20 20 20 20 20 20 20 12 50 55 52 50 |MAL. .PURP| 000003E0: 4F 53 45 92 20 22 3B 3A 00 25 14 11 00 99 22 11 |OSE. ";:.%....".| 000003F0: 20 33 37 31 33 39 20 20 20 20 20 20 20 C4 C4 D2 | 37139 ...| 00000400: 20 D6 C9 C1 23 31 22 3B 3A 99 22 11 20 33 37 31 | ...#1";:.". 371| 00000410: 33 37 20 20 20 20 20 20 20 CF 55 54 50 55 54 20 |37 .UTPUT | 00000420: C1 20 22 3B 3A 00 5F 14 12 00 99 22 20 20 20 20 |. ";:._...." | 00000430: 20 20 20 20 20 20 20 20 20 C2 49 54 32 20 53 57 | .IT2 SW| 00000440: 31 22 3B 3A 99 22 20 20 20 20 20 20 20 20 20 20 |1";:." | 00000450: 20 20 20 20 C2 49 54 33 20 53 57 34 22 3B 3A 00 | .IT3 SW4";:.| 00000460: 99 14 13 00 99 22 20 20 20 20 20 20 20 20 20 20 |....." | 00000470: 20 20 20 20 C2 49 54 34 20 53 57 32 22 3B 3A 99 | .IT4 SW2";:.| 00000480: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 |" .| 00000490: 49 54 35 20 53 57 35 22 3A 00 D6 14 14 00 99 22 |IT5 SW5":......"| 000004A0: 11 20 33 37 31 35 34 20 20 20 20 20 20 20 C4 C4 |. 37154 ..| 000004B0: D2 20 D6 C9 C1 23 32 22 3B 3A 99 22 11 20 33 37 |. ...#2";:.". 37| 000004C0: 31 35 32 20 20 20 20 20 20 20 CF 55 54 50 55 54 |152 .UTPUT| 000004D0: 20 C2 20 22 3B 3A 00 F3 14 15 00 99 22 20 20 20 | . ";:......" | 000004E0: 20 20 20 20 20 20 20 20 20 20 C2 49 54 37 20 53 | .IT7 S| 000004F0: 57 33 22 00 40 15 16 00 99 22 1C D4 4F 20 52 45 |W3".@...."..O RE| 00000500: 41 44 20 CA 4F 59 53 54 49 43 4B 20 49 4E 50 55 |AD .OYSTICK INPU| 00000510: 54 59 4F 55 20 4D 55 53 54 20 46 49 52 53 54 20 |TYOU MUST FIRST | 00000520: 53 45 54 20 54 48 45 C4 C4 D2 20 54 4F 20 30 3A |SET THE... TO 0:| 00000530: D4 48 45 4E 20 52 45 41 44 20 54 48 45 22 3B 3A |.HEN READ THE";:| 00000540: 00 60 15 17 00 99 22 4F 55 54 50 55 54 20 57 49 |.`...."OUTPUT WI| 00000550: 54 48 20 41 20 50 45 45 4B 2E 20 20 20 22 3B 3A |TH A PEEK. ";:| 00000560: 00 81 15 18 00 99 22 11 1F D0 52 45 53 53 20 40 |......"...RESS @| 00000570: 20 46 4F 52 20 4E 45 58 54 20 50 41 47 45 22 3B | FOR NEXT PAGE";| 00000580: 3A 00 95 15 19 00 A1 41 24 3A 8B 41 24 B3 B1 22 |:......A$:.A$.."| 00000590: 40 22 A7 32 35 00 E1 15 1A 00 99 22 93 D4 48 45 |@".25......"..HE| 000005A0: 52 45 20 49 53 20 4F 4E 4C 59 20 4F 4E 45 20 53 |RE IS ONLY ONE S| 000005B0: 4E 41 47 D6 C9 C1 23 32 20 49 53 20 41 4C 53 4F |NAG...#2 IS ALSO| 000005C0: 20 55 53 45 44 20 54 4F 20 52 45 41 44 20 54 48 | USED TO READ TH| 000005D0: 45 20 4B 45 59 42 4F 41 52 44 20 53 4F 20 22 3B |E KEYBOARD SO ";| 000005E0: 3A 00 22 16 1B 00 99 22 20 4D 55 53 54 20 42 45 |:."...." MUST BE| 000005F0: 20 52 45 54 55 52 4E 45 44 20 54 4F 20 20 20 20 | RETURNED TO | 00000600: 49 54 27 53 20 4F 52 49 47 49 4E 41 4C 20 56 41 |IT'S ORIGINAL VA| 00000610: 4C 55 45 20 20 20 41 46 54 45 52 57 41 52 44 53 |LUE AFTERWARDS| 00000620: 2E 22 00 6E 16 1C 00 99 22 D4 48 45 20 4A 4F 59 |.".n....".HE JOY| 00000630: 53 54 49 43 4B 20 49 53 20 55 53 45 44 20 20 49 |STICK IS USED I| 00000640: 4E 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |N THE FOLLOWING | 00000650: 3A 20 20 20 20 54 4F 20 4D 4F 56 45 20 41 20 42 |: TO MOVE A B| 00000660: 41 4C 4C 20 41 52 4F 55 4E 44 20 22 3B 3A 00 B6 |ALL AROUND ";:..| 00000670: 16 1D 00 81 54 B2 30 A4 33 30 30 30 3A 82 54 3A |....T.0.3000:.T:| 00000680: 99 C7 28 31 34 32 29 3A 99 22 93 11 11 11 11 11 |..(142):."......| 00000690: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... | 000006A0: 55 53 45 20 40 20 54 4F 20 45 4E 44 20 50 52 4F |USE @ TO END PRO| 000006B0: 47 52 41 4D 22 3B 00 01 17 1E 00 50 41 B2 33 37 |GRAM";.....PA.37| 000006C0: 31 35 31 3A 97 50 41 2C 30 3A 50 42 B2 50 41 AA |151:.PA,0:PB.PA.| 000006D0: 31 3A 50 43 B2 50 42 AA 32 3A 5A 58 B2 C2 28 36 |1:PC.PB.2:ZX..(6| 000006E0: 34 38 29 AC 32 35 36 3A 43 4C B2 33 37 38 38 38 |48).256:CL.37888| 000006F0: AA 34 AC 28 C2 28 33 36 38 36 36 29 AF 31 32 38 |.4.(.(36866).128| 00000700: 29 00 2B 17 1F 00 4D B2 C2 28 50 41 29 3A 97 50 |).+...M..(PA):.P| 00000710: 43 2C 31 32 37 3A 4E B2 C2 28 50 42 29 3A 97 50 |C,127:N..(PB):.P| 00000720: 43 2C 32 35 35 3A 5A 5A B2 5A 58 00 45 17 20 00 |C,255:ZZ.ZX.E. .| 00000730: 8B 28 4D AF 34 29 B2 30 A7 5A 58 B2 5A 58 AB 32 |.(M.4).0.ZX.ZX.2| 00000740: 32 3A 89 34 30 00 5F 17 21 00 8B 28 4D AF 38 29 |2:.40._.!..(M.8)| 00000750: B2 30 A7 5A 58 B2 5A 58 AA 32 32 3A 89 34 30 00 |.0.ZX.ZX.22:.40.| 00000760: 7A 17 22 00 8B 28 4E AF 31 32 38 29 B2 30 A7 5A |z."..(N.128).0.Z| 00000770: 58 B2 5A 58 AA 31 3A 89 34 30 00 94 17 23 00 8B |X.ZX.1:.40...#..| 00000780: 28 4D AF 31 36 29 B2 30 A7 5A 58 B2 5A 58 AB 31 |(M.16).0.ZX.ZX.1| 00000790: 3A 89 34 30 00 AB 17 24 00 8B 28 4D AF 33 32 29 |:.40...$..(M.32)| 000007A0: B2 30 A7 46 52 B2 31 3A 89 34 30 00 BD 17 25 00 |.0.FR.1:.40...%.| 000007B0: 8B C2 28 31 39 37 29 B2 35 33 A7 35 30 00 D9 17 |..(197).53.50...| 000007C0: 28 00 8B 5A 58 B3 C2 28 36 34 38 29 AC 32 35 36 |(..ZX..(648).256| 000007D0: A7 5A 58 B2 5A 58 AA 32 32 00 FB 17 29 00 8B 5A |.ZX.ZX.22...)..Z| 000007E0: 58 B1 C2 28 36 34 38 29 AC 32 35 36 AA 32 32 AC |X..(648).256.22.| 000007F0: 31 38 A7 5A 58 B2 5A 58 AB 32 32 00 1A 18 2A 00 |18.ZX.ZX.22...*.| 00000800: 97 5A 58 2C 38 31 3A 97 5A 58 AA 43 4C AB C2 28 |.ZX,81:.ZX.CL..(| 00000810: 36 34 38 29 AC 32 35 36 2C 32 00 41 18 2B 00 8B |648).256,2.A.+..| 00000820: 5A 5A B3 B1 5A 58 A7 97 5A 5A 2C 33 32 3A 97 5A |ZZ..ZX..ZZ,32:.Z| 00000830: 5A AA 43 4C AB C2 28 36 34 38 29 AC 32 35 36 2C |Z.CL..(648).256,| 00000840: 31 00 49 18 2C 00 89 33 31 00 78 18 32 00 99 22 |1.I.,..31.x.2.."| 00000850: 93 45 4E 44 20 4F 46 20 48 45 41 44 53 43 52 41 |.END OF HEADSCRA| 00000860: 54 43 48 45 52 53 20 43 4C 55 42 22 3A 81 54 B2 |TCHERS CLUB":.T.| 00000870: 30 A4 33 30 30 30 3A 82 00 AB 18 33 00 97 36 34 |0.3000:....3..64| 00000880: 32 2C 31 36 3A 97 36 34 34 2C 33 30 3A 97 36 34 |2,16:.644,30:.64| 00000890: 38 2C 33 30 3A 97 36 33 31 2C 31 33 31 3A 97 31 |8,30:.631,131:.1| 000008A0: 39 38 2C 31 3A 9E 36 34 38 32 34 00 00 00 94 00 |98,1:.64824.....|
..N....CLUB7 1:POKE36879,110:POKE646,1:P
RINTCHR$(14)"...JOYSTICK INPUT TO VIC"..
...."..THE JOYSTICK IS LIKE ALL INPUT/O
UTPUTS ON THE VIC CONTROLLED BY ";:....
.."THE 6522 VIAS.EACH HASA DDR DATA DIRE
CTION REGISTER.THIS CONTROLS ";:.5...."
THE DIRECTION OF THE PORT, EACH BIT MUS
T BESET TO 0 FOR INPUT AND";:......"TO 1
FOR OUTPUT.IF WE WISH TO SET BIT 7 OF
PORT A FOR INPUT AND ";:.M...."THE OTHE
R BITS TO OUT THEN WE POKE THE DDR WITH
127. TO READ THE ";:......"JOYSTICK, ON
E PORT ANDONE DDR OF EACH 6522 MUST BE
USED. ";:.8....".PRESS @ FOR NEXT
PAGE";:.K....A$:.A$.."@".8......"...JOY
STICK SWITCH ARRANGEMENT":."....
.....SW1 .".Y...."
.":.36879,25:." .":." SW2..
. ...SW3"......" .":." .":
." .":." SW4".-....".. FIR
E BUTTON SW5".}....".FOUR OF THE SWITCHE
S ARE READ FROM VIA#1 THE OTHER SW3 F
ROM VIA#2"......"PRESS @ FOR NEXT PAG
E";:......A$:.A$.."@".15......". KEY LOC
ATIONS":."..DECIMAL. .PURPOSE. ";:
.%....". 37139 DDR VIA#1";:.". 371
37 OUTPUT A ";:._...."
BIT2 SW1";:." BIT3 SW4";:.
....." BIT4 SW2";:."
BIT5 SW5":.V....". 37154 DD
R VIA#2";:.". 37152 OUTPUT B ";:..
...." BIT7 SW3".@....".TO RE
AD JOYSTICK INPUTYOU MUST FIRST SET THED
DR TO 0:THEN READ THE";:.`...."OUTPUT WI
TH A PEEK. ";:......"..PRESS @ FOR NEX
T PAGE";:......A$:.A$.."@".25......".THE
RE IS ONLY ONE SNAGVIA#2 IS ALSO USED TO
READ THE KEYBOARD SO ";:."...." MUST BE
RETURNED TO IT'S ORIGINAL VALUE AF
TERWARDS.".N...."THE JOYSTICK IS USED I
N THE FOLLOWING : TO MOVE A BALL AROU
ND ";:......T.0.3000:.T:.G(142):."......
............... USE @ TO END PROGRAM";..
...PA.37151:.PA,0:PB.PA.1:PC.PB.2:ZX.B(6
48).256:CL.37888.4.(B(36866).128).+...M.
B(PA):.PC,127:N.B(PB):.PC,255:ZZ.ZX.E. .
.(M.4).0.ZX.ZX.22:.40._.!..(M.8).0.ZX.ZX
.22:.40.Z."..(N.128).0.ZX.ZX.1:.40...#..
(M.16).0.ZX.ZX.1:.40...$..(M.32).0.FR.1:
.40...%..B(197).53.50.Y.(..ZX.B(648).256
.ZX.ZX.22...)..ZX.B(648).256.22.18.ZX.ZX
.22...*..ZX,81:.ZX.CL.B(648).256,2.A.+..
ZZ..ZX..ZZ,32:.ZZ.CL.B(648).256,1.I.,..3
1.X.2..".END OF HEADSCRATCHERS CLUB":.T.
0.3000:....3..642,16:.644,30:.648,30:.63
1,131:.198,1:.64824.....
> CLICK IMAGE PREVIEW FOR FULL MODAL