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) 210 CALL CLEAR :: CALL SCREEN(11):: CALL COLOR(3,16,1,4,16,1,5,16,1,6,16,1,7,16,1,8,16,1,13,16,1,14,16,1) 220 DISPLAY AT(1,7):"KOKKINOI GIGANTES" 230 DISPLAY AT(2,9):"ASPROI NANOI" 240 DISPLAY AT(4,1):"…‚‚‚‚‚‚‚‚‚‚ˆ‚ˆ‚ˆ‚ˆ‚ˆ‚†" 250 DISPLAY AT(5,1):" 12345" 260 DISPLAY AT(6,1):"‹‚‚‚‚‚‚‚‚‚‚ƒ‚ƒ‚ƒ‚ƒ‚ƒ‚Š" 270 DISPLAY AT(7,1):"ASTRONOMIA     " 280 DISPLAY AT(8,1):"‹‚‚‚‚‚‚‚‚‚‚ƒ‚ƒ‚ƒ‚ƒ‚ƒ‚Š" 290 DISPLAY AT(9,1):"BIOLOGIA      " 300 DISPLAY AT(10,1):"‹‚‚‚‚‚‚‚‚‚‚ƒ‚ƒ‚ƒ‚ƒ‚ƒ‚Š" 310 DISPLAY AT(11,1):"GEVGRAFIA      " 320 DISPLAY AT(12,1):"‹‚‚‚‚‚‚‚‚‚‚ƒ‚ƒ‚ƒ‚ƒ‚ƒ‚Š" 330 DISPLAY AT(13,1):"FYSIKH      " 340 DISPLAY AT(14,1):"‹‚‚‚‚‚‚‚‚‚‚ƒ‚ƒ‚ƒ‚ƒ‚ƒ‚Š" 350 DISPLAY AT(15,1):"XHMEIA      " 360 DISPLAY AT(16,1):"‡‚‚‚‚‚‚‚‚‚‚‰‚‰‚‰‚‰‚‰‚„" 370 DISPLAY AT(18,3):"OMADA:";W 380 CALL WHAT(E$,H) 390 CALL KEY(0,RET,STA):: IF STA=0 THEN 390 400 CALL DELSPRITE(ALL):: CALL MAGNIFY(1):: CALL CLEAR 405 CALL SCREEN(8):: CALL COLOR(3,2,1,4,2,1,5,2,1,6,2,1,7,2,1,8,2,1,13,2,1,14,2, 1) 410 SUBEND 420 SUB START !DEFINE GREEK CHARACTERS AND FUNCTIONS 430 FOR I=1 TO 13 440 READ A,A$ 450 CALL CHAR(A,A$) 460 NEXT I 470 DATA 64,364299A1A199423C 480 DATA 67,0054543810101010 490 DATA 68,001028282844447C 500 DATA 70,0038545438101010 510 DATA 71,007C404040404040 520 DATA 74,007C00003800007C 530 DATA 76,0010282828444444 540 DATA 80,007C444444444444 550 DATA 82,0078444478404040 560 DATA 83,007C20100810207C 570 DATA 85,003844447C444438 580 DATA 86,003844444438007C 590 DATA 95,00000000FFFF0000 600 CALL CHAR(129,"1818181818181818000000FFFF000000181818FFFF181818181818F8F8000000") 610 CALL CHAR(133,"0000001F1F181818000000F8F81818181818181F1F000000000000FFFF181818") 620 CALL CHAR(137,"181818FFFF000000181818F8F81818181818181F1F181818DB9918E7E71899DB") 630 SUBEND 640 SUB WHAT(E$,H) 650 DISPLAY AT(20,4):"EPISTHMH:" :: DISPLAY AT(21,4):"DYSKOLIA:" 660 CALL SPRITE(#26,140,2,32,64) 670 CALL JOYST(1,X,Y) 680 CALL MOTION(#26,05*(Y=+4)-05*(Y=-4),05*(X=-4)-05*(X=+4)) 690 CALL KEY(1,RET,STA) 700 IF RET=18 THEN CALL LOC(E$,H)ELSE 670 710 IF H=0 THEN 670 ELSE DISPLAY AT(20,13):E$ :: DISPLAY AT(21,13):STR$(H):: SUB EXIT 720 SUBEND 730 SUB LOC(E$,H) 770 DATA ASTRONOMIA,BIOLOGIA,GEVGRAFIA,FYSIKH,XHMEIA 780 CALL POSITION(#26,Y,X) 790 R=INT((Y+4)/8)+1 :: C=INT((X+4)/8)+1 800 IF (R>15)OR(R<7)OR(C>23)OR(C<15)THEN H=0 :: SUBEXIT 810 IF (C/2=INT(C/2))OR(R/2=INT(R/2))THEN H=0 :: SUBEXIT 820 CALL MOTION(#26,0,0) 830 CALL SOUND(100,1000,0) 840 CALL DELSPRITE(#26) 850 CALL SPRITE(#26,42,7,R*8-12,C*8-12) 860 CALL MAGNIFY(2) 862 IF P=1 THEN 870 863 RESTORE 770 865 FOR I=1 TO 5 :: READ P$(I):: NEXT I :: P=1 870 E$=P$(INT(R/2)-2):: H=INT(C/2)-6 880 SUBEND 890 SUB SCR1 900 DEF CTR$(W$)=SEG$(" ",1,(28-LEN(W$))/2)&W$ 910 DISPLAY AT(1,1):CTR$("KOKKINOI GIGANTES") 920 DISPLAY AT(2,1):CTR$("ASPROI NANOI") 930 DISPLAY AT(10,1):CTR$("@ 1983 DIOMHDHS SPINELLHS") 940 DISPLAY AT(23,1):CTR$("PATA ENA KOYMPI") 950 DISPLAY AT(24,1):CTR$("GIA NA ARXISEI") 960 CALL KEY(5,RET,STA):: IF STA=0 THEN 960 970 CALL CLEAR :: CALL SOUND(100,1000,0) 980 SUBEND 990 SUB ACC(N1$,N2$,N3$,N4$) 1000 CALL CLEAR 1010 DISPLAY AT(4,1):"OMADA 1" 1020 ACCEPT AT(5,1)VALIDATE(UALPHA)SIZE(10)BEEP:N1$ 1030 ACCEPT AT(6,1)VALIDATE(UALPHA)SIZE(10)BEEP:N2$ 1040 DISPLAY AT(8,1):"OMADA 2" 1050 ACCEPT AT(9,1)VALIDATE(UALPHA)SIZE(10)BEEP:N3$ 1060 ACCEPT AT(10,1)VALIDATE(UALPHA)SIZE(10)BEEP:N4$ 1070 CALL CLEAR 1080 SUBEND 1090 SUB MAIN(N1$,N2$,N3$,N4$,E$,H,W) 1100 CALL CLEAR :: CALL DELSPRITE(ALL):: CALL CHAR(141,"181818181818181818181818FFFF1818"):: CALL HCHAR(9,1,95,32):: CALL VCHAR(1,15,141,24) 1110 CALL VCHAR(9,15,142) 1120 DISPLAY AT(1,4)SIZE(7):"OMADA 1" 1130 DISPLAY AT(1,19)SIZE(7):"OMADA 2" 1140 DISPLAY AT(3,1)SIZE(2):"1:" 1150 DISPLAY AT(3,3)SIZE(10):N1$ 1160 DISPLAY AT(3,16)SIZE(2):"1:" 1170 DISPLAY AT(3,18)SIZE(10):N3$ 1180 DISPLAY AT(4,1)SIZE(2):"2:" 1190 DISPLAY AT(4,3)SIZE(10):N2$ 1200 DISPLAY AT(4,16)SIZE(2):"2:" 1210 DISPLAY AT(4,18)SIZE(10):N4$ 1220 DISPLAY AT(6,1)SIZE(7):"BAUMOI:" 1230 DISPLAY AT(6,7)SIZE(3):P1 1240 DISPLAY AT(6,16)SIZE(7):"BAUMOI:" 1250 DISPLAY AT(6,23)SIZE(3):P2 1260 DISPLAY AT(10,4)SIZE(7):"ERVTHSH" 1270 DISPLAY AT(10,19)SIZE(7):"ERVTHSH" 1280 DISPLAY AT(12,1)SIZE(9):"DYSKOLIA:" 1290 DISPLAY AT(12,16)SIZE(9):"DYSKOLIA:" 1300 DISPLAY AT(13,1)SIZE(9):"EPISTHMH:" 1310 DISPLAY AT(13,16)SIZE(9):"EPISTHMH:" 1320 DISP=-15*(W=2) 1330 DISPLAY AT(12,10+DISP)SIZE(2):H 1340 DISPLAY AT(14,2+DISP)SIZE(11):E$ 1350 DISPLAY AT(22,1+DISP)SIZE(6):"SVSTH?" 1360 ACCEPT AT(22,7+DISP)VALIDATE("NAIOX")BEEP SIZE(3):R$ 1370 IF (R$<>"NAI")AND(R$<>"OXI")THEN 1360 1380 IF W=2 THEN P2=P2-H*(R$="NAI")+H*(R$="OXI"):: IF P2<0 THEN P2=0 1390 IF W=1 THEN P1=P1-H*(R$="NAI")+H*(R$="OXI"):: IF P1<0 THEN P1=0 1400 CALL SOUND(100,1000,0) 1410 DISPLAY AT(6,7)SIZE(3):P1 1420 DISPLAY AT(6,23)SIZE(3):P2 1430 CALL KEY(5,RET,STA) 1440 IF STA=0 THEN 1430 1450 SUBEND