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