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