program tentang AS ROMA menggunakan (QBASIC).

CLS

10 PRINT " |--------------------------------------------------|"

20 PRINT " A.S Roma"

30 PRINT " |--------------------------------------------------|"

40 PRINT ""

50 PRINT ""

60 PRINT " Home"

65 PRINT ""

70 PRINT " 1.Information"

80 PRINT " 2.Staff"

90 PRINT " 3.History"

100 PRINT " 4.Squad 2008 / 2009"

110 PRINT " 5.Sponsor"

120 PRINT " 6.Link"

125 PRINT " 7.Jadwal Pertandingan 2008 / 2009"

130 PRINT ""

140 PRINT " Pilih menu yang anda inginkan : .....": INPUT n

150 IF n = 1 THEN GOTO 205 ELSE

160 IF n = 2 THEN GOTO 331 ELSE

170 IF n = 3 THEN GOTO 580 ELSE

180 IF n = 4 THEN GOTO 1020 ELSE

190 IF n = 5 THEN GOTO 1620 ELSE

200 IF n = 6 THEN GOTO 1800 ELSE

201 IF n = 7 THEN GOTO 1900 ELSE 2570

205 PRINT ""

210 PRINT " Information"

220 PRINT ""

230 PRINT " - Based in : Italy"

240 PRINT " - Reintation : World Wide"

250 PRINT " - Finances : Rich"

260 PRINT " - Stadium : Stadio Olimpico"

270 PRINT " - Stadium Capacity : 81.903 ( All Seated )"

280 PRINT " - Training Facilities : Exellent, With an impressive youth set up"

290 PRINT " - Continental Competition : European Championship"

300 PRINT ""

310 PRINT " Untuk melihat lagi tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

320 IF m = 1 THEN GOTO 205 ELSE

325 IF m = 2 THEN GOTO 50 ELSE 2570

331 PRINT ""

332 PRINT " Staff"

333 PRINT ""

334 PRINT " 1.Board Member"

335 PRINT " 2.Manager"

336 PRINT " 3.Assistant Manager"

337 PRINT " 4.Coah"

338 PRINT " 5.Physio"

339 PRINT ""

340 PRINT " Pilih Staff yang anda ingin tahu : .....": INPUT n

343 IF n = 1 THEN GOTO 350 ELSE

344 IF n = 2 THEN GOTO 420 ELSE

345 IF n = 3 THEN GOTO 430 ELSE

346 IF n = 4 THEN GOTO 440 ELSE

347 IF n = 5 THEN GOTO 510 ELSE 2570

348 PRINT ""

350 PRINT " * Board Member :"

360 PRINT " 1.Bruno Conti"

370 PRINT " 2.Di Martino"

380 PRINT " 3.Ferreri"

390 PRINT " 4.Daniele Prade"

400 PRINT " 5.Fransesco Sensi"

410 PRINT " 6.Rosella Sensi"

405 PRINT ""

406 PRINT " Untuk melihat Staff lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

407 IF m = 1 THEN GOTO 331 ELSE

408 IF m = 2 THEN GOTO 50 ELSE 2570

420 PRINT " * Manager : Luciano Spaletti"

425 PRINT ""

426 PRINT " Untuk melihat Staff lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

427 IF m = 1 THEN GOTO 331 ELSE

428 IF m = 2 THEN GOTO 50 ELSE 2570

430 PRINT " * Assistant Manager : Domenchini"

435 PRINT ""

436 PRINT " Untuk melihat Staff lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

437 IF m = 1 THEN GOTO 331 ELSE

438 IF m = 2 THEN GOTO 50 ELSE 2570

440 PRINT " * Coach :"

450 PRINT " 1.Paolo Bartelli"

460 PRINT " 2.Simone Musa"

470 PRINT " 3.Christian Morganti"

480 PRINT " 4.Luca Franseschi"

490 PRINT " 5.Andrea Bonainti"

500 PRINT ""

506 PRINT " Untuk melihat Staff lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

507 IF m = 1 THEN GOTO 331 ELSE

508 IF m = 2 THEN GOTO 50 ELSE 2570

510 PRINT " * Physio"

520 PRINT " 1.Christian Zazza"

530 PRINT " 2.Guiseppe Rossi"

540 PRINT " 3.Alessandro Soi"

541 PRINT ""

550 PRINT " Untuk melihat Staff lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

560 IF m = 1 THEN GOTO 331 ELSE

570 IF m = 2 THEN GOTO 50 ELSE 2570

575 PRINT ""

580 PRINT " History"

590 PRINT ""

600 PRINT " 1.Serie A"

610 PRINT " 2.Italian Cup"

620 PRINT " 3.Italian Super Cup"

630 PRINT " 4.Champions League"

640 PRINT ""

650 PRINT " Pilih Gelar yang anda ingin tahu : .....": INPUT n

660 IF n = 1 THEN GOTO 720 ELSE

670 IF n = 2 THEN GOTO 800 ELSE

680 IF n = 3 THEN GOTO 880 ELSE

690 IF n = 4 THEN GOTO 950 ELSE 2570

710 PRINT ""

720 PRINT " 1.Serie A"

730 PRINT " Winner : 1942, 1938, 2001"

740 PRINT " Runner Up : 1931, 1986, 2002,"

750 PRINT " 2004, 2006, 2007"

760 PRINT ""

770 PRINT " Untuk melihat Gelar lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

780 IF m = 1 THEN GOTO 575 ELSE

790 IF m = 2 THEN GOTO 50 ELSE 2570

800 PRINT " 2.Italian Cup"

810 PRINT " Winner : 1964, 1969, 1980,"

820 PRINT " 1981"

830 PRINT " Runner Up : 2003, 2005, 2006"

840 PRINT ""

850 PRINT " Untuk melihat Gelar lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

860 IF m = 1 THEN GOTO 575 ELSE

870 IF m = 2 THEN GOTO 50 ELSE 2570

880 PRINT " 3.Italian Super Cup"

890 PRINT " Winner : 2001, 2007"

900 PRINT " Runner Up : 1991, 2006"

910 PRINT ""

920 PRINT " Untuk melihat Gelar lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

930 IF m = 1 THEN GOTO 575 ELSE

940 IF m = 2 THEN GOTO 50 ELSE 2570

950 PRINT " 4.Champions League"

960 PRINT " Runner Up : 1984"

970 PRINT ""

980 PRINT " Untuk melihat Gelar lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

990 IF m = 1 THEN GOTO 575 ELSE

1000 IF m = 2 THEN GOTO 50 ELSE 2570

1010 PRINT ""

1020 PRINT " 4.Squad 2008 / 2009"

1030 PRINT ""

1040 PRINT " 1.Goal Keeper"

1050 PRINT " 2.Defensive"

1060 PRINT " 3.Midfielder"

1070 PRINT " 4.Forward"

1080 PRINT ""

1090 PRINT " Pilih posisi yang anda ingin tahu : .....": INPUT n

1100 IF n = 1 THEN GOTO 1140 ELSE

1110 IF n = 2 THEN GOTO 1230 ELSE

1120 IF n = 3 THEN GOTO 1370 ELSE

1130 IF n = 4 THEN GOTO 1500 ELSE 2570

1140 PRINT ""

1150 PRINT " 1.Goalkeeper"

1160 PRINT ""

1170 PRINT " 32 Alexander Doni"

1180 PRINT " 25 Arthur Lupoli"

1190 PRINT ""

1200 PRINT " Untuk melihat posisi lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

1210 IF m = 1 THEN GOTO 1010 ELSE

1220 IF m = 2 THEN GOTO 50 ELSE 2570

1230 PRINT " 2.Defensive"

1240 PRINT ""

1250 PRINT " 2 Christian Panucci"

1260 PRINT " 3 cicinho"

1270 PRINT " 4 Juan"

1280 PRINT " 5 Philippe Mexes"

1290 PRINT " 15 Simone Loria"

1300 PRINT " 17 John Arne Risse"

1310 PRINT " 22 Max Tonetto"

1320 PRINT " 77 Marco Casetti"

1330 PRINT ""

1340 PRINT " Untuk melihat posisi lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

1350 IF m = 1 THEN GOTO 1010 ELSE

1360 IF m = 2 THEN GOTO 50 ELSE 2570

1370 PRINT " 3.Midfielder"

1380 PRINT ""

1390 PRINT " 7 David Pizarro"

1400 PRINT " 8 Alberto Aqulani"

1410 PRINT " 11 Taddei"

1420 PRINT " 16 Daniele De Rossi"

1430 PRINT " 20 Simone Perotta"

1440 PRINT " 33 Mateo Brighi"

1450 PRINT " 34 Valerio Virga"

1460 PRINT ""

1470 PRINT " Untuk melihat posisi lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

1480 IF m = 1 THEN GOTO 1010 ELSE

1490 IF m = 2 THEN GOTO 50 ELSE 2570

1500 PRINT " 4.Forward"

1510 PRINT ""

1520 PRINT " 9 Mirko Vucinic"

1530 PRINT " 10 Fransesco Totti"

1540 PRINT " 19 Julio Baptista"

1550 PRINT " 23 Vicenzo Montella"

1560 PRINT " 24 Jeremy Menez"

1570 PRINT " 89 Okaka Chuka"

1580 PRINT ""

1590 PRINT " Untuk melihat posisi lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

1600 IF m = 1 THEN GOTO 1010 ELSE

1610 IF m = 2 THEN GOTO 50 ELSE 2570

1615 PRINT ""

1620 PRINT " 5.Sponsor"

1630 PRINT ""

1640 PRINT " - WIND"

1650 PRINT " - Kappa"

1660 PRINT " - Alice"

1670 PRINT " - Tim"

1680 PRINT " - ALGIDA"

1690 PRINT ""

1700 PRINT " Untuk melihat lagi tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

1710 IF m = 1 THEN GOTO 1615 ELSE

1780 IF m = 2 THEN GOTO 50 ELSE 2570

1790 PRINT ""

1800 PRINT " 6.Link"

1810 PRINT ""

1820 PRINT " www.fransescototti.com"

1830 PRINT " www.ASRomastore.it"

1840 PRINT " www.Romachanel.com"

1850 PRINT

1860 PRINT " Untuk melihat lagi tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

1870 IF m = 1 THEN GOTO 1790 ELSE

1880 IF m = 2 THEN GOTO 50 ELSE 2570

1890 PRINT ""

1900 PRINT " 7.Jadwal Pertandingan"

1910 PRINT ""

1920 PRINT " 1.pekan 1 - 5"

1930 PRINT " 2.pekan 6 - 10"

1940 PRINT " 3.pekan 11 - 15"

1941 PRINT " 4.pekan 16 - 20"

1942 PRINT " 5.pekan 21 - 25"

1943 PRINT " 6.pekan 26 - 30"

1944 PRINT " 7.pekan 31 - 38"

1950 PRINT ""

1960 PRINT " Pilih Jadwal yang anda ingin tahu : .....": INPUT n

1970 IF n = 1 THEN GOTO 2000 ELSE

1980 IF n = 2 THEN GOTO 2090 ELSE

1990 IF n = 3 THEN GOTO 2175 ELSE

1991 IF n = 4 THEN GOTO 2261 ELSE

1992 IF n = 5 THEN GOTO 2350 ELSE

1993 IF n = 6 THEN GOTO 2430 ELSE

1994 IF n = 7 THEN GOTO 2501 ELSE 2570

1995 PRINT ""

2000 PRINT " pekan 1 : Roma VS Napoli"

2010 PRINT " pekan 2 : Palemo VS Roma"

2020 PRINT " pekan 3 : Roma VS Reggina"

2030 PRINT " pekan 4 : Genoa VS Roma"

2040 PRINT " pekan 5 : Roma VS Atalanta"

2050 PRINT ""

2060 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2070 IF m = 1 THEN GOTO 1890 ELSE

2080 IF m = 2 THEN GOTO 50 ELSE 2570

2090 PRINT " pekan 6 : Siena VS Roma"

2100 PRINT " pekan 7 : Roma VS Inter"

2110 PRINT " pekan 8 : Udinese VS Roma"

2120 PRINT " pekan 9 : Roma VS Sampdoria"

2130 PRINT " pekan 10 : juventus VS Roma"

2140 PRINT ""

2150 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2160 IF m = 1 THEN GOTO 1890 ELSE

2170 IF m = 2 THEN GOTO 50 ELSE 2570

2175 PRINT " pekan 11 : Bologna VS Roma"

2180 PRINT " pekan 12 : Roma VS Lazio"

2190 PRINT " pekan 13 : Lecce VS Roma"

2200 PRINT " pekan 14 : Roma VS Fiorentina"

2210 PRINT " pekan 15 : Chievo VS Roma"

2230 PRINT ""

2240 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2250 IF m = 1 THEN GOTO 1890 ELSE

2260 IF m = 2 THEN GOTO 50 ELSE 2570

2261 PRINT " pekan 16 : Roma VS Cagliari"

2262 PRINT " pekan 17 : Catania VS Roma"

2263 PRINT " pekan 18 : Roma VS Milan"

2264 PRINT " pekan 19 : Torino VS Roma"

2265 PRINT " pekan 20 : Napoli VS Roma"

2266 PRINT ""

2267 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2330 IF m = 1 THEN GOTO 1890 ELSE

2340 IF m = 2 THEN GOTO 50 ELSE 2570

2350 PRINT " pekan 21 : Roma VS Palermo"

2360 PRINT " pekan 22 : Reggina VS Roma"

2370 PRINT " pekan 23 : Roma VS Genoa"

2380 PRINT " pekan 24 : Atlanta VS Roma"

2390 PRINT " pekan 25 : Roma VS Siena"

2391 PRINT ""

2400 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2410 IF m = 1 THEN GOTO 1890 ELSE

2420 IF m = 2 THEN GOTO 50 ELSE 2570

2430 PRINT " pekan 26 : Inter VS Roma"

2440 PRINT " pekan 27 : Roma VS Udinese"

2450 PRINT " pekan 28 : Sampdoria VS Roma"

2460 PRINT " pekan 29 : Roma VS Juventus"

2470 PRINT " pekan 30 : Roma VS Bologna"

2471 PRINT ""

2480 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2490 IF m = 1 THEN GOTO 1890 ELSE

2500 IF m = 2 THEN GOTO 50 ELSE 2570

2501 PRINT " pekan 31 : lazio VS Roma"

2502 PRINT " pekan 32 : Roma VS Lecce"

2503 PRINT " pekan 33 : Feorentina VS Roma"

2504 PRINT " pekan 34 : Roma VS Chievo"

2505 PRINT " pekan 35 : Cagliari VS Roma"

2506 PRINT " pekan 36 : Roma VS Catania"

2507 PRINT " pekan 37 : Milan VS Roma"

2508 PRINT " pekan 38 : Roma VS Torino"

2509 PRINT ""

2540 PRINT " Untuk melihat jadwal lain tekan 1 kembali ke menu tekan 2 selesai 0:": INPUT m

2550 IF m = 1 THEN GOTO 1890 ELSE

2560 IF m = 2 THEN GOTO 50 ELSE 2570

2570 END

tentang AS ROMA

AS ROMA

Berdiri : July 22, 1927
Alamat : Via Trigoria Km 3,600 - 00128
Telepon : +39 06-501911
Fax : +39 06-5061736
E-Mail : info@asromastore.it
Web Site : http://www.asroma.it/
Ketua Klub : Rosella Sensi
Direktur Klub : Daniele Pradè
Stadion : Olimpico (72.698) - Google Maps

prestasi tim:

Scudetto:
1941-42, 1982-83, 2000-01

Italian Cup:
1963-64, 1968-69, 1979-80, 1980-81, 1983-84, 1985-86, 1990-91, 2006-07, 2007-08

Serie B:
1951-52

Italian Super Cup:
2000-01, 2006-07

Fairs Cup:
1960-61

AS Roma, Gabungan Tiga Klub Tertua Ibukota

Sebuah klub bentukan tokoh fasis Benito Mussolini itu memiliki ambisi besar yang hingga saat ini masih berkuang mewujudkannya.

Sejarah

Associazione Sportiva Roma didirikan pada tahun 1927 oleh Italo Foschi. Klub ini merupakan hasil merger tiga klub Roma yang telah berdiri sebelumnya, yaitu Roman, Alba-Audace dan Fortitudo.

Merger tiga klub tersebut merupakan inisiatif diktator fasis terkenal Italia, Benito Mussolini. Tujuannya adalah membentuk klub yang kuat dari ibukota yang bisa mengakhiri dominasi klub-klub utara Italia saat itu.

Di tahun pertamanya sebagai klub profesional, AS Roma menjadikan Motovelodromo Appio sebagai stadion kandang mereka sebelum pindah di Campo Testaccio yang mulai dibuka pada November 1929.

AS Roma juga identik dengan warna merah marun dan kuning keemasan, yang mewakili warna tradisional dari kota itu sendiri. Warna itu sendiri diambil dari salah satu dari tiga klub merger, yaitu Roman Football Club.


Prestasi

Sejak berdiri di tahun 1927, AS Roma belum bisa mewujudkan ambisi Mussolini untuk mengakhiri dominasi klub dari utara Italia. Buktinya, hanya sedikit gelar diperoleh tim ibukota Italia itu dalam rentang waktu hampir sembilan dekade.

Di Serie A Italia, Roma hanya berhasil menjadi juara sebanyak tiga kali. Sementara di ajang Coppa Italia, sembilan titel dikoleksi dan gelar terakhir didapat tahun lalu. Di ajang Piala Super Italia, Roma memenangi ajang ini di tahun 2001 dan 2007. Di Serie B, Roma pernah menjadi juara di musim 1951/52.

Di kompetisi Internasional, Roma hanya satu kali memenangi ajang bergengsi, yaitu Piala UEFA di musim 196-/1961. Namun di ajang junior, Roma tampil cukup dominan. Di even Campionato Nazionale Primavera, enam gelar berhasil disegel pasukan Roma, sementara di Coppa Italia Primavera, mereka berhasil memperoleh tiga titel juara. Tak salah jika kemudian banyak pemain junior Roma yang kemudian menjadi bintang, seperti Danielle de Rossi dan Alberto Aquilani.


Fakta Menarik Lain

- Nomor punggung #6 di Roma resmi dipensiunkan, yang merupakan bentuk penghormatan bagi Aldair, bek asal Brasil yang membela Roma sepanjang 13 musim, dari 1990 hingga 2003.

- Rosella Sensi memegang kendali Roma di tahun 2008 karena presiden sebelumnya, Franco Sensi, yang juga merupakan ayahnya, meninggal dunia.

- Francesco Totti memegang banyak rekor Roma, mulai dari penampilan terbanyak di berbagai kompetisi, juga rekor penampilan terbanyak di serie A, dan pencetak gol terbanyak untuk Roma.

- Logo Roma yang berbentuk srigala adalah ilustrasi dari mitos Romulus dan Remus, yang merupakan cerita terbentuknya kota Roma.

- Lagu kebesaran Roma yang juga sekaligus motto klub adalah La Roma non si discute, si ama, yang dinyanyikan oleh penyanyi Antonello Venditti. Arti kasarnya dari ungkapan tersebut adalah Roma tidak untuk dipertanyakan, tetapi untuk dicintai. Lagu ini dinyanyikan tiap Roma memetik kemenangan kandang setelah pertandingan rampung.