10 :
   20 :
   30 :
   40 REMERROR  PROGRAM BY'RUSHDEN ROY'A               ERROR 'L PLATE' PROGRAMMER!                ERRORWITH A MASTER 128. MARCH 94
   50 ON ERROR:PROCerror:END
   60 MODE7
   70 VDU23,1,0;0;0;0;
   80 PROCROY
   90 PROCdh(6,10,1,"W Y E I N W Y G.")
  100 PROCdh(6,13,0,"(What you expect is not what you get!)")
  110 PROCdh(6,15,0,"A sideways look at MODE 7 graphics."):PROCsp:CLS
  120 PROCparo(2,1)
  130 FOR K=0TO23:PRINTTAB(36,K)"š”j"
  140 NEXT
  150 PROCsp
  160 PROCparo(2,4)
  170 FOR L=0TO10:PRINTTAB(36,L)"š”j"
  180 NEXT
  190 FOR M=11TO23:PRINTTAB(36,M)"š’j"
  200 NEXT
  210 PROCsp
  220 PROCparo(2,8)
  230 PROCsidehouse(23,0):PROCsp
  240 PROCparo(2,12)
  250 FOR K=0TO23:PRINTTAB(36,K)"š’j"
  260 PRINTTAB(14,20)"ˆ„HELP!‰"
  270 NEXT
  280 PROCsp
  290 CLS
  300 PROCdh(6,6,1,"Do you get that feeling")
  310 PROCdh(6,9,1,"something is not quite right?")
  320 PROCsp
  330 PRINTCHR$(146)STRING$(39,CHR$(163))
  340 PROCAIRSHIP(0,10):PROCsp
  350 PRINTCHR$(146)STRING$(39,CHR$(163))
  360 PROCAIRSHIP(5,10):PROCsp
  370 PROCupside
  380 PROCAIRSHIP(10,10):PROCsp
  390 PRINTCHR$(146)STRING$(39,CHR$(163))
  400 PRINTTAB(20,16)"ˆ„HELP!‰"
  410 PROCAIRSHIP(16,10):PROCsp
  420 PROCdh(6,6,1,"What-ever next! I think")
  430 PROCdh(6,9,1,"it's going to be one of those days.")
  440 PROCsp
  450 CLS
  460 PROCplane(0,6):PROCsp
  470 PROCplane(3,6):PROCsp
  480 PROCplane(7,6):PROCsp
  490 PROCplane(10,6)
  500 PROCstack
  510 PRINTTAB(12,5)"ˆ„HELP!‰":PROCsp
  520 PROCtheendbit:PROCSP2
  530 END
  540 DEF PROCsp
  550 PRINTTAB(0,23)"…Press Space.ˆ>>‰"
  560 REPEAT UNTIL GET=32
  570 CLS
  580 *FX4,0
  590 *FX11,0
  600 ENDPROC
  610 DEF PROCsidehouse(x,y)
  620 PRINTTAB(x,y)"                "
  630 PRINTTAB(x,y+2)"   ’š  î÷ÿû÷ÿïóú "
  640 PRINTTAB(x,y+3)"    ’ š ¢¯çýÿû³ë "
  650 PRINTTAB(x,y+4)"      š—ãÿó÷û󿯠"
  660 PRINTTAB(x,y+5)"      š—òÿó÷ûóýü "
  670 PRINTTAB(x,y+6)"š   žš š’þš”ÿ—·ë "
  680 PRINTTAB(x,y+7)"   ž — š’¢í”ÿ—·ë "
  690 PRINTTAB(x,y+8)"    ž     š”ÿ—ÿó "
  700 PRINTTAB(x,y+9)"     ’ š  àýý÷ýê "
  710 PRINTTAB(x,y+10)"     ž’š  ÷÷ý™ÿî"
  720 PRINTTAB(x,y+11)"      ’š  ªíí¿¿ê"
  730 PRINTTAB(x,y+12)"    ž š ‘¨ÿ™“£·ë"
  740 PRINTTAB(x,y+13)"     žš ‘ ÿ™“ÿÿó"
  750 PRINTTAB(x,y+14)"    ž š ‘ ÿ™“ðõú"
  760 PRINTTAB(x,y+15)"ž  š ’   îš‘ÿ“·£"
  770 PRINTTAB(x,y+16)" ž    š’øûš‘ÿ“õð"
  780 PRINTTAB(x,y+17)"  šž  ’ÿ™“£·ë"
  790 PRINTTAB(x,y+18)"š ž ’  «÷‘ÿ™“ÿõú"
  800 PRINTTAB(x,y+19)"ž  š  ’ «‘ÿ™“ðÿó"
  810 PRINTTAB(x,y+20)"          ‚‚  ‡½"
  820 PRINTTAB(x,y+21)"           ’ šâÿ"
  830 PRINTTAB(x,y+22)"           ’ š¨ÿ"
  840 PRINTTAB(x,y+23)"           ’ šâÿ"
  850 ENDPROC
  860 DEF PROCparo(x,y)
  870 PRINTTAB(x,y)" —š   ðüüð    "
  880 PRINTTAB(x,y+1)" —š àþÿÿÿÿý°  "
  890 PRINTTAB(x,y+2)" —šàþÿÿÿÿÿÿý° "
  900 PRINTTAB(x,y+3)" —šþ¿¯£·ë£¯ïý "
  910 PRINTTAB(x,y+4)" —šé é ¡¢ ¶ ¶ "
  920 PRINTTAB(x,y+5)" —š å      º  "
  930 PRINTTAB(x,y+6)" —š ¢´    è¡  "
  940 PRINTTAB(x,y+7)"—š   ª“è´—¥   "
  950 PRINTTAB(x,y+8)"’     ¢î½¡    "
  960 PRINTTAB(x,y+9)"ŒŒŒ‘  ঩°    "
  970 ENDPROC
  980 DEF PROCupside
  990 PRINT "’žððððððððð–ð’–’–ðð‰ðððððð’ððððð–ð’ððððð";
 1000 PRINT "ž’š  úõ“ ™÷÷õÿóõÿðú—õ÷õ÷÷òû“¿š—ÿÿµêïïïïÿ";
 1010 PRINT "’šž ¾÷¿ÿí‘ÿÿ™“÷ûûû’¸—÷÷÷÷ÿû‘š¯—õõÿÿþþþþÿ";
 1020 PRINT "’šž «÷¿ÿ­ýïý÷‘ÿÿÿÿ’ö‘¯ÿ¯ÿ¯ÿ¯’¾—½”ÿÿÿÿÿÿÿ";
 1030 PRINT "  ’šž«®¡  «ý§  ¢ï¿ÿ½ÿ·»   ’ë¾¾—·’¾½÷þî  ";
 1040 PRINT "    ž                 š’   «÷ö—÷÷’¿õí¡  ";
 1050 PRINT "                     ’š ž   «¾—¡¡¡¡     ";
 1060 ENDPROC
 1070 DEF PROCplane(x,y)
 1080 PRINTTAB(x,y) "—à     ¨¬¬¬¬¬¤ "
 1090 PRINTTAB(x,y+1)"—ÿý°š“‰t—² à¡ˆâ"CHR$(137)
 1100 PRINTTAB(x,y+2)"—ïóûÿÿýüþÿÿÿÿ¿¨ "
 1110 PRINTTAB(x,y+3)"—–¤—££ãóóóóó¡ˆâ"CHR$(137)
 1120 PRINTTAB(x,y+4)"     š  –âç "
 1130 PRINTTAB(x,y+5)"   —  š – ¡ "
 1140 ENDPROC
 1150 DEF PROCAIRSHIP(x,y)
 1160 PRINTTAB(x,y)" š–è°       àððððððð°   "
 1170 PRINTTAB(x,y+1)" š–êÿðüüüþÿÿÿÿÿÿÿÿÿÿÿý° "
 1180 PRINTTAB(x,y+2)" š–üýÿÿÿƒÁéòóèéð Ãï–ÿÿÿ "
 1190 PRINTTAB(x,y+3)" š–软ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ "
 1200 PRINTTAB(x,y+4)" š–¢     ¢££«»¯¯¯»¯¯§¡  "
 1210 PRINTTAB(x,y+5)"         “  ¢÷÷÷÷·   "
 1220 ENDPROC
 1230 DEF PROCstack
 1240 PRINTTAB(23,0)"     š ’       µ"
 1250 PRINTTAB(23,1)"     š ’       µ"
 1260 PRINTTAB(23,2)"     š ’ðx~~   µ"
 1270 PRINTTAB(23,3)"     š’¸þ÷ÿ÷¿  µ"
 1280 PRINTTAB(23,4)"     š’ûí¿ýÿ®¯¯µ"
 1290 PRINTTAB(23,5)"    ž’š«÷“þÿÿÿ’µ"
 1300 PRINTTAB(26,6)" ž“ šøÿÿÿÿÿ’µ"
 1310 PRINTTAB(26,7)"  žš“ÿÿÿç÷÷’µ"
 1320 PRINTTAB(26,8)"  ž“šÿ¿ùÿÿÿ’µ"
 1330 PRINTTAB(26,9)"  šž“÷þÿÿÿÿ’µ"
 1340 PRINTTAB(26,10)"  šž“¢ïÿÿÿÿ’µ"
 1350 PRINTTAB(26,11)"   ž“š «ÿÿÿ’µ"
 1360 PRINTTAB(23,12)"      ž —  ¨¬¬’µ"
 1370 PRINTTAB(23,13)"      ž—   ëëë’µ"
 1380 PRINTTAB(23,14)"      ž—   êêúë "
 1390 PRINTTAB(23,15)"      —    êúêê "
 1400 PRINTTAB(23,16)"    ’šžà°™—êúú’µ"
 1410 PRINTTAB(23,17)" ž ’šàæü½™—¨¬¬’µ"
 1420 PRINTTAB(23,18)" ’š  îþý¿ÿ  ûïïµ"
 1430 PRINTTAB(23,19)"   ’šï÷ý￯¯þ÷ÿµ"
 1440 PRINTTAB(23,20)" ’š  ¹çÿÿä´ ûïûµ"
 1450 PRINTTAB(23,21)"  ’š¨«ÿïûûûüÿ÷ÿµ"
 1460 PRINTTAB(23,22)"  ’š¨«ÿïûûûüÿ÷ÿµ"
 1470 PRINTTAB(23,23)"  ’š ©¨¯÷÷¿ âÿöµ"
 1480 ENDPROC
 1490 DEF PROCdh(C%,L%,D%,A$)
 1500 IF D% A$=CHR$(141)+A$
 1510 X%=(40-LENA$)DIV 2-1
 1520 FORY%=L%TOL%+D%:PRINTTAB(X%,Y%);CHR$(128+C%);A$:NEXT
 1530 ENDPROC
 1540 DEFPROCdhr(c,x,y,r%):FOR J=0TO1:PRINTTAB(x,y+J);CHR$(141);CHR$(128+c);r%:NEXT:ENDPROC
 1550 DEFPROCROY
 1560 PRINT"“7`+47``57k`5 ``IDEA AND PROGRAM ``````"
 1570 PRINT"’5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k"
 1580 PRINT"‘uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5"
 1590 PRINT"“ppppBYppppp upp5u5upp5uzp5upp5u7t5upp5"
 1600 PRINT
 1610 PRINT"‚         FOR 8-BIT SOFTWARE"
 1620 PRINT""'
 1630 ENDPROC
 1640 DEF PROCSP2
 1650 PROCdh(5,21,0,"To view it again..Press SPACE.")
 1660 PROCdh(5,23,0,"To end..press any other key.")
 1670 *FX15,1
 1680 IF GET$<>" "CLS:PRINTTAB(13,10)"BYE FROM ROY.":VDU23,1,1;0;0;0;:END:ELSE RUN
 1690 ENDPROC
 1700 DEF PROCtheendbit
 1710 PROCTHEEND(3,6)
 1720 PROConlyd(27,6)
 1730 PRINTTAB(8,19)"ƒGoodbye from Roy"
 1740 FOR delay=1TO1200:NEXT
 1750 PROCcover(27,5)
 1760 PROConlyd(27,9)
 1770 FOR delay=1TO700:NEXT
 1780 PROCcover(27,8)
 1790 PROConlyd(27,12)
 1800 FOR delay=1TO700:NEXT
 1810 PROCcover(27,11)
 1820 PROConlyd(27,16)
 1830 FOR delay=1TO60:NEXT
 1840 PROCcover(26,15)
 1850 PROConlyd(27,15)
 1860 FOR delay=1TO50:NEXT
 1870 PROCcover(26,14)
 1880 PROConlyd(27,16)
 1890 FOR delay=1TO130:NEXT
 1900 PROCcover(26,15)
 1910 PROClowdee(21,17)
 1920 PRINTTAB(19,16)"ˆ„HELP!"
 1930 ENDPROC
 1940 DEF PROCTHEEND(x,y)
 1950 PRINTTAB(x,y)"‘£ë£¡ê  ê ·££   ꣣¡êå ê"
 1960 PRINTTAB(x,y+1)"‘ ê  êððú õ°    êð  ꢴê"
 1970 PRINTTAB(x,y+2)"‘ ê  ê  ê µ     ê   ê åê"
 1980 PRINTTAB(x,y+3)"‘ ê  ê  ê õðð   êðð°ê ¢þ"
 1990 PRINTTAB(0,20)CHR$(146)STRING$(39,CHR$(163))
 2000 ENDPROC
 2010 DEF PROConlyd(w,z)
 2020 PRINTTAB(w,z)"‘·£ä"
 2030 PRINTTAB(w,z+1)"‘µ  µ"
 2040 PRINTTAB(w,z+2)"‘µ  µ"
 2050 PRINTTAB(w,z+3)"‘õð¦ "
 2060 ENDPROC
 2070 DEF PROCcover(w,z)
 2080 PRINTTAB(w,z)"      "
 2090 PRINTTAB(w,z+1)"      "
 2100 PRINTTAB(w,z+2)"      "
 2110 PRINTTAB(w,z+3)"      "
 2120 PRINTTAB(w,z+4)"      "
 2130 ENDPROC
 2140 DEFPROClowdee(x,y)
 2150 PRINTTAB(x,y)"‘ àðð°  "
 2160 PRINTTAB(x,y+1)"‘¸¡  ¢ä "
 2170 PRINTTAB(x,y+2)"‘õððððú "
 2180 ENDPROC
 2190 DEF PROCerror REPORT:PRINT" at line ";ERL:VDU23,1,1;0;0;0;:*FX12
 2200 ENDPROC