Antic Magazine 1988 October/Antic_Magazine_1988_10_Antic_Side_B.atr/toolbox.act

Text File | 2023-02-26 | 1KB | 1 lines

; ACTION! TOOLBOX¢; BY KEVIN SHERRATT¢; (c)1988, ANTIC PUBLISHING¢¢MODULE¢ BYTE Index,¢      Match¢ BYTE ARRAY String,¢            Word,¢            Comlist¢¢PROC Wordfind()¢ BYTE Start,¢      Counter¢ FOR Counter=Index TO String(0)¢ DO¢  IF String(Index)<>32 THEN¢   EXIT¢  FI¢  Index==+1¢ OD¢ Start=Index¢ FOR Counter=Index TO String(0)¢ DO¢  IF String(Index)=32 THEN¢   EXIT¢  FI¢  Index==+1¢ OD¢ ScopyS(Word,String,Start,Index)¢RETURN¢¢PROC Matchup(BYTE ARRAY Command, List BYTE Increment)¢ BYTE Counter1,¢      Counter2¢ Match=0¢ FOR Counter1=1 TO List(0) STEP Increment¢ DO¢  IF Command(1)=List(Counter1) THEN¢   Match=1¢   FOR Counter2=2 TO Increment¢   DO¢    IF List(Counter1+Counter2-1)=32 THEN¢     EXIT¢    ELSEIF Command(Counter2)<>List(Counter1+Counter2-1) THEN¢     Match=0:EXIT¢    FI¢   OD¢  FI¢  IF Match=1 THEN¢   EXIT¢  FI¢ OD¢ IF Match=1 THEN¢  Match=Counter1¢ FI¢RETURN¢¢PROC Caller()¢ Comlist="DOG CAT COW MULE"¢ Print("TYPE ONE OF THE FOLLOWING: ")¢ PrintE(Comlist)¢ InputS(String)¢ Index=1¢ Wordfind()¢ Matchup(Word, Comlist, 4)¢ PrintE(Word)¢ PrintBE(Match)¢RETURN¢¢əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə