DIM a$(40), b$(40)
'ON TIMER(1) GOSUB time
'ON ERROR GOTO air1
ps = 1
STA:
RANDOMIZE TIMER
SHELL "echo off"
CLS
FOR a = 1 TO 30
READ a$(a), b$(a)
IF a$(a) = "Exit" THEN a = 30
NEXT a
sss:
GOSUB ccc
TIMER STOP
PRINT "Ι";
FOR a = 1 TO 40
GOSUB ccc
PRINT "Ν";
NEXT a
GOSUB ccc
PRINT "ΡΝΝΝΝ»"
FOR a = 1 TO 20
GOSUB ccc
PRINT "Ί ";
IF a < 10 THEN l$ = CHR$(a + 48)
IF a > 9 THEN l$ = CHR$(a + 55)
PRINT l$; "."; a$(a);
LOCATE a + 1, 42
GOSUB ccc
PRINT "³ "; b$(a); ":"
GOSUB ccc
LOCATE a + 1, 47
PRINT "Ί";
GOSUB ccc
IF a = ps THEN PRINT CHR$(27) ELSE PRINT "  "
IF a$(a) = "Exit" THEN IF ps > a THEN ps = 1
IF a$(a) = "Exit" THEN a = 21
NEXT a
GOSUB ccc
PRINT "Θ";
FOR a = 1 TO 40
GOSUB ccc
PRINT "Ν";
NEXT a
GOSUB ccc
PRINT "ΟΝΝΝΝΌ"
TIMER ON
a$ = INKEY$
IF a$ = "" THEN LOCATE 1, 1: GOTO sss
IF a$ = CHR$(9) THEN ps = ps + 1: LOCATE 1, 1: GOTO sss
IF a$ = CHR$(13) THEN
        a$ = CHR$(ps + 48)
        IF ps > 9 THEN a$ = CHR$(ps - 9 + 64)
END IF
a$ = UCASE$(a$)
sdf: FOR a = 1 TO 40
PRINT
NEXT a
IF a$ = "1" THEN
        SHELL "B:\"
        SHELL "cd\Thexder"
        RUN "Thexder.com"
END IF
IF a$ = "2" THEN SHELL "echo Sorry that selection is unavalable"
IF a$ = "3" THEN
        SHELL "b:\"
        SHELL "cd\hillsfar"
        RUN "hillsfar.bat"
END IF
IF a$ = "4" THEN
        SHELL "b:\"
        SHELL "cd\sorceria"
        SHELL "Sierra"
END IF
IF a$ = "6" THEN
        SHELL "b:\"
        SHELL "cd\comic"
        RUN "-comic.exe"
END IF
IF a$ = "5" THEN
        SHELL "c:\"
        SHELL "cd\"
        SHELL "Memory.exe"
        SHELL "pause"
END IF
IF a$ = "7" THEN
        SHELL "B:\"
        SHELL "cd\golfe"
        RUN "golfe.exe"
END IF
IF a$ = "8" THEN
        SHELL "B:\"
        SHELL "cd\hfro"
        PRINT "PLEASE CHOOSE CGA GRAPHICS"
        SHELL "hfro.COM"
END IF
IF a$ = "9" THEN
        SHELL "B:\"
        SHELL "cd\demon"
        RUN "demon.exe"
END IF
IF a$ = "A" THEN
        SHELL "B:\"
        SHELL "cd\simearth"
        SHELL "copy b:\simearth\*.* d:"
        SHELL "d:"
        RUN "simearth.exe"
END IF
IF a$ = "B" THEN
        SHELL "A:\"
        RUN "Mushroom.com"
END IF
IF a$ = "C" THEN
        SHELL "A:\"
        RUN "budo.com"
END IF
IF a$ = "D" THEN
        SHELL "B:\"
        RUN "Welltris.exe"
END IF
IF a$ = "E" THEN
        PRINT "Please insert disk 1 and press any key"
        b$ = INPUT$(1)
        SHELL "copy a:\*.* d:"
        PRINT "Please insert disk 2 and press any key"
        b$ = INPUT$(1)
        SHELL "copy a:\*.* d:"
        PRINT "Please insert disk 3 and press any key"
        b$ = INPUT$(1)
        SHELL "copy a:\*.* d:"
        SHELL "d:"
        RUN "sierra.com"
END IF
IF a$ = "F" THEN
        SHELL "B:\"
        RUN "Pop.bat"
END IF
 
END
ccc:
aa = aa + 1
IF aa > 1 AND aa < 1000 THEN GOSUB m1
IF aa > 999 AND aa < 2000 THEN GOSUB m2
IF aa > 1999 AND aa < 3000 THEN GOSUB m3
IF aa > 2999 AND aa < 4000 THEN GOSUB m4
IF aa > 3999 AND aa < 4999 THEN GOSUB m5
IF aa > 5000 THEN aa = 1: ddd = ddd + 1
IF ddd = 4 AND aa = 1000 THEN
        FOR v = 1 TO 10000
        LOCATE 3, 49
        GOSUB ccc
        PRINT "Hurry up and make a selection!!!"
        a$ = INKEY$
        IF a$ <> "" THEN LOCATE 1, 1: GOTO sdf
        NEXT v
        CLS
        ddd = 0
END IF
'PRINT aa;
RETURN
m1: cc = INT(RND(9) * 14) + 1
COLOR cc, 0
RETURN
m2: cc = cc + 2
IF cc > 15 THEN cc = 1
COLOR cc, 0
RETURN
m3: cc = cc + 1
IF cc > 15 THEN cc = 1
COLOR cc, 0
RETURN
m4: cc = cc + 3
IF cc > 15 THEN cc = 1
COLOR cc, 0
RETURN
m5:
IF aa = 4001 THEN ccc = INT(RND(9) * 12) + 1
cc = INT(RND(9) * 3) + ccc
COLOR cc, 0
RETURN
END
DATA Thexder,b,Simcity,b,Hillsfar,b,Sorcerian,b,Memory Test,c,Captain Comic,b
DATA Jack Golf,b,Hunt FOR Red October,b,Demons Winter,b,SimEarth,b,Mushroom,a
DATA Budokan,a,Welltris,b,Kings Quest III,a,Populous,b,EXIT,¨
v:
PRINT "Sorry an error accorred"
a$ = INPUT$(1)
GOTO STA
air1: