0 *FX21,0
    1  PROCend
   10  CHAIN"SLATTER"
   11 END
  160 DEFPROCend:VDU4:COLOUR1:PRINTTAB(1,26)"PRESS ANY":PRINTTAB(1,27)"KEY TO  ":PRINTTAB(1,28)"CONTINUE.." 
  170 GOTO1000:ENDPROC  
  310 DEFPROCch:GCOL0,0:MOVE 800,850:DRAW 1275,850:DRAW 1275,780:DRAW 800,780:DRAW 800,850:PLOT85,1275,780:PLOT85,1275,850:ENDPROC  
 1000 CLEAR
 2010 m%=FALSE:DIMM$(3),E(3),N(3):V=110:M$="gabcdabcdefef":x$="¬ãåçíÌžžž½éìçæòžóí÷žíâžòßæÕž¬òêóñãðžãæòžñçžñçæòžâìßžòóíàßžåìçññãëžäížòçàžßžòñóÈžŸìðíàžñçžîíàíì第¬¬òìãðãääçâžåìçæòãëíñ¬¬¬¬âãðíàžªñßõžÇžãðãæòžíÑ":PROCunsc:KEY=0:TEMP=2 
 2020 REPEAT:FORX=1TOLEN(M$):D=EVAL("FNpart"+MID$(M$,X,1)):E(0)=EVAL("&"+LEFT$(E$,1)):E(2)=EVAL("&"+MID$(E$,2,1)):E(3)=EVAL("&"+RIGHT$(E$,1)):IFRIGHT$(M$(3),1)="*" GOTO2040 
 2030 GT$=INKEY$(10):IF GT$<>"" PROCch:GCOL0,0:MOVE100,275:DRAW100,580:DRAW650,580:DRAW650,275:DRAW100,275:PLOT85,650,580:PLOT85,100,580:PRINTTAB(1,26)"         ":PRINTTAB(1,27)"      ":PRINTTAB(1,28)"          ":CHAIN"SLATTER" 
 2040 FORL=1TOLENM$(1):IFINKEY-86ANDINKEY-38ANDINKEY-83 m%=TRUE:I%=1
 2050 IFm%=TRUE CLEAR:GOTO 2010
 2060 FORV=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:GOTO2080
 2070 SOUND-&1000*(MID$(M$(1),L,1)=" "),E(0),3,TEMP
 2080 NEXT:NEXT:GOTO2020
 2090 DEFFNparta: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
 2100 DEFFNpartb:M$(2)="R P M                       K   ":=1
 2110 DEFFNpartc:M$(2)="P M             K F D F         ":=1
 2120 DEFFNpartd:M$(2)="                          W W W ":=1
 2130 DEFFNparte: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
 2140 DEFFNpartf: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
 2150 DEFFNpartg: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
 2160 DEFPROCm:I%=I%+1:IFI%>LEN(x2$) m%=FALSE:PRINTTAB(26,18);"(C) Noigesoft"
 2170 PRINTTAB(26,18);MID$(x2$,I%,13);:ENDPROC
 2180 DEFPROCunsc:x2$="":FORI%=1TOLEN(x$):x2$=CHR$(ASC(MID$(x$,I%,1))+2)+x2$:NEXT:x2$="            "+x2$+"            ":ENDPROC