10 : 20 : 30 : 40 REM"'ComicS2' Written on a BBC B+ By Rushden Roy a 'L Plate' programmer Sept 93 for 8-BIT Software 50 ON ERROR GOTO 1800 60 MODE7 70 VDU23,1,0;0;0;0; 80 CLS 90 PROCROY 100 PRINTTAB(10,13)CHR$(141)" AND NOW" 110 PRINTTAB(10,14)CHR$(141)" AND NOW" 120 FOR T=0 TO 2000 :NEXT T 130 PRINTTAB(6,13)CHR$(141)"THE COMIC(?) STRIP No.2" 140 PRINTTAB(6,14)CHR$(141)"THE COMIC(?) STRIP No.2" 150 PROCspace:CLS 160 FOR tab=10TO2STEP-1 170 PROCelephant(tab,10) 180 PRINTTAB(tab+20,7)CHR$(136)"HEEL!! " 190 PRINTTAB(tab+21,8)CHR$(136)"HEEL!! " 200 PROClegsright(tab,18) 210 PROCdelay(300) 220 PROClegsleft(tab,18) 230 PROCdelay(300) 240 PROClegsstill(tab,18) 250 PROCdelay(100) 260 NEXT 270 PRINTTAB(19,8)" " 280 CLS 290 PRINTTAB(0,19)"-----------------" 300 FOR tabm=16TO3STEP-1 310 PROCmanside(tabm,17) 320 PROCmanlegsstill(tabm,20) 330 PROCdelay(300) 340 PROCmanlegsrun(tabm,20) 350 PRINTTAB(tabm-3,7)CHR$(136)"HEEL!! " 360 PRINTTAB(tabm-2,8)CHR$(136)"BLAST YOU " 370 PRINTTAB(tabm-1,9)CHR$(136)"HEEL!! " 380 PROCdelay(300) 390 NEXT 400 CLS 410 PROCeleman(0,10) 420 PRINTTAB(2,6)"He's quite good really but he will jump up!" 430 PROCspace 440 PRINTTAB(2,6)"I wish he wouldn't keep trying to sit on my lap! " 450 PROCspace 460 PRINTTAB(2,6)"He wanted to join the Indian army but couldn't...." 470 PROCspace 480 PRINTTAB(2,6)"....... failed the medical because he had flat feet! " 490 PROCspace 500 PRINTTAB(2,6)"Do you know what I gave him recently because he wanted to be sick?..." 510 PROCspace 520 PRINTTAB(2,6)" ....Plenty of room! " 530 PROCspace 540 PRINTTAB(2,6)"I knew what time it was when he sat on my fence........." 550 PROCspace 560 PRINTTAB(2,6)".........time that I had it repaired!! " 570 PROCspace 580 PRINTTAB(2,6)"He can certainly brag, when we both had a headache..... " 590 PROCspace 600 PRINTTAB(2,6)"........he said his headache was bigger than mine! " 610 PROCspace 620 PRINTTAB(2,6)"He thinks dung beetles are terrible creatures...." 630 PROCspace 640 PRINTTAB(2,6)".......because they don't wash their hands before meals!" 650 PROCspace 660 CLS 670 PRINTTAB(2,6)"Goodbye all. The Lord Mayor's show is over...." 680 FOR tab=8TO2STEP-1 690 PROCelephant(tab,10) 700 PROClegsright(tab,18) 710 PROCdelay(300) 720 PROClegsleft(tab,18) 730 PROCdelay(300) 740 PROClegsstill2(tab,18) 750 PROCdelay(100) 760 NEXT 770 PRINTTAB(2,6)"Goodbye all the Lord Mayor's show is over" 780 CLS 790 PRINTTAB(2,6)"......well, a small plastic shovel and bag is no good is it? " 800 FOR tabmb=18 TO 3 STEP-1 810 PROCmanbarrow(tabmb,17) 820 PROCmanbarrowlegsrun(tabmb,20) 830 PROCdelay(300) 840 PROCmanbarrowlegsstill(tabmb,20) 850 PROCdelay(100) 860 NEXT 870 CLS 880 PRINTTAB(0,12)" If you would really like to see it again press SPACE if not press ESCAPE" 890 PROCspace 900 RUN 910 END 920 DEF PROCelephant(x,y) 930 PRINT TAB(x,y)" " 940 PRINTTAB(x,y+1)" " 950 PRINTTAB(x,y+2)" " 960 PRINTTAB(x,y+3)" " 970 PRINTTAB(x,y+4)" " 980 PRINTTAB(x,y+5)" " 990 PRINTTAB(x,y+6)" " 1000 PRINTTAB(x,y+7)" o" 1010 ENDPROC 1020 DEF PROClegsright(x,y) 1030 PRINTTAB(x,y)" " 1040 PRINTTAB(x,y+1)" " 1050 PRINTTAB(x,y+2)" " 1060 ENDPROC 1070 DEF PROClegsleft(x,y) 1080 PRINTTAB(x,y)" " 1090 PRINTTAB(x,y+1)" " 1100 PRINTTAB(x,y+2)" " 1110 ENDPROC 1120 DEF PROClegsstill(x,y) 1130 PRINTTAB(x,y)" " 1140 PRINTTAB(x,y+1)" " 1150 PRINTTAB(x,y+2)" `` ``" 1160 ENDPROC 1170 DEF PROClegsstill2(x,y) 1180 PRINTTAB(x,y)" " 1190 PRINTTAB(x,y+1)" " 1200 PRINTTAB(x,y+2)" `` ``" 1210 ENDPROC 1220 DEF PROCdelay(pause) 1230 FOR T=1TO(pause):NEXT 1240 ENDPROC 1250 DEF PROCmanside(x,y) 1260 PRINTTAB(x,y)" " 1270 PRINTTAB(x,y+1)" " 1280 PRINTTAB(x,y+2)" " 1290 ENDPROC 1300 DEF PROCmanlegsrun(x,y) 1310 PRINTTAB(x,y)"_&e " 1320 ENDPROC 1330 DEF PROCmanlegsstill(x,y) 1340 PRINTTAB(x,y)" j " 1350 ENDPROC 1360 DEF PROCeleman(x,y) 1370 PRINTTAB(x,y)" " 1380 PRINT " "; 1390 PRINT " 頠"; 1400 PRINT " "; 1410 PRINT " "; 1420 PRINT " "; 1430 PRINT " "; 1440 PRINT " "; 1450 PRINT " "; 1460 PRINT " "; 1470 PRINT " "; 1480 PRINT " "; 1490 ENDPROC 1500 DEF PROCspace 1510 PRINTTAB(0,23)CHR$(146)CHR$(157)"Press the SPACE BAR to continue>>>" 1520 *FX15,0 1530 *FX11,0 1540 REPEAT 1550 UNTIL GET=32 1560 ENDPROC 1570 DEF PROCmanbarrow(x,y) 1580 PRINTTAB(x,y)" " 1590 PRINTTAB(x,y+1)" POOPA " 1600 PRINTTAB(x,y+2)" SCOOP7` " 1610 ENDPROC 1620 DEF PROCmanbarrowlegsstill(x,y) 1630 PRINTTAB(x,y)" f ) j " 1640 ENDPROC 1650 DEF PROCmanbarrowlegsrun(x,y) 1660 PRINTTAB(x,y)" d$)1 _&e " 1670 ENDPROC 1680 DEF PROCdelay 1690 FOR T=1TO200:NEXT 1700 ENDPROC 1710 DEFPROCROY 1720 PRINT"7`+47``57k`5 ````` PROGRAM BY ````````" 1730 PRINT"5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k" 1740 PRINT"uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5" 1750 PRINT"ppppppppppp upp5u5upp5uzp5upp5u7t5upp5" 1760 PRINT 1770 PRINT" FOR 8-BIT SOFTWARE" 1780 PRINT"" 1790 ENDPROC 1800 ON ERROR OFF 1810 MODE7 1820 IF ERR<>17 THEN REPORT:PRINT" at line ";ERL:ELSE CLS:PRINTTAB(10,12)"BYE FROM ROY DICKENS":*FX12,0 1830 END