10 REM PRINT TAB(34);"BUG"
20 REM 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." : PRINT
80 INPUT "DO YOU WANT INSTRUCTIONS (1=yes, 0=no)? ";Z
90 IF Z=0 THEN GOTO 270
100 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH"
110 PRINT "MINE. EACH NUMBER STANDS FOR A PART OF THE BUG BODY."
120 PRINT "I WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU"
130 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART."
140 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU."
150 PRINT "THE SAME WILL HAPPEN ON MY TURN."
160 PRINT "IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE"
170 PRINT "OPTION OF SEEING THE PICTURES OF THE BUGS."
180 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:"
190 PRINT "NUMBER","PART","NUMBER OF PART NEEDED"
200 PRINT "1","BODY","1"
210 PRINT "2","NECK","1"
220 PRINT "3","HEAD","1"
230 PRINT "4","FEELERS","2"
240 PRINT "5","TAIL","1"
250 PRINT "6","LEGS","6"
260 PRINT:PRINT
270 IF Y>0 THEN GOTO 2480
280 Z=RND(6)
290 C=1
300 PRINT "YOU ROLLED A ";Z+1
310 GOTO 320+(Z*110)
320 PRINT "1=BODY"
330 IF B=1 THEN GOTO 380
340 PRINT "YOU NOW HAVE A BODY."
350 B=1
360 C=0
370 GOTO 960
380 PRINT "YOU DO NOT NEED A BODY."
390 GOTO 960
430 PRINT "2=NECK"
440 IF N=1 THEN GOTO 500
450 IF B=0 THEN GOTO 520
460 PRINT "YOU NOW HAVE A NECK."
470 N=1
480 C=0
490 GOTO 960
500 PRINT "YOU DO NOT NEED A NECK."
510 GOTO 960
520 PRINT "YOU DO NOT HAVE A BODY."
530 GOTO 960
540 PRINT "3=HEAD"
550 IF N=0 THEN GOTO 610
560 IF H=1 THEN GOTO 630
570 PRINT "YOU NEEDED A HEAD."
580 H=1
590 C=0
600 GOTO 960
610 PRINT "YOU DO NOT HAVE A NECK."
620 GOTO 960
630 PRINT "YOU HAVE A HEAD."
640 GOTO 960
650 PRINT "4=FEELERS"
660 IF H=0 THEN GOTO 740
670 IF A=2 THEN GOTO 720
680 PRINT "I NOW GIVE YOU A FEELER."
690 A=A+1
700 C=0
710 GOTO 960
720 PRINT "YOU HAVE TWO FEELERS ALREADY."
730 GOTO 960
740 PRINT "YOU DO NOT HAVE A HEAD."
750 GOTO 960
760 PRINT "5=TAIL"
770 IF B=0 THEN GOTO 830
780 IF T=1 THEN GOTO 850
790 PRINT "I NOW GIVE YOU A TAIL."
800 T=T+1
810 C=0
820 GOTO 960
830 PRINT "YOU DO NOT HAVE A BODY."
840 GOTO 960
850 PRINT "YOU ALREADY HAVE A TAIL."
860 GOTO 960
870 PRINT "6=LEG"
880 IF L=6 THEN GOTO 940
890 IF B=0 THEN GOTO 950
900 L=L+1
910 C=0
920 PRINT "YOU NOW HAVE ";L;" LEGS."
930 GOTO 960
940 PRINT "YOU HAVE 6 FEET ALREADY." : GOTO 960
950 PRINT "YOU DO NOT HAVE A BODY." 
960 X=RND(6) : PRINT : PRINT "I ROLLED A ";X+1 : GOTO 970+(110*X)
970 PRINT "1=BODY"
1010 IF P=1 THEN GOTO 1060
1020 PRINT "I NOW HAVE A BODY."
1030 C=0
1040 P=1
1050 GOTO 1630
1060 PRINT "I DO NOT NEED A BODY."
1070 GOTO 1630
1080 PRINT "2=NECK"
1090 IF Q=1 THEN GOTO 1150
1100 IF P=0 THEN GOTO 1170
1110 PRINT "I NOW HAVE A NECK."
1120 Q=1
1130 C=0
1140 GOTO 1630
1150 PRINT "I DO NOT NEED A NECK."
1160 GOTO 1630
1170 PRINT "I DO NOT HAVE A BODY."
1180 GOTO 1630
1190 PRINT "3=HEAD"
1200 IF Q=0 THEN GOTO 1260
1210 IF R=1 THEN GOTO 1280
1220 PRINT "I NEEDED A HEAD."
1230 R=1
1240 C=0
1250 GOTO 1630
1260 PRINT "I DO NOT HAVE A NECK."
1270 GOTO 1630
1280 PRINT "I DO NOT NEED A HEAD."
1290 GOTO 1630
1300 PRINT "4=FEELERS"
1310 IF R=0 THEN GOTO 1390
1320 IF S=2 THEN GOTO 1370
1330 PRINT "I GET A FEELER."
1340 S=S+1
1350 C=0
1360 GOTO 1630
1370 PRINT "I HAVE 2 FEELERS ALREADY."
1380 GOTO 1630
1390 PRINT "I DO NOT HAVE A HEAD."
1400 GOTO 1630
1410 PRINT "5=TAIL"
1420 IF P=0 THEN GOTO 1480
1430 IF U=1 THEN GOTO 1500
1440 PRINT "I NOW HAVE A TAIL."
1450 U=1
1460 C=0
1470 GOTO 1630
1480 PRINT "I DO NOT HAVE A BODY."
1490 GOTO 1630
1500 PRINT "I DO NOT NEED A TAIL."
1510 GOTO 1630
1520 PRINT "6=LEGS"
1530 IF V=6 THEN GOTO 1590
1540 IF P=0 THEN GOTO 1610
1550 V=V+1
1560 C=0
1570 PRINT "I NOW HAVE ";V;" LEGS."
1580 GOTO 1630
1590 PRINT "I HAVE 6 FEET."
1600 GOTO 1630
1610 PRINT "I DO NOT HAVE A BODY."
1620 GOTO 1630
1630 IF (A=2)*(T=1)*(L=6) THEN GOTO 1650
1640 GOTO 1670
1650 PRINT "YOUR BUG IS FINISHED."
1660 Y=Y+1
1670 IF (S=2)*(P=1)*(V=6) THEN GOTO 1690
1680 GOTO 1710
1690 PRINT "MY BUG IS FINISHED."
1700 Y=Y+2
1710 IF C=1 THEN GOTO 270
1720 INPUT "DO YOU WANT THE PICTURES (1=yes, 0=no)? ";Z
1740 IF Z=0 THEN GOTO 270
1750 PRINT "*****YOUR BUG*****"
1760 PRINT
1770 PRINT
1780 IF A=0 THEN GOTO 1860
1790 FOR Z=1 TO 4
1800 PRINT "          ";
1810 FOR X=1 TO A
1820 PRINT "A ";
1830 NEXT X
1840 PRINT
1850 NEXT Z
1860 IF H=0 THEN GOTO 1880
1870 GOSUB 2470
1880 IF N=0 THEN GOTO 1920
1890 FOR Z=1 TO 2
1900 PRINT "          N N"
1910 NEXT Z
1920 IF B=0 THEN GOTO 2000
1930 PRINT "     BBBBBBBBBBBB"
1940 FOR Z=1 TO 2
1950 PRINT "     B          B"
1960 NEXT Z
1970 IF T#1 THEN GOTO 1990
1980 PRINT "TTTTTB          B"
1990 PRINT "     BBBBBBBBBBBB"
2000 IF L=0 THEN GOTO 2080
2010 FOR Z=1 TO 2
2020 PRINT "     ";
2030 FOR X=1 TO L
2040 PRINT " L";
2050 NEXT X
2060 PRINT
2070 NEXT Z
2080 FOR Z=1 TO 4
2090 PRINT
2100 NEXT Z
2110 PRINT "*****MY BUG*****"
2120 PRINT
2130 PRINT
2140 PRINT
2150 IF S=0 THEN GOTO 2230
2160 FOR Z=1 TO 4
2170 PRINT "          ";
2180 FOR X=1 TO S
2190 PRINT "F ";
2200 NEXT X
2210 PRINT
2220 NEXT Z
2230 IF R#1 THEN GOTO 2250
2240 GOSUB 2470
2250 IF Q=0 THEN GOTO 2280
2260 PRINT "          N N"
2270 PRINT "          N N"
2280 IF P=0 THEN GOTO 2360
2290 PRINT "     BBBBBBBBBBBB"
2300 FOR Z=1 TO 2
2310 PRINT "     B          B"
2320 NEXT Z
2330 IF U#1 THEN GOTO 2350
2340 PRINT "TTTTTB          B"
2350 PRINT "     BBBBBBBBBBBB"
2360 IF V=0 THEN GOTO 2450
2370 FOR Z=1 TO 2
2380 PRINT "     ";
2390 FOR X=1 TO V
2400 PRINT " L";
2410 NEXT X
2420 PRINT
2430 NEXT Z
2450 IF Y#0 THEN GOTO 2540
2460 GOTO 270
2470 PRINT "        HHHHHHH"
2480 PRINT "        H     H"
2490 PRINT "        H O O H"
2500 PRINT "        H     H"
2510 PRINT "        H  V  H"
2520 PRINT "        HHHHHHH"
2530 RETURN
2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!"
2550 END
