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