10: 20: 30: 40REM PROGRAM BY'RUSHDEN ROY'A 'L PLATE' PROGRAMMER! WITH A MASTER 128. MARCH 94 50ON ERROR:PROCerror:END 60MODE7 70VDU23,1,0;0;0;0; 80PROCROY 90PROCdh(6,10,1,"W Y E I N W Y G.") 100PROCdh(6,13,0,"(What you expect is not what you get!)") 110PROCdh(6,15,0,"A sideways look at M ODE 7 graphics."):PROCsp:CLS 120PROCparo(2,1) 130FOR K=0TO23:PRINTTAB(36,K)"  140NEXT 150PROCsp 160PROCparo(2,4) 170FOR L=0TO10:PRINTTAB(36,L)"  180NEXT 190FOR M=11TO23:PRINTTAB(36,M)"  200NEXT 210PROCsp 220PROCparo(2,8) 230PROCsidehouse(23,0):PROCsp 240PROCparo(2,12) 250FOR K=0TO23:PRINTTAB(36,K)"  260PRINTTAB(14,20)" HELP! " 270NEXT 280PROCsp 290CLS 300PROCdh(6,6,1,"Do you get that feeli ng") 310PROCdh(6,9,1,"something is not quit e right?") 320PROCsp 330PRINTCHR$(146)STRING$(39,CHR$(163)) 340PROCAIRSHIP(0,10):PROCsp 350PRINTCHR$(146)STRING$(39,CHR$(163)) 360PROCAIRSHIP(5,10):PROCsp 370PROCupside 380PROCAIRSHIP(10,10):PROCsp 390PRINTCHR$(146)STRING$(39,CHR$(163)) 400PRINTTAB(20,16)" HELP! " 410PROCAIRSHIP(16,10):PROCsp 420PROCdh(6,6,1,"What-ever next! I thi nk") 430PROCdh(6,9,1,"it's going to be one of those days.") 440PROCsp 450CLS 460PROCplane(0,6):PROCsp 470PROCplane(3,6):PROCsp 480PROCplane(7,6):PROCsp 490PROCplane(10,6) 500PROCstack 510PRINTTAB(12,5)" HELP! ":PROCsp 520PROCtheendbit:PROCSP2 530END 540DEF PROCsp 550PRINTTAB(0,23)" Press Space. >> " 560REPEAT UNTIL GET=32 570CLS 580*FX4,0 590*FX11,0 600ENDPROC 610DEF PROCsidehouse(x,y) 620PRINTTAB(x,y)" " 630PRINTTAB(x,y+2)"   640PRINTTAB(x,y+3)"   650PRINTTAB(x,y+4)"   660PRINTTAB(x,y+5)"   670PRINTTAB(x,y+6)"   680PRINTTAB(x,y+7)"   690PRINTTAB(x,y+8)"   700PRINTTAB(x,y+9)"   710PRINTTAB(x,y+10)"  720PRINTTAB(x,y+11)"  730PRINTTAB(x,y+12)"  740PRINTTAB(x,y+13)"  750PRINTTAB(x,y+14)"  760PRINTTAB(x,y+15)"  770PRINTTAB(x,y+16)"  780PRINTTAB(x,y+17)"  790PRINTTAB(x,y+18)"  800PRINTTAB(x,y+19)"  810PRINTTAB(x,y+20)" =" 820PRINTTAB(x,y+21)"  830PRINTTAB(x,y+22)"  840PRINTTAB(x,y+23)"  850ENDPROC 860DEF PROCparo(x,y) 870PRINTTAB(x,y)"   880PRINTTAB(x,y+1)"   890PRINTTAB(x,y+2)"   900PRINTTAB(x,y+3)"   910PRINTTAB(x,y+4)"       920PRINTTAB(x,y+5)"    930PRINTTAB(x,y+6)"    940PRINTTAB(x,y+7)"     950PRINTTAB(x,y+8)"   960PRINTTAB(x,y+9)"   970ENDPROC 980DEF PROCupside 990PRINT "  pppp   1000PRINT "   ?  1010PRINT "  /  1020PRINT "     1030PRINT "     >>    1040PRINT "  wv    1050PRINT " +>   1060ENDPROC 1070DEF PROCplane(x,y) 1080PRINTTAB(x,y) "    1090PRINTTAB(x,y+1)"     CHR $(137) 1100PRINTTAB(x,y+2)"   1110PRINTTAB(x,y+3)"   CHR $(137) 1120PRINTTAB(x,y+4)"   1130PRINTTAB(x,y+5)"   1140ENDPROC 1150DEF PROCAIRSHIP(x,y) 1160PRINTTAB(x,y)"   " 1170PRINTTAB(x,y+1)"  ¶¶¾0 " 1180PRINTTAB(x,y+2)"  Airship Co   1190PRINTTAB(x,y+3)"  ¶¶¶' " 1200PRINTTAB(x,y+4)"   /'! " 1210PRINTTAB(x,y+5)"  " 1220ENDPROC 1230DEF PROCstack 1240PRINTTAB(23,0)"  1250PRINTTAB(23,1)"  1260PRINTTAB(23,2)"   1270PRINTTAB(23,3)"   1280PRINTTAB(23,4)"  1290PRINTTAB(23,5)"  1300PRINTTAB(26,6)"  1310PRINTTAB(26,7)"  1320PRINTTAB(26,8)"  1330PRINTTAB(26,9)"  1340PRINTTAB(26,10)"  1350PRINTTAB(26,11)"  1360PRINTTAB(23,12)"  1370PRINTTAB(23,13)"  1380PRINTTAB(23,14)"   1390PRINTTAB(23,15)"   1400PRINTTAB(23,16)"  1410PRINTTAB(23,17)"  1420PRINTTAB(23,18)"   1430PRINTTAB(23,19)"  1440PRINTTAB(23,20)"   1450PRINTTAB(23,21)"  1460PRINTTAB(23,22)"  1470PRINTTAB(23,23)"   1480ENDPROC 1490DEF PROCdh(C%,L%,D%,A$) 1500IF D% A$=CHR$(141)+A$ 1510X%=(40-LENA$)DIV 2-1 1520FORY%=L%TOL%+D%:PRINTTAB(X%,Y%);CHR $(128+C%);A$:NEXT 1530ENDPROC 1540DEFPROCdhr(c,x,y,r%):FOR J=0TO1:PRI NTTAB(x,y+J);CHR$(141);CHR$(128+c);r%:NE XT:ENDPROC 1550DEFPROCROY 1560PRINT"  IDEA AND PROG RAM ££££££" 1570PRINT"     k 7e757£k" 1580PRINT"     s550!5u0£5" 1590PRINT" BY  p5u7t5upp5" 1600PRINT 1610PRINT" FOR 8-BIT SOFTWARE" 1620PRINT" 17 Lambert Park Rd Hedon HUL L HU12 8HF"' 1630ENDPROC 1640DEF PROCSP2 1650PROCdh(5,21,0,"To view it again..Pr ess SPACE.") 1660PROCdh(5,23,0,"To end..press any ot her key.") 1670*FX15,1 1680IF GET$<>" "CLS:PRINTTAB(13,10)"BYE FROM ROY.":VDU23,1,1;0;0;0;:END:ELSE RU N 1690ENDPROC 1700DEF PROCtheendbit 1710PROCTHEEND(3,6) 1720PROConlyd(27,6) 1730PRINTTAB(8,19)" Goodbye from Roy" 1740FOR delay=1TO1200:NEXT 1750PROCcover(27,5) 1760PROConlyd(27,9) 1770FOR delay=1TO700:NEXT 1780PROCcover(27,8) 1790PROConlyd(27,12) 1800FOR delay=1TO700:NEXT 1810PROCcover(27,11) 1820PROConlyd(27,16) 1830FOR delay=1TO60:NEXT 1840PROCcover(26,15) 1850PROConlyd(27,15) 1860FOR delay=1TO50:NEXT 1870PROCcover(26,14) 1880PROConlyd(27,16) 1890FOR delay=1TO130:NEXT 1900PROCcover(26,15) 1910PROClowdee(21,17) 1920PRINTTAB(19,16)" HELP!" 1930ENDPROC 1940DEF PROCTHEEND(x,y) 1950PRINTTAB(x,y)"     e j" 1960PRINTTAB(x,y+1)"     j"4j" 1970PRINTTAB(x,y+2)"      j ej" 1980PRINTTAB(x,y+3)"      0j "÷" 1990PRINTTAB(0,20)CHR$(146)STRING$(39,C HR$(163)) 2000ENDPROC 2010DEF PROConlyd(w,z) 2020PRINTTAB(w,z)"  2030PRINTTAB(w,z+1)"   2040PRINTTAB(w,z+2)"   2050PRINTTAB(w,z+3)"   2060ENDPROC 2070DEF PROCcover(w,z) 2080PRINTTAB(w,z)" " 2090PRINTTAB(w,z+1)" " 2100PRINTTAB(w,z+2)" " 2110PRINTTAB(w,z+3)" " 2120PRINTTAB(w,z+4)" " 2130ENDPROC 2140DEFPROClowdee(x,y) 2150PRINTTAB(x,y)"   2160PRINTTAB(x,y+1)"    2170PRINTTAB(x,y+2)"   2180ENDPROC 2190DEF PROCerror REPORT:PRINT" at line ";ERL:VDU23,1,1;0;0;0;:*FX12 2200ENDPROC