10 RANDOMIZE
20 CALL CLEAR
30 CALL COLOR(1,2,8)
40 CALL SCREEN(5)
50 CALL VCHAR(1,31,31,24*4)
60 FOR I=2 TO 16
70 CALL COLOR(I,2,8)
80 NEXT I
90 FOR I=1 TO 12
100 READ A,A$
110 CALL CHAR(A,A$)
120 NEXT I
130 DEF CTR$(A$)=SEG$("                ",1,(28-LEN(A$))/2)&A$
140 DEF RAND(X)=INT(RND*X)+1
150 DATA 64,3C4299A1A199423C
160 DATA 67,0054543810101010
170 DATA 68,001028282844447C
180 DATA 70,0038545438101010
190 DATA 71,007C404040404040
200 DATA 74,007C00003800007C
210 DATA 76,0010282828444444
220 DATA 80,007C444444444444
230 DATA 82,0078444478404040
240 DATA 83,007C20100810207C
250 DATA 85,003844447C444438
260 DATA 86,003844444438007C
270 PRINT CTR$("KOKKINOI GIGANTES"):CTR$("ASPROI NANOI"): : : : : : : :CTR$("@ 1
983 DIOMHDHS SPINELLHS"): : : : : : : : : : : :
280 PRINT CTR$("PATA ENA KOYMPI"):CTR$("GIA NA ARXISEI")
290 CALL KEY(5,RET,STA)
300 IF STA=0 THEN 290
310 CALL SOUND(100,1000,0)
320 CALL VCHAR(1,3,32,28*24)
330 REM                    ----------------------------     
340 COUNT=RAND(2)
350 PRINT CTR$("OI APOSTASEIS"):CTR$("SE MILIA"): : : : : : : : : : : : : :
360 DIM W(5,8),Q$(5),N$(8)
370 FOR I=1 TO 8
380 READ N$(I)
390 NEXT I
400 DATA TOY ERMH,THS AFRODITHS,TOY ARH,TOY DIA,TOY KRONOY,TOY OYRANOY,TOY POSEIDVNA,TOY PLOYTVNA
410 FOR I=1 TO 5
420 READ Q$(I)
430 NEXT I
440 DATA POIA EINAI H MIKROTERH APOSTASH APO THN GH,POIA EINAI H MEGALYTERH APOSTASH APO THN GH
450 DATA POIO TO POSOSTO THS BARYTHTAS THS GHS,POIA H DIAMETROS,POIA H TAXYTHTA GYRV APO TON HLIO
460 FOR I=1 TO 5
470 FOR J=1 TO 8
480 READ W(I,J)
490 NEXT J
500 NEXT I
510 DATA 491E5,275E6,34E6,362E6,773E6,1594E6,2654E7,2605E6,1369E5,1609E5,247E6,5
97E6,1023E6,1946E6,2891E6,4506E6
520 DATA 38,88,39,256,117,92,123,16,3010,7610,4216,88700,75100,30900,26800,3600
530 DATA 107280,78480,54000,29160,21600,14400,12240,10440
540 A$="0001033FFF070000"
550 CALL CHAR(152,"3C7EFFFFFFFF7E3C")
560 CALL CHAR(136,A$)
570 CALL CHAR(144,A$)
580 CALL COLOR(13,8,8)
590 CALL COLOR(14,13,2)
600 CALL COLOR(15,7,2)
610 CALL COLOR(16,11,2)
620 CALL VCHAR(1,3,32,24*28)
630 CALL HCHAR(18,1,128,32*7)
640 CALL CHAR(129,"7FFFFFFFFFFFFFFE")
650 CALL CHAR(128,"FFFFFFFFFFFFFFFF")
660 FOR I=1 TO 15
670 CALL HCHAR(17+RAND(7),RAND(30)+1,129)
680 NEXT I
690 CALL COLOR(13,2,16)
700 FOR I=2 TO 30 STEP 4
710 CALL HCHAR(21,I,152)
720 NEXT I
730 CALL HCHAR(23,30,136)
740 CALL HCHAR(19,30,144)
750 CALL HCHAR(19,32,49)
760 CALL HCHAR(23,32,50)
770 FOR I=1 TO 200
780 CALL SOUND(20,1000,30*(I/30-INT(I/30)))
790 NEXT I
800 MSG$="0103"&CTR$("KOKKINOI GIGANTES")
810 GOSUB 1480
820 MSG$="0203"&CTR$("ASPROI NANOI")
830 GOSUB 1480
840 MSG$="0405OMADA"
850 GOSUB 1480
860 PS(1)=30
870 PS(2)=30
880 REM                    ---------------------------- 
890 CALL HCHAR(10,4,95,11)
900 CALL VCHAR(1,30,32,17)
910 CALL HCHAR(8,3,32,28)
920 CALL HCHAR(6,3,32,28)
930 CALL HCHAR(7,3,32,28)
940 CALL HCHAR(13,3,32,28)
950 COUNT=COUNT+1
960 CALL HCHAR(4,12,COUNT-2*INT(COUNT/2)+49)
970 TM=1+COUNT-2*INT(COUNT/2)
980 QN=RAND(5)
990 NN=RAND(8)
1000 TX$=Q$(QN)&" "&N$(NN)
1010 FOR I=1 TO LEN(TX$)
1020 CALL HCHAR(6-(I>25)-(I>51),I-26*INT(I/26)+3,ASC(SEG$(TX$,I,1)))
1030 NEXT I
1040 RC=10.04
1050 CKNUM=1
1060 FLEN=11
1070 FL=17
1080 CALL COLOR(12,-7*(TM=1)-13*(TM=2),-7*(TM=1)-13*(TM=2))
1090 CALL VCHAR(18-FL,30,120,FL)
1100 GOSUB 1540
1110 AN=VAL(RTN$)
1120 IF AN=W(QN,NN)THEN 1250
1130 IF AN<W(QN,NN)THEN 1160
1140 MSG$="1303POIO KATV "
1150 GOTO 1170
1160 MSG$="1303POIO PANV "
1170 GOSUB 1480
1180 FL=FL-1
1190 IF FL=0 THEN 880
1200 FOR I=500 TO 1000 STEP 20
1210 CALL SOUND(-99,I,0)
1220 NEXT I
1230 CALL VCHAR(1,30,32,17)
1240 GOTO 1090
1250 PS(TM)=PS(TM)-INT(FL/4)
1260 PS(TM)=-PS(TM)*(PS(TM)>0)-(PS(TM)<1)
1270 MSG$="1303POLY SVSTA"
1280 GOSUB 1480
1290 CALL SOUND(4000,-7,0)
1300 IF TM=1 THEN 1340
1310 CALL HCHAR(23,PS(2)+INT(FL/4),128)
1320 CALL HCHAR(23,PS(2),136)
1330 GOTO 1360
1340 CALL HCHAR(19,PS(1)+INT(FL/4),128)
1350 CALL HCHAR(19,PS(1),144)
1360 IF PS(TM)=2 THEN 1380
1370 GOTO 880
1380 FOR I=1 TO 50
1390 CALL SOUND(40,110+RAND(500),0,110+RAND(500),0,110+RAND(500),0)
1400 NEXT I
1410 CALL CLEAR
1420 PRINT CTR$("KOKKINOI GIGANTES"):CTR$("ASPROI NANOI"): : : : : : :"H OMADA ";TM;" NIKHSE !": : : : : : : : : : : :
1430 FOR I=1 TO 200
1440 CALL SOUND(10,1000,30*(I/30-INT(I/30)))
1450 NEXT I
1460 GOTO 10
1470 GOTO 1470
1480 REM 10010 DISPLAY @    10120 ACCEPT @ go to those lines for details 
1490 REM DISPLAY MSG$="RRCCxxxxxxxxxxxxxxxxxxxxx"
1500 FOR I=1 TO LEN(MSG$)-4
1510 CALL HCHAR(VAL(SEG$(MSG$,1,2)),I+VAL(SEG$(MSG$,3,2)),ASC(SEG$(MSG$,I+4,1)))
1520 NEXT I
1530 RETURN
1540 REM ACCEPT AT (RC,CKNUM{1 FOR NUMBERS ONLY},FLEN{POSITIVE TO BLANK}) 
1550 REM CNTR 1 CR,2,REDO,3 BACK,4 PROC'D,5 BEGIN 
1560 ROW=INT(RC)
1570 COL=(RC-INT(RC))*100
1580 DIM Z0(32)
1590 Z0$=CHR$(13)&CHR$(6)&CHR$(15)&CHR$(12)&CHR$(14)&CHR$(8)&CHR$(9)&CHR$(3)&CHR$(7)
1600 IF FLEN<0 THEN 1620
1610 CALL HCHAR(ROW,COL,ASC("_"),ABS(FLEN))
1620 FOR Z1=1 TO ABS(FLEN)+1
1630 CALL GCHAR(ROW,COL+Z1-1,Z0(Z1))
1640 NEXT Z1
1650 Z7=0
1660 Z1=1
1670 CALL HCHAR(ROW,COL+Z1-1,30)
1680 CALL KEY(0,Z3,Z4)
1690 IF Z4=0 THEN 1680
1700 CNTR=POS(Z0$,CHR$(Z3),1)
1710 ON CNTR+1 GOTO 1790,1940,1940,1940,1940,1940,1720,1720,1770,1770
1720 CALL HCHAR(ROW,COL+Z1-1,Z0(Z1))
1730 IF Z3=9 THEN 1900
1740 IF Z1=1 THEN 1670
1750 Z1=Z1-1
1760 GOTO 1670
1770 CALL HCHAR(ROW,COL+Z1-1,Z0(Z1))
1780 GOTO 1610
1790 IF CKNUM<>1 THEN 1850
1800 IF (Z3=45)+(Z1=1)=-2 THEN 1850
1810 IF (Z7=0)+(Z3=46)+(ABS(FLEN)>1)<>-3 THEN 1840
1820 Z7=1
1830 GOTO 1850
1840 IF (Z3<48)+(Z3>57)<=-1 THEN 1680
1850 IF Z0(Z1)<>46 THEN 1870
1860 Z7=0
1870 IF Z1=ABS(FLEN)+1 THEN 1900
1880 Z0(Z1)=Z3
1890 CALL HCHAR(ROW,COL+Z1-1,Z3)
1900 Z1=Z1+1
1910 IF Z1<=ABS(FLEN)+1 THEN 1670
1920 Z1=Z1-1
1930 GOTO 1670
1940 CALL HCHAR(ROW,COL+Z1-1,Z0(Z1))
1950 RTN$=""
1960 RTN=0
1970 FOR Z2=1 TO ABS(FLEN)
1980 IF Z0(Z2)<>95 THEN 2010
1990 NEXT Z2
2000 RTN$="0"
2010 FOR Z3=Z2 TO ABS(FLEN)
2020 IF Z0(Z3)=95 THEN 2050
2030 RTN$=RTN$&CHR$(Z0(Z3))
2040 NEXT Z3
2050 RTNL=LEN(RTN$)
2060 IF (RTN$="")+(CKNUM=1)=-2 THEN 1610
2070 IF CKNUM<>1 THEN 2100
2080 IF (RTN$=".")+(RTN$="-.")<=-1 THEN 1670
2090 RTN=VAL(RTN$)
2100 RETURN