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