AMSTRAD cpc 6128 User Instruction page 498

780 PEN 1:PRINT"Escape Routes";
790 PEN 5:PRINT"<";:PEN 1
800 LOCATE 10,2:PRINT"IN";
810 pause=300:GOSUB 340
820 CLS:LOCATE
1,3:IN~
6,0
830 PEN 1:PRINT man$;" You The Thief":PRINT
840 PEN 2:PRINT LEFT$(door$(1),1);LEFT$(door$(2),1);" D
oors":PRINT
850 PEN 3:PRINT switch$(1,0);switch$(2,0);" LightSwitch
(OFF)"
860 PEN 3:PRINT switch$(1,1);switch$(2,1);" LightSwitch
(ON)":PRINT
870 PEN 4:PRINT LEFT$(windw$(1),1);LEFT$(windw$(2),1);"
Windows":PRINT
880 PEN 5:PRINT gem$;" Precious Gems":PRINT
890 PAPER 1:PEN 0:PRINT obj$;" Obstructions ":PEN 1:PA
PER 0:PRINT
900 PEN 1:PRINT dog$;" The Dog"
910 PEN 5:PRINT:PRINT:PRINT
920 PRINT" Use Joystick":PRINT" Or Cursor keys"
930 dummy=REMAIN(1)
940 AFTER deLay*4,1 GOSUB 340
950 RETURN
960 '
970 'Generate Gems/obstacLes
980 '
990 FOR room=1 TO 5
1000 gemr=INT(RND*8)+2:objr=INT(RND*10)+5
1010 minx=minx(room):miny=miny(room):maxx=maxx(room):ma
xy=maxy(room)
1020 FOR i=1 TO gemr
1030 x=INT(RND*(maxx-minx+1»+minx
1040 y=INT(RND*(maxy-miny+1»+miny
1050 gemx(room,i)=x:gemy(room,i)=y
1060 gems=gems+1
1070 NEXT i
1080 FOR i=1 TO objr
1090 x=INT(RND*(maxx-minx+1»+minx
1100 y=INT(RND*(maxy-miny+1»+miny
1110 objx(room,i)=x:objy(room,i)=y
1120 NEXT i
1130 gems(room)=gemr:obj(room)=objr
1140 NEXT room
1150 CLS
Some Programs for you ....
continued on the next page
Appendix 3 Page 25