(FILECREATED " 8-Dec-85 18:04:22" ("compiled on " {ICE}LISP>TM.;16) "12-Nov-85 14:59:23" recompiled changes: DELTRANS ENTERSYMS MSELECT TM TMCREATE TMMOVEHEAD TMMSG in "SMALLLOOPS/KOTO 5-Dec-85 ..." dated " 5-Dec-85 17:47:45") (FILECREATED " 8-Dec-85 18:00:53" {ICE}LISP>TM.;16 30118 changes to: (VARS TMCOMS TMDELAY) ( FNS TM ENTERSYMS TMCREATE TMMSG DELTRANS TMMOVEHEAD MSELECT) (PROPS (0n1n SYMBOLS) (0n1n TRLIST) (0n1n STATES) (0n1n FINALSTATE)) previous date: "15-NOV-83 17:38:44" {ICE}LISP>TM.;15) DELTRANS D1 (P 3 STATELIST P 2 STATE P 1 SYM P 0 TR F 10Q CURTM F 11Q DCURSOR F 12Q TMSYMBOLS F 13Q TMSTATES) š@W o XWH YWH ZWgJ [WgJ K1Lµ:Mhdd`Hl<ÚlØn†JlÚÙlØl:lggj i o hdIð«_¿NµOh^]¿L\°¯O&^°ö(170Q TMMSG 161Q CURSOR 155Q BITBLT 72Q NTH 56Q NTH 42Q NTH 31Q NTH 21Q GETXY 16Q TMMSG 7 SETCURSOR) (150Q REPLACE 145Q TEXTURE 113Q PWINDOW 65Q TRLIST 51Q TRLIST) ( 165Q "Pfft!" 13Q "Select the transition to be deleted:") ENTERSTATES D1 (P 1 X F 2 YLOC F 3 TMSTATES F 4 CHAR F 5 PWINDOW F 6 CURTM F 7 XLOC) Åhhcnco cddgð²¿ScVgSWl<IdHñ²th l0ñ—T l9ñ˜o °QRlÙc¿lRU¿gU ¿TU ¿lRlÙWRlÙkgU ¿STh c¿VgVghh ¿c±ÿpn¤IRlÙkgU ¿Il<ØY±ÿr(272Q DRAWLINE 244Q READC 240Q PUTPROP 235Q \APPEND2 213Q \NCONC2 203Q DRAWLINE 155Q PRIN1 147Q PRIN1 137Q MOVETO 117Q TMMSG 104Q CHCON1 74Q CHCON1 52Q PUTPROP 23Q READC 20Q TMMSG) (265Q PAINT 226Q TRLIST 222Q TRLIST 176Q PAINT 143Q q 46Q STATES 32Q %]) (114Q "Type a ']' character to finish, or single digits (1-9) to go on." 15Q "Enter states (single digits); end with a ]") ENTERSYMS D1 (F 1 TMSYMBOLS F 2 XLOC F 3 CHAR F 4 CURTM) ´hhcl 61Q PWINDOW 42Q %]) ( 172Q "Type a ']' character to finish, anything else to go on." 14Q "Type symbols (single characters, no CR's); end with a ]") EXISTINGSTATES D1 (P 2 X P 0 CHAR F 3 YLOC F 4 PWINDOW F 5 CURTM F 6 TMSTATES F 7 XLOC F 10Q FINALMAP F 11Q INITMAP) UgcncV°;dSlÙc¿lST¿gT ¿HT ¿lSlÙWSlÙkgT µÆWhdTlnUglÚÙhddg WhdTlnUglÚÙhddg Wl<JdIñ‘hn¤JSlÙkgT ¿Jl<ØZ°ã(243Q DRAWLINE 204Q BITBLT 147Q BITBLT 105Q DRAWLINE 57Q PRIN1 51Q PRIN1 41Q MOVETO) (236Q PAINT 200Q REPLACE 165Q FINALSTATE 143Q REPLACE 130Q INITIALSTATE 100Q PAINT 45Q q 3 STATES) NIL EXISTINGSYMS D1 (P 0 CHAR F 1 XLOC F 2 PWINDOW F 3 TMSYMBOLS F 4 CURTM) NTgcl 43Q %] 3 SYMBOLS) NIL EXISTINGTRANS D1 (P 10Q TR P 7 STATE P 6 S# P 3 NEWSYM P 2 NEWSTATE P 1 TR P 0 STATE F 11Q TMSYMBOLS F 12Q TRXY F 13Q CURTM F 14Q DIR) Ÿ @W WgkMµo h_¿NLñ³ïOo ³bO °XdW OW ÙkØNc¿OºWJ ¿O»WW KW ÙkØ ¿O c¿W µ©M½NkØ¾±ÿw(216Q PRINTDIR 205Q LAST 177Q PRINTSYM 171Q LENGTH 166Q MEMB 160Q LENGTH 142Q PRINTSTATE 117Q LENGTH 114Q MEMB 104Q LENGTH 70Q REVERSE 61Q EQUAL 35Q TMMSG 7 LENGTH) (14Q TRLIST) (56Q (NIL) 32Q "OK") ENTERTERMSTATES D1 (F 0 CURTM F 1 PWINDOW F 2 LCURSOR F 3 INITMAP F 4 FINALMAP) fo R PgShdQlnPglÚÙhddg o PgThdQlnPglÚÙhddg i (143Q CURSOR 137Q BITBLT 103Q PUTPROP 77Q GETXY 70Q TMMSG 61Q BITBLT 25Q PUTPROP 21Q GETXY 12Q SETCURSOR 6 TMMSG) (133Q REPLACE 120Q FINALSTATE 74Q FINALSTATE 55Q REPLACE 42Q INITIALSTATE 16Q INITIALSTATE) (65Q "Select the final state:" 3 "Select the initial state:") GETXY D1 (P 0 BOX I 0 KEEP F 1 PWINDOW F 2 XLOC F 3 YLOC) Ç¿`låjð²}¿°îQ Rýñ²`Q Sñ²XQ Q ¸hddQHHHH ggn ¿l ¿hddQHHHH ggn ¿¿¿`låjð²H²ñ@²"hddQHHHH ggn ¿Hl<ÛnHÙlÛ(263Q BITBLT 245Q LAST 203Q GETMOUSESTATE 177Q GETMOUSESTATE 173Q BITBLT 155Q LAST 133Q DISMISS 125Q BITBLT 107Q LAST 65Q FINDAREA 62Q LASTMOUSEY 56Q LASTMOUSEX 46Q LASTMOUSEY 35Q LASTMOUSEX 26Q GETMOUSESTATE 10Q GETMOUSESTATE 5 GETMOUSESTATE) (254Q INVERT 251Q TEXTURE 207Q LASTMOUSEBUTTONS 164Q INVERT 161Q TEXTURE 116Q INVERT 113Q TEXTURE 14Q LASTMOUSEBUTTONS) NIL FINDAREA D1 (L (1 Y 0 X)) @l<Ûl<ÚAlÛlÚl