#d¤ ****************************#n¤ * *#x¤ * DEMO-PROGRAM V009 *#‚¤ * *#Œ¤ ****************************–¤ By David Wess  ¤ DEMOª¤ Version date 13/6/84*´¤ copyright (c) 1984 Tatung (UK) Ltd.¾¤Ȥ *** MAIN CONTROL ***ɤ7Üÿ”:‚:ÿƒ1:Á 4: K~0 r 15:ÿ•K," ":› K:Z~u1: à ‘ 320\æ‡"INTRO","EINSTEIN","CLOCK","OTHELLO","MASTMIND","HANGMAN","KEYBOARD","PICPEN","SNAKES"2ðZPRGN~1:¤ WE WANT TO RUN INTRODUCTION (INTRO)(ú 760:¤ CALL GET-REQUIRED-FILE-NAME3¤ NOW WE HAVE THE REQUIRED FILE NAME IN ZFLNM$O‘ 840:¤ CALL CHAIN=PROGRAM (GOT USED INSTEAD OF GOSUB TO AVOID STACK ERROR8‡"E",3,"I",9,"N",7,"S",13,"T",11,"E",5,"I",14,"N",9"¤,¤ *** DISPLAY-MENU ***6¤@© 330:¤ CLEAR STACKPJÿ”:‹&12E,&FFFE:ÿƒ1:„ 32:¢ Ç(20);q0,32):¾ 0:¿ 25,10:¼(44):Á 4:Z~u1: à ‘ 320#Tÿ€ 19,0 r 0,0 r 0,191 r 50,191)^ÿ€ 205,191 r 255,191 r 255,0 r 236,0-h§ 280:¤ START READING DATA FROM LINE 240r¢| ZI~0 r 7 †£ ZPRN$:¤ GET THE CHARACTER#£ ZPRNC:ÿ ZPRNC:¤ THE COLOURš¢@ 12tZI,0;ZPRN$ ¤› ZI ®ÿ 11,0+¸¢@ 3,4;"Select an option by pressing";'¢@ 4,6;"the corresponding number." ÌZSP~9Ö‡ "INTRODUCTION"," 1"à‡ "EINSTEIN"," 2"ê‡ "CLOCK"," 3"ô‡ "OTHELLO"," 4"þ‡ "MASTERMIND"," 5"‡ "HANGMAN"," 6"‡ "KEYBOARD"," 7"‡ "PICTURE PEN"," 8"&‡ "SNAKES"," 9"0‡ "END DEMO"," E":§ 470:ÿ 8,0D ZI~0 r 9N£ ZM$,ZN$X¢@ 7,ZSPtZI;ZM$;ZN$ b› ZI lÿ 3,0Dv¢@3,20;"Press SHIFT and BREAK to";@5,21;"return to this menu."; €¢Ç(&14);ŠZPRGN~äu48&”“ ZPRGN~21 { ZPRGN~53 s ÿ”:ÿƒ 4:Ž"ž“ ZPRGN 1 { ZPRGN }9 s ‘ 650 ¨§ 470² ZI~1 r ZPRGN¼£ ZM$,ZN$ Æ› ZI#Ðÿ 7:¢@ 7,ZSPtZPRGNu1;ZM$;ZN$;1Úÿ 15,0:¢@9uÏ(ZM$)x2,23;"NOW CHAINING ";ZM$;"ä 760:¤ GET-REQUIRED-FILE-NME î‘ 840ø¤%¤*** GET-REQUIIRED-FILE-NAME *** ¤ § 230  ZI~1 r ZPRGN%*£ ZFLM$:¤ GET REQUIRED FILE NAME 4› ZI>¨H¤R¤*** CHAIN PROGRAM ***\¤ f’ 999 p ZFLM$!z¤ RETURN FROM CALLED PROGRAM8