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