10MODE7:PROCadvert:MODE4:*FX15 1
20ENVELOPE1,1,-5,-11,-21,0,0,0,127,12
6,0,-3,121,126
30ENVELOPE2,1,0,0,5,1,1,1,127,127,-1,
-1,8,126
40FOR RL%=135TO159:VDU23,RL%:FORA%=0T
O7:READB%:VDUB%:NEXT:NEXT
50DATA0,126,126,126,126,126,126,0,7,8
,22,22,23,16,19,17,224,16,8,8,232,8,200,
136,127,128,190,136,139,138,138,131,254,
1,37,41,177,169,165,129,60,64,64,56,4,4,
12,54,119,85,119,81,119,128,160,160
60DATA19,16,20,22,19,17,8,7,200,8,40,
104,200,136,16,224,184,161,161,185,161,1
85,128,127,1,9,137,73,41,25,1,254,2,2,1,
12,50,65,64,56,200,128,38,41,37,3,130,25
2,3,15,31,57,121,121,255,231
70DATA192,240,248,156,158,158,255,231
,0,0,1,2,3,12,21,44,0,128,64,160,224,24,
84,154,127,128,129,144,128,130,125,130,2
22,33,37,33,49,37,254,3,231,231,96,112,6
3,31,15,3,231,231,6,14,252,248,240,192
80DATA21,12,3,2,1,0,0,0,84,24,224,160
,64,128,0,0,150,194,127,160,146,192,129,
127,81,1,126,133,161,137,129,126:*FX10,2
0
90*FX9,20
100DIM S$(14)
110OM%=0
120D$=" "+CHR$10+CHR$8+" "+CHR$11
130Y$=CHR$148+CHR$149+CHR$10+CHR$8+CHR
$8+CHR$154+CHR$155
140B$=CHR$152+CHR$153+CHR$10+CHR$8+CHR
$8+CHR$158+CHR$159
150T$=CHR$138+CHR$139+CHR$10+CHR$8+CHR
$8+CHR$144+CHR$145
160L$=CHR$136+CHR$137+CHR$10+CHR$8+CHR
$8+CHR$142+CHR$143
170P$=CHR$150+CHR$151+CHR$10+CHR$8+CHR
$8+CHR$156+CHR$157
180S$=CHR$140+CHR$141+CHR$10+CHR$8+CHR
$8+CHR$146+CHR$147
190E$=" "+CHR$10+CHR$8+CHR$8+" "
200MODE4:VDU19,1,5;0;23;8202;0;0;0;
210COLOUR129:COLOUR0:PROCdb("Have You
Lost Your Marbles ? ")
220PRINTTAB(36,1)D$S$CHR$11D$TAB(36,3)
" "
230PRINTTAB(0,29);:PROCdb("Written by
Andrew (SWIG) Nibbs "):VDU28,0,
28,39,2
240RESTORE340:COLOUR1:COLOUR128:PRINTT
AB(0,3);:PRINT"The Aim of this game is t
o acheive"'"SANITY! you do this by colle
cting the"'"PSYCHIATRISTS tokens which a
re littered"'"around in your mind!"'
250PRINT"If you blunder into a PSYCHOS
IS you willdie UNLESS you've taken an An
ti-"'"psychosis pill beforehand!"''"When
you swallow a pill the screen will flas
h purple"'"When you get killed it will f
lash yellow";
260PRINT"All the time a MIND-O-METER i
s counting down to your insanity."
270PRINT"When you hit a psychosis afte
r taking a"'"pill the screen will flash
green."'"A red flash will happen when yo
u've"'"cleared one part of your brain"
280PRINT':PROCdb("SPACE for more info,
RETURN to play."):REPEAT:A=INKEY(0):UNTI
L A=32 OR A=13:IF A=13:GOTO370
290CLS
300PRINT'"Objects :"B$" Mental Block"'
'SPC9Y$" Your mad incarnation"''SPC9T$"
A token"''SPC9L$" A Pill"''SPC9P$" A psy
chosis"
310PRINT'SPC15"Q : Sound off"'SPC15"S
: Sound on"'SPC15"Z : Left"'SPC15"X : Ri
ght"'SPC15"RETURN : Up"
320PRINT':PROCdb("SPACE for more info,
RETURN to play."):REPEAT:A=INKEY(0):UNTI
L A=32 OR A=13:IF A=13:GOTO370
330CLS:PRINT"People RESPONSIBLE for yo
ur mind !"':FORA%=0TO9:READ A$:PRINT"
";A%+1;" "A$':NEXT
340DATA Merseybus blues - SWIG,Good Lu
ck - SWIG,Crazy capers - Pickasso,BIG TR
OUBLE - Monty,Monty's favourite - Monty,
Monty's revenge - Monty,The Swigger Swag
ger - SWIG,The Flumps Flume - SWIG,Penul
timate - SWIG,Trapmania - P.COX & SWIG
350PRINT':PROCdb("SPACE for more info,
RETURN to play."):REPEAT:A=INKEY(0):UNTI
L A=32 OR A=13:IF A=13:GOTO370
360CLS:GOTO 240
370RESTORE1220:VDU26:COLOUR1:COLOUR128
:CLS
380INF%=FALSE
390PROCinscr:PROCgrav:PROCready
400TIME=0:REPEAT:PROCdw:FOR LOOP%=0 TO
GR%
410IF TIME>95:MM%=MM%-1:COLOUR129:PRIN
TTAB(1+MM%,29)" ":COLOUR128:TIME=0:IF MM
%=0:D%=TRUE
420IF INF%:COLOUR129:COLOUR0:PRINTTAB(
1,27)"PILL!":COLOUR128:COLOUR1:ELSECOLOU
R129:PRINTTAB(1,27)SPC5:COLOUR128
430IF Y%>24:Y%=24
440IF Y%<4:Y%=4
450LX%=X%:LY%=Y%
460IF INKEY(-98):PROCcl
470IF INKEY(-17):PROCsound(1)
480IF INKEY(-82):PROCsound(0)
490IF INKEY(-67):PROCcr
500IF INKEY(-74):PROCj
510PRINTTAB(X%,Y%)Y$:IF NOT(LX%=X% AND
LY%=Y%):PRINTTAB(LX%,LY%)E$
520IF D% AND INF%:D%=FALSE:INF%=FALSE:
PROCfl(2)
530IF D% OR W%:LOOP%=999
540NEXT:UNTIL D% OR W%
550IF W% AND NOT(G%):PROCfinished
560IF W%:OM%=MM%:PROCwin:IF MM%>14:INF
%=TRUE
570IF D% PROClose:RUN:ELSE GOTO390
580DEFPROCready:VDU11:D%=FALSE:W%=FALS
E
590COLOUR0:COLOUR129:PRINTSTRING$(40,"
")" Mind-o-meter"SPC16"Gravity :";(GR%/
3)-1 SPC41;
600PRINTTAB(1,29)STRING$(MM%,CHR$135)
610COLOUR1:COLOUR128:A=INKEY(100):ENDP
ROC
620DEF FNat(X%,Y%):LOCALA%,B%,D%
630B%=VPOS:D%=POS:A%=135:VDU31,X%,Y%
640X%=USR(&FFF4):X%=X% AND &FFFF:X%=X%
DIV &100:VDU31,D%,B%:=X%
650DEFPROCcl
660IF FNat(X%-2,Y%)=152:ENDPROC
670IF FNat(X%-2,Y%)=138:T%=T%-1:SOUND1
,1,200,2:IF T%=0:W%=TRUE
680IF FNat(X%-2,Y%)=150:SOUND1,1,0,2:D
%=TRUE
690IF FNat(X%-2,Y%)=136:SOUND1,1,100,2
:INF%=TRUE:PROCfl(5)
700X%=X%-2:ENDPROC
710DEFPROCcr
720IF X%=38:ENDPROC
730IF FNat(X%+2,Y%)=152:ENDPROC
740IF FNat(X%+2,Y%)=138:T%=T%-1:SOUND1
,1,200,2:IF T%=0:W%=TRUE
750IF FNat(X%+2,Y%)=150:SOUND1,1,0,2:D
%=TRUE
760IF FNat(X%+2,Y%)=136:SOUND1,1,100,2
:INF%=TRUE:PROCfl(5)
770X%=X%+2:ENDPROC
780DEFPROCj
790IF FNat(X%,Y%-2)=152:ENDPROC
800IF FNat(X%,Y%-2)=138:T%=T%-1:SOUND1
,1,200,2:IF T%=0:W%=TRUE
810IF FNat(X%,Y%-2)=150:SOUND1,1,0,2:D
%=TRUE
820IF FNat(X%,Y%-2)=136:SOUND1,1,100,2
:INF%=TRUE:PROCfl(5)
830Y%=Y%-2:ENDPROC
840DEFPROCdw
850IF FNat(X%,Y%+2)=152:ENDPROC
860IF FNat(X%,Y%+2)=138:T%=T%-1:SOUND1
,1,200,2:IF T%=0:W%=TRUE
870IF FNat(X%,Y%+2)=150:SOUND1,1,0,2:D
%=TRUE
880IF FNat(X%,Y%+2)=136:SOUND1,1,100,2
:INF%=TRUE:PROCfl(5)
890PRINTTAB(X%,Y%)E$:Y%=Y%+2:ENDPROC
900DEFPROCwin:PROCfl(1):FORA%=1TO3:FOR
B%=0TO100STEP10:SOUNDA%,2,B%,2:NEXT:NEXT
:ENDPROC
910DEFPROClose:PROCfl(3):FORA%=1TO3:FO
RB%=100TO0STEP-10:SOUNDA%,2,B%,2:NEXT:NE
XT:ENDPROC
920DEFPROCfl(Z%)
930FOR A%=0 TO 10:VDU19,0,Z%;0;:FOR B%
=0 TO 2:*FX19
940NEXT:VDU19,0,0;0;:FOR B%=0 TO 2:*FX
19
950NEXT:NEXT:A=INKEY(50):ENDPROC
960DEFPROCgrav
970 PRINTTAB(0,29)"Gravity rating (0 H
UGE 9) LOW)"TAB(0,28);:REPEAT:A$=GET$:UN
TIL INSTR("0123456789",A$):GR%=INSTR("01
23456789",A$)*3:ENDPROC
980DEFPROCdb(A$)
990FOR L%=1TOLENA$:?&900=ASC(MID$(A$,L
%,1)):X%=&900 MOD 256:Y%=&900 DIV 256:A%
=&A:CALL&FFF1:VDU23,128:FORT%=1TO4:VDUT%
?&900,T%?&900:NEXT:VDU23,129:FORT%=5TO8:
VDUT%?&900,T%?&900:NEXT:VDU128,10,8,129,
11:NEXT:ENDPROC
1000DEF PROCtune:FORA%=1TO3:SOUNDA%,2,2
00,2:NEXT:ENDPROC
1010DEFPROCfinished:COLOUR128:CLS
1020COLOUR0:COLOUR129:PROCdb("Congratul
ations !!!! "):COLOUR
1:COLOUR128:PRINT''''" Well done, welcom
e to the world of the"'SPC17"sane !":PRI
NTTAB(0,29);:COLOUR0:COLOUR129:PROCdb("P
ress SPACE to Play! "
)
1030COLOUR1:COLOUR128:A%=19:FORX%=0TO37
:VDU31,X%,14:CALL&FFF4:PRINTD$Y$:IF INKE
Y(-99):RUN:ELSENEXT
1040FORX%=37TO0STEP-1:VDU31,X%,14:CALL&
FFF4:PRINTY$CHR$11D$:IF INKEY(-99):RUN:E
LSENEXT
1050GOTO1030
1060DEFPROCsound(X%):LOCALY%,A%:A%=210:
CALL&FFF4:ENDPROC
1070DEF PROCinscr:FOR A%=0 TO 14:READS$
(A%):NEXT:READT%,X%,Y%,G%,MM%:MM%=MM%+OM
%:IF MM%>38:MM%=38
1080CLS:FOR A%=0TO13:FORB%=1TOLEN(S$(A%
)):V$=MID$(S$(A%),B%,1)
1090IF V$>"0" AND V$<="9":PROCcomped:GO
TO 1110
1100PROCathing
1110NEXTB%:PRINT':NEXTA%
1120PRINTTAB(0,0)S$(14):PROCtune:ENDPRO
C
1130DEF PROCcomped:NUM%=VAL(V$)
1140B%=B%+1:V$=MID$(S$(A%),B%,1):FOR CO
U%=1TONUM%:PROCathing:NEXT:ENDPROC
1150DEFPROCathing
1160IF V$="S":PRINTP$CHR$11;
1170IF V$="T":PRINTT$CHR$11;
1180IF V$="B":PRINTB$CHR$11;
1190IF V$="L":PRINTL$CHR$11;
1200IF V$=" ":PRINTE$CHR$11;
1210ENDPROC
1220DATA 9 9 2 ,9B9BBB,BT5 S9 2 B,B5 S9
3 B,B4 S3 T9 B,B3 S9 5 B,B9 9 B,5BT9B5B
,BS S S9 3 B,B9 9 B,B9 9 B,B3 S9 5 B,B9
S4BL3 B,9B9BBB,. . M e r s e y B u s
B l u e s . .,3,2,24,-1,11
1230DATA 9 9 2 ,9S9S2S,S9 9 S,S9 9 S,S9
9 S,BS6 S6 S3 B,B S3 TS S T S S TB,B
S S4 S S3 S B,B9 S7 SB,B9 9 B,B9 9 B,B
9 9 B,B 4B3 BB 7B,9S9S2S,S c r e e n 2
. . G o o d L u c k . .,3,4,22,-1,7
1240DATA 9 9 2 ," BB6 5B 4B ",BB 3B B
5 BB3 B,B5 BB9 B ," B TS3 ST S S T B"
," B S6 S6 S B"," B9 7 B"," B S BB S
T S S SB"," B6 S 7S B ",B6 STS6 S TB," B
9 7 B "," B5 9B B",3 5S9 SS ,9 9 2 ,Cr
azy capers!,6,4,20,-1,13
1250DATA "9B9B2B"
1260DATA "SBS5BS5BSB3SB"
1270DATA "S6 STS4 S4 B"
1280DATA "S3 S S S9 B"
1290DATA "S3 SS S7 SS B"
1300DATA "S3 S LS7 TS B"
1310DATA "S3 4B7 SS B"
1320DATA "S9 9 B"
1330DATA "SL S4 S7 S B"
1340DATA "ST9 8 B"
1350DATA "SS3BSB3S3 3B4S"
1360DATA "9B9B2B"
1370DATA "9B9B2B"
1380DATA "9B9B2B"
1390DATA " BIG TROUBLE by Paul Mont
gomery `````````````````````````````
```````````"
1400DATA 3,10,10,-1,15
1410DATA "9 9 2 "
1420DATA "SSBSSBSSBSSBSSBSSBSS"
1430DATA "STS9 7 B"
1440DATA "S SS4 S6 S3 B"
1450DATA "S5 S9 3 B"
1460DATA "S9 9 B"
1470DATA "3S4 3B6 3BS"
1480DATA "S6 STS9 S"
1490DATA "S6 S S6 S B"
1500DATA "S 3B9 5 B"
1510DATA "S9 6S3 B"
1520DATA "S9 ST7 B"
1530DATA "9S9S2S"
1540DATA " "
1550DATA " Monty's Favourite by MONTY!"
1560DATA 3,18,10,-1,13
1570DATA "9 9 2 "
1580DATA "3SBSB3SBSB3SBSBSB"
1590DATA "STS ST3SS5 S B"
1600DATA "B S S4 S8 S"
1610DATA "B 7S 3S6 S"
1620DATA "B7 S9 S"
1630DATA "B7 S9 S"
1640DATA "B4S3 5S6 S"
1650DATA "B9 9 S"
1660DATA "B6 L S8 S"
1670DATA "B 5B BB7 S"
1680DATA "S7 S S8 B"
1690DATA "S7 STS8 B"
1700DATA "S5BSBSSBSBSSB3SB"
1710DATA "M O N T Y ' S R E V E N G E
by ? ? ? ?"
1720DATA 3,10,10,-1,20
1730DATA "9 9 2 "
1740DATA "3S4 8S5 "
1750DATA "S S S8 S4 "
1760DATA " S S S8 S3 "
1770DATA " S S S3 S3 S4 "
1780DATA " S S3 ST3S S4 "
1790DATA "S S4 6S S4 "
1800DATA " S S8 S S4 "
1810DATA " S S6 S S4 "
1820DATA " S S8 S S4 "
1830DATA " S S8 S S4 "
1840DATA "S3 8S3 S4 "
1850DATA " S9 3 S5 "
1860DATA " SS8BSS6 "
1870DATA The Swigger Swagger by SWIG!..
...........
1880DATA 1,4,4,-1,12
1890DATA "9 9 2 "
1900DATA "9B8B3 "
1910DATA "B9 6 B3 "
1920DATA "9B5B B3 "
1930DATA "4 S6 SSTS S3 "
1940DATA "4S3 SS5 S S3 "
1950DATA "S5 S S3 S S3 "
1960DATA "S6 STS S S4 "
1970DATA "S S S S S S S5 "
1980DATA " S S3 STSS S S4 "
1990DATA "S9 SS S5 "
2000DATA " S4 4S3 S6 "
2010DATA " S9 S7 "
2020DATA "3 9S"
2030DATA The FLUMPS flume (TM)(C)swig19
899
2040DATA 3,2,4,-1,5
2050DATA "9 9 2 "
2060DATA " B B B B B B B B B "
2070DATA "B B B B B B B B B3 "
2080DATA " B9 6 B "
2090DATA "B4 9S B3 "
2100DATA " B STS S S3 B "
2110DATA "B3 ST S3 SS B3 "
2120DATA " B3 6S S3 B "
2130DATA "B6 S3 S S B3 "
2140DATA " B7 S3 S3 B "
2150DATA "B3 L3S3BSS3 B3 "
2160DATA " B9 6 B "
2170DATA "B B B B B B B B B3 "
2180DATA " B B B B B B B B B "
2190DATA Penultimate by SWIG...........
..........
2200DATA 2,6,4,-1,8
2210DATA "9 9 2 "
2220DATA "9 9 2 "
2230DATA "9S9S2S"
2240DATA "S3 6SB9S"
2250DATA "S T9 2 6S"
2260DATA "S S 3SBSSB3T4 S"
2270DATA "3 SS8 7S"
2280DATA " BB 3S S8 S"
2290DATA " BB S3 TS3 SB3 S"
2300DATA "L3 S 3SBB 3B SS"
2310DATA "4S 4S3 S3B S"
2320DATA "4 TST4 6BS T"
2330DATA "9B9B2B"
2340DATA "9 9 2 "
2350DATA Trapmania or The Final Frontie
r By Peter Cox of Brightsoft tha
nk you for playng bye - SWIG!
2360DATA 8,0,12,0,15
2370DEFPROCadvert
2380PRINT"This software is public domai
n and so carries no copyright. It was
written by Andy Nibbs and first publishe
d as part of MasterDisk magazine."''"
MasterDisk is a disk based magazine fo
r the BBC Master 128 computer only."
2390PRINT"It is supplied on 5¼"" disks
only and most issues cost £1.50 (£2 f
or issue:2 which is a special 2 disk ch
ristmas issue from 15.12.90). Issue:
3 is from 15.1.91."
2400PRINT'" To obtain the latest issu
e just send a cheque for £1.50 (or £2) m
ade payable to Andy Nibbs. To:"
2410PRINT'SPC10"Andy Nibbs"
2420PRINTSPC10"2 Seaview"
2430PRINTSPC10"Hoylake"
2440PRINTSPC10"L47 2DD"
2450PRINT'"Press <SPACE> to play the ga
me..."
2460$(PAGE+5)="4:*FX15 1 "
2470REPEATUNTILGET=32
2480RUN