0*FX21,0
1 PROCend
10 CHAIN"SLATTER"
11END
160DEFPROCend:VDU4:COLOUR1:PRINTTAB(1,
26)"PRESS ANY":PRINTTAB(1,27)"KEY TO ":
PRINTTAB(1,28)"CONTINUE.."
170GOTO1000:ENDPROC
310DEFPROCch:GCOL0,0:MOVE 800,850:DRAW
1275,850:DRAW 1275,780:DRAW 800,780:DRA
W 800,850:PLOT85,1275,780:PLOT85,1275,85
0:ENDPROC
1000CLEAR
2010m%=FALSE:DIMM$(3),E(3),N(3):V=110:M
$="gabcdabcdefef":x$=",cegmL =ilgfr sm
w mb r#fU ,rjsqcp cfr qg qgfr bl# rsm`#
elgqqck dm rg` # rqsH lpm` qg nm`mlgB,,
,,rlcpcddgb elgfrckmq,,,,bcpm` *q#u G cp
cfr mQ":PROCunsc:KEY=0:TEMP=2
2020REPEAT:FORX=1TOLEN(M$):D=EVAL("FNpa
rt"+MID$(M$,X,1)):E(0)=EVAL("&"+LEFT$(E$
,1)):E(2)=EVAL("&"+MID$(E$,2,1)):E(3)=EV
AL("&"+RIGHT$(E$,1)):IFRIGHT$(M$(3),1)="
*" GOTO2040
2030GT$=INKEY$(10):IF GT$<>"" PROCch:GC
OL0,0:MOVE100,275:DRAW100,580:DRAW650,58
0:DRAW650,275:DRAW100,275:PLOT85,650,580
:PLOT85,100,580:PRINTTAB(1,26)"
":PRINTTAB(1,27)" ":PRINTTAB(1,28)"
":CHAIN"SLATTER"
2040FORL=1TOLENM$(1):IFINKEY-86ANDINKEY
-38ANDINKEY-83 m%=TRUE:I%=1
2050IFm%=TRUE CLEAR:GOTO 2010
2060FORV=1TO3:P=4*ASC(MID$(M$(V),L,1)):
B%=V OR &200:B%=B%OR-&1000*(P=128):P=P+(
KEY*4)-91*(V=1):SOUNDB%,E(V),P,TEMP:NEXT
:IFMID$(M$(1),L,1)="*" SOUND0,3,4,TEMP:G
OTO2080
2070SOUND-&1000*(MID$(M$(1),L,1)=" "),E
(0),3,TEMP
2080NEXT:NEXT:GOTO2020
2090DEFFNparta:E$="183":M$(1)="F F * F
D D * D M M * Y D * * * ":M$(2)="R R
P ":M$(3)="^ D F
A R M P M ^ D F A R M K M ":=1
2100DEFFNpartb:M$(2)="R P M
K ":=1
2110DEFFNpartc:M$(2)="P M K
F D F ":=1
2120DEFFNpartd:M$(2)="
W W W ":=1
2130DEFFNparte:M$(1)="K D K D U D U D K
D K D U D U D ":M$(2)="F F F F
F F K K ":M$(3)="A D F D A D I D
A D F D A D I A ":=1
2140DEFFNpartf:M$(1)="F F * F D D * D M
M * Y D * * * ":M$(2)="R P M M
":M$(3)="^ D F A R M P M
^ D F A R M K M ":=1
2150DEFFNpartg:E$="177":KEY=KEY+1:M$(1)
="C Q ^ ^ ½ Y ":M$(2)="L X Y Y W
R ":M$(3)="@ Q R R P M ":=1
2160DEFPROCm:I%=I%+1:IFI%>LEN(x2$) m%=F
ALSE:PRINTTAB(26,18);"(C) Noigesoft"
2170PRINTTAB(26,18);MID$(x2$,I%,13);:EN
DPROC
2180DEFPROCunsc:x2$="":FORI%=1TOLEN(x$)
:x2$=CHR$(ASC(MID$(x$,I%,1))+2)+x2$:NEXT
:x2$=" "+x2$+" ":E
NDPROC