100 REM (c) 1983 Diomidis d. Spinellis this is a TV game used to select theme and level of dificulty
110 CALL CLEAR :: CALL START :: CALL SCR1
120 CALL ACC(N1$,N2$,N3$,N4$)
130 W=1
140 CALL CHOICE(E$,H,W)
150 CALL MAIN(N1$,N2$,N3$,N4$,E$,H,W)
160 W=2
170 CALL CHOICE(E$,H,W)
180 CALL MAIN(N1$,N2$,N3$,N4$,E$,H,W)
190 GOTO 130
200 SUB CHOICE(E$,H,W)
205 CALL CLEAR :: DISPLAY AT(1,10):"OMADA ";W
210 CALL CHAR(95,"00000000FFFF")
220 CALL HCHAR(6,1,95,32):: DISPLAY AT(3,3):"EPISTHMH:" :: DISPLAY AT(4,3):"EPIPEDO DYSKOLIAS:"
230 CALL EPIST(E$)
240 CALL HCHAR(7,1,32,(24-6)*32):: CALL DELSPRITE(ALL)
250 DISPLAY AT(3,12):E$
260 CALL HARD(H)
270 DISPLAY AT(4,21):H
275 CALL HCHAR(7,1,32,(24-6)*32):: CALL DELSPRITE(ALL)
277 CALL KEY(5,RET,STA):: IF STA=0 THEN 277
280 SUBEND
290 SUB START !DEFINE GREEK CHARACTERS AND FUNCTIONS
300 FOR I=1 TO 12
310 READ A,A$
320 CALL CHAR(A,A$)
330 NEXT I
340 DATA 64,364299A1A199423C
350 DATA 67,0054543810101010
360 DATA 68,001028282844447C
370 DATA 70,0038545438101010
380 DATA 71,007C404040404040
390 DATA 74,007C00003800007C
400 DATA 76,0010282828444444
410 DATA 80,007C444444444444
420 DATA 82,0078444478404040
430 DATA 83,007C20100810207C
440 DATA 85,003844447C444438
450 DATA 86,003844444438007C
460 SUBEND
470 SUB HARD(HARD)!FIND THE LEVEL OF HARDNESS
480 CALL CHAR(128,"030F3F3F7F7FFFFFFFFF7F7F3F3F0F03C0F0FCFCFEFEFFFFFFFFFEFEFCFCF
0C0")
490 CALL CHAR(132,"E1818101010101FEFE010101018181E1878181808080807F7F80808080818
187")
500 CALL MAGNIFY(4)
510 FOR I=0 TO 4
520 S=I+9
530 CALL SPRITE(#S,128,7,SIN(I/4*PI)*50+100,COS(I/4*PI)*60+110)
540 CALL HCHAR((SIN(I/4*PI)*50+100)/32+12,(COS(I/4*PI)*60+110)/24+11,53-I)
550 NEXT I
560 CALL SPRITE(#8,132,2,82,105)
570 CALL JOYST(1,X,Y)
580 CALL MOTION(#8,10*(Y=+4)-10*(Y=-4),10*(X=-4)-10*(X=+4))
590 CALL KEY(1,RET,STA)
600 IF RET=18 THEN CALL FIND(HARD):: IF HARD<>0 THEN SUBEXIT
610 GOTO 570
620 SUBEND
630 SUB FIND(HARD)
635 HARD=0
640 FOR I=9 TO 13 :: CALL COINC(#I,#8,11,A):: IF A THEN 670
650 NEXT I
660 HARD=0 :: SUBEXIT
670 CALL SOUND(100,1000,0)
680 CALL COLOR(#I,10)
690 CALL SOUND(100,500,0)
700 CALL COLOR(#I,9)
710 HARD=14-I
720 SUBEND
730 SUB EPIST(EPIS$)
735 A=0
740 CALL MAGNIFY(2)
750 CALL CHAR(96,"080402FF02040800FF818080808081FF")
760 RESTORE 820
770 FOR I=1 TO 5
780 READ A$(I)
790 CALL SPRITE(#I,97,11,8*(3*I+7)-3,30)
800 DISPLAY AT(3*I+8,4):A$(I)
810 NEXT I
820 DATA ASTRONOMIA,BIOLOGIA,XHMEIA,FYSIKH,GEVGRAFIA
830 CALL SPRITE(#6,96,5,62,30)
840 CALL JOYST(1,Q,Y)
850 CALL MOTION(#6,10*(Y=+4)-10*(Y=-4),10*(X=-4)-10*(X=+4))
860 CALL KEY(1,RET,STA)
870 IF RET=18 THEN CALL FINEP(A)
880 IF A=0 THEN 840
890 EPIS$=A$(A)
900 SUBEND
910 SUB FINEP(I)
920 FOR I=1 TO 5
930 CALL COINC(#6,#I,5,A)
940 IF A THEN CALL COLOR(#I,7):: CALL SOUND(100,1000,0):: SUBEXIT
950 NEXT I
960 I=0
970 SUBEND
980 SUB SCR1
990 DEF CTR$(W$)=SEG$("                ",1,(28-LEN(W$))/2)&W$
1000 DISPLAY AT(1,1):CTR$("KOKKINOI GIGANTES")
1010 DISPLAY AT(2,1):CTR$("ASPROI NANOI")
1020 DISPLAY AT(10,1):CTR$("@ 1983 DIOMHDHS SPINELLHS")
1030 DISPLAY AT(23,1):CTR$("PATA ENA KOYMPI")
1040 DISPLAY AT(24,1):CTR$("GIA NA ARXISEI")
1050 CALL KEY(5,RET,STA):: IF STA=0 THEN 1050
1060 CALL CLEAR :: CALL SOUND(100,1000,0)
1070 SUBEND
1080 SUB ACC(N1$,N2$,N3$,N4$)
1090 CALL CLEAR
1100 DISPLAY AT(4,1):"OMADA 1"
1110 ACCEPT AT(5,1)VALIDATE(UALPHA)SIZE(10)BEEP:N1$
1120 ACCEPT AT(6,1)VALIDATE(UALPHA)SIZE(10)BEEP:N2$
1130 DISPLAY AT(8,1):"OMADA 2"
1140 ACCEPT AT(9,1)VALIDATE(UALPHA)SIZE(10)BEEP:N3$
1150 ACCEPT AT(10,1)VALIDATE(UALPHA)SIZE(10)BEEP:N4$
1160 CALL CLEAR
1170 SUBEND
1180 SUB MAIN(N1$,N2$,N3$,N4$,E$,H,W)
1190 CALL CLEAR :: CALL DELSPRITE(ALL):: CALL CHAR(128,"181818181818181818181818FFFF1818"):: CALL HCHAR(9,1,95,32):: CALL VCHAR(1,15,128,24)
1195 CALL VCHAR(9,15,129)
1200 DISPLAY AT(1,4)SIZE(7):"OMADA 1"
1210 DISPLAY AT(1,19)SIZE(7):"OMADA 2"
1220 DISPLAY AT(3,1)SIZE(2):"1:"
1230 DISPLAY AT(3,3)SIZE(10):N1$
1240 DISPLAY AT(3,16)SIZE(2):"1:"
1250 DISPLAY AT(3,18)SIZE(10):N3$
1260 DISPLAY AT(4,1)SIZE(2):"2:"
1270 DISPLAY AT(4,3)SIZE(10):N2$
1280 DISPLAY AT(4,16)SIZE(2):"2:"
1290 DISPLAY AT(4,18)SIZE(10):N4$
1300 DISPLAY AT(6,1)SIZE(7):"BAUMOI:"
1310 DISPLAY AT(6,7)SIZE(3):P1
1320 DISPLAY AT(6,16)SIZE(7):"BAUMOI:"
1330 DISPLAY AT(6,23)SIZE(3):P2
1350 DISPLAY AT(10,4)SIZE(7):"ERVTHSH"
1360 DISPLAY AT(10,19)SIZE(7):"ERVTHSH"
1370 DISPLAY AT(12,1)SIZE(9):"DYSKOLIA:"
1380 DISPLAY AT(12,16)SIZE(9):"DYSKOLIA:"
1390 DISPLAY AT(13,1)SIZE(9):"EPISTHMH:"
1400 DISPLAY AT(13,16)SIZE(9):"EPISTHMH:"
1410 DISP=-15*(W=2)
1420 DISPLAY AT(12,10+DISP)SIZE(2):H
1430 DISPLAY AT(14,2+DISP)SIZE(11):E$
1440 DISPLAY AT(22,1+DISP)SIZE(6):"SVSTH?"
1450 ACCEPT AT(22,7+DISP)VALIDATE("NAIOX")BEEP SIZE(3):R$
1460 IF (R$<>"NAI")AND(R$<>"OXI")THEN 1450
1470 IF W=2 THEN P2=P2-H*(R$="NAI")+H*(R$="OXI"):: IF P2<0 THEN P2=0
1480 IF W=1 THEN P1=P1-H*(R$="NAI")+H*(R$="OXI"):: IF P1<0 THEN P1=0
1490 CALL SOUND(100,1000,0)
1500 DISPLAY AT(6,7)SIZE(3):P1
1510 DISPLAY AT(6,23)SIZE(3):P2
1520 CALL KEY(5,RET,STA)
1530 IF STA=0 THEN 1520
1540 SUBEND