VOETB COMPETITIE
FILE INFORMATION
FILENAME(S): VOETB COMPETITIE
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
807ee7c7b5e0baf8c748fb0880c6389ac385b8f362490b8b78b2daadd222d6e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 44 2 | VOETB COMPETITIE | PRG | DuncanTwain | 1 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 05 00 99 22 93 05 22 3A 97 35 33 32 |......."..":.532|
00000010: 38 30 2C 35 3A 97 35 33 32 38 31 2C 36 00 27 08 |80,5:.53281,6.'.|
00000020: 0A 00 89 31 30 30 30 00 31 08 14 00 89 31 30 31 |...1000.1....101|
00000030: 30 00 3D 08 64 00 99 22 93 22 3B 3A 8E 00 6D 08 |0.=.d..".";:..m.|
00000040: 6E 00 99 C8 28 22 13 11 11 11 11 11 11 11 11 11 |n...("..........|
00000050: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000060: 2C B6 28 B5 28 56 45 AA 31 29 29 29 3B 00 7D 08 |,.(.(VE.1)));.}.|
00000070: 70 00 99 A6 B6 28 48 4F 29 29 3B 3A 8E 00 A2 08 |p....(HO));:....|
00000080: 78 00 48 4F B2 C2 28 32 30 39 29 AA 32 35 36 AC |x.HO..(209).256.|
00000090: C2 28 32 31 30 29 AB 31 30 32 34 AA C2 28 32 31 |.(210).1024..(21|
000000A0: 31 29 00 C0 08 79 00 56 45 B2 B5 28 48 4F AD 34 |1)...y.VE..(HO.4|
000000B0: 30 29 3A 48 4F B2 48 4F AB 34 30 AC 56 45 3A 8E |0):HO.HO.40.VE:.|
000000C0: 00 CB 08 C8 00 A1 49 4E 24 3A 8E 00 E0 08 D2 00 |......IN$:......|
000000D0: A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 89 32 31 30 |.IN$:.IN$."".210|
000000E0: 00 E6 08 DC 00 8E 00 13 09 FA 00 97 35 34 32 39 |............5429|
000000F0: 36 2C 31 35 3A 97 35 34 32 37 38 2C 32 35 35 3A |6,15:.54278,255:|
00000100: 97 35 34 32 37 33 2C 39 35 3A 97 35 34 32 37 36 |.54273,95:.54276|
00000110: 2C 31 37 00 25 09 FB 00 81 4F 4F B2 31 A4 32 30 |,17.%....OO.1.20|
00000120: 30 3A 82 4F 4F 00 46 09 FC 00 97 35 34 32 37 36 |0:.OO.F....54276|
00000130: 2C 30 3A 97 35 34 32 37 37 2C 30 3A 97 35 34 32 |,0:.54277,0:.542|
00000140: 37 38 2C 30 3A 8E 00 54 09 04 01 52 56 B2 BB 28 |78,0:..T...RV..(|
00000150: 31 29 3A 8E 00 62 09 0E 01 46 52 B2 B8 28 30 29 |1):..b...FR..(0)|
00000160: 3A 8E 00 8B 09 2C 01 53 52 24 B2 C4 28 53 52 29 |:....,.SR$..(SR)|
00000170: 3A 8B C8 28 53 52 24 2C 31 29 B2 22 20 22 A7 53 |:..(SR$,1)." ".S|
00000180: 52 24 B2 CA 28 53 52 24 2C 32 29 00 91 09 2D 01 |R$..(SR$,2)...-.|
00000190: 8E 00 B6 09 36 01 53 52 24 B2 22 22 3A 8B 53 52 |....6.SR$."":.SR|
000001A0: B1 B2 31 30 AE 28 43 54 AB 43 4E AB B4 28 43 4E |..10.(CT.CN..(CN|
000001B0: 29 29 A7 33 31 38 00 D1 09 37 01 8B 53 52 B3 AB |)).318...7..SR..|
000001C0: 2E 35 AC 31 30 AE AB 43 4E A7 53 52 24 B2 22 2D |.5.10..CN.SR$."-|
000001D0: 22 00 F8 09 38 01 53 52 24 B2 53 52 24 AA CA 28 |"...8.SR$.SR$..(|
000001E0: C4 28 B5 28 B6 28 53 52 29 AA 2E 35 AC 31 30 AE |.(.(.(SR)..5.10.|
000001F0: AB 43 4E 29 29 2C 32 29 00 23 0A 39 01 8B C3 28 |.CN)),2).#.9...(|
00000200: 53 52 24 29 B3 43 54 AB 43 4E AA 28 43 4E B3 B1 |SR$).CT.CN.(CN..|
00000210: 30 29 A7 53 52 24 B2 22 20 22 AA 53 52 24 3A 89 |0).SR$." ".SR$:.|
00000220: 33 31 33 00 3D 0A 3A 01 8B 43 4E B2 30 B0 B6 28 |313.=.:..CN.0..(|
00000230: 53 52 29 B1 B2 31 45 31 30 89 33 31 36 00 71 0A |SR)..1E10.316.q.|
00000240: 3B 01 53 52 24 B2 53 52 24 AA CA 28 C4 28 31 AA |;.SR$.SR$..(.(1.|
00000250: B6 28 53 52 29 AB B5 28 B6 28 53 52 29 29 AA 2E |.(SR)..(.(SR))..|
00000260: 35 AC 31 30 AE AB 43 4E 29 2C 33 2C 43 4E AA 31 |5.10..CN),3,CN.1|
00000270: 29 00 91 0A 3C 01 8B C3 28 53 52 24 29 B3 43 54 |)...<...(SR$).CT|
00000280: A7 53 52 24 B2 53 52 24 AA 22 20 22 3A 89 33 31 |.SR$.SR$." ":.31|
00000290: 36 00 A7 0A 3D 01 8B C3 28 53 52 24 29 B1 43 54 |6...=...(SR$).CT|
000002A0: A7 53 52 24 B2 22 22 00 C7 0A 3E 01 8B C3 28 53 |.SR$.""...>...(S|
000002B0: 52 24 29 B3 43 54 A7 53 52 24 B2 53 52 24 AA 22 |R$).CT.SR$.SR$."|
000002C0: 2A 22 3A 89 33 31 38 00 CD 0A 3F 01 8E 00 E3 0A |*":.318...?.....|
000002D0: 5E 01 9F 34 2C 34 3A 98 34 2C 53 52 24 3B 3A A0 |^..4,4:.4,SR$;:.|
000002E0: 34 3A 8E 00 F4 0A 68 01 9F 34 2C 34 3A 98 34 3A |4:....h..4,4:.4:|
000002F0: A0 34 3A 8E 00 13 0B E8 03 41 B2 32 30 AC 31 38 |.4:......A.20.18|
00000300: AC 32 3A 89 32 30 3A 8F 20 42 55 4E 44 45 53 4C |.2:.20:. BUNDESL|
00000310: 49 47 41 00 19 0B F2 03 8F 00 28 0B FC 03 8D 31 |IGA.......(....1|
00000320: 30 30 3A 8D 31 36 39 30 00 4E 0B 06 04 99 22 44 |00:.1690.N...."D|
00000330: 4F 20 59 4F 55 20 4E 45 45 44 20 49 4E 53 54 52 |O YOU NEED INSTR|
00000340: 55 43 54 49 4F 4E 53 20 28 59 2F 4E 29 22 00 57 |UCTIONS (Y/N)".W|
00000350: 0B 10 04 8D 32 30 30 00 7E 0B 1A 04 8B 28 49 4E |....200.~....(IN|
00000360: 24 B2 22 59 22 29 20 B0 28 49 4E 24 B2 22 59 22 |$."Y") .(IN$."Y"|
00000370: 29 20 A7 8D 31 38 31 30 3A 89 31 32 35 30 00 A4 |) ..1810:.1250..|
00000380: 0B 24 04 8B 28 49 4E 24 B2 22 4E 22 29 20 B0 28 |.$..(IN$."N") .(|
00000390: 49 4E 24 B2 22 4E 22 29 20 A7 8D 31 30 30 3A 89 |IN$."N") ..100:.|
000003A0: 31 32 35 30 00 AE 0B 2E 04 89 31 30 34 30 00 C8 |1250......1040..|
000003B0: 0B E2 04 86 53 31 24 28 31 38 29 2C 4D 28 31 38 |....S1$(18),M(18|
000003C0: 29 2C 50 4F 28 31 38 29 00 FB 0B EC 04 8F 20 4D |),PO(18)...... M|
000003D0: 28 29 20 46 55 45 52 20 4D 41 52 4B 49 45 52 55 |() FUER MARKIERU|
000003E0: 4E 47 20 4F 42 20 56 45 52 45 49 4E 20 53 43 48 |NG OB VEREIN SCH|
000003F0: 4F 4E 20 49 4E 20 4C 49 53 54 45 00 08 0C F6 04 |ON IN LISTE.....|
00000400: 86 53 50 24 28 31 38 29 00 27 0C 00 05 81 49 B2 |.SP$(18).'....I.|
00000410: 31 20 A4 31 37 3A 87 53 50 24 28 49 29 3A 87 50 |1 .17:.SP$(I):.P|
00000420: 4F 28 49 29 3A 82 49 00 53 0C 0A 05 53 50 24 28 |O(I):.I.S...SP$(|
00000430: 30 29 B2 22 53 54 55 54 54 47 41 52 54 22 3A 50 |0)."STUTTGART":P|
00000440: 4F 28 30 29 B2 39 3A 99 22 53 50 49 45 4C 54 41 |O(0).9:."SPIELTA|
00000450: 47 22 3B 00 76 0C 14 05 85 58 37 3A 46 31 B2 30 |G";.v....X7:F1.0|
00000460: 3A 8B 58 37 B1 31 37 20 A7 58 37 B2 58 37 AB 31 |:.X7.17 .X7.X7.1|
00000470: 37 3A 46 31 B2 31 00 92 0C 1E 05 59 4F B2 30 3A |7:F1.1.....YO.0:|
00000480: 81 50 B2 31 20 A4 31 38 3A 4D 28 50 29 B2 30 3A |.P.1 .18:M(P).0:|
00000490: 82 50 00 BC 0C 28 05 81 49 B2 31 20 A4 31 37 3A |.P...(..I.1 .17:|
000004A0: 48 24 B2 53 50 24 28 49 29 3A 48 37 B2 49 3A 8B |H$.SP$(I):H7.I:.|
000004B0: 4D 28 49 29 B2 31 20 A7 31 35 33 30 00 CC 0C 32 |M(I).1 .1530...2|
000004C0: 05 4E 52 B2 B5 28 49 AD 32 29 AC 32 00 DC 0C 3C |.NR..(I.2).2...<|
000004D0: 05 8B 49 B2 31 20 A7 4E 52 B2 31 38 00 EE 0C 46 |..I.1 .NR.18...F|
000004E0: 05 8B 4E 52 B2 31 34 20 A7 4E 52 B2 31 35 00 FF |..NR.14 .NR.15..|
000004F0: 0C 50 05 8B 49 B2 31 36 20 A7 4E 52 B2 31 34 00 |.P..I.16 .NR.14.|
00000500: 10 0D 5A 05 8B 49 B2 31 37 20 A7 4E 52 B2 31 38 |..Z..I.17 .NR.18|
00000510: 00 27 0D 64 05 47 45 B2 28 31 39 AA 28 58 37 AB |.'.d.GE.(19.(X7.|
00000520: 31 29 AC 32 AB 49 29 00 42 0D 6E 05 8B 47 45 B1 |1).2.I).B.n..GE.|
00000530: 31 37 20 A7 47 45 B2 47 45 AB 31 37 3A 89 31 33 |17 .GE.GE.17:.13|
00000540: 39 30 00 52 0D 78 05 8B 47 45 B2 49 20 A7 47 45 |90.R.x..GE.I .GE|
00000550: B2 30 00 67 0D 82 05 47 24 B2 53 50 24 28 47 45 |.0.g...G$.SP$(GE|
00000560: 29 3A 47 37 B2 47 45 00 82 0D 8C 05 46 B2 31 3A |):G7.GE.....F.1:|
00000570: 8F 20 48 45 49 53 53 54 20 41 55 53 57 41 45 52 |. HEISST AUSWAER|
00000580: 54 53 00 98 0D 96 05 8B 49 B2 31 20 A7 46 B2 31 |TS......I.1 .F.1|
00000590: AB 46 3A 89 31 34 37 30 00 C1 0D A0 05 8F 20 53 |.F:.1470...... S|
000005A0: 50 49 45 4C 54 45 20 31 2E 20 41 55 53 57 41 45 |PIELTE 1. AUSWAE|
000005B0: 52 54 53 20 4F 42 57 2E 20 55 4E 47 45 52 41 44 |RTS OBW. UNGERAD|
000005C0: 45 00 D8 0D AA 05 8B 49 AD 32 B2 B5 28 49 AD 32 |E......I.2..(I.2|
000005D0: 29 20 A7 46 B2 31 AB 46 00 07 0E B4 05 8F 20 56 |) .F.1.F...... V|
000005E0: 45 52 45 49 4E 45 20 4D 49 54 20 47 45 52 41 44 |EREINE MIT GERAD|
000005F0: 45 52 20 4E 52 20 53 50 49 45 4C 54 45 4E 20 31 |ER NR SPIELTEN 1|
00000600: 2E 20 41 55 53 57 2E 00 20 0E BE 05 8B 58 37 AD |. AUSW.. ....X7.|
00000610: 32 B2 B5 28 58 37 AD 32 29 20 A7 46 B2 31 AB 46 |2..(X7.2) .F.1.F|
00000620: 00 33 0E C8 05 8B 58 37 B3 B2 4E 52 20 A7 46 B2 |.3....X7..NR .F.|
00000630: 31 AB 46 00 42 0E D2 05 8B 46 31 20 A7 46 B2 31 |1.F.B....F1 .F.1|
00000640: AB 46 00 6E 0E DC 05 8B 46 20 A7 5A 24 B2 47 24 |.F.n....F .Z$.G$|
00000650: 3A 47 24 B2 48 24 3A 48 24 B2 5A 24 3A 5A 37 B2 |:G$.H$:H$.Z$:Z7.|
00000660: 47 37 3A 47 37 B2 48 37 3A 48 37 B2 5A 37 00 8F |G7:G7.H7:H7.Z7..|
00000670: 0E E6 05 59 4F B2 50 4F 28 48 37 29 AC 32 3A 8B |...YO.PO(H7).2:.|
00000680: 46 31 20 A7 59 4F B2 50 4F 28 47 37 29 AC 32 00 |F1 .YO.PO(G7).2.|
00000690: BA 0E F0 05 53 31 24 28 59 4F AB 31 29 B2 48 24 |....S1$(YO.1).H$|
000006A0: 3A 53 31 24 28 59 4F 29 B2 47 24 3A 4D 28 49 29 |:S1$(YO).G$:M(I)|
000006B0: B2 31 3A 4D 28 47 45 29 B2 31 00 C1 0E FA 05 82 |.1:M(GE).1......|
000006C0: 49 00 CA 0E 04 06 8D 31 30 30 00 F6 0E 0E 06 99 |I......100......|
000006D0: 22 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 47 |"THE FOLLOWING G|
000006E0: 41 4D 45 53 20 57 49 4C 4C 20 54 41 4B 45 20 50 |AMES WILL TAKE P|
000006F0: 4C 41 43 45 3A 22 00 22 0F 18 06 99 22 3D 3D 3D |LACE:"."...."===|
00000700: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000710: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000720: 3D 22 00 28 0F 22 06 99 00 51 0F 2C 06 81 50 B2 |=".(."...Q.,..P.|
00000730: 31 20 A4 31 37 20 A9 32 3A 99 53 31 24 28 50 29 |1 .17 .2:.S1$(P)|
00000740: 3B A3 32 30 29 3B 53 31 24 28 50 AA 31 29 3A 82 |;.20);S1$(P.1):.|
00000750: 50 00 71 0F 36 06 8F 20 44 49 45 20 53 50 49 45 |P.q.6.. DIE SPIE|
00000760: 4C 45 20 57 45 52 44 45 4E 20 4D 49 54 54 45 4C |LE WERDEN MITTEL|
00000770: 53 00 92 0F 40 06 8F 20 44 45 53 20 46 55 4E 4B |S...@.. DES FUNK|
00000780: 54 49 4F 4E 53 46 45 4C 44 45 53 20 50 4F 28 2E |TIONSFELDES PO(.|
00000790: 2E 29 00 B5 0F 4A 06 8F 20 49 4E 20 44 49 45 20 |.)...J.. IN DIE |
000007A0: 52 45 49 48 45 4E 46 4F 4C 47 45 20 47 45 42 52 |REIHENFOLGE GEBR|
000007B0: 41 43 48 54 2C 00 D2 0F 54 06 8F 20 49 4E 20 44 |ACHT,...T.. IN D|
000007C0: 45 52 20 53 49 45 20 4D 45 49 53 54 45 4E 53 20 |ER SIE MEISTENS |
000007D0: 49 4E 00 F2 0F 5E 06 8F 20 44 45 4E 20 5A 45 49 |IN...^.. DEN ZEI|
000007E0: 54 55 4E 47 45 4E 20 45 52 53 43 48 45 49 4E 45 |TUNGEN ERSCHEINE|
000007F0: 4E 2E 00 1A 10 68 06 99 3A 99 3A 99 22 44 4F 20 |N....h..:.:."DO |
00000800: 59 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 53 54 |YOU WANT TO REST|
00000810: 41 52 54 20 28 59 2F 4E 29 22 00 3C 10 72 06 8D |ART (Y/N)".<.r..|
00000820: 32 30 30 3A 8B 28 49 4E 24 B2 22 59 22 29 20 B0 |200:.(IN$."Y") .|
00000830: 28 49 4E 24 B2 22 59 22 29 20 A7 8A 00 5C 10 7C |(IN$."Y") ...\.||
00000840: 06 8B 28 49 4E 24 B2 22 4E 22 29 20 B0 28 49 4E |..(IN$."N") .(IN|
00000850: 24 B2 22 4E 22 29 20 A7 32 33 34 30 00 66 10 86 |$."N") .2340.f..|
00000860: 06 89 31 36 35 30 00 6C 10 90 06 80 00 75 10 9A |..1650.l.....u..|
00000870: 06 8D 31 30 30 00 8F 10 A4 06 99 22 46 55 53 53 |..100......"FUSS|
00000880: 42 41 4C 4C 42 55 4E 44 45 53 4C 49 47 41 22 00 |BALLBUNDESLIGA".|
00000890: A9 10 AE 06 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |....."==========|
000008A0: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 AF 10 B8 06 99 00 |========".......|
000008B0: D5 10 C2 06 99 22 41 20 50 52 4F 47 52 41 4D 20 |....."A PROGRAM |
000008C0: 42 59 20 54 48 4F 4D 41 53 20 48 4F 46 4D 45 49 |BY THOMAS HOFMEI|
000008D0: 53 54 45 52 22 00 DB 10 CC 06 99 00 F6 10 D6 06 |STER"...........|
000008E0: 99 22 46 52 4F 4D 20 20 20 20 20 20 20 20 20 42 |."FROM B|
000008F0: 4F 43 48 55 4D 22 00 FC 10 E0 06 99 00 20 11 EA |OCHUM"....... ..|
00000900: 06 99 22 57 48 45 52 45 20 52 45 43 45 4E 54 4C |.."WHERE RECENTL|
00000910: 59 20 42 41 59 45 52 4E 20 4D 55 4E 49 43 48 22 |Y BAYERN MUNICH"|
00000920: 00 26 11 F4 06 99 00 3C 11 FE 06 99 22 57 41 53 |.&.....<...."WAS|
00000930: 20 42 45 41 54 45 4E 20 33 3A 31 22 00 44 11 08 | BEATEN 3:1".D..|
00000940: 07 99 3A 8E 00 4D 11 12 07 8D 31 30 30 00 6E 11 |..:..M....100.n.|
00000950: 1C 07 99 22 49 46 20 59 4F 55 27 52 45 20 41 20 |..."IF YOU'RE A |
00000960: 46 41 4E 20 4F 46 20 47 45 52 4D 41 4E 22 00 74 |FAN OF GERMAN".t|
00000970: 11 26 07 99 00 93 11 30 07 99 22 46 4F 4F 54 42 |.&.....0.."FOOTB|
00000980: 41 4C 4C 2C 20 59 4F 55 20 57 49 4C 4C 20 46 49 |ALL, YOU WILL FI|
00000990: 4E 44 22 00 99 11 3A 07 99 00 BA 11 44 07 99 22 |ND"...:.....D.."|
000009A0: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 51 55 49 |THIS PROGRAM QUI|
000009B0: 54 45 20 55 53 45 46 55 4C 22 00 C0 11 4E 07 99 |TE USEFUL"...N..|
000009C0: 00 DD 11 58 07 99 22 42 45 43 41 55 53 45 20 49 |...X.."BECAUSE I|
000009D0: 54 20 41 4C 4C 4F 57 53 20 59 4F 55 22 00 E3 11 |T ALLOWS YOU"...|
000009E0: 62 07 99 00 06 12 6C 07 99 22 54 4F 20 45 56 41 |b.....l.."TO EVA|
000009F0: 4C 55 41 54 45 20 54 48 45 20 47 41 4D 45 53 20 |LUATE THE GAMES |
00000A00: 57 48 49 43 48 22 00 0C 12 76 07 99 00 2E 12 80 |WHICH"...v......|
00000A10: 07 99 22 54 41 4B 45 20 50 4C 41 43 45 20 4F 4E |.."TAKE PLACE ON|
00000A20: 20 41 20 50 41 52 54 49 43 55 4C 41 52 22 00 34 | A PARTICULAR".4|
00000A30: 12 8A 07 99 00 56 12 94 07 99 22 57 45 45 4B 20 |.....V...."WEEK |
00000A40: 49 4E 20 54 48 49 53 20 53 45 41 53 4F 4E 20 38 |IN THIS SEASON 8|
00000A50: 33 2F 38 34 2E 22 00 5C 12 9E 07 99 00 7A 12 A8 |3/84.".\.....z..|
00000A60: 07 99 22 59 4F 55 20 4F 4E 4C 59 20 48 41 56 45 |.."YOU ONLY HAVE|
00000A70: 20 54 4F 20 45 4E 54 45 52 22 00 80 12 B2 07 99 | TO ENTER"......|
00000A80: 00 9E 12 BC 07 99 22 54 48 45 20 4E 55 4D 42 45 |......"THE NUMBE|
00000A90: 52 20 4F 46 20 54 48 45 20 57 45 45 4B 22 00 A4 |R OF THE WEEK"..|
00000AA0: 12 C6 07 99 00 C3 12 D0 07 99 22 28 49 4E 20 47 |.........."(IN G|
00000AB0: 45 52 4D 41 4E 3A 20 27 53 50 49 45 4C 54 41 47 |ERMAN: 'SPIELTAG|
00000AC0: 27 29 22 00 CD 12 DA 07 8D 32 33 32 30 00 F6 12 |')"......2320...|
00000AD0: E4 07 99 22 41 4E 44 20 54 48 45 20 50 52 4F 47 |..."AND THE PROG|
00000AE0: 52 41 4D 20 57 49 4C 4C 20 44 4F 20 54 48 45 20 |RAM WILL DO THE |
00000AF0: 52 45 53 54 2E 22 00 FC 12 EE 07 99 00 02 13 F8 |REST."..........|
00000B00: 07 99 00 29 13 02 08 99 22 59 4F 55 20 43 41 4E |...)...."YOU CAN|
00000B10: 20 55 53 45 20 49 54 20 41 53 20 41 20 53 55 42 | USE IT AS A SUB|
00000B20: 52 4F 55 54 49 4E 45 2E 22 00 2F 13 0C 08 99 00 |ROUTINE."./.....|
00000B30: 55 13 16 08 99 22 54 48 45 20 4E 41 4D 45 53 20 |U...."THE NAMES |
00000B40: 4F 46 20 54 48 45 20 54 45 41 4D 53 20 4F 46 20 |OF THE TEAMS OF |
00000B50: 47 41 4D 45 22 00 5B 13 20 08 99 00 81 13 2A 08 |GAME".[. .....*.|
00000B60: 99 22 4E 4F 20 31 20 41 52 45 20 49 4E 20 53 31 |."NO 1 ARE IN S1|
00000B70: 24 28 31 29 20 41 4E 44 20 53 31 24 28 32 29 20 |$(1) AND S1$(2) |
00000B80: 22 00 87 13 34 08 99 00 9A 13 3E 08 99 22 41 4E |"...4.....>.."AN|
00000B90: 44 20 53 4F 20 4F 4E 2E 2E 22 00 A4 13 48 08 8D |D SO ON.."...H..|
00000BA0: 32 33 32 30 00 AA 13 52 08 99 00 D5 13 5C 08 99 |2320...R.....\..|
00000BB0: 22 49 4E 20 43 41 53 45 20 54 48 45 20 52 45 53 |"IN CASE THE RES|
00000BC0: 50 4F 4E 53 49 42 4C 45 20 44 46 42 2D 4D 41 4E |PONSIBLE DFB-MAN|
00000BD0: 41 47 45 52 22 00 DB 13 66 08 99 00 FA 13 70 08 |AGER"...f.....p.|
00000BE0: 99 22 44 4F 45 53 4E 27 54 20 43 48 41 4E 47 45 |."DOESN'T CHANGE|
00000BF0: 20 54 48 45 20 4D 4F 44 45 22 00 00 14 7A 08 99 | THE MODE"...z..|
00000C00: 00 2C 14 84 08 99 22 59 4F 55 20 57 49 4C 4C 20 |.,...."YOU WILL |
00000C10: 42 45 20 41 42 4C 45 20 54 4F 20 55 53 45 20 54 |BE ABLE TO USE T|
00000C20: 48 49 53 20 50 52 4F 47 52 41 4D 22 00 32 14 8E |HIS PROGRAM".2..|
00000C30: 08 99 00 59 14 98 08 99 22 46 4F 52 20 41 4C 4C |...Y...."FOR ALL|
00000C40: 20 4F 54 48 45 52 20 53 45 41 53 4F 4E 53 2C 20 | OTHER SEASONS, |
00000C50: 59 4F 55 20 4F 4E 4C 59 22 00 5F 14 A2 08 99 00 |YOU ONLY"._.....|
00000C60: 82 14 AC 08 99 22 48 41 56 45 20 54 4F 20 42 45 |....."HAVE TO BE|
00000C70: 20 43 41 52 45 46 55 4C 20 57 49 54 48 20 54 48 | CAREFUL WITH TH|
00000C80: 45 22 00 88 14 B6 08 99 00 B3 14 C0 08 99 22 53 |E"............"S|
00000C90: 45 51 55 45 4E 43 45 20 4F 46 20 54 48 45 20 54 |EQUENCE OF THE T|
00000CA0: 45 41 4D 53 20 49 4E 20 54 48 45 20 44 41 54 41 |EAMS IN THE DATA|
00000CB0: 53 2E 22 00 B9 14 CA 08 99 00 DD 14 D4 08 99 22 |S."............"|
00000CC0: 49 46 20 59 4F 55 20 54 48 45 4E 20 4E 45 45 44 |IF YOU THEN NEED|
00000CD0: 20 54 48 45 20 43 4F 52 52 45 43 54 22 00 E3 14 | THE CORRECT"...|
00000CE0: DE 08 99 00 0B 15 E8 08 99 22 53 45 51 55 45 4E |........."SEQUEN|
00000CF0: 43 45 20 46 4F 52 20 54 48 4F 53 45 20 4F 54 48 |CE FOR THOSE OTH|
00000D00: 45 52 20 53 45 41 53 4F 4E 53 22 00 11 15 F2 08 |ER SEASONS".....|
00000D10: 99 00 32 15 FC 08 99 22 57 48 59 20 54 48 45 4E |..2...."WHY THEN|
00000D20: 20 4E 4F 54 20 57 52 49 54 45 20 54 4F 20 4D 45 | NOT WRITE TO ME|
00000D30: 3F 22 00 3E 15 06 09 8D 32 33 32 30 3A 8E 00 69 |?".>....2320:..i|
00000D40: 15 10 09 99 3A 99 3A 99 22 50 4C 45 41 53 45 20 |....:.:."PLEASE |
00000D50: 50 52 45 53 53 20 41 20 4B 45 59 20 54 4F 20 43 |PRESS A KEY TO C|
00000D60: 4F 4E 54 49 4E 55 45 22 3B 00 79 15 1A 09 8D 32 |ONTINUE";.y....2|
00000D70: 31 30 3A 8D 31 30 30 3A 8E 00 82 15 24 09 8D 31 |10:.100:....$..1|
00000D80: 30 30 00 A9 15 2E 09 99 22 2A 2A 2A 2A 2A 2A 2A |00......"*******|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 D0 15 38 09 99 22 |********"...8.."|
00000DB0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 | *"|
00000DD0: 00 F7 15 42 09 99 22 2A 20 4D 59 20 41 44 44 52 |...B.."* MY ADDR|
00000DE0: 45 53 53 3A 20 20 20 20 20 20 20 20 20 20 20 20 |ESS: |
00000DF0: 20 20 20 20 20 2A 22 00 1E 16 4C 09 99 22 2A 20 | *"...L.."* |
00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 45 | *".E|
00000E20: 16 56 09 99 22 2A 20 54 48 4F 4D 41 53 20 48 4F |.V.."* THOMAS HO|
00000E30: 46 4D 45 49 53 54 45 52 20 20 20 20 20 20 20 20 |FMEISTER |
00000E40: 20 20 20 2A 22 00 6C 16 60 09 99 22 2A 20 20 20 | *".l.`.."* |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 20 20 20 20 20 20 20 20 20 20 2A 22 00 93 16 6A | *"...j|
00000E70: 09 99 22 2A 20 57 49 54 54 45 4E 42 45 52 47 53 |.."* WITTENBERGS|
00000E80: 54 52 2E 20 32 35 20 20 20 20 20 20 20 20 20 20 |TR. 25 |
00000E90: 20 2A 22 00 BA 16 74 09 99 22 2A 20 20 20 20 20 | *"...t.."* |
00000EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EB0: 20 20 20 20 20 20 20 20 2A 22 00 E1 16 7E 09 99 | *"...~..|
00000EC0: 22 2A 20 34 36 33 30 20 42 4F 43 48 55 4D 20 37 |"* 4630 BOCHUM 7|
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000EE0: 22 00 08 17 88 09 99 22 2A 20 20 20 20 20 20 20 |"......"* |
00000EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F00: 20 20 20 20 20 20 2A 22 00 2F 17 92 09 99 22 2A | *"./...."*|
00000F10: 20 57 45 53 54 20 2D 20 47 45 52 4D 41 4E 59 20 | WEST - GERMANY |
00000F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 | *".|
00000F30: 56 17 9C 09 99 22 2A 20 20 20 20 20 20 20 20 20 |V...."* |
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F50: 20 20 20 20 2A 22 00 7D 17 A6 09 99 22 2A 2A 2A | *".}...."***|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 83 17 |************"...|
00000F80: B0 09 80 00 99 17 A8 61 83 22 42 52 41 55 4E 53 |.......a."BRAUNS|
00000F90: 43 48 57 45 49 47 22 2C 31 00 B1 17 B2 61 83 22 |CHWEIG",1....a."|
00000FA0: 4B 41 49 53 45 52 53 4C 41 55 54 45 52 4E 22 2C |KAISERSLAUTERN",|
00000FB0: 38 00 C3 17 BC 61 83 22 4D 41 4E 4E 48 45 49 4D |8....a."MANNHEIM|
00000FC0: 22 2C 38 00 D5 17 C6 61 83 22 44 4F 52 54 4D 55 |",8....a."DORTMU|
00000FD0: 4E 44 22 2C 37 00 E9 17 D0 61 83 22 56 46 4C 20 |ND",7....a."VFL |
00000FE0: 42 4F 43 48 55 4D 22 2C 37 00 FC 17 DA 61 83 22 |BOCHUM",7....a."|
00000FF0: 55 45 52 44 49 4E 47 45 4E 22 2C 36 00 0E 18 E4 |UERDINGEN",6....|
00001000: 61 83 22 47 4C 41 44 42 41 43 48 22 2C 36 00 22 |a."GLADBACH",6."|
00001010: 18 EE 61 83 22 4C 45 56 45 52 4B 55 53 45 4E 22 |..a."LEVERKUSEN"|
00001020: 2C 35 00 37 18 F8 61 83 22 31 2E 20 46 43 20 4B |,5.7..a."1. FC K|
00001030: 4F 45 4C 4E 22 2C 35 00 4A 18 02 62 83 22 42 49 |OELN",5.J..b."BI|
00001040: 45 4C 45 46 45 4C 44 22 2C 34 00 60 18 0C 62 83 |ELEFELD",4.`..b.|
00001050: 20 22 42 2E 20 4D 55 45 4E 43 48 45 4E 22 2C 34 | "B. MUENCHEN",4|
00001060: 00 75 18 16 62 83 22 44 55 45 53 53 45 4C 44 4F |.u..b."DUESSELDO|
00001070: 52 46 22 2C 33 00 88 18 20 62 83 22 4E 55 45 52 |RF",3... b."NUER|
00001080: 4E 42 45 52 47 22 2C 33 00 9B 18 2A 62 83 22 4F |NBERG",3...*b."O|
00001090: 46 46 45 4E 42 41 43 48 22 2C 32 00 AE 18 34 62 |FFENBACH",2...4b|
000010A0: 83 22 46 52 41 4E 4B 46 55 52 54 22 2C 32 00 BE |."FRANKFURT",2..|
000010B0: 18 3E 62 83 22 42 52 45 4D 45 4E 22 2C 39 00 CF |.>b."BREMEN",9..|
000010C0: 18 48 62 83 22 48 41 4D 42 55 52 47 22 2C 31 00 |.Hb."HAMBURG",1.|
000010D0: E9 18 30 75 8F 20 50 52 4F 47 52 41 4D 20 57 41 |..0u. PROGRAM WA|
000010E0: 53 20 57 52 49 54 54 45 4E 00 01 19 94 75 8F 20 |S WRITTEN....u. |
000010F0: 4F 4E 20 41 20 43 4F 4D 4D 4F 44 4F 52 45 2D 36 |ON A COMMODORE-6|
00001100: 34 00 22 19 F8 75 8F 20 41 4E 44 20 41 44 41 50 |4."..u. AND ADAP|
00001110: 54 45 44 20 46 4F 52 20 42 41 53 49 43 4F 44 45 |TED FOR BASICODE|
00001120: 2D 32 00 39 19 5C 76 8F 20 49 4E 20 4F 43 54 4F |-2.9.\v. IN OCTO|
00001130: 42 45 52 20 31 39 38 33 2E 00 3F 19 C0 76 8F 00 |BER 1983..?..v..|
00001140: 60 19 24 77 8F 20 20 4E 4F 53 20 48 4F 42 42 59 |`.$w. NOS HOBBY|
00001150: 53 43 4F 4F 50 20 20 48 49 4C 56 45 52 53 55 4D |SCOOP HILVERSUM|
00001160: 00 00 00 |... |
......."..":.53280,5:.53281,6.'....1000.
1....1010.=.D..".";:..M.N..H("..........
...............",.(.(VE.1)));.}.P....(HO
));:....X.HO.B(209).256.B(210).1024.B(21
1)...Y.VE..(HO.40):HO.HO.40.VE:..K.H..IN
$:....R..IN$:.IN$."".210............5429
6,15:.54278,255:.54273,95:.54276,17.%...
.OO.1.200:.OO.F....54276,0:.54277,0:.542
78,0:..T...RV..(1):..B...FR..(0):....,.S
R$.D(SR):.H(SR$,1)." ".SR$.J(SR$,2)...-.
....6.SR$."":.SR..10.(CT.CN..(CN)).318.Q
.7..SR...5.10..CN.SR$."-"...8.SR$.SR$.J(
D(.(.(SR)..5.10..CN)),2).#.9..C(SR$).CT.
CN.(CN..0).SR$." ".SR$:.313.=.:..CN.0..(
SR)..1E10.316.Q.;.SR$.SR$.J(D(1..(SR)..(
.(SR))..5.10..CN),3,CN.1)...<..C(SR$).CT
.SR$.SR$." ":.316...=..C(SR$).CT.SR$."".
G.>..C(SR$).CT.SR$.SR$."*":.318.M.?.....
^..4,4:.4,SR$;: 4:....H..4,4:.4: 4:.....
.A.20.18.2:.20:. BUNDESLIGA.......(....1
00:.1690.N...."DO YOU NEED INSTRUCTIONS
(Y/N)".W....200.~....(IN$."Y") .(IN$."Y"
) ..1810:.1250...$..(IN$."N") .(IN$."N")
..100:.1250......1040.H....S1$(18),M(18
),PO(18)...... M() FUER MARKIERUNG OB VE
REIN SCHON IN LISTE......SP$(18).'....I.
1 .17:.SP$(I):.PO(I):.I.S...SP$(0)."STUT
TGART":PO(0).9:."SPIELTAG";.V....X7:F1.0
:.X7.17 .X7.X7.17:F1.1.....YO.0:.P.1 .18
:M(P).0:.P...(..I.1 .17:H$.SP$(I):H7.I:.
M(I).1 .1530.L.2.NR..(I.2).2...<..I.1 .N
R.18...F..NR.14 .NR.15...P..I.16 .NR.14.
..Z..I.17 .NR.18.'.D.GE.(19.(X7.1).2.I).
B.N..GE.17 .GE.GE.17:.1390.R.X..GE.I .GE
.0.G...G$.SP$(GE):G7.GE.....F.1:. HEISST
AUSWAERTS......I.1 .F.1.F:.1470.A. .. S
PIELTE 1. AUSWAERTS OBW. UNGERADE.X....I
.2..(I.2) .F.1.F...... VEREINE MIT GERAD
ER NR SPIELTEN 1. AUSW.. ....X7.2..(X7.2
) .F.1.F.3.H..X7..NR .F.1.F.B.R..F1 .F.1
.F.N....F .Z$.G$:G$.H$:H$.Z$:Z7.G7:G7.H7
:H7.Z7.....YO.PO(H7).2:.F1 .YO.PO(G7).2.
....S1$(YO.1).H$:S1$(YO).G$:M(I).1:M(GE)
.1.A....I.J....100......"THE FOLLOWING G
AMES WILL TAKE PLACE:"."...."===========
=========================".(."...Q.,..P.
1 .17 .2:.S1$(P);.20);S1$(P.1):.P.Q.6..
DIE SPIELE WERDEN MITTELS...@.. DES FUNK
TIONSFELDES PO(..)...J.. IN DIE REIHENFO
LGE GEBRACHT,.R.T.. IN DER SIE MEISTENS
IN...^.. DEN ZEITUNGEN ERSCHEINEN....H..
:.:."DO YOU WANT TO RESTART (Y/N)".<.R..
200:.(IN$."Y") .(IN$."Y") ...\.|..(IN$."
N") .(IN$."N") .2340.F....1650.L.....U..
..100......"FUSSBALLBUNDESLIGA"......"==
================".......U.B.."A PROGRAM
BY THOMAS HOFMEISTER"...L.....V.."FROM
BOCHUM"....... ...."WHERE RECENTL
Y BAYERN MUNICH".&.....<...."WAS BEATEN
3:1".D....:..M....100.N...."IF YOU'RE A
FAN OF GERMAN".T.&.....0.."FOOTBALL, YOU
WILL FIND"...:.....D.."THIS PROGRAM QUI
TE USEFUL"...N.....X.."BECAUSE IT ALLOWS
YOU"...B.....L.."TO EVALUATE THE GAMES
WHICH"...V........"TAKE PLACE ON A PARTI
CULAR".4.....V...."WEEK IN THIS SEASON 8
3/84.".\.....Z...."YOU ONLY HAVE TO ENTE
R"............"THE NUMBER OF THE WEEK"..
.F...C.P.."(IN GERMAN: 'SPIELTAG')".M.Z.
.2320......"AND THE PROGRAM WILL DO THE
REST.".............)...."YOU CAN USE IT
AS A SUBROUTINE."./.....U...."THE NAMES
OF THE TEAMS OF GAME".[. .....*.."NO 1 A
RE IN S1$(1) AND S1$(2) "...4.....>.."AN
D SO ON.."...H..2320...R...U.\.."IN CASE
THE RESPONSIBLE DFB-MANAGER"...F.....P.
."DOESN'T CHANGE THE MODE"...Z...,...."Y
OU WILL BE ABLE TO USE THIS PROGRAM".2..
...Y...."FOR ALL OTHER SEASONS, YOU ONLY
"._.........."HAVE TO BE CAREFUL WITH TH
E"............"SEQUENCE OF THE TEAMS IN
THE DATAS."...J.....T.."IF YOU THEN NEED
THE CORRECT"............"SEQUENCE FOR T
HOSE OTHER SEASONS".......2...."WHY THEN
NOT WRITE TO ME?".>....2320:..I....:.:.
"PLEASE PRESS A KEY TO CONTINUE";.Y....2
10:.100:....$..100......"***************
****************".P.8.."*
*"...B.."* MY ADDRESS:
*"...L.."*
*".E.V.."* THOMAS HOFMEISTER
*".L.`.."*
*"...J.."* WITTENBERGSTR. 25
*"...T.."*
*"...~.."* 4630 BOCHUM 7
*"......"*
*"./...."* WEST - GERMANY
*".V...."*
*".}...."***************************
****"..........A."BRAUNSCHWEIG",1....A."
KAISERSLAUTERN",8.C..A."MANNHEIM",8.U.FA
."DORTMUND",7...PA."VFL BOCHUM",7...ZA."
UERDINGEN",6....A."GLADBACH",6."..A."LEV
ERKUSEN",5.7..A."1. FC KOELN",5.J..B."BI
ELEFELD",4.`..B. "B. MUENCHEN",4.U..B."D
UESSELDORF",3... B."NUERNBERG",3...*B."O
FFENBACH",2...4B."FRANKFURT",2...>B."BRE
MEN",9.O.HB."HAMBURG",1...0U. PROGRAM WA
S WRITTEN....U. ON A COMMODORE-64."..U.
AND ADAPTED FOR BASICODE-2.9.\V. IN OCTO
BER 1983..?..V..`.$W. NOS HOBBYSCOOP H
ILVERSUM...
> CLICK IMAGE PREVIEW FOR FULL MODAL