100 CALL CLEAR
110 CALL COLOR(1,2,8)
120 CALL SCREEN(5)
130 CALL VCHAR(1,31,31,24*4)
140 FOR I=2 TO 16
150 CALL COLOR(I,2,8)
160 NEXT I
170 FOR I=1 TO 12
180 READ A,A$
190 CALL CHAR(A,A$)
200 NEXT I
210 DEF CTR$(A$)=SEG$("                ",1,(28-LEN(A$))/2)&A$
220 DEF RAND(X)=INT(RND*X)+1
230 DATA 64,364299A1A199423C
240 DATA 67,0054543810101010
250 DATA 68,001028282844447C
260 DATA 70,0038545438101010
270 DATA 71,007C404040404040
280 DATA 74,007C00003800007C
290 DATA 76,0010282828444444
300 DATA 80,007C444444444444
310 DATA 82,0078444478404040
320 DATA 83,007C20100810207C
330 DATA 85,003844447C444438
340 DATA 86,003844444438007C
350 PRINT CTR$("XHMEIA"):CTR$("------"): : : : : : : : : :CTR$("@ 1983 DIOMHDHS SPINELLHS"): : : : : : : : :CTR$("PATA ENA KOYMPI")
355 PRINT CTR$("GIA NA ARXISEI")
360 CALL KEY(0,RET,STA)
370 IF STA=0 THEN 360
380 CALL SOUND(100,1000,0)
390 CALL VCHAR(1,3,32,24*28)
400 DIM N$(28,2)
410 FOR I=1 TO 28
420 READ N$(I,1),N$(I,2)
430 NEXT I
440 DATA AZVTO,-3+5,ANURAKAS,-4+4,ARGILIO,+3,ARGO,0,ARGYROS,+1,ASBESTIO,+2,BARIO,+2,BISMOYUIO,+3,BRVMIO,-1
450 DATA HLIO,0,UEIO,-2+4+6,IVDIO,-1,KALIO,+1,LIUIO,+1,MAGGANIO,+2+4+7,MAGNHSIO,+2,MOLYBDOS,+2+4,NATRIO,+1,JENO
460 DATA 0,OJYGONO,-2,PYRITIO,-4+4,SIDHROS,+2+3,YDRARGYROS,+1+2,YDROGONO,+1,FUORIO,-1,FVSFOROS,-5-3,XALKOS,+1+2
470 DATA XLVRIO,-1,CEYDARGYROS,+1
480 FOR I=1 TO 23
490 PRINT N$(I,1),N$(I,2)
500 NEXT I
510 INPUT "              PATA ""enter"" ":A$
520 CALL HCHAR(23,3,32,28)
530 FOR I=24 TO 28
540 PRINT N$(I,1),N$(I,2)
550 NEXT I
560 INPUT "              PATA ""enter"" ":A$
570 CALL VCHAR(1,3,32,28*24)
571 CALL CHAR(ASC("~"),"00000000FF")
580 RANDOMIZE
582 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~": :
585 R=RAND(28)
590 INPUT "POIO EINAI TO SUENOS TOY    STOIXEIOY "&N$(R,1)&" ":A$
600 IF A$=N$(R,2)THEN 700
610 CALL SOUND(200,110,0)
620 PRINT : :"LAUOS": : : :"TO SVSTO EINAI ";N$(R,2)
630 GOTO 580
700 CALL SOUND(100,1000,0)
710 PRINT : :"POLY SVSTA": : : :"EINAI ";N$(R,2)
720 GOTO 580