0 'ROULET.BA author unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'This program allows you to release programming tension by naming the hated program or hitting when prompted 10 DEFINTA-Z:I=0:II=0:BLK$=CHR$(239) 20 II=0:TLE$="*** PROGRAM ROULET ***" 50 CLS:PRINT TLE$ 55 PRINT@80,"PROGRAM NAME "; 60 INPUTFNME$ 65 IFFNME$<>""THEN100 100 CLS:PRINTTLE$ 110 PRINT@85,""FNME$"" 120 PRINT@280,"*** PRESS E TO END ***"; 150 FORI=1TOVAL(RIGHT$(TIME$,2)) 160 BULT=INT(RND(1)*6+1) 170 NEXTI 200 LINE(128,14)-(156,22),1,BF:' BARREL 210 LINE(156, 8)-(192,28),1,BF:'CHAMBER 220 LINE(180,20)-(200,40),1,BF 240 FORI=180TO200:'-----------HANDLE 250 LINE(I,39)-(I+12,63),1 260 NEXTI 270 PRINT@231,"R";:PRINT@272,"B"; 300 LINE(164,28)-(180,40),1,B :' GUARD 310 LINE(164,12)-(180,16),0,BF:' BULLET 320 LINE(164,20)-(180,24),0,BF:'CHAMBER 330 LINE(170,36)-(176,28),1 :'TRIGGER 340 LINE(171,36)-(177,28),1 :' " 360 LINE(193, 7)-(195,14),1,BF:' FIRING 370 FORI=192TO194 :' PIN & 380 LINE(I,20)-(I+7,6),1 :' HAMMER 390 NEXTI 500 PRINT@280,"*** PRESS SPACEBAR ***"; 510 POKE 65450,0:'---CLEAR INKEY QUEQUE 520 PULL=INT(RND(1)*6+1):KB$=INKEY$ 530 IFKB$=""THEN520 540 IFKB$="E"ORKB$="e"THENMENU 600 FOR SPIN=0 TO PULL*2:' = 2 * PULL 610 FORI=0TO5:'---ERASE AND RE-DRAW 620 LINE(164,12)-(180,12+I),SPIN,BF 630 LINE(164,20)-(180,20+I),SPIN+1,BF 640 NEXTI 650 NEXTSPIN 700 FOR I=1 TO 6:'--MOVE THE TRIGGER BY 710 LINE(169+I,36)-(176,28),0:' ERASE 720 LINE(170+I,36)-(177,28),0:' & 730 LINE(170+I,36)-(176,28),1:'RE-DRAW 740 LINE(171+I,36)-(177,28),1: 750 NEXTI 800 FORI=1TO3:'--MOVE THE FIRING PIN 810 LINE(192+I,7)-(194+I,14),0,BF 820 FORII=191+ITO193+I:' BY ERASING 830 LINE(192,20)-(II+7,6),0 840 NEXTII 850 LINE(193+I,7)-(195+I,14),1,BF:' & 860 FORII=192+ITO194+I 870 LINE(193,20)-(II+7,6),1:' RE-DRAW 880 NEXTII 890 NEXTI 900 CLS:'----A BANG OR A CLICK? 950 IFPULL=BULTTHENX=0ELSEX=6 970 K1=0:K2=40:K3=80:'-CURSOR LOCATIONS 980 K4=120:K5=160:K6=200:K7=240 1000 FORII=X+1TOX+6 1010 X1=ASC(MID$("@__Q_D@_AD_Q",II,1)) 1020 X2=ASC(MID$("@QQSQD@QADQI",II,1)) 1030 X3=ASC(MID$("@QQWAD@AADAE",II,1)) 1040 X4=ASC(MID$("@__UAD@AADAC",II,1)) 1050 X5=ASC(MID$("@QQ]YD@AADAE",II,1)) 1060 X6=ASC(MID$("@QQYQ@@QADQI",II,1)) 1070 X7=ASC(MID$("@_QQ_D@__D_Q",II,1)) 1100 FORI=0TO5 1110 IFX1AND2^ITHENPRINT@K1,BLK$ 1115 K1=K1+1 1120 IFX2AND2^ITHENPRINT@K2,BLK$ 1125 K2=K2+1 1130 IFX3AND2^ITHENPRINT@K3,BLK$ 1135 K3=K3+1 1140 IFX4AND2^ITHENPRINT@K4,BLK$ 1145 K4=K4+1 1150 IFX5AND2^ITHENPRINT@K5,BLK$ 1155 K5=K5+1 1160 IFX6AND2^ITHENPRINT@K6,BLK$ 1165 K6=K6+1 1170 IFX7AND2^ITHENPRINT@K7,BLK$ 1175 K7=K7+1 1180 NEXTI 1190 NEXTII 1210 IFX=0THEN1313:'KILLTHEPROGRAM 1250 FORI=1TO1000:NEXTI:GOTO100 1313 MENU