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