'

init

menu

'

PROCEDURE init

  DIM t$(255)

  wt=0

  pltekst=46

  entekst=43

  COLOR 0

  VSETCOLOR 0,0

  VSETCOLOR 1,&HFFFFFF

  '

  FOR i=65 TO 128

    TEXT 0,7,CHR$(i)

    GET 0,0,16,16,t$(i)

    '    ~INP(2)

  NEXT i

RETURN

'

PROCEDURE menu

  LOCAL c

  DO

    CLS

    PRINT CHR$(27);"p P ";CHR$(27);"q - jezyk polski"

    PRINT CHR$(27);"p E ";CHR$(27);"q - English language"

    c=INP(2)

    '    PRINT c

    IF c=69 OR c=101

      lang=1

      tekst

    ENDIF

    IF c=80 OR c=112

      lang=0

      tekst

    ENDIF

  LOOP

RETURN

'

PROCEDURE outtext(x,y,text$)

  LOCAL i

  LOCAL sx

  sx=x

  FOR i=1 TO LEN(text$)

    TEXT sx,y,MID$(text$,i,1)

    sx=sx+8

    wait(wt)

  NEXT i

RETURN

'

PROCEDURE wait(a)

  LOCAL i

  FOR i=0 TO a

    VSYNC

  NEXT i

RETURN

'

'

PROCEDURE tekst

  CLS

  PRINT CHR$(27);"p  ESC - wybor jezyka / select language                                          ";CHR$(27);"q"

  GET 0,0,639,15,a$

  PUT 0,1,a$

  COLOR 1

  LINE 0,17,639,17

  LINE 0,0,639,0

  COLOR 0

  LOCAL a,a$,i,b,b$,c,t

  RESTORE pl

  c=0

  DO

    IF lang=0

      RESTORE pl

      t=pltekst

    ELSE

      RESTORE en

      t=entekst

    ENDIF

    FOR i=0 TO t

      IF INP?(2)

        c=INP(2)

        EXIT IF c=27

      ENDIF

      READ a$

      outtext(160,397,a$)

      FOR b=0 TO 16

        GET 160,20,479,399,b$

        PUT 160,19,b$

        LINE 0,399,639,399

        VSYNC

      NEXT b

    NEXT i

    EXIT IF c=27

  LOOP

RETURN

PROCEDURE data

  '     0000000000111111111122222222223333333333

  '     0123456789012345678901234567890123456789

pl:

  DATA "Kiludziesieciu mlodych hobbystow z calej"

  DATA "Polski mialo wtedy do dyspozycji trzy ko"

  DATA "mputery. Przy mikrokomuterach mozna bylo"

  DATA "sprawdzic nabyte wczesniej umiejetnosci,"

  DATA "uruchamiajac wlasny program. Dla wielu u"

  DATA "czestnikow obozu byla to nie lada frajda"

  DATA ": tajemniczy dotad komputer stawal sie p"

  DATA "posluszny, wykonywal rozkazy"

  DATA "                    "

  DATA "Jesli wiec nie traktujemy dysku jako pod"

  DATA "recznego smietnika, w ktorym przechowuje"

  DATA "my wszystko, co tylko wpadnie nam w rece"

  DATA ", to 20MB starcza nawet z duzym zapasem."

  DATA ".."

  DATA "                    "

  DATA "Zaden zaklad nie jest w stanie wyproduko"

  DATA "wac rocznie wiecej niz 5 tys. komputerow"

  DATA "                    "

  DATA "Nie bedzie potrzebna znajomosc zadnych i"

  DATA "nstrukji systemu operacyjnego czy jezyka"

  DATA "programowania; integracja telefonow z ko"

  DATA "mputerami osobistymi."

  DATA "                    "

  DATA "Komunikacja z komputerem za pomoca glosu"

  DATA "bedzie mozliwa do konca lat 80."

  DATA "                    "

  DATA "Pamiec optyczna o pojemnosci setek megab"

  DATA "ajtow na dyskach optycznych z zapisem i "

  DATA "odczytem."

  DATA "                    "

  DATA "Zastosowanie sztucznej inteligencji stan"

  DATA "ie sie powszechne"

  DATA "                    "

  DATA "Rozpowszechnienie wspomaganego komputere"

  DATA "mopracowywania i drukowania tekstow: tan"

  DATA "sze, lepsze drukarki laserowe, drukujace"

  DATA "w kolorze."

  DATA "                    "

  DATA "Zedrzyjmy maske z elektronicznego polglo"

  DATA "wka! Powiedzmy prawde: elektroniczne mas"

  DATA "szny nie zastapia natchnionego mistrza. "

  DATA "Nie potrafia mu nawet dobrze wymieszac f"

  DATA "arb."

  DATA "                    "

  DATA "Mozny by nawet zaryzykowac przyznanie ko"

  DATA "mputerowi tytulu "polartysty"."

  DATA "                    "

en:

  DATA "A group of young hobbyists from Poland c"

  DATA "ould use 3 computers. Using microcompute"

  DATA "rs they could check their skills, typing"

  DATA "their programs. For many of the particip"

  DATA "ants it was a lot of fun: a computer, so"

  DATA "far so mysterious, became obedient, exec"

  DATA "uting the orders."

  DATA "                    "

  DATA "If we don't use the hard disc as a dustb"

  DATA "in, in which we store everything we have"

  DATA ", 20MB is even more than enough space."

  DATA "                    "

  DATA "No factory is able to produce 5 thousand"

  DATA "s of computer sets per year"

  DATA "                    "

  DATA "The knowledge of instructions or operati"

  DATA "onal systems or programming languages wi"

  DATA "ll not be needed; personal computers wil"

  DATA "l be fully integrated with telephones"

  DATA "                    "

  DATA "Voice communication with a computer will"

  DATA "become possible by the end of the eighti"

  DATA "es."

  DATA "                    "

  DATA "Optical memory with capacity of hundreds"

  DATA "of megabytes on optical discs with a rec"

  DATA "ord and readout."

  DATA "                    "

  DATA "Using artifical intelligence will become"

  DATA "popular."

  DATA "                    "

  DATA "Editing and printing out texts will be p"

  DATA "opular; cheaper, more effective printers"

  DATA "will print in colour."

  DATA "                    "

  DATA "Let's tear the mask from the electronic "

  DATA "dummy! To tell the truth: electronic mac"

  DATA "hines will not supersede an inspired mas"

  DATA "ter. They don't even know how to mix his"

  DATA "paint."

  DATA "                    "

  DATA "We could even risk to call the computer:"

  DATA ""half-artist."."

  DATA "                    "

RETURN