Home » Personal collection » Commodore disks » disk05a2_blue.d64 » 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 disks » disk05a2_blue.d64 |
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",8,1 7 A=2:LOAD"TCUP",8,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",8,1 � A�2:�"TCUP",8,1 � �:�1000 � �198,0 � A$�""