*+‹ήςDUMMY€A1¨A2¨TEST€LINΕS13ΆS13·T±ΞT²S14°S14±€@@@ DIMENSION DUMMY STRING ›€;@,''DIMENSION THE APRAYS AND STRINGS ›WHICH WILL NEED CLEARING ›9@,‚9@,CLEAR THE VARIABLES ›66ˆ-@6NUMBER OF VARIABLES JUST DIMENSIONED›INCLUDING DUMMY$ › ""YOUR PROGRAM MAY BEGIN HERE ›d##HERE IS AN EXAMPLE OF HOW TO ›n""USE THE UNDIMENSION ROUTINE ›x(ƒ;@ ,(6ƒ.I'M STILL HERE? ‚##€;@,9@P<@,Œ7 68@P<@,-@7(8@P<@,ƒ–""EXECUTE UNDIMENSION ROUTINE › 6„-Ap A ͺ€;@,‚9A,΄'6‚8A,-@'(‚8A,ƒΎΘ›θUNDIMENSION ROUTINE ›ς""SAVE CURRENT POINTER VALUES ›ό!6…-F:A6,!6†-F:A7,!6Š-F:A@,!6‹-F:AA,MOVE END OF VARIABLES›+6‡-F:A4,%@$ˆ+6‰-F:A5,$+‡!AU6‰-‰%@+6‡-‡&AV.A6‡A7‰8MOVE BEGINNING OF ARRAYS›B6‰-P:C:€,'AV,L6‡-C:€,&‰$AVVA@‡AA‰`CLEAR THE ARRAYS ›j""RESTORE POINTERS AND RETURN ›tA6…A7†~A@ŠAA‹ˆ „€ D2:P34P2.BAS