:D AAA quality

here. but not well-written, it is only a prototype game 100 ENVELOPE NUMBER 1;0,64,64,1;0,-44,-44,2;0,-20,-20,8 110 SET STATUS OFF:SET KEY CLICK OFF 120 GRAPHICS HIRES 16 130 CLOSE #101 140 SET VIDEO X 20 150 OPEN #101:"video:" 160 SET #102:PALETTE 249,255 170 LET P1=187:LET P2=59:LET P3=115:LET P4=227:LET P5=163:LET P6=35:LET P7=106:LET P8=42 180 !CALL PROT(0) 190 SET BIAS 255 200 SET PAPER 9 210 SET BORDER 249 220 CLEAR #101 230 DIM X(4),Y(4),SC(4) 240 DISPLAY #101:AT 1 FROM 1 TO 20 250 SET CHARACTER ORD("š"),0,124,254,254,254,254,254,124 260 SET CHARACTER ORD("˜"),0,124,130,130,130,130,130,124 270 LET ANI$="“„†‡‘-…’”" 280 SET CHARACTER ORD("ƒ"),0,124,214,214,214,214,214,124 290 SET CHARACTER ORD(""),0,124,182,170,170,170,182,124 300 SET CHARACTER ORD("“"),0,124,198,214,198,246,198,124 310 SET CHARACTER ORD("„"),0,124,198,214,198,214,198,124 320 SET CHARACTER ORD("†"),0,124,198,246,246,246,246,124 330 SET CHARACTER ORD("‡"),0,124,198,222,198,214,198,124 340 SET CHARACTER ORD("‘"),0,124,198,222,206,246,206,124 350 SET CHARACTER ORD("-"),0,124,222,222,214,194,246,124 360 SET CHARACTER ORD("…"),0,124,206,246,206,246,206,124 370 SET CHARACTER ORD("’"),0,124,206,246,206,222,198,124 380 SET CHARACTER ORD("”"),0,124,238,206,238,238,238,124 390 STRING L$(10)*10 400 LET ALL=0 410 FOR Q=1 TO 10 420 ! LET I=q-1 430 ! IF q>7 THEN LET I=8-(q-2) 440 SET INK 15 450 READ L$(Q) 460 PRINT #101,AT Q,1:L$(Q) 470 FOR W=1 TO 10 480 IF L$(Q)(W)=" " THEN LET ALL=ALL+1 490 NEXT W 500 NEXT X 510 LET ALLO=ALL 520 LET X(1)=2:LET Y(1)=2 530 LET X(2)=9:LET Y(2)=2 540 LET X(3)=2:LET Y(3)=9 550 LET X(4)=9:LET Y(4)=9 560 LET SC(1)=1:LET SC(2)=1:LET SC(3)=1:LET SC(4)=1 570 LET C=1 580 LET COU=0:LET ICOU=1:LET NEWKEY=1:LET I$=" " 590 ! 600 !CALL PROT(MOD(INT(COU/10),8)) 610 IF NEWKEY=1 THEN LET I$=INKEY$ 620 IF I$="" THEN LET I$=" " 630 LET NEWKEY=0 640 SET INK RND(3)+13:PRINT #101,AT Y(C),X(C):ANI$(ICOU) 650 LET IX=0:LET IY=0:LET FLAG=0 660 IF L$(Y(C))(X(C)+1)<>" " AND L$(Y(C))(X(C)-1)<>" " AND L$(Y(C)-1)(X(C))<>" " AND L$(Y(C)+1)(X(C))<>" " THEN LET FLAG=1:LET ICOU=10:LET I$="" 670 IF I$=CHR$(188) THEN LET IX=1 680 IF I$=CHR$(184) THEN LET IX=-1 690 IF I$=CHR$(180) THEN LET IY=1 700 IF I$=CHR$(176) THEN LET IY=-1 710 !IF I$=" " THEN LET FLAG=1 720 LET LLL$=L$(Y(C)+IY)(X(C)+IX) 730 IF LLL$=" " AND IX<>IY THEN LET FLAG=1 740 IF LLL$<>" " THEN LET NEWKEY=1 750 IF FLAG=1 THEN 760 SOUND ENVELOPE 1,PITCH 40-C*3-ICOU*3,INTERRUPT 770 SET INK 9+C:PRINT #101,AT Y(C),X(C):"š" 780 LET X(C)=X(C)+IX:LET Y(C)=Y(C)+IY 790 IF L$(Y(C))(X(C))=" " THEN LET SC(C)=SC(C)+1 800 LET L$(Y(C))=BERAK$(L$(Y(C)),X(C),"x") 810 LET ALL=ALL-1 820 LET ICOU=ICOU+1 830 IF ICOU=11 THEN 840 LET ICOU=1 850 SET INK 9+C:PRINT #101,AT Y(C)-IY,X(C)-IX:"š" 860 SET INK 9+C:PRINT #101,AT Y(C),X(C):"˜" 870 LET C=C+1 880 IF C=5 THEN LET C=1 890 SET INK 8:PRINT #101,AT Y(C),X(C):"š" 900 LET NEWKEY=1 910 END IF 920 ! PRINT #102,AT 2,10:SC(1),SC(2),SC(3),SC(4) 930 END IF 940 !IF L$(Y(C))(X(C))="š" THEN SOUND ENVELOPE 1,DURATION 10,INTERRUPT 950 LET COU=MOD(COU,3000)+1 960 !PRINT #102,AT 2,20:ALL; 970 !PRINT C,ICOU 980 GOTO 590 990 DEF BERAK$(BE$,BEX,SS$) 1000 LET BERAK$=BE$(1:BEX-1)&SS$&BE$(BEX+1:10) 1010 END DEF 1020 DEF XSOUND 1030 SOUND SOURCE 1,DURATION 10,ENVELOPE 0,INTERRUPT 1040 SOUND SOURCE 1,DURATION 10,ENVELOPE 1,PITCH 10 1050 END DEF 1060 DATA "šššššššššš" 1070 DATA "š˜ š ˜š" 1080 DATA "š š š" 1090 DATA "š š š" 1100 DATA "ššš š š" 1110 DATA "š š" 1120 DATA "š š" 1130 DATA "š šššš š" 1140 DATA "š˜ š ˜š" 1150 DATA "šššššššššš"

it is Enterprise 128 computer, IS-BASIC

@@EndreBarathArt cool! Thanks!

sokszor megtette, persze nem a hitgyülekte rádiójában :)

marha lassan rajzolja ki, de azután a képek váltása már gyors

@@EndreBarathArt Ja, leesett! :D

Is this recording the graphics animation into a string of graphics commands? The SAM Coupe BASIC could also do this (and I was told that the BBC can do this too).

@@48kmn13 no, it opens 8 lowres screens, so it is an animation of 8 pre-drawn screen. the drawing phase of the 8 screen is very slow, I dont show this on the video.

teljes félreétrésben vagy, én nagyon bírom puzsért, az összes műsorát megnéztem... sokat többször is meghallgatok. nagyon jókat mond általában.

Mert mindig alkalmatlanok kerülnek akik nem voltak valók az ország vezetésére??

Volt rendszerváltás?

A baj az, hogy a rendszer változott csak, a politikai elit maradt.

Xddd

Be, a k*rv@ anyját!

én nem, de egy érme gyártó cég meglátná benne a fantáziát szerintem :D sok ember poénból megvenné :D

orbánék erre azt válaszolják, hogy régen az oroszok kommunisták voltak, most viszont már keresztények :D

LMP=MSZP=DK=Orsós család. 1945--től egyik sem kérte VISSZA KIRABLÁSUNK !!! EURÓPAI ÜGYÉSZSÉGET EGYSEM AKAR HAZÁNKBA. SZTÁLINISTA MAFFIÓSÓK !!!

LNÉ VIP INT.

nem látod hogy odaírtam a videó aljára?

@@EndreBarathArt Majd hozzáteszed, hogy "de", ami gyakorlatilag érvényteleníti, amit előtte írtál. Ezerszer elmondta, mindenhol megnyilvánul, ahol lehetősége van rá, és nem cenzúrázzák. Ennyire egyszerű.

@@solinvictus6587 a dolgok nem 1 vagy 0-ák. attól hogy ironikus, még lehet benne valami kétséges, és ezt puzsér is tudja. amúgy persze hogy nem cenzúrázzák némethjúdás rádiójában, mivel nem kritizálja némethjúdást. míg ugyanebben az adásban mondja el, hogy a simicska médiában kritizálta simicskát.

@@EndreBarathArt oszt? lehet azé nem kritizál valakit mert éppen nem kerül napirendre, alapvetően hireket szoktak kommentelni. most azt várod el,hogy a semmiből kritizáljon valakit mert neked erre van szükséged,m, ő egy felnőtt eember azt csinál amit akar és hiteles. most akkor mivan ?

ez furcsa, mert simicskát kritizálta a saját tévéjében, míg a némethsándorjúdásról nem mond soha semmi rosszat...

teljesen igazad van, és a videó aljára oda is írtam amit oda írtam. de én hallgatom a puzsér előadások 95%-át, és kb soha nem kritizálja a némethsándorjúdást. míg ebben a műsorban is elmodták, hogy a simicska tévében viszont kritizálta simicskát... amióta "némethmédiás" lett puzsér, kb semmit nem szól a némethsándorjúdás ellen...

Szerencsetlen hulye Robert

@@EndreBarathArt Tény, hogy a Hitgyüli már 1996-tól sok pénzt tett bele az internetes média, élő közvetítésekbe stb. Itt is, a sok csatornájával szeretne egy szeletet kihasítani magának a hírversenyből.