ä; Š *** MUST HAVE THESE DIM STATEMENTS AT BEGINNING ***:€ offset%,segment%#(€ 3 Discriptor1$,Discriptor2$2:3<"MAKE CALL" Š *** SUBROUTINE TO MAKE CALL ***F:5PŠ *** FIX FOR STRING VARIABLES TO BE PASSED ***Z:dPtr% = „(Discriptor1$),n€0 Ptr%, †(A1$) : €0 Š Ptr%+1,„(A1$)xPtr% = „(Discriptor2$)+‚€0 Ptr%,†(A2$) : €0 Š Ptr%+1,„(A2$)Œ:>–Š *** MAKE segment%:offset% EQUAL ADDRESS OF ROUTINE *** :&ªsegment% = „ D : offset% = &1000´:$¾Š *** MAKE CALL TO ROUTINE ***È:Ò€& &B8,Var1,&50Ü€& &B8,Var2,&50æ€& &B8,Discriptor1$,&50ð€& &B8,Discriptor2$,&50ú€& &BB,offset%,&FF,&1F€:%Š *** EXAMPLES TO MAKE CALL ***"€ "MAKE CALL"5,Var1 = 3 : Var2 = 69 : A1$ = "HELP" : A2$ = "ME"6€ "MAKE CALL"-þÿ*** TAKE THŠ ‚ € WHEN € Y Š TRY! ***ÿÿ