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