Jak jest zgoda to nie ma problemu:
Binarke mogę wysłać na meila, oto źródło w GFA-BASICu (na licencji GPL jakby się ktoś pytał):
'
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
Troche namieszałem, przyznaję, ale musiałem to na gwałt przerabiać z kolor na mono.
Atari: FireBee, (Falcon030 CT60e SuperVidel SvEthlana CTPCI), TT, (520ST Pak030 Frak PuPla Panther), (520ST 4MB ST RAM 8MB TT RAM CosmosEx SC1435), (1040STFM UltraSatan SM124), (1040STE 4MB ST RAM 8MB TT RAM CosmosEx NetUSBee SM144 SC1224), 260ST, 520 ST+, (MEGA ST SM125), (65XE Rapidus U1MB VBXE SIDE2 SIO2PC), (Jaguar SkunkBoard), Lynx II, 2x Portfolio
