10 REM Postie 2 - Return of the mail
   20 REM by David Bradforth
   30 REM (c) 123 Compute! 1995
   40 MODE1:VDU23;8202;0;0;0;
   50 COLOUR131:COLOUR1
   60 CLS
   70 COLOUR0
   80 PRINT
   90 PRINTTAB(3)"Postie 2 - The Return of the mail"
  100 COLOUR1
  110 PRINTTAB(3)"-------- By D. Bradforth --------"
  120 COLOUR0
  130 PRINT
  140 PRINT "Postie 2 is a mind game where you need  to try and remember who lives in which  flat.  Once you have put a letter in a  flat which is correct, the flat will    change colour, to let you know."
  150 PRINT "The keys are simple.  There are 10 flatsfrom number 0 to number 9.  To post the letter simply press the flat number."
  160 PRINT "GOOD LUCK!"
  170 PRINT
  180 PRINT "Press <Space> to play."
  190 REPEAT UNTIL INKEY(-99)
  200 ZZ$=GET$
  210 COLOUR128:COLOUR3:CLS
  220 PRINT
  230 PRINT
  240 PRINT " *************************************"
  250 FORN=1 TO 27
  260 PRINT " *                                   *"
  270 NEXT N
  280 PRINT " *************************************"
  290 PROCflat(3,4)
  300 PROCflat(20,4)
  310 PROCflat(3,9)
  320 PROCflat(20,9)
  330 PROCflat(3,14)
  340 PROCflat(20,14)
  350 PROCflat(3,19)
  360 PROCflat(20,19)
  370 PROCflat(3,24)
  380 PROCflat(20,24)
  390 COLOUR131:COLOUR1
  400 PRINTTAB(3,4)"1"
  410 PRINTTAB(20,4)"2"
  420 PRINTTAB(3,9)"3"
  430 PRINTTAB(20,9)"4"
  440 PRINTTAB(3,14)"5"
  450 PRINTTAB(20,14)"6"
  460 PRINTTAB(3,19)"7"
  470 PRINTTAB(20,19)"8"
  480 PRINTTAB(3,24)"9"
  490 PRINTTAB(20,24)"0"
  500 REMDIVScreen display now set up
  510 FOR N=1 TO 10
  520 A=RND(10)
  530 IFA=10 THEN A=0
  540 COLOUR131:COLOUR0
  550 PRINTTAB(0,0)"                                        "
  560 PRINTTAB(0,0)"I have a parcel for ";
  570 IF A=0 THEN PROCzero
  580 IFA=1 THEN PROCone
  590 IFA=2 THEN PROCtwo
  600 IFA=3 THEN PROCthree
  610 IFA=4 THEN PROCfour
  620 IFA=5 THEN PROCfive
  630 IFA=6 THEN PROCsix
  640 IFA=7 THEN PROCseven
  650 IFA=8 THEN PROCeight
  660 IFA=9 THEN PROCnine
  670 IFA=10 THEN PROCzero
  680 PRINTA$
  690 PRINTTAB(0,1)"What number shall I deliver it to?"
  700 Z$=GET$
  710 IFZ$="0" AND A$="Mrs Daniels" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(20,24)"X":NEXT N
  720 IFZ$="1" AND A$="Mr Froggy" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(3,4)"X":NEXT N
  730 IFZ$="2" AND A$="P. McCartney" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(20,4)"X":NEXT N
  740 IFZ$="3" AND A$="Ms Monroe" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(3,9)"X":NEXT N
  750 IFZ$="4" AND A$="K. Ego" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(20,9)"X":NEXT N
  760 IFZ$="5" AND A$="Extreme" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(3,14)"X":NEXT N
  770 IFZ$="6" AND A$="Queen" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(20,14)"X":NEXT N
  780 IFZ$="7" AND A$="P. Badger" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(3,19)"X":NEXT N
  790 IFZ$="8" AND A$="D. Bullock" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(20,19)"X":NEXT N
  800 IFZ$="9" AND A$="D. Butcher" FOR Z=1 TO 100 STEP 5:SOUND 1,-15,Z,3:NEXT Z:PRINTTAB(3,24)"X":NEXT N
  810 IF N>=10 THEN PROCwin
  820 GOTO700
  830 END
  840 DEFPROCflat(X,Y)
  850 PRINTTAB(X,Y)"XXXXXXXXXXXXXXX"
  860 PRINTTAB(X,Y+1)"X             X"
  870 PRINTTAB(X,Y+2)"X             X"
  880 PRINTTAB(X,Y+3)"XXXXXXXXXXXXXXX"
  890 ENDPROC
  900 :
  910 DEFPROCzero
  920 A$="Mrs Daniels"
  930 ENDPROC
  940 :
  950 DEFPROCone
  960 A$="Mr Froggy"
  970 ENDPROC
  980 :
  990 DEFPROCtwo
 1000 A$="P. McCartney"
 1010 ENDPROC
 1020 :
 1030 DEFPROCthree
 1040 A$="Ms Monroe"
 1050 ENDPROC
 1060 :
 1070 DEFPROCfour
 1080 A$="K. Ego"
 1090 ENDPROC
 1100 :
 1110 DEFPROCfive
 1120 A$="Extreme"
 1130 ENDPROC
 1140 :
 1150 DEFPROCsix
 1160 A$="Queen"
 1170 ENDPROC
 1180 :
 1190 DEFPROCseven
 1200 A$="P. Badger"
 1210 ENDPROC
 1220 :
 1230 DEFPROCeight
 1240 A$="D. Bullock"
 1250 ENDPROC
 1260 :
 1270 DEFPROCnine
 1280 A$="D. Butcher"
 1290 ENDPROC
 1300 :
 1310 DEFPROCwin
 1320 COLOUR131:COLOUR0:CLS
 1330 PRINTTAB(3)"Postie 2 - The Return of the mail"
 1340 PRINTTAB(3)"-------- By D. Bradforth --------"
 1350 PRINT
 1360 PRINT "Arrgghhh!  Beaten at my own game!  Did  you cheat, or was it fair play!!!?!!!"
 1370 PRINT
 1380 PRINT "Press any key."
 1390 AAA$=GET$
 1400 RUN
 1410 ENDPROC