83|n8M?%"@6nL:\a@ " #  <@QQb}b}\\\ngp|}}|n}}}c}p_!X![!@P!!& W K SR P"Snout Dog Sorts The Alphabet". Code by Adam D. Moss, concept dog gfx and fab music by Henrik 'Snout' Isacsson. adam@gimp.org submitted for the c.s.s. crap game competition 2000!! hope it hurts. 4500:am 200 4000:a=0: ## init sound 8a0a:b:a=-1b=-110 :a:b ## play note ( .025{L,b:a=a-.025{L: c d 10 i20:=""105i n "key! "; 105i 5:5: ## title screen 2:6 94,1;:" " =5,1;:" SNOUT DOG SORTS THE ALPHABET " 96,1;:" " 5:1 ,x=20:y=11 :5000+5 J2:1:1:11 ,23;"BARK!!":0:5 ,_0:17,0;" 2000 Adam D. Moss & Snouty Dog(for CSSCGC2000) adam@gimp.org" -d=1:f=0 .R20,0;"PRESS A KEY TO PLAY THE GAME OF THAT SMASHING SORTING DOGGY!" ] 10 ^20:=""350^ _## wait for a key h k=1 r 4  1 ## set up game field  f=0: 4:0,0;"the special dog control keys areO=left P=right M=bark at letter.Q=quit!!!":3:"SKILL LEVEL ";:1:k:0 !z$="abcdefghijklmnopqrstuvwxyz"  l=4 x=20:y=13 ## scramble alphabet kr=1k*2:c=(*25)+1:v=(*25)+1:t$=z$(c):z$(c)=z$(v):z$(v)=t$:r W2:6:r=721:20:r,0;"";r,29;"":r T4:r=1521:20:r,3;" ":r  7:17,7;"@" 7:1 920:9 ,3;"_" $(20:4,22;"oOoO()o." K 1500 E 1401y F s=0 G## main game loop H520:=""s=s+1:s151352H I6s=156:1:5005:1352H J*="m"1700:f=11800 K1:5000 P+="o"x=x-1:d=1:1400x Z+="p"x=x+1:d=2:1400x d ="q" x"j=0j=1:1402z y j=0 }x<3x=3 ~x>28x=28 41:6:5000+(d*2)-1+j 0l0n=l:21004:y-1,x;z$(n)  1350F =10 ,3;:n=126:## show all letters /nl21004:z$(n);:20:1520 1:" "; n ?  ## bark l=01760 ## carrying letter 8o=1:o$=z$:u=126:o=lo=o+1 4z$(u)=o$(l):x-2uz$(u)=o$(o):o=o+1  20 u:l=0 *6:1:5000:5005 1500:.4L,30 %## check if alphabet ordered, set f Hf=0:z$="abcdefghijklmnopqrstuvwxyz"2,4:f=1  ## not carrying letter '1:10 ,x;" ":l=x-2 .4L,25  ## completed level! &1:6:0:1: "WHOA, GOOD DOG!" &9:4:"doggy bonus: ----> ";k*502;" points!!" +Uk-(3*(k/3))=0::0:"** juicy bone bonus! **":1: 0Q::5:"proceed to next level, you're doing great! " :"0:0:k-(k/7) D k=k+1 N"n=0140:20:n X 1000 4#ii=(((z$(n))-96`)/4) 5ii>7ii=0 6## set letter's colours 9ii :ii=7-ii ;#ii=1ii<0ii=0 <ii >   100d 0:7  .05|L,3,.1}L,4,.1}L,2,.1}L,2,.1}L,2,.15~,1,.15~,2,.05|L,2,.05|L,4,.1}L,5,.1}L,3,.1}L,3,.15~,2,.15~,3,.05|L,3,.05|L,3,.1}L,4,.1}L,2,.1}L,2,.15~,1,.15~,2,.1}L,1,.05|L,0,.02{# =,2,.02{# =,4,.02{# =,6,.1}L,7,.05|L,8,.05|L,7,.03{u\,5 ## music data -1,-1 ## init UDGs  4500 (p="A""A"+(8*20)-1 v:p,v p  A 0 0010 00010000 0 00100100$ 11000010 00001001 001100000 B 0 0 0 0 01 01 11000010 001101106 C 0 00010100 00001011 00011000 00100110& 00100011# 010@ 110 D 00001100 00001000 110 01101000h 00011000 00100110& 01100011c 110 E 0 0010 00010000 0 00100100$ 11000010 00001001 001100000 F 0 0 0 0  00001000  0100 0100 11100110 G 0 00010100 00011011 00010000 00001000  00010100 "0100 $00101000( &H *00010100 ,00001000 .11001000 001110100t 200010100 400010011 600010001 800001010 :I >0 @0 B0 D0 F10 H10 J01000011C L01101100l NJ R0 T0100 V00001000 X0 Z00100100$ \01000011C ^10010000 `00001100 bK g001100000 i00010000 k011 m00010110 o00011000 q01100100d s11000110 u011 vL z0 |00101000( ~11010000 00011000 01100100d 11000100 010 011 M 0 0 0 0 00010000 0010 0010 01100111g N 0 0100 00001000 0 00100100$ 01000011C 10010000 00001100 O 00101000( 00010000 00010011 00101110. 00101000( 11001000 10001000 01010000P P 0 00101000( 11011000 00001000 00010000 00101000( 0010 00010100 Q 010@ 0010 001100113 01011000X 0 0100 00010001 00010000 R 010 0100 11001100 00011010 0 0010 10001001 00001001 S 00001010 01  0  00001000 00010010 001100102 01100010b 11100110 T 01010010R 1011 00001101  010 "01010100T $01001100L &01000110F (01100111g *... 0y-1,x;" ";y,x;" ";y+1,x;" ": y,x;"";y+1,x;"": y,x;"";y+1,x;"": y,x;"";y+1,x;"": y,x;"";y+1,x;"": y,x;"";y+1,x;"":  ## dog-draw routines lv1:1::  one bonus! **":1:    ;z$(n);:20:1520 @ ::0:"** juicy bone bonus! **":1:    ;z$(n);:20:1520 wMMMfGzG%WqMT>@ P P P 3]~M}~33m}}}}6Zn> $ 06 &#@ h&c $ 0(t Cl$C 0d(d g$C (.(ȈP(( @ 3X 2bR TLFgB<