OPTIONS PrintKeys; [DEF,SHIFT,(LeftShift Down | RightShift Down)] SELECT TRIGGER FROM Mouse WHILE Red Down => Coords, TrackMouse; Mouse WHILE Blue Down => Coords, TrackMouse; Mouse WHILE Yellow Down => Coords, TrackMouse; Mouse => Coords; Red Down => SELECT ENABLE FROM LeftShift Down => SELECT ENABLE FROM Ctrl Down => Coords, MoveNoStretch; ENDCASE => Coords, MoveOrigin; RightShift Down => SELECT ENABLE FROM Ctrl Down => Coords, MoveNoStretch; ENDCASE => Coords, MoveOrigin; Ctrl Down => Coords, MoveStretch; ENDCASE => Coords, MoveMark; Yellow Down => SELECT ENABLE FROM LeftShift Down => SELECT ENABLE FROM Ctrl Down => Undelete; ENDCASE => Coords, DeleteObject; RightShift Down => SELECT ENABLE FROM Ctrl Down => Undelete; ENDCASE =>Coords, DeleteObject; Ctrl Down => Coords, Copy; ENDCASE => Coords, DrawLine; Blue Down => SELECT ENABLE FROM LeftShift Down => SELECT ENABLE FROM Ctrl Down => Coords, DeselectObject; ENDCASE => Coords, SelectArea; RightShift Down => SELECT ENABLE FROM Ctrl Down => Coords, DeselectObject; ENDCASE => Coords, SelectArea; Ctrl Down => Coords, AddSelected; ENDCASE => Coords, SelectObject; A Down WHILE Ctrl Down => ControlA; B Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => DrawBackBox; ENDCASE => DrawBox; C Down WHILE Ctrl Down => CopySelected; D Down WHILE Ctrl Down => DeleteSelected; E Down WHILE Ctrl Down => ComplimentMagnify; F Down WHILE Ctrl Down => SetDefault; G Down WHILE Ctrl Down => SetGrid; H Down WHILE Ctrl Down => ControlH; I Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => InputFileRelative; ENDCASE => InputFile; J Down WHILE Ctrl Down => Jam; LF Down => Jam; K Down WHILE Ctrl Down => Kill; L Down WHILE Ctrl Down => DefineMacro; M Down WHILE Ctrl Down => Return; N Down WHILE Ctrl Down => ComplimentOneLevel; O Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => PutFile; -- Put large format file, called LSil format ENDCASE => PutFile; P Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => OutputFile; -- clipped to Alto screen size using compatible AltoSil format ENDCASE => OutputFileUnclipped; -- using AltoSil format, unclipped if possible Q Down WHILE Ctrl Down => ControlQ; R Down WHILE Ctrl Down => DeleteMacros; T Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => ShowFrames; ENDCASE => ShowTics; U Down WHILE Ctrl Down => Undelete; V Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => ReduceSelection; ENDCASE => View; X Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => MoveRelativeNoStretch ENDCASE => MoveRelativeStretch; Y Down WHILE Ctrl Down => Ylock; Z Down WHILE Ctrl Down => Hardcopy; W Down WHILE Ctrl Down => ControlW; S Down WHILE Ctrl Down => ControlS; Arrow Down WHILE Ctrl Down => CenterOnMark; DEL Down => Del; ESC Down => Escape; Return Down => Return; BS Down => Backspace; ENDCASE. pSil.tip Last Edited by: Pier, July 29, 1985 1:57:19 pm PDT Slash Down WHILE Ctrl Down => SELECT ENABLE FROM [SHIFT] => Help ENDCASE => Help; April 17, 1985: removed ControlQ and Control_ functions, added ControlP and ControlShiftI Pier, April 19, 1985 5:06:52 pm PST restored controlQ which will post a messagewindow instruction to use the viewer Destroy ‌تکJڑœ™™2Icode™—JکڑدkکJک Jک—Jڑœ‌œ‌œ$ک.JڑœکJڑ‌œ‌œ‌کJکJڑœ‌œ#ک.Jڑœ‌œ$ک/Jڑœ‌œ$ک/JکJکJکJڑœ‌œ‌œ‌œ‌œ‌œ‌œ4‌œ2‌œ‌œ‌œ4‌œG‌œکèJڑœ‌œ‌œ‌œ‌œ‌œ‌œ'‌œ4‌œ‌œ‌œ'‌œA‌œکجJکJڑœ ‌œ‌œ‌œ‌œ‌œ‌œ5‌œ2‌œ‌œ‌œ5‌œG‌œکîJکJڑœ‌œک#Jکڑœ‌œ‌œ‌œ‌ک,Jڑœ‌œکJڑ‌œک—JکJڑœ‌œک'JکJڑœ‌œک)JکJڑœ‌œ ک,JکJڑœ‌œک%JکJڑœ‌œک"JکJڑœ‌œک#Jکڑœ‌œ‌œ‌œ‌ک,Jڑœ‌œکJڑ‌œک—JکJڑœ‌œکJڑœکJکJڑœ‌œکJکJڑœ‌œک&JکJڑœ‌œک!JکJڑœ‌œ!ک-Jکڑœ‌œ‌œ‌œ‌ک,Jڑœ‌œدc.کBJڑ‌œ ک—Jکڑœ‌œ‌œ‌œ‌ک,Jڑœ‌œ‍>کVJڑ‌œ‍/کO—JکJڑœ‌œک#JکJڑœ‌œک'Jکڑœ‌œ‌œ‌œ‌ک,Jڑœ‌œکJڑ‌œک—JکJڑœ‌œک#Jکڑœ‌œ‌œ‌œ‌ک-Jڑœ‌œکJڑ‌œ ک—JکJڑœ‌œ‌œ‌œ‌ک.Jڑœ‌œک"Jڑœ‌œک!JکJڑœ‌œک JکJڑœ‌œک#JکJڑœ‌œک#JکJڑœ‌œک#JکJڑœ‌œک+JکJڑœ‌œ‌œ‌œ‌™0Jڑœ‌œ™Jڑœ‌œ ™JکJڑœکJکJڑœکJکJکJکJڑœکJڑ‌œکJکJ™Y™#K™W—K™—…—ىd