„:¢ "PROGRAM FRAME1":¢*¢ "Originated by F.P.Pettit MA(OXON)"0¢ "Founder of the Computer Teaching Centre"(¢ "University of Oxford"2¢%<¢ "Program submitted by V.J.Day"'F¢ "23 Assarts Lane, Malvern Wells"P¢ "Worcs. WR14 4JR"Z¢:¢"d¢ "Type 'I' for Instructions".nL$~"QMXI1234567890ABCD":¤ Command letters)xM$~"I1234567890ABCD":¤ Default MACRO!‚M8~1:M9~0:¤ M9 Macro pointerŒ¢ "What next ";O– M8 ‘ 380,320:¤ M8=1 Kbd Selected procedure,M8=2 Macro selected procedure  N9~1 r Ï(L$)>ª“ Ý(K$,1)~Þ(L$,N9,1) s ‘ 190 :¤ Next procedure identified ´› N9¾¢ú N9 ‘ 290,300,310,4000 N9u4 ‘ 1000,2000,3000,4000,5000,6000,70006 N9u11 ‘ 8000,9000,10000,11000,12000,13000,14000 ‘ 140"¬,,¢ "SELECT YOUR MACRO PLEASE";:” M$:M9~0 6M8~2 @M9~M9t1!J“ M9}Ï(M$) s M9~0:M8~1:‘ 150TK$~Þ(M$,M9,1)^¢ q12,32);M$h¢ qM9t11);"^" r‘ 160 |” K$ †‘ 160„:¢ "USE :-"š¢ " I for Instructions""¤¢ " M to define a new Macro"'®¢ " X to eXecute a current macro"¸¢ " Q to Quit"X¤ Lines 450 to 890 are to be used for listing your own procedures 1 to 0 and A to D „‘ 140è¢ "PROCEDURE 1" Ï‘ 140Т "PROCEDURE 2" · ‘ 140¸ ¢ "PROCEDURE 3" Ÿ‘ 140 ¢ "PROCEDURE 4" ‡‘ 140ˆ¢ "PROCEDURE 5" o‘ 140p¢ "PROCEDURE 6" W‘ 140X¢ "PROCEDURE 7" ?‘ 140@¢ "PROCEDURE 8" '#‘ 140(#¢ "PROCEDURE 9" '‘ 140'¢ "PROCEDURE 0" ÷*‘ 140ø*¢ "PROCEDURE A" ß.‘ 140à.¢ "PROCEDURE B" Ç2‘ 140È2¢ "PROCEDURE C" ¯6‘ 140°6¢ "PROCEDURE D" —:‘ 140"˜:¤ SET GLOBAL SUBROUTINES HERE!€>¤ SET DEFINED FUNCTIONS HEREhB¤ SET DATA STATEMENTS HERE NŽY.çaç ` `€Qüæ hÀ