Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape11b_c64_now_games_2.wav » world cup
world cup
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape11b_c64_now_games_2.wav |
| Filename: | world cup |
| Read OK: | ✔ |
| File size: | 0B55 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
1 IFA=2THEN15
2 IFA=1THEN7
3 POKE52,32:POKE56,32:POKE657,128:CLR
4 POKE749,169:POKE750,1:POKE751,96:POKE809,2
6 A=1:LOAD"WCUP",1,1
7 A=2:LOAD"TCUP",1,1
15 CLR:GOSUB1000
16 POKE198,0
20 A$="<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>"
25 AA$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>PRESS SPACE BAR"
30 REM SYS TITLE
32 SYS29792
35 PRINTA$;AA$:C=28
40 FORW=1TO2000
42 IFW/10<>INT(W/10)THEN50
43 IFC=28THENC=158:GOTO45
44 IFC=158THENC=28
45 PRINTCHR$(C);A$;AA$
50 IFPEEK(197)=60THEN90
60 NEXTW
70 REM SYS DEMO
75 SYS 37152
80 GOTO 30
90 PRINTA$;"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><yellow>ENTER NUMBER OF PLAYERS"
95 GETR$:IFR$=""THEN95
96 P=VAL(R$)
100 IFP<1THEN90
110 IFP>8THEN90
112 PRINT"<clr>";CHR$(142)
115 POKE 53269,0
120 PRINT"<clr>":FORW=1TO10:READR$:T$(W)=R$:NEXT
130 DATA SCOTLAND,BRAZIL,WALES,GERMANY,ENGLAND,ARGENTINA,FRANCE,SPAIN,IRELAND
140 DATA ITALY
150 FORW=1TO10:PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><green>";CHR$(W+64);". ";T$(W):PRINT:NEXT
160 FOR W=1 TO P
170 PRINTA$;"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cyan>PLAYER ";W;" SELECT TEAM <cursor left><cursor left>";
175 GETR$:IFR$=""THEN175
176 N=ASC(R$)-64
180 IFN<1THEN170
190 IFN>10THEN170
200 Q$(W)=T$(N):U$(W)="P"
201 IF W=1THEN205
202 FORC=1TO(W-1)
203 IFQ$(W)=Q$(C)THEN170
204 NEXTC
205 IFN=1THEN PRINT"<home>":GOTO215
210 PRINT"<home>";:FORA=1TO(N-1):PRINT:PRINT:NEXT:PRINT"
215 PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><yellow>* PLAYER";W;"*"
220 NEXT W
222 PRINTA$" ";
225 IFP=8THEN330
230 FOR W=(P+1)TO8
240 N=RND(1):N=INT(10*N)+1
250 Q$(W)=T$(N):U$(W)="C"
260 FORC=1TO(W-1)
270 IFQ$(W)=Q$(C)THEN240
280 NEXTC
290 IFN=1THEN PRINT"<home>":GOTO310
300 PRINT"<home>";:FORA=1TO(N-1):PRINT:PRINT:NEXT:PRINT"
310 PRINT"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><purple>* COMPUTER *"
320 NEXT W
330 PRINTA$"<cyan><cursor right><cursor right><cursor right><cursor right><cursor right>** PRESS SPACE TO CONTINUE **"
340 GETR$:IFR$<>" "THEN340
400 FORW=1TO8STEP2
405 IF U$(W)="C"THEN450
410 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cyan>QUARTER FINAL ROUND";1+INT(W/2)
420 PRINT"<cursor down><cursor down><cursor down><blue>";:Z$=Q$(W)+" (BLUE TEAM)":GOSUB5000
425 PRINT"<cyan><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>VS"
430 PRINT"<yellow><cursor down>";:Z$=Q$(W+1)+" (YELLOW TEAM)":GOSUB5000
433 POKE16500,0:IFU$(W+1)="C"THEN POKE16500,1
436 Z$=Q$(W):GOSUB3000
437 Z$=Q$(W+1):GOSUB4000
440 GOSUB2000
450 IF S1>S2 THEN S$(1+INT(W/2))=Q$(W):V$(1+INT(W/2))=U$(W):GOTO460
455 S$(1+INT(W/2))=Q$(W+1):V$(1+INT(W/2))=U$(W+1)
460 NEXT W
500 FORW=1TO4STEP2
505 IF V$(W)="C"THEN550
510 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cyan>SEMI FINAL ROUND";1+INT(W/2)
520 PRINT"<cursor down><cursor down><cursor down><blue>";:Z$=S$(W)+" (BLUE TEAM)":GOSUB5000
525 PRINT"<cyan><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>VS"
530 PRINT"<yellow><cursor down>";:Z$=S$(W+1)+" (YELLOW TEAM)":GOSUB5000
533 POKE16500,0:IFV$(W+1)="C"THEN POKE16500,1
536 Z$=S$(W):GOSUB3000
537 Z$=S$(W+1):GOSUB4000
540 GOSUB2000
550 IF S1>S2 THEN F$(1+INT(W/2))=S$(W):E$(1+INT(W/2))=V$(W):GOTO560
555 F$(1+INT(W/2))=S$(W+1):E$(1+INT(W/2))=V$(W+1)
560 NEXT W
600 IF E$(1)="C"THEN650
610 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>WORLD CUP FINAL"
620 PRINT"<cursor down><cursor down><cursor down><blue>";:Z$=F$(1)+" (BLUE TEAM)":GOSUB5000
625 PRINT"<cyan><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>VS"
630 PRINT"<yellow><cursor down>";:Z$=F$(2)+" (YELLOW TEAM)":GOSUB5000
633 POKE16500,0:IFE$(2)="C"THEN POKE16500,1
635 IF E$(1)="C"THEN650
636 Z$=F$(1):GOSUB3000
637 Z$=F$(2):GOSUB4000
640 GOSUB2000
650 REM CALL TROPHY
655 SYS 38288
660 W$=F$(2):IF S1>S2 THEN W$=F$(1)
670 PRINTA$;"<cyan>";:Z$="WORLD CHAMPIONS<white> "+W$:GOSUB5000
680 FORD=1TO3000
685 IF PEEK(197)=60THEN690
686 NEXT
690 GOTO15
999 STOP
1000 POKE53280,0:POKE53281,0:PRINT"<clr><green>":RETURN
2000 REM GAME
2010 FORD=1TO2500:NEXTD
2012 SYS 19046
2015 S1=PEEK(16508)
2025 S2=PEEK(16509)
2030 GOSUB1000:RETURN
3000 AD=32048
3005 FOR Z=32048TO32058:POKEZ,32:NEXTZ
3010 FORZ=1TOLEN(Z$):PO=ASC(MID$(Z$,Z,1))-64:POKEAD,PO:AD=AD+1:NEXTZ:RETURN
4000 AD=32065
4005 FOR Z=32065TO32074:POKEZ,32:NEXTZ:GOTO3010
5000 Z=(40-LEN(Z$))/2
5010 FORC=1TOZ:PRINT" ";:NEXTC:PRINTZ$:RETURN
�A�2�15 �A�1�7 5 �52,32:�56,32:�657,128:� X �749,169:�750,1:�751,96:�809,2 l A�1:�"WCUP",1,1 � A�2:�"TCUP",1,1 � �:�1000 � �198,0 � A$�""