10 *|" 'ComicSt' Written on BBC B+ 20 *|" BY RUSHDEN ROY A 30 *|" 'L'PLATE PROGRAMMER 40 *|" APRIL 1993 50 60 MODE7:VDU23,1,0;0;0;0; 70 ON ERROR RUN 80 PRINT'':PROCROY 90 PRINT''CHR$(141)TAB(10,13)" AND NOW" 100 PRINTCHR$(141)TAB(10,14)" AND NOW" 110 FORT=0TO2000:NEXT T 120 PRINTCHR$(141)TAB(6,13)" THE COMIC(?) STRIP" 130 PRINTCHR$(141)TAB(6,14)" THE COMIC(?) STRIP" 140 PROCboxSpa(1,21):CLS 150 FORa=11TO0STEP-2 160 PROCtwinsnakes 170 PRINTTAB(2,3)"Whats the matter? You don't look yourself today." 180 PROCspacestring(2,3) 190 PRINTTAB(2,15)"Your right I'm feeling rather low..." 200 PROCspacestring(2,15) 210 PRINTTAB(2,3)"Oh. I thought you was bored stiff." 220 PROCspacestring(2,3) 230 PRINTTAB(2,15)"...and it looks as though you have got the hump." 240 PROCspacestring(2,15) 250 PRINTTAB(2,3)"No, I'm fine, it's just my impersonation of Dolly Parton!" 260 PROCspacestring(2,3) 270 PRINTTAB(2,15)"There's lot's of things I like about being a snake." 280 PROCspacestring(2,15) 290 PRINTTAB(2,3)"What is the top of the list?" 300 PROCspacestring(2,3) 310 PRINTTAB(2,15)"Never having to bother about washing hands after going to the toilet." 320 PROCspacestring(2,15) 330 PRINTTAB(2,3)"I went to a good party last night." 340 PROCspacestring(2,3) 350 PRINTTAB(2,15)"I know, you came home legless!" 360 PROCspacestring(2,15) 370 PRINTTAB(2,3)"At the party I got up and sang a song." 380 PROCspacestring(2,3) 390 PRINTTAB(2,15)"What was it? 'These boots are made for walking'?" 400 PROCspacestring(2,15) 410 PRINTTAB(2,3)"No. It was 'You need hands'." 420 PROCspacestring(2,3) 430 PRINTTAB(2,15)"Did they like it?" 440 PROCspacestring(2,15) 450 PRINTTAB(2,3)"No, they didn't applaud and I was hissed off the stage." 460 PROCspacestring(2,3) 470 PRINTTAB(2,15)"Did you all dance the 'Hokey Cokey?" 480 PROCspacestring(2,15) 490 PRINTTAB(2,3)"No, and we didn't play 'Pass the parcel'!" 500 PROClongSpa:CLS 510 520 PROCsnakehump(1,6) 530 PRINTTAB(2,3)"I've lost my pet rabbit, have you seen it?" 540 PROCspacestring(2,3) 550 PRINTTAB(2,13)"Err...no burp!" 560 570 PROCrabbit(2,15) 580 PROClongSpa:CLS 590 PROCdickchick:PROChumans:PROChens1:PROClongSpa:CLS 600 PROCdickchick:PROCwhere:PROChens1:PROClongSpa:CLS 610 PROCdickchick:PROCcolonel:PROChens1:PROClongSpa:CLS 620 PROClets:PROCbirds:PROClongSpa 630 PROCno(0,3):PROClongSpa:CLS 640 PRINT'' 650 PROCTreecar0 660 : 670 DEF PROCTreecar0 680 PROCTreecar1 690 FOR count=1TO999 700 IF count=INKEY-99 THEN 760 710 PROChand1(0,14) 720 PROCtreecar2(0,17) 730 FOR T=1 TO 1000:NEXT 740 PROChand2(0,14) 750 FOR T=1 TO 1000:NEXT 760 PRINTTAB(0,22)CHR$(130)CHR$(157)CHR$(154)" PRESS ESCAPE TO SEE IT ALL AGAIN" 770 NEXT count 780 ENDPROC 790 : 800 DEF PROClets 810 PRINT'' 820 PRINT " " 830 PRINT "et's do 䦡 " 840 PRINT "it now: " 850 ENDPROC 860 : 870 DEF PROCbirds 880 PRINT " "" hw " 890 PRINT " 66 "" " 900 PRINT " "" " 910 PRINT "黼uu " 920 PRINT " 䫰 " 930 PRINT "볿 " 940 PRINT "⼹ " 950 PRINT " " 960 PRINT " " 970 ENDPROC 980 : 990 DEFPROCno(x,y) 1000 PRINTTAB(x,y)" " 1010 PRINTTAB(x,y+1)" :o " 1020 PRINTTAB(x,y+2)"䦡 not yet.... " 1030 VDU30 1040 ENDPROC 1050 : 1060 DEF PROCTreecar1 1070 PRINT "湹 " 1080 PRINT "闹 " 1090 PRINT " " 1100 PRINT " " 1110 PRINT " " 1120 PRINT " " 1130 PRINT " " 1140 PRINT " " 1150 PRINT " " 1160 PRINT " " 1170 PRINT " " 1180 ENDPROC 1190 : 1200 DEF PROChand1(x,y) 1210 PRINTTAB(x,y)"ঠ" 1220 PRINTTAB(x,y+1)" pd" 1230 PRINTTAB(x,y+2)" `" 1240 ENDPROC 1250 : 1260 DEFPROCtreecar2(x,y) 1270 PRINTTAB(x,y)" " 1280 PRINTTAB(x,y+1)" " 1290 PRINTTAB(x,y+2)" " 1300 PRINTTAB(x,y+3)" j" 1310 ENDPROC 1320 : 1330 DEF PROChand2(x,y) 1340 PRINTTAB(x,y)"ঠ "; 1350 PRINTTAB(x,y+1)" "; 1360 ENDPROC 1370 : 1380 DEF PROCboxSpa(x,y) 1390 PRINTTAB(x,y)" " 1400 PRINTTAB(x,y+1)" ꉆ PRESS SPACE " 1410 PRINTTAB(x,y+2)" " 1420 *FX21 1430 REPEAT:UNTIL GET=32 1440 ENDPROC 1450 : 1460 DEFPROCROY 1470 PRINT"7`+47``57k`5 ````` PROGRAM BY ````````" 1480 PRINT"5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k" 1490 PRINT"uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5" 1500 PRINT"ppppppppppp upp5u5upp5uzp5upp5u7t5upp5" 1510 PRINT 1520 PRINT" FOR 8-BIT SOFTWARE" 1530 PRINT"1 Oakwood Drive Heaton BOLTON BL1 5EE"' 1540 ENDPROC 1550 : 1560 DEF PROChumans 1570 PRINT": When humans die :" 1580 PRINT": they either go :" 1590 PRINT":to heaven or hell:" 1600 PRINT" :...... ....:" 1610 ENDPROC 1620 : 1630 DEF PROCcolonel 1640 PRINT": Either to : " 1650 PRINT": Colonel Sanders or: " 1660 PRINT" : Bernard Mathews.: " 1670 PRINT" :...... ...:" 1680 ENDPROC 1690 : 1700 DEF PROCwhere 1710 PRINT" : When we're dead :" 1720 PRINT" : where do we :" 1730 PRINT" : go to? :" 1740 PRINT" : ........:" 1750 ENDPROC 1760 : 1770 DEF PROChens1 1780 PRINT " "; 1790 PRINT " "; 1800 PRINT " "; 1810 PRINT " "; 1820 PRINT " "; 1830 PRINT " "; 1840 PRINT " "; 1850 PRINT " "; 1860 PRINT " "; 1870 PRINT " "; 1880 PRINT " "; 1890 PRINT " 꿠 "; 1900 PRINT " "; 1910 PRINT " "; 1920 ENDPROC 1930 : 1940 DEF PROClongSpa 1950 PRINTTAB(0,23)CHR$(130)CHR$(157)CHR$(132)" Press Space>>>" 1960 *FX21 1965 *FX11,0 1970 REPEAT:UNTIL GET=32 1980 ENDPROC 1990 : 2000 DEF PROCdickchick 2010 PRINT" p p" 2020 PRINTCHR$(132)CHR$(157)CHR$(134)"DICKENS for CHICKENS (Poultry Farm)" 2030 PRINT" " 2040 PRINT" ` ` " 2050 ENDPROC 2060 : 2070 DEF PROCtwinsnakes 2080 PROCsnakestraight(a,6) 2090 PROCsnakestraight(a,17) 2100 PROCdelay(1000) 2110 PROCsnakehump(a,6) 2120 PROCdelay(300) 2130 NEXT 2140 ENDPROC 2150 ::: 2160 DEF PROCsnakehump(x,y) 2170 PRINTTAB(x,y)" " 2180 PRINTTAB(x,y+1)" " 2190 PRINTTAB(x,y+2)" 𠠓ఠ " 2200 PRINTTAB(x,y+3)" " 2210 PRINTTAB(x,y+4)" ࠠ " 2220 REMPRINTTAB(x,y+5)" " 2230 ENDPROC 2240 : 2250 DEF PROCsnakestraight(x,y) 2260 PRINTTAB(x,y)" " 2270 PRINTTAB(x,y+1)" " 2280 PRINTTAB(x,y+2)"` " 2290 PRINTTAB(x,y+3)" " 2300 PRINTTAB(x,y+4)" " 2310 PRINTTAB(x,y+5)" " 2320 ENDPROC 2330 : 2340 DEF PROCdelay(D) 2350 FOR T=1TOD:NEXT 2360 ENDPROC 2370 : 2380 DEF PROCspacestring(x,y) 2390 PROClongSpa 2400 PRINTTAB(x,y)STRING$(77," ") 2410 ENDPROC 2420 : 2430 DEF PROCrabbit(x,y) 2440 PRINTTAB(x,y)"谠" 2450 PRINTTAB(x,y+1)" " 2460 PRINTTAB(x,y+2)"଒ " 2470 PRINTTAB(x,y+3)" " 2480 PRINTTAB(x,y+4)" " 2490 PRINTTAB(x,y+5)" " 2500 ENDPROC 2510 *FX12,0