10DEFFNN="ANYM" 23*FX154,24 30*L.GLASS 2300 40PROCASSM 50VDU19,2,6,0,0,0,19,1,4,0,0,0 60VDU28,0,10,39,0 70L$="012345679" 75?&74=0 77stop=FALSE 78PRINTTAB(10,9);:COLOUR2:PRINT"P";:C OLOUR3:PRINT"lay ";:COLOUR2:PRINT"S";:CO LOUR3:PRINT"top ";:COLOUR2:PRINT"F";:COL OUR3:PRINT"ast ";:COLOUR2:PRINT"E";:COLO UR3:PRINT"ject" 80REPEAT 90FORF%=1TO LENL$:N%=VAL(MID$(L$,F%,1 )):!&90=&2300+N%*64:!&80=&3000+640*3+18* 16 110CALLCOPY 120*FX19 121*FX19 122A$=INKEY$(5) 123IFA$="E" THEN stop=TRUE 124IFA$="S" THEN ?&74=1 125IFA$="P" THEN ?&74=0 126IFA$="F" THEN *FX15 130NEXT 160UNTIL stop 162?&74=1 163*FX15 165CLS 167*KILL 170END 180DEFPROCASSM 190DIMspace 50 200FORF=0TO2STEP2:P%=space 210[OPTF 220.COPY½FROM !&90 TO !&80 230LDX#5:.CLOP LDY#63 240.CLOP2 LDA(&90),Y:STA(&80),Y 250DEY:BPL CLOP2:CLC:LDA&90:ADC#&80:ST A&90:LDA&91:ADC#2:STA&91:CLC:LDA&80:ADC# &80:STA&80:LDA&81:ADC#2:STA&81 260DEX:BNE CLOP:RTS 270]NEXT:ENDPROC