**** ANTITREND SYSTEMS BASIC V1 ****

READY.:)

RUN


?BREAK ERROR IN LINE (elképzelhetetlensok).
READY.

LIST

0 REM FASZKIVANAS EZERT VEGE MINDENNEK
1 REM FASZKIVANASHANYADOS SZAMITASA
2 D=INT(RND(1)*65535)/INT(STR$(FASZKIVANMINDENNELMA))
3 FKV=D*65535
4 REM LATHATO HOGY FKV HANYADOS IGEN MAGAS BASSZATOKMEG
5 REM EZERT TORTENT AZ HOGY VEGEMINDENNEK! NEM MASERT!
6 GOSUB 1001
8 REM **MAIN
10 DATA "ZENELESSEL", "SKODAFOTOZASSAL", "AUTOFOTOZASSAL", "OLDALSZERKESZTGETESSEL", "MINDENEGYEBBEL"
20 FOR A=0TO4
30 READ A$(I)
40 GOSUB 100
50 NEXT A
100 PRINT "FASZKIVANMAR A " A$(I);
101 RETURN
102 PRINT" BAZMEG"
999 END
1001 PRINT"ABBAHAGYTAM EZT AZ EGESZSZART MERT:"
1002 RETURN


RUN

ABBAHAGYTAM EZT AZ EGESZSZART MERT: FASZKIVANMAR A ZENELESSEL FASZKIVANMAR A SKODAFOTOZASSAL FASZKIVANMAR A AUTOFOTOZASSAL FASZKIVANMAR A OLDALSZERKESZTGETESSEL FASZKIVANMAR A MINDENEGYEBBEL BAZMEG

READY.

Szóval meguntam, és a továbbiakban nem kívánom e tevékenységeket folytatni, de a kapcsolatteremtés lehetőségét biztosítom email által.