Skip to main content

Posts

....

تونس اليوم

عاجل

EN CONTINU

يهمكم

علوم و تكنولوجيا

أخبار كرة القدم

القنوات الناقلة لكأس العالم مجاناعلى الهوتبيرد .هذه أسماء القنوات الناقلة لكأس العالم مجان اعلى الهوتبيرد : ـ Rai Sport 11804 عمودي 27500 ـ Rai 10990 عمودي 27500 ـ RAI Uno 11766 عمودي 27500 ـ Fox Sports Italia 12050 افقي 29900 ـ sky sport 3 12050 افقي 29900 ـ Sky Calcio 11526 افقي 27500 ـ TVP Sport 10796 عمودي 27500 ـ 1,2 Canal+Sport 10892 افقي 27500 ـ n Sport 10720 عمودي 27500 ـ TVN Turbo 11393 عمودي27500 ـ Ariana Afghanistan 10723 افقي29900 ـ rtpi 10720 افقي 29900 ـ TV Globo 11585عمودي 27500 ـ TF1 11681 افقي 27500 ـ Lider Tv 12149 عمودي 27500 ـ ARD , ZDF 11054 افقي 27500 ard das erste 11541 عمودي22000

pampouna et panda

HAMURABI

10 PRINT TAB(32);"HAMURABI" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 90 PRINT "FOR A TEN-YEAR TERM OF OFFICE.":PRINT 95 D1=0: P1=0 100 Z=0: P=95:S=2800: H=3000: E=H-S 110 Y=3: A=H/Y: I=5: Q=1 210 D=0 215 PRINT:PRINT:PRINT "HAMURABI:  I BEG TO REPORT TO YOU,": Z=Z+1 217 PRINT "IN YEAR";Z;",";D;"PEOPLE STARVED,";I;"CAME TO THE CITY," 218 P=P+I 227 IF Q>0 THEN 230 228 P=INT(P/2) 229 PRINT "A HORRIBLE PLAGUE STRUCK!  HALF THE PEOPLE DIED." 230 PRINT "POPULATION IS NOW";P 232 PRINT "THE CITY NOW OWNS ";A;"ACRES." 235 PRINT "YOU HARVESTED";Y;"BUSHELS PER ACRE." 250 PRINT "THE RATS ATE";E;"BUSHELS." 260 PRINT "YOU NOW HAVE ";S;"BUSHELS IN STORE.": PRINT 270 IF Z=11 THEN 860 310 C=INT(10*RND(1)): Y=C+17 312 PR

BUG

10 PRINT TAB(34);"BUG" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 REM 50 A=0: B=0: H=0: L=0: N=0: P=0: Q=0: R=0: S=0: T=0: U=0: V=0: Y=0 60 PRINT "THE GAME BUG" 70 PRINT "I HOPE YOU ENJOY THIS GAME." 80 PRINT 90 PRINT "DO YOU WANT INSTRUCTIONS"; 100 INPUT Z$ 110 IF Z$="NO" THEN 300 120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH" 130 PRINT "MINE. EACH NUMBER STANDS FOR A PART OF THE BUG BODY." 140 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU" 150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART." 160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU." 170 PRINT "THE SAME WILL HAPPEN ON MY TURN." 180 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE" 190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS." 200 PRINT "THE NUMBERS STAND

ROULETTE

10 PRINT TAB(32);"ROULETTE" 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 PRINT "ENTER THE CURRENT DATE (AS IN 'JANUARY 23, 1979') -"; 50 INPUT D$,E$ 1000 REM-ROULETTE 1010 REM-DAVID JOSLIN 1020 PRINT "WELCOME TO THE ROULETTE TABLE" 1030 PRINT 1040 PRINT "DO YOU WANT INSTRUCTIONS"; 1050 INPUT Y$ 1060 IF LEFT$(Y$,1)="N" THEN 1550 1070 PRINT 1080 PRINT "THIS IS THE BETTING LAYOUT" 1090 PRINT "  (*=RED)" 1100 PRINT 1110 PRINT " 1*    2     3*" 1120 PRINT " 4     5*    6 " 1130 PRINT " 7*    8     9*" 1140 PRINT "10    11    12*" 1150 PRINT "---------------" 1160 PRINT "13    14*   15 " 1170 PRINT "16*   17    18*" 1180 PRINT "19*   20    21*" 1190 PRINT "22    23*   24 " 1200 PRINT "---------------" 1210 PRINT "25*   26    27*" 1220 PRINT "28    29